Integer Grdcmj,Grdcmr
c
      Common/Grid/Xgrdmj,Xgrdmr,Ygrdmj,Ygrdmr,Thikmj,Thikmr,
     $ Grdcmj,Grdcmr