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

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