source: Sophya/trunk/SophyaExt/CodeMinuit/code/mnamin.F@ 3237

Last change on this file since 3237 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
Line 
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"
12CC Called from many places. Initializes the value of AMIN by
13CC calling the user function. Prints out the function value and
14CC parameter values if Print Flag value is high enough.
15CC
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.