USGS InfoBank program -- dictionary2html

dictionary2html

  Program to convert FileMaker Pro tab delimited output
  to a set of .html's
  and to create the /keep/dictionary_styles.keep file.
    

  Clint Steele    4/6/2000


    

 open (unit = 90,
*      form = 'formatted',
*      access = 'sequential',
*      status = 'unknown',
*      name = '/infobank/programs/keep/dictionary.keep')

 open (unit = 96,
*      form = 'formatted',
*      access = 'sequential',
*      status = 'unknown',
*      name = '/infobank/programs/keep/dictionary_styles.keep')

 open (unit = 92,
*      form = 'formatted',
*      access = 'sequential',
*      status = 'unknown',
*      name = '/infobank/programs/html/definition/'//
*             'metadatadictionary.txt')

     open (unit = 91,
*          access = 'sequential',
*          form = 'formatted',
*          status = 'unknown',
*          name = OutName(1:OutNameLength))

     open (unit = 93,
*          access = 'sequential',
*          form = 'formatted',
*          status = 'unknown',
*          name = OutName(1:OutNameLength-4)//'txt')

    

 read (90, '(q,a)', end = 99) Length, ALine(1:Length)
     read (90, '(q,a)', end = 99) Length, ALine(1:Length)
     read (ALine(1:Tab(2)-1), '(i)') IDValue
     read (ALine(Tab(19)+1:Tab(20)-1), '(i)') RulerLength 
    

 write (92, '(a,/,a,/,a,//,a,/,a,/,a,/,a,/,a,//,a,/,a,/)')
*    '<CENTER>',
*     '<A HREF="/infobank/programs/html/'//
*     'audience/metadatadictionary_audience.html">'//
*     'Intended Audience</A>',
*     '</CENTER>',
*     '<P>',
*     '<H3><FONT COLOR="GREEN">',
*     '"We are getting into semantics again. '//
*     'If we use words, there is a very grave danger '//
*     'they will be misinterpreted." -- '//
*     'H. R. Haldeman',
*     '</FONT></H3>',
*     '<P>',
*     '</TABLE>',
*     '<TABLE BORDER="3" WIDTH="500">'

     write (OutName, '(255x)')
         write (OutName, 7) ALine(Tab(2)+2:Tab(3)-1)
         write (96, '(a)') ALine(Tab(2)+2:Tab(3)-1)
         write (OutName, 77) ALine(Tab(2)+1:Tab(3)-1)
         write (96, '(a)') ALine(Tab(2)+1:Tab(3)-1)
             write (92, '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a,/)')
*           '  <TR>',
*           '    <TD bgcolor="#CCFFFF">',
*           '      <A HREF="http://walrus.wr.usgs.gov/'//
*           'infobank/programs'//
*           '/html/dictionary2html/format_'//
*           ALine(Tab(2)+2:Tab(3)-1)//'.html">'//
*           ALine(Tab(2)+1:Tab(3)-1)//'</A>',
*           '    </TD>',
*           '    <TD bgcolor="#00FFFF">',
*           '      '//ALine(Tab(9)+1:Tab(10)-1),
*           '    </TD>',
*           '  </TR>'
             write (92, '(a,/,a,/,a,/,a,/,a,/,a,/,a,/,a,/)')
*           '  <TR>',
*           '    <TD bgcolor="#CCFFFF">',
*           '      <A HREF="http://walrus.wr.usgs.gov/'//
*           'infobank/programs'//
*           '/html/dictionary2html/format_'//
*           ALine(Tab(2)+1:Tab(3)-1)//'.html">'//
*           ALine(Tab(2)+1:Tab(3)-1)//'</A>',
*           '    </TD>',
*           '    <TD bgcolor="#00FFFF">',
*           '      '//ALine(Tab(9)+1:Tab(10)-1),
*           '    </TD>',
*           '  </TR>'
     write (91, '(a)') '<P><P><TABLE BORDER="5" WIDTH="500">'
     write (91, 425) 'File Name', Aline(Tab(10)+1:Tab(11)-1)
     write (96, '(a)') Aline(Tab(10)+1:Tab(11)-1)
     write (93, '(a,a)') '! ', Aline(Tab(8)+1:Tab(9)-1)
     write (91, 48) 'Style', Aline(Tab(8)+1:Tab(9)-1)
     write (96, '(a)') Aline(Tab(8)+1:Tab(9)-1)
     write (96, '(1x)')
     write (93, '(a,a)') '! ', Aline(Tab(3)+1:Tab(4)-1)
     write (91, 43) 'Mnemonic', Aline(Tab(3)+1:Tab(4)-1)
     write (93, '(a,a)') '! ', Aline(Tab(4)+1:Tab(5)-1)
     write (91, 44) 'Fortran format', Aline(Tab(4)+1:Tab(5)-1)
     write (93, '(a,a)') '! ', Aline(Tab(5)+1:Tab(6)-1)
     write (91, 45) 'C format', Aline(Tab(5)+1:Tab(6)-1)
         write (93, '(a,a)') '! ', Aline(Tab(14)+1:Tab(15)-1)
         write (91, 433) 'Purpose',Aline(Tab(14)+1:Tab(15)-1)
         write (93, '(a,a)') '! ', Aline(Tab(15)+1:Tab(16)-1)
         write (91, 434) 'Derivative',Aline(Tab(15)+1:Tab(16)-1)
         write (93, '(a,a)') '! ', Aline(Tab(16)+1:Tab(17)-1)
         write (91, 435) 'Comment',Aline(Tab(16)+1:Tab(17)-1)
     write (93, '(a)') '! '
     write (91, '(a,/,a)') '</TABLE>','<P><STRONG>Example</STRONG>'
     write (91, '(a,/,a,/,a)') '<TABLE BORDER = "5">',
*                              '  <TR>',
*                              '    <TD bgcolor="#00CCFF">'//
*                              '<PRE>'

     write (93, '(a,a)') '! ',Tens(3:RulerLength)
     write (91, '(a)') Tens(1:RulerLength)
     write (93, '(a,a)') '! ',Ones(3:RulerLength)
     write (91, '(a)') Ones(1:RulerLength)
     write (91, '(a)') '    </PRE></TD>',
*                      '</TR>'
     write (91, '(a,/,a,/,a)') 
*            '  <TR>',
*            '    <TD bgcolor="#CCFFFF">',
*            '      <PRE>'

         write (91, '(a)') Aline(Line(Loop)+1:Line(Loop+1)-1)
     write (91, '(a,/a,/,a,/,a)')
*            '      </PRE>',
*            '    </TD>',
*            '  </TR>',
*            '</TABLE>',
*            '<P>'

 write (92, '(a)') '</TABLE>'
    

 call includeit (92, 
*  '/infobank/programs/html/tools/definitions.tabs')
 call includeit (92, 
*  '/infobank/programs/html/tools/definitions.dictionaries.tabs')
 call includeit (92, 
*  '/infobank/programs/html/tools/definitions.infobankterms.tabs')
 call includeit (92, 
*  '/infobank/programs/html/tools/definitions.datatypes.tabs')
 call includeit (92, 
*  '/infobank/programs/html/tools/definitions.dataformats.tabs')
 call includeit (92,
*  '/infobank/programs/keep/contents.keep')

     call stringlen (OutName, OutNameLength)
     call htmlhead (91, 'CMG InfoBank format for '//
*           ALine(Tab(9)+1:Tab(10)-1))

 call includeit (91,
*  '/infobank/programs/html/tools/definitions.tabs')
 call includeit (91,
*  '/infobank/programs/html/tools/definitions.dictionaries.tabs')
 call includeit (91,
*  '/infobank/programs/html/tools/definitions.infobankterms.tabs')
 call includeit (91,
*  '/infobank/programs/html/tools/definitions.datatypes.tabs')
 call includeit (91,
*  '/infobank/programs/html/tools/definitions.dataformats.tabs')
 call includeit (91,
*  '/infobank/programs/keep/contents.keep')

     call stringlen (ALine(Tab(14)+1:Tab(15)-1), InfoLength)
     call stringlen (ALine(Tab(15)+1:Tab(16)-1), InfoLength)
     call stringlen (ALine(Tab(16)+1:Tab(17)-1), InfoLength)
     call htmlfoot (91, OutName(1:OutNameLength))