source: Sophya/trunk/SophyaExt/CodeMinuit/code/mncler.F

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: 735 bytes
Line 
1*
2* $Id: mncler.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 MNCLER
11#include "minuit/d506dp.inc"
12CC Called from MINUIT and by option from MNEXCM
13CC Resets the parameter list to UNDEFINED
14#include "minuit/d506cm.inc"
15 NPFIX = 0
16 NU = 0
17 NPAR = 0
18 NFCN = 0
19 NWRMES(1) = 0
20 NWRMES(2) = 0
21 DO 10 I= 1, MAXEXT
22 U(I) = 0.0
23 CPNAM(I) = CUNDEF
24 NVARL(I) = -1
25 10 NIOFEX(I) = 0
26 CALL MNRSET(1)
27 CFROM = 'CLEAR '
28 NFCNFR = NFCN
29 CSTATU ='UNDEFINED '
30 LNOLIM = .TRUE.
31 LPHEAD = .TRUE.
32 RETURN
33 END
Note: See TracBrowser for help on using the repository browser.