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