source: Sophya/trunk/SophyaExt/CodeMinuit/code/mnrset.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: 1.0 KB
RevLine 
[2403]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.