USGS InfoBank program -- section14

section14

  Subroutine to output STATUS for formal metadata.


       

      call head (2, OutUnit,
     *            'Status:')
          call value (3, OutUnit,
     *            'Progress:                            ',
     *            'Complete')
          call value (3, OutUnit,
     *            'Progress:                            ',
     *            'Planned')
          call value (3, OutUnit,
     *            'Progress:                            ',
     *            'In work')
      call value (3, OutUnit,
     *            'Maintenance_and_Update_Frequency:    ', 
     *            'As needed')