USGS InfoBank program -- gettheme

gettheme

  Subroutine to include THEME KEYWORDS formal metadata.


       

          read (TempUnit, '(i8)') Count

          write (Command, '(512x)')
          write (Command, 1) Search, ID(1:1), ID(1:IDLength), 
     *         LongID(1:IDLength+3), DataType
              write (OutUnit, 2) Replace

          open (unit = TempUnit,
     *         file = '/infobank/tmp/theme.temp',
     *         status = 'old',
     *         form = 'formatted',
     *         access = 'sequential')

          call stringlen (Command, CommandLength)
          call system (Command(1:CommandLength))