source: Sophya/trunk/SophyaExt/CodeMinuit/code/mndxdi.F@ 4024

Last change on this file since 4024 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
Line 
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"
12CC calculates the transformation factor between external and
13CC internal parameter values. this factor is one for
14CC 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.