modules_vars.F90

Go to the documentation of this file.

 
 
module modv_vars
 
  integer, parameter :: nbytw = 4
 
  integer, parameter :: iordbe(nbytw) = (/1,2,3,4/)
 
  integer, parameter :: iordle(nbytw) = (/4,3,2,1/)
 
  integer, parameter :: nbitw = nbytw * 8
 
  logical :: im8b = .false.
 
  integer :: iblock = 0
 
  real*8 :: bmiss = 10e10_8
 
  integer :: ifopbf = 0
 
  integer :: iac = 0
 
  integer :: lendat = 8
 
  character, parameter :: reps(10) =    (/     '"',     '(',     '{',     '[',     '<', &
                                               '"',     ')',     '}',     ']',     '>'/)
 
  character*3, parameter :: typs(10) =  (/   'REP',   'DRP',   'DRP',   'DRS',   'DRB', &
                                             'SEQ',   'RPC',   'RPC',   'RPS',   'SEQ'/)
 
  character*6, parameter :: adsn(10) =  (/'101000','360001','360002','360003','360004', &
                                          '101255','031002','031001','031001','031000'/)
 
  integer :: idnr(10)
 
  integer, parameter :: lens(5) =       (/       0,      16,       8,       8,       1/)
 
  integer :: maxcd = 250
 
  integer :: maxjl = 96000
 
  integer :: maxmem = 50000000
 
  integer :: maxmsg = 200000
 
  integer :: maxnc = 600
 
  integer :: maxss = 120000
 
  integer :: maxtba = 150
 
  integer :: maxtbb = 500
 
  integer :: maxtbd = 500
 
  integer :: mxbtm = 5
 
  integer :: mxbtmse = 500
 
  integer :: mxcdv = 3000
 
  integer :: mxcnem = 450
 
  integer :: mxcsb = 4000
 
  integer :: mxdxts = 200
 
  integer :: mxh4wlc = 10
 
  integer :: mxlcc = 32
 
  integer :: mxmsgl = 600000
 
  integer :: mxmsgld4
 
  integer :: mxmtbb = 4000
 
  integer :: mxmtbd = 1000
 
  integer :: mxmtbf = 25000
 
  integer :: mxnaf = 4
 
  integer :: mxnrv = 15
 
  integer :: mxrst = 50
 
  integer :: mxs01v = 10
 
  integer, parameter :: mxs = 1000
 
  integer, parameter :: maxrcr = 100
 
  integer :: mxtamc = 15
 
  integer :: mxtco = 30
 
  integer :: nfiles = 32
 
end module modv_vars