USGS InfoBank program -- entities

entities

  Subroutine to construct ENTITIES AND ATTRIBUTES formal metadata.


       

          read (TempUnit, '(a)') DataFile

      write (OutUnit, '(1x)')
          write (ALine, '(1024x)')
              write (OutUnit, 503) Description(Loop)(1:ALineLength)
              write (OutUnit, 1) Mnemonic(Loop)(1:ALineLength)
              write (OutUnit, 2) Fortran(Loop)(1:ALineLength)
              write (OutUnit, 3) C(Loop)(1:ALineLength)
              write (OutUnit, 4) ComponentName(Loop)(1:ALineLength)

          open (unit = TempUnit,
     *      file = PathName//'/'//
     *             DataType//'/'//
     *             LongID//'.best_'//DataType//'_file',
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old')
          open (unit   = TempUnit,
     *      file   = '/infobank/programs/keep/dictionary.keep',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old')

      call head (2, OutUnit,
     *            'Overview_Description:')
      call value2 (3, OutUnit,
     *            'Entity_and_Attribute_Overview:            ', 
     *            DataText//
     *            ' <http://walrus.wr.usgs.gov/
     *            'infobank/programs/html/definition/'//
     *            DataType//'.html>','
          call stringlen (DataFile, Length)
          call dictionary (Description, Mnemonic, Fortran,
     *                         C, ComponentName)
              call stringlen (ComponentName(Loop), ALineLength)
                  call stringlen (ComponentName(Loop), ALineLength)
              call stringlen  (Description(Loop), ALineLength)
              call stringlen (Mnemonic(Loop), ALineLength)
               call stringlen (Fortran(Loop), ALineLength)
              call stringlen (C(Loop), ALineLength)
              call stringlen (ComponentName(Loop), ALineLength)