USGS InfoBank program -- entities

entities

  Subroutine to construct ENTITIES AND ATtrIBUTES formal metadata.

    

     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')

     open (unit = TempUnit,
*      file = PathName//'/meta/'//
*             LongID//'.analog',
*      access = 'sequential',
*      form = 'formatted',
*      status = 'old')

    

     read (TempUnit, '(a)') DataFile
         read (TempUnit, '(a)', end = 199) ALine
    

 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)
         write (OutUnit, '(t51, a)')
*          ALine(1:ALineLength)

    

 call head (2, OutUnit,
*            'Overview_Description:')

 call value2 (3, OutUnit,
*            'Entity_and_Attribute_Overview:            ', 
*            DataText,
*            ''//DataText//'')

     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)
         call stringlen (ALine, ALineLength)