52 lines
1.5 KiB
SQL
Executable File
52 lines
1.5 KiB
SQL
Executable File
c PARAMETER STATEMENTS:
|
|
integer I_PARAMS
|
|
parameter(I_PARAMS = 100)
|
|
|
|
integer I_MCPF
|
|
parameter(I_MCPF = 120)
|
|
|
|
integer i_nums
|
|
integer i_pntr
|
|
character*120 a_dsets(I_PARAMS)
|
|
character*120 a_prfxs(I_PARAMS)
|
|
character*120 a_sufxs(I_PARAMS)
|
|
character*120 a_strts(I_PARAMS)
|
|
character*120 a_matks(I_PARAMS)
|
|
character*120 a_keyws(I_PARAMS)
|
|
character*120 a_units(I_PARAMS)
|
|
character*120 a_dimns(I_PARAMS)
|
|
character*120 a_elems(I_PARAMS)
|
|
character*120 a_opers(I_PARAMS)
|
|
character*120 a_cmnts(I_PARAMS)
|
|
character*120 a_valus(I_PARAMS)
|
|
common /params/ i_pntr,i_nums,a_dsets,a_prfxs,a_sufxs,a_strts,a_matks,
|
|
& a_keyws,a_units,a_dimns,a_elems,a_opers,a_valus,a_cmnts
|
|
|
|
integer i_errflag(3)
|
|
integer i_error
|
|
character*120 a_errfile
|
|
character*120 a_error(I_PARAMS)
|
|
common /errmsg/ i_errflag,i_error,a_error,a_errfile
|
|
|
|
integer i_fsizes(10)
|
|
integer i_delflag(4)
|
|
character*120 a_intfmt
|
|
character*120 a_realfmt
|
|
character*120 a_dblefmt
|
|
character*120 a_cmdl(0:2)
|
|
character*120 a_version
|
|
common /inital/ i_fsizes,i_delflag,a_intfmt,a_realfmt,a_dblefmt,a_cmdl,a_version
|
|
|
|
integer i_prelen
|
|
integer i_suflen
|
|
character*120 a_prfx
|
|
character*120 a_sufx
|
|
character*120 a_prefix
|
|
character*120 a_suffix
|
|
common /indata/ a_prfx,a_sufx,a_prefix,a_suffix,i_prelen,i_suflen
|
|
|
|
integer i_stack
|
|
character*120 a_stack(10)
|
|
common /stack/ i_stack,a_stack
|
|
|