c..declarations for parsing and converting to reals 
c..
c..setting dimensions of some arrays and the flag values
      integer          maxwrd,idchar,idreal
      parameter        (maxwrd = 40, idchar=1, idreal = 2)
c..
c..
      logical          err
      character*132    string,word
      character*40     cword(maxwrd)
      character*1      delmt(4)
      integer          ndelmt,ipoint,getnam,lenstr,nword,idword(maxwrd)
      double precision value,value2,rword(maxwrd)
      common /parzc1/  cword,string,word
      common /parzc2/  delmt
      common /parzi/   idword,nword,ndelmt,ipoint
      common /parzr/   rword