Context Navigation

mndxdi.F@ 3891

Visit:

Last change on this file since 3891 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: 631 bytes

Rev	Line
[2403]	1	*
	2	* $Id: mndxdi.F,v 1.1.1.1 2003-06-11 14:18:26 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 MNDXDI(PINT,IPAR,DXDI)
	11	#include "minuit/d506dp.inc"
	12	CC calculates the transformation factor between external and
	13	CC internal parameter values. this factor is one for
	14	CC parameters which are not limited. called from MNEMAT.
	15	#include "minuit/d506cm.inc"
	16	I = NEXOFI(IPAR)
	17	DXDI = 1.0
	18	IF (NVARL(I) .GT. 1)
	19	+ DXDI = 0.5 ABS((BLIM(I)-ALIM(I)) COS(PINT))
	20	RETURN
	21	END

Note: See TracBrowser for help on using the repository browser.