copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      integer maxlvl_out,nkout,nlevtyp
      parameter (nkout = 1000, maxlvl_out = 1000, nlevtyp=10)
      character*1   gttpvar,levtyp,out_unit_S
      character*2   out_lt
      character*3   rndoseq
      character*12  gtetikt
      character*15  udolist(nkout)
      character*256 bprogfile,out_progfile
      logical out_staguv,flipit,out_isopen,out_ontimec,out_doout
      integer nvardyn,nvarphy,datyp,nbit,
     $        g_id,g_if,g_jd,g_jf,g_reduc,igs(4),gnip1,gnip3,out_dat2,
     $        out_h0,out_dat0,nstepsor_d,nstepsor_p,
     $        out_kind,out_clostep,out_unf,out_unfc
      real pres_o(nkout), height_o(nkout)
*
      integer sor_c_first(-1:0),sor_c_last,sor_l_first(-1:0),sor_l_last,
     $        sor_i_first(-1:0),sor_i_last,sor_r_first(-1:0),sor_r_last
      integer comout_c_first(-1:0),comout_c_last,
     $        comout_i_first(-1:0),comout_i_last,
     $        comout_r_first(-1:0),comout_r_last,
     $        comout_r8_first(-1:0),comout_r8_last
*
      common /sor_c/ sor_c_first
      common /sor_c/ gttpvar,levtyp,out_unit_S,rndoseq,gtetikt,
     $               udolist,bprogfile,out_lt,out_progfile
      common /sor_c/ sor_c_last
*
      common /sor_l/ sor_l_first
      common /sor_l/ out_staguv,flipit,out_isopen,out_ontimec,out_doout
      common /sor_l/ sor_l_last
*
      common /sor_i/ sor_i_first
      common /sor_i/ 
     $        nvardyn,nvarphy,datyp,nbit,
     $        g_id,g_if,g_jd,g_jf,g_reduc,igs,gnip1,gnip3,out_dat2,
     $        out_h0,out_dat0,out_kind,out_clostep,out_unf,
     $        out_unfc,nstepsor_d,nstepsor_p
      common /sor_i/ sor_i_last
*
      common /sor_r/ sor_r_first
      common /sor_r/ pres_o,height_o
      common /sor_r/ sor_r_last
*
      character*1 levout_typ(nkout),stepout_typ(nkout),
     $            gridout_typ(nkout)
      character*4 varout_S(nkout,nkout)
      character*8 varoutp_S(nkout,nkout)
      character*16 upolistc(200)
      character*128 progfilen
      character*512 progfilen_fp
      integer     levout_nlvl(nkout),stepout_ns(nkout),
     $            stepout(nkout,nkout),gridout(5,nkout),
     $            varout_p (3,nkout), varout_set,varout_nvar (nkout),
     $            varoutp_p(3,nkout),varoutp_set,varoutp_nvar(nkout),
     $            varp_set(nkout),varp_nset,out_nisg,out_njsg,
     $            out_nisl,out_njsl,nvp_casc,out_rdi,out_rdj,
     $            out_idl,out_ifl,out_jdl,out_jfl,
     $            out_idg,out_ifg,out_jdg,out_jfg
      real        levout(nkout,nkout)
      real*8      ogrd_v1,ogrd_v2
*
      common /comout_c/ comout_c_first
      common /comout_c/ levout_typ,stepout_typ,gridout_typ,varout_S,
     $                  varoutp_S,progfilen,progfilen_fp,upolistc
      common /comout_c/ comout_c_last
*
      common /comout_i/ comout_i_first
      common /comout_i/ levout_nlvl,stepout_ns,stepout,gridout,
     $                  varout_set,varout_p,varout_nvar,
     $                  varoutp_set,varoutp_p,varoutp_nvar,
     $                  varp_set,varp_nset,out_nisg,out_njsg,
     $                  out_nisl,out_njsl,nvp_casc,out_rdi,out_rdj,
     $                  out_idl,out_ifl,out_jdl,out_jfl,
     $                  out_idg,out_ifg,out_jdg,out_jfg
      common /comout_i/ comout_i_last
*
      common /comout_r/ comout_r_first
      common /comout_r/ levout
      common /comout_r/ comout_r_last
*
      common /comout_r8/ comout_r8_first
      common /comout_r8/ ogrd_v1,ogrd_v2
      common /comout_r8/ comout_r8_last