source: Sophya/trunk/SophyaExt/CodeMinuit/code/mnintr.F@ 3369

Last change on this file since 3369 was 2403, checked in by cmv, 22 years ago

Creation du module de code source de MINUIT (CERNLIB) extrait par CMV

cmv 11/06/2003
File size: 622 bytes
Line 
1*
2* $Id: mnintr.F,v 1.1.1.1 2003-06-11 14:18:28 cmv Exp $
3*
4* $Log: not supported by cvs2svn $
5* Revision 1.1.1.1 1996/03/07 14:31:30 mclareni
6* Minuit
7*
8*
9#include "minuit/pilot.h"
10 SUBROUTINE MNINTR(FCN,FUTIL)
11#include "minuit/d506dp.inc"
12CC Called by user. Interfaces to MNREAD to allow user to change
13CC easily from Fortran-callable to interactive mode.
14CC
15#include "minuit/d506cm.inc"
16 EXTERNAL FCN,FUTIL
17 IFLGIN = 3
18 CALL MNREAD(FCN,IFLGIN,IFLGUT,FUTIL)
19 WRITE (ISYSWR,'(2A/)') ' END OF MINUIT COMMAND INPUT. ',
20 + ' RETURN TO USER PROGRAM.'
21 RETURN
22 END
Note: See TracBrowser for help on using the repository browser.