Context Navigation

mninex.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: 728 bytes

Rev	Line
[2403]	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"
	12	CC Transforms from internal coordinates (PINT) to external
	13	CC parameters (U). The minimizing routines which work in
	14	CC 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.