source: Sophya/trunk/SophyaExt/CodeMinuit/code/mnexin.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: 611 bytes
Line 
1*
2* $Id: mnexin.F,v 1.1.1.1 2003-06-11 14:18:27 cmv Exp $
3*
4* $Log: not supported by cvs2svn $
5* Revision 1.1.1.1 1996/03/07 14:31:29 mclareni
6* Minuit
7*
8*
9#include "minuit/pilot.h"
10 SUBROUTINE MNEXIN(PINT)
11#include "minuit/d506dp.inc"
12CC Transforms the external parameter values U to internal
13CC values in the dense array PINT. Subroutine MNPINT is used.
14CC
15#include "minuit/d506cm.inc"
16 DIMENSION PINT(*)
17 LIMSET = .FALSE.
18 DO 100 IINT= 1, NPAR
19 IEXT = NEXOFI(IINT)
20 CALL MNPINT(U(IEXT),IEXT,PINTI)
21 PINT(IINT) = PINTI
22 100 CONTINUE
23 RETURN
24 END
Note: See TracBrowser for help on using the repository browser.