Context Navigation

mnamin.F@ 2403

Visit:

Last change on this file since 2403 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: 797 bytes

Rev	Line
[2403]	1	*
	2	* $Id: mnamin.F,v 1.1.1.1 2003-06-11 14:18:26 cmv Exp $
	3	*
	4	* $Log: not supported by cvs2svn $
	5	* Revision 1.1.1.1 1996/03/07 14:31:28 mclareni
	6	* Minuit
	7	*
	8	*
	9	#include "minuit/pilot.h"
	10	SUBROUTINE MNAMIN(FCN,FUTIL)
	11	#include "minuit/d506dp.inc"
	12	CC Called from many places. Initializes the value of AMIN by
	13	CC calling the user function. Prints out the function value and
	14	CC parameter values if Print Flag value is high enough.
	15	CC
	16	#include "minuit/d506cm.inc"
	17	EXTERNAL FCN,FUTIL
	18	NPARX = NPAR
	19	IF (ISW(5) .GE. 1) WRITE (ISYSWR,'(/A,A)') ' FIRST CALL TO ',
	20	+ 'USER FUNCTION AT NEW START POINT, WITH IFLAG=4.'
	21	CALL MNEXIN(X)
	22	CALL FCN(NPARX,GIN,FNEW,U,4,FUTIL)
	23	NFCN = NFCN + 1
	24	AMIN = FNEW
	25	EDM = BIGEDM
	26	RETURN
	27	END

Note: See TracBrowser for help on using the repository browser.