* -*-fortran-*- integer xistep parameter(xistep=3) integer nxir parameter(nxir=nxi/xistep) real SC2zm(0:ngrid_max,3:6,4,0:2,0:nint_max_DIS,0:nint_max_DIS) real SCLzm(0:ngrid_max,3:6,4,0:2,0:nint_max_DIS,0:nint_max_DIS) real SC3zm(0:ngrid_max,3:6,4,0:2,0:nint_max_DIS,0:nint_max_DIS) * real SC2mNC(0:ngrid_max,0:nxir,3,0:2,0:nint_max_DIS, 1 0:nint_max_DIS) real SCLmNC(0:ngrid_max,0:nxir,3,0:2,0:nint_max_DIS, 1 0:nint_max_DIS) * real SC2mCC(0:ngrid_max,0:nxir,3,0:1,0:nint_max_DIS, 1 0:nint_max_DIS) real SCLmCC(0:ngrid_max,0:nxir,3,0:1,0:nint_max_DIS, 1 0:nint_max_DIS) real SC3mCC(0:ngrid_max,0:nxir,3,0:1,0:nint_max_DIS, 1 0:nint_max_DIS) * real SC2m0NC(0:ngrid_max,0:nxir,3,0:2,0:nint_max_DIS, 1 0:nint_max_DIS) real SCLm0NC(0:ngrid_max,0:nxir,3,0:2,0:nint_max_DIS, 1 0:nint_max_DIS) * real SC2m0CC(0:ngrid_max,0:nxir,3,0:1,0:nint_max_DIS, 1 0:nint_max_DIS) real SCLm0CC(0:ngrid_max,0:nxir,3,0:1,0:nint_max_DIS, 1 0:nint_max_DIS) real SC3m0CC(0:ngrid_max,0:nxir,3,0:1,0:nint_max_DIS, 1 0:nint_max_DIS) * real J_TMC(0:ngrid_max,0:nint_max_DIS,0:nint_max_DIS) * common / IntegralsDISzmAPFEL / SC2zm,SCLzm,SC3zm common / IntegralsDISmAPFEL / SC2mNC,SCLmNC, 1 SC2mCC,SCLmCC,SC3mCC common / IntegralsDISm0APFEL / SC2m0NC,SCLm0NC, 1 SC2m0CC,SCLm0CC,SC3m0CC common / IntegralsDISTMCAPFEL / J_TMC