USGS InfoBank program -- section24

section24

  Subroutine to create POSITIONAL ACCURACY of formal metadata.


       

      write (OutUnit, '(1x)')

      call head (2, OutUnit,
     *            'Positional_Accuracy:')
      call head (3, OutUnit,
     *            'Horizontal_Positional_Accuracy:')
      call value (4, OutUnit,
     *            'Horizontal_Positional_Accuracy_Report:    ',
     *            'Unspecified')
      call head (3, OutUnit,
     *            'Vertical_Positional_Accuracy:')
      call value (4, OutUnit,
     *            'Vertical_Positional_Accuracy_Report:      ',
     *            'Unspecified')