copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      character*1 gtgrtyp
      logical varmtn
      integer gnidate,gnnt,gndstat,gnpstat,gnstepno,endstepno,gnnrstrt,
     $        gncpld,vmh_stime,vmh_ndt
      real grpi,grpj
      real*8 xref,yref,xp,yp,xpx,ypx,xpu,xpv,xpq,ypu,ypv,ypq
      pointer (paxp,xp(*)),(payp,yp(*)),(paxpx,xpx(*)),(paypx,ypx(*)),
     $        (paxpu,xpu(*)), (paypu,ypu(*)), (paxpv,xpv(*)),
     $        (paypv,ypv(*)), (paxpq,xpq(*)), (paypq,ypq(*))
*
      integer rec_c_first(-1:0),rec_c_last,
     $        rec_i_first(-1:0),rec_i_last,
     $        rec_r_first(-1:0),rec_r_last
*
      common /rec_i/ rec_i_first
      common /rec_i/ gnidate,gnnt,gnstepno,endstepno,gnnrstrt,
     $               gncpld,gndstat,gnpstat,vmh_stime,vmh_ndt
      common /rec_i/ rec_i_last
*
      common /rec_r/ rec_r_first
      common /rec_r/ grpi,grpj,xref,yref
      common /rec_r/ rec_r_last
*
      common /rec_c/ rec_c_first
      common /rec_c/ gtgrtyp
      common /rec_c/ rec_c_last
*
      common /rec_l/ varmtn
      common /recin/ paxp,payp,paxpx,paypx,paxpu,paypu,paxpv,paypv,
     $               paxpq,paypq
*