Variables
integer, parameter	max_outp_req = 250

character(len=1)	out_comment = '%'

character(len=40)	flt_block = '(6E12.4)'

character(len=40)	flt_table = '(E11.4)'

character(len=40)	fix_spec = '(200(1X,I4))'

character(len=40)	flt_blkp = '(6E17.9)'

integer	fld_table = 12

integer	dec_block = 4

integer	dec_spec = 4

character(len=lenfnm), dimension(1:max_outp_req)	outp_files

integer, save	nreoq = 0

type(opsdat), target, save	fops

type(opsdat), pointer, save	cops

logical, save	lops = .FALSE.

type(orqdat), target, save	forq

Variable Documentation

type(opsdat), pointer, save outp_data::cops

integer outp_data::dec_block = 4

integer outp_data::dec_spec = 4

character (len=40) outp_data::fix_spec = '(200(1X,I4))'

integer outp_data::fld_table = 12

character (len=40) outp_data::flt_blkp = '(6E17.9)'

character (len=40) outp_data::flt_block = '(6E12.4)'

character (len=40) outp_data::flt_table = '(E11.4)'

type(opsdat), target, save outp_data::fops

type(orqdat), target, save outp_data::forq

logical, save outp_data::lops = .FALSE.

integer, parameter outp_data::max_outp_req = 250

integer, save outp_data::nreoq = 0

character (len=1) outp_data::out_comment = '%'

character (len=lenfnm), dimension(1:max_outp_req) outp_data::outp_files

Data Types