Page MenuHomeHEPForge
Files F10881128

mnexin.f
No OneTemporary
Actions

mnexin.f
View Options

*
* $Id: mnexin.F,v 1.1.1.1 1996/03/07 14:31:29 mclareni Exp $
*
* $Log: mnexin.F,v $
* Revision 1.1.1.1 1996/03/07 14:31:29 mclareni
* Minuit
*
*
SUBROUTINE MNEXIN(PINT)
*
* $Id: d506dp.inc,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
*
* $Log: d506dp.inc,v $
* Revision 1.1.1.1 1996/03/07 14:31:32 mclareni
* Minuit
*
*
*
*
* d506dp.inc
*
C ************ DOUBLE PRECISION VERSION *************
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
CC Transforms the external parameter values U to internal
CC values in the dense array PINT. Subroutine MNPINT is used.
CC
*
* $Id: d506cm.inc,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
*
* $Log: d506cm.inc,v $
* Revision 1.1.1.1 1996/03/07 14:31:32 mclareni
* Minuit
*
*
*
*
* d506cm.inc
*
PARAMETER (MNE=100 , MNI=50)
PARAMETER (MNIHL=MNI*(MNI+1)/2)
CHARACTER*10 CPNAM
COMMON
1/MN7NAM/ CPNAM(MNE)
2/MN7EXT/ U(MNE) ,ALIM(MNE) ,BLIM(MNE)
3/MN7ERR/ ERP(MNI) ,ERN(MNI) ,WERR(MNI) ,GLOBCC(MNI)
4/MN7INX/ NVARL(MNE) ,NIOFEX(MNE),NEXOFI(MNI)
5/MN7INT/ X(MNI) ,XT(MNI) ,DIRIN(MNI)
6/MN7FX2/ XS(MNI) ,XTS(MNI) ,DIRINS(MNI)
7/MN7DER/ GRD(MNI) ,G2(MNI) ,GSTEP(MNI) ,GIN(MNE) ,DGRD(MNI)
8/MN7FX3/ GRDS(MNI) ,G2S(MNI) ,GSTEPS(MNI)
9/MN7FX1/ IPFIX(MNI) ,NPFIX
A/MN7VAR/ VHMAT(MNIHL)
B/MN7VAT/ VTHMAT(MNIHL)
C/MN7SIM/ P(MNI,MNI+1),PSTAR(MNI),PSTST(MNI) ,PBAR(MNI),PRHO(MNI)
C
PARAMETER (MAXDBG=10, MAXSTK=10, MAXCWD=20, MAXP=30, MAXCPT=101)
PARAMETER (ZERO=0.0, ONE=1.0, HALF=0.5)
COMMON
D/MN7NPR/ MAXINT ,NPAR ,MAXEXT ,NU
E/MN7IOU/ ISYSRD ,ISYSWR ,ISYSSA ,NPAGWD ,NPAGLN ,NEWPAG
E/MN7IO2/ ISTKRD(MAXSTK) ,NSTKRD ,ISTKWR(MAXSTK) ,NSTKWR
F/MN7TIT/ CFROM ,CSTATU ,CTITL ,CWORD ,CUNDEF ,CVRSN ,COVMES
G/MN7FLG/ ISW(7) ,IDBG(0:MAXDBG) ,NBLOCK ,ICOMND
H/MN7MIN/ AMIN ,UP ,EDM ,FVAL3 ,EPSI ,APSI ,DCOVAR
I/MN7CNV/ NFCN ,NFCNMX ,NFCNLC ,NFCNFR ,ITAUR,ISTRAT,NWRMES(2)
J/MN7ARG/ WORD7(MAXP)
K/MN7LOG/ LWARN ,LREPOR ,LIMSET ,LNOLIM ,LNEWMN ,LPHEAD
L/MN7CNS/ EPSMAC ,EPSMA2 ,VLIMLO ,VLIMHI ,UNDEFI ,BIGEDM,UPDFLT
M/MN7RPT/ XPT(MAXCPT) ,YPT(MAXCPT)
N/MN7CPT/ CHPT(MAXCPT)
o/MN7XCR/ XMIDCR ,YMIDCR ,XDIRCR ,YDIRCR ,KE1CR ,KE2CR
CHARACTER CTITL*50, CWORD*(MAXCWD), CUNDEF*10, CFROM*8,
+ CVRSN*6, COVMES(0:3)*22, CSTATU*10, CHPT*1
LOGICAL LWARN, LREPOR, LIMSET, LNOLIM, LNEWMN, LPHEAD
DIMENSION PINT(*)
LIMSET = .FALSE.
DO 100 IINT= 1, NPAR
IEXT = NEXOFI(IINT)
CALL MNPINT(U(IEXT),IEXT,PINTI)
PINT(IINT) = PINTI
100 CONTINUE
RETURN
END

File Metadata

Mime Type
text/x-fortran
Expires
Sat, May 3, 5:54 AM (18 h, 40 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
4972492
Default Alt Text
mnexin.f (2 KB)

Event Timeline