src/res_rdf.inc

Fortran project RESTRAX, source module src/res_rdf.inc.

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/
      'PNT',
      'CNTS',
      'QH',
      'QK',
      'QL',
      'EN',
      'A3',
      'ERR',
      '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