Source module last modified on Wed, 13 Jul 2005, 16:20;
HTML image of Fortran source automatically generated by
for2html on Mon, 29 May 2006, 15:06.
integer*4 c_pnt,c_cnts,c_qh,c_qk,c_ql,c_en,c_a3,c_pal,c_max,c_err
parameter(c_max=9)
parameter( ! indexes to column identificators
& c_pnt=1,
& c_cnts=2,
& c_qh=3,
& c_qk=4,
& c_ql=5,
& c_en=6,
& c_a3=7,
& c_err=8,
& c_pal=9)
character*5 colid(c_max) ! column identificators
data colid/
1 'PNT',
2 'CNTS',
3 'QH',
4 'QK',
5 'QL',
6 'EN',
7 'A3',
8 'ERR',
9 'PAL'/
logical*4 usepar(res_nvar)
real*8 valpar(res_nvar)
character*5 respar(res_nvar)
character*1 cun
character*80 title,comnd
common /rdf/ title,comnd,respar,valpar,usepar,cun