*     -*-fortran-*-
*
*     DIS Operators
*
*            SF  grid number | l/c/b/t/tot | PDF index | grid indices
*     real OpF2( 0:jgrid,      3:7,          0:13,       0:nint_max_DIS,0:nint_max_DIS )
*     real OpFL( 0:jgrid,      3:7,          0:13,       0:nint_max_DIS,0:nint_max_DIS )
*     real OpF3( 0:jgrid,      3:7,          0:13,       0:nint_max_DIS,0:nint_max_DIS )
*
      real OpF2(0:ngrid_max,3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)
      real OpFL(0:ngrid_max,3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)
      real OpF3(0:ngrid_max,3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)
      real OpI2(0:ngrid_max,3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)
      real OpI3(0:ngrid_max,3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)

      real EvOpF2(3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)
      real EvOpFL(3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)
      real EvOpF3(3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)
      real EvOpI2(3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)
      real EvOpI3(3:7,0:13,0:nint_max_DIS,0:nint_max_DIS)
*
      common / OperatorDISAPFEL / OpF2,OpFL,OpF3
      common / OperatorDISTMCAPFEL / OpI2,OpI3
      common / EvOperatorDISAPFEL / EvOpF2,EvOpFL,EvOpF3
      common / EvOperatorDISTMCAPFEL / EvOpI2,EvOpI3