Context Navigation

mnexin.F@ 3892

Visit:

Last change on this file since 3892 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

Rev	Line
[2403]	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"
	12	CC Transforms the external parameter values U to internal
	13	CC values in the dense array PINT. Subroutine MNPINT is used.
	14	CC
	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.