      parameter (nxplim=201,nxmlim=201,nsplim=61,nsmlim=121,nflim=13)
      parameter (nxtot=nxmlim+nxplim+1)

      COMMON /GRIDSET/ DELX1,DELX2,delxp,DELS1(-5:2),DELS2(-5:2)
     ,,xlog1,xlog2,x1,q2ini(-5:2),q2min,q2max,xbmin,xbmax
     ,,nxmgrid,nxpgrid,nspgrid,nsmgrid,khalf

      COMMON /GRID/ XGRID(-nxmlim:nxplim),SGRID(-nsmlim:nsplim,-5:2)
     ,,Y(-5:2,0:nflim,-nxmlim:nxplim,-nsmlim:nsplim)
     ,,yhalf(0:1,nflim,-nxmlim:nxplim) 
     ,,pgrid(0:1,-5:2,3:6,nflim,nflim,-nxmlim:nxplim)
     ,,xpgrid(-nxmlim:nxplim)

      common /forgridspline/ 
     ,bcoeff(-5:2,0:nflim,-nxmlim:nxplim,-nsmlim:nsplim)
     ,,ccoeff(-5:2,0:nflim,-nxmlim:nxplim,-nsmlim:nsplim)
     ,,dcoeff(-5:2,0:nflim,-nxmlim:nxplim,-nsmlim:nsplim)
     ,,bcoeffh(nflim,-nxmlim:nxplim)
     ,,ccoeffh(nflim,-nxmlim:nxplim)
     ,,dcoeffh(nflim,-nxmlim:nxplim)

      COMMON /forcgrid/ xc1,xclog1,xclog2,delcp,delcm,xbcmax
     ,,cgrid(0:1,1:3,1:3,1:3,3:6,-nxmlim:nxplim)
     ,,xcgrid(-nxmlim:nxplim)

      COMMON /foromegrid/ xo1,xolog1,xolog2,delop,delom,xbomax
     ,,omegrid(2,2,-nxmlim:nxplim)
     ,,xogrid(-nxmlim:nxplim)
