00001 C---------------------------------------------------------------------
00002 C FIST.INC Matrix element and mixing parameters
00003 C
00004 C 950720 Michael Kelsey -- Extracted from FCALC.F
00005 C 950724 Move OMEGA, HEX matrices, other parameters out of arguments
00006 C---------------------------------------------------------------------
00007
00008 C Mixing Matrix
00009 INTEGER FIST_MIX, FIST_NFS
00010 PARAMETER (FIST_MIX = 6)
00011 PARAMETER (FIST_NFS = 16)
00012
00013 DOUBLE PRECISION MSD(FIST_MIX,FIST_MIX)
00014 COMPLEX OMEGA(FIST_MIX,FIST_MIX)
00015 COMPLEX HEX(FIST_MIX,FIST_MIX,FIST_NFS)
00016 COMPLEX B(FIST_MIX),DPW1(FIST_MIX),DPW2(FIST_MIX)
00017 INTEGER NS1
00018
00019 COMMON /DFMIX/ MSD,OMEGA,HEX,B,DPW1,DPW2,NS1
00020
00021 C Momentum steps and matrix elements
00022 INTEGER FIST_NP
00023 PARAMETER (FIST_NP = 103)
00024
00025 DOUBLE PRECISION H, DEM
00026 DOUBLE PRECISION P(FIST_NP), D(22,FIST_NP), F(8,FIST_NP)
00027 DOUBLE PRECISION D1(22*fist_np),F1(8*FIST_NP)
00028 EQUIVALENCE (D(1,1),D1(1)),(f(1,1),f1(1))
00029 INTEGER IPHFL
00030
00031 COMMON /FIST/ H,DEM,P,D,F,IPHFL
