USGS InfoBank program -- reportoutputs

reportoutputs

  Subroutine to report output file types.

       

  Clint Steele     1/27/95


    

          read (SaveOption(1:SaveLength), '(i)', iostat = Oops) 
     *          FileType

              write (90, 705) 
              write (90, 706) 
              write (90, 707) 
              write (90, 708) 
              write (90, 709) 
              write (90, 710) 
              write (90, 711) 
              write (90, 712) 
              write (90, 713) 
              write (90, 714) 
              write (90, 715) 
              write (90, 716) 
              write (90, 717) 
              write (90, 718) 
              write (90, 719) 
              write (90, 720) 
              write (90, 721) 
              write (90, 722) 
              write (90, 723) 

      call stringlen (SaveOption, SaveLength)