source: Sophya/trunk/SophyaExt/CodeMinuit/code/mnrset.F@ 4000

Last change on this file since 4000 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: 1.0 KB
Line 
1*
2* $Id: mnrset.F,v 1.1.1.1 2003-06-11 14:18:29 cmv Exp $
3*
4* $Log: not supported by cvs2svn $
5* Revision 1.1.1.1 1996/03/07 14:31:31 mclareni
6* Minuit
7*
8*
9#include "minuit/pilot.h"
10 SUBROUTINE MNRSET(IOPT)
11#include "minuit/d506dp.inc"
12CC Called from MNCLER and whenever problem changes, for example
13CC after SET LIMITS, SET PARAM, CALL FCN 6
14CC If IOPT=1,
15CC Resets function value and errors to UNDEFINED
16CC If IOPT=0, sets only MINOS errors to undefined
17#include "minuit/d506cm.inc"
18 CSTATU = 'RESET '
19 IF (IOPT .GE. 1) THEN
20 AMIN = UNDEFI
21 FVAL3 = 2.0*ABS(AMIN) + 1.
22 EDM = BIGEDM
23 ISW(4) = 0
24 ISW(2) = 0
25 DCOVAR = 1.
26 ISW(1) = 0
27 ENDIF
28 LNOLIM = .TRUE.
29 DO 10 I= 1, NPAR
30 IEXT = NEXOFI(I)
31 IF (NVARL(IEXT) .GE. 4) LNOLIM=.FALSE.
32 ERP(I) = ZERO
33 ERN(I) = ZERO
34 GLOBCC(I) = ZERO
35 10 CONTINUE
36 IF (ISW(2) .GE. 1) THEN
37 ISW(2) = 1
38 DCOVAR = MAX(DCOVAR,HALF)
39 ENDIF
40 RETURN
41 END
Note: See TracBrowser for help on using the repository browser.