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

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: 735 bytes
RevLine 
[2403]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.