source: Sophya/trunk/SophyaExt/CodeMinuit/code/mninex.F@ 2631

Last change on this file since 2631 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: 728 bytes
Line 
1*
2* $Id: mninex.F,v 1.1.1.1 2003-06-11 14:18:28 cmv Exp $
3*
4* $Log: not supported by cvs2svn $
5* Revision 1.1.1.1 1996/03/07 14:31:30 mclareni
6* Minuit
7*
8*
9#include "minuit/pilot.h"
10 SUBROUTINE MNINEX(PINT)
11#include "minuit/d506dp.inc"
12CC Transforms from internal coordinates (PINT) to external
13CC parameters (U). The minimizing routines which work in
14CC internal coordinates call this routine before calling FCN.
15#include "minuit/d506cm.inc"
16 DIMENSION PINT(*)
17 DO 100 J= 1, NPAR
18 I = NEXOFI(J)
19 IF (NVARL(I) .EQ. 1) THEN
20 U(I) = PINT(J)
21 ELSE
22 U(I) = ALIM(I) + 0.5*(SIN(PINT(J)) +1.0) * (BLIM(I)-ALIM(I))
23 ENDIF
24 100 CONTINUE
25 RETURN
26 END
Note: See TracBrowser for help on using the repository browser.