Context Navigation

mnintr.F

Visit:

Last change on this file 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

Rev	Line
[2403]	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"
	12	CC Called by user. Interfaces to MNREAD to allow user to change
	13	CC easily from Fortran-callable to interactive mode.
	14	CC
	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.