00001 INTEGER FRAG_NF
00002 DOUBLE PRECISION FRAG_BETA0,FRAG_MC,PI,KEYPOINT
00003 DOUBLE PRECISION FRAG_AQ,FRAG_AG,LAMBDA,EULERCONST
00004 DOUBLE PRECISION R1S2C,R1S2G,R1S2B
00005 DOUBLE PRECISION FRAG_Q02,FRAG_Q03
00006 DOUBLE PRECISION FRAG_METAC,FRAG_METAB,FRAG_MB
00007
00008
00009 PARAMETER(KEYPOINT=0.8D0)
00010 PARAMETER(FRAG_NF=5)
00011 PARAMETER(FRAG_BETA0=11d0-2d0/3d0*FRAG_NF)
00012 PARAMETER(FRAG_MC=1.5D0)
00013 PARAMETER(FRAG_Q02=2D0*FRAG_MC)
00014 PARAMETER(FRAG_Q03=3D0*FRAG_MC)
00015 PARAMETER(PI=3.141592653589793D0)
00016 PARAMETER(LAMBDA=0.192D0)
00017 PARAMETER(FRAG_AG=6D0)
00018 PARAMETER(FRAG_AQ=8D0/3D0)
00019 PARAMETER(EULERCONST=0.5772157D0)
00020 PARAMETER(R1S2C=0.512D0)
00021 PARAMETER(R1S2G=0.73D0)
00022 PARAMETER(FRAG_METAC=3.0D0)
00023 PARAMETER(FRAG_METAB=9.4D0)
00024 PARAMETER(FRAG_MB=4.7D0)
00025 PARAMETER(R1S2B=5.0D0)
00026
00027 C PARAMETER(EPSILON_Q=0.4D0**2/FRAG_MC**2)
00028
