USGS InfoBank program -- reportconstraints

reportconstraints

  Subroutine to report constraint requests.

       

  Clint Steele


    

          read (SearchOption(1:SearchLength), '(i)', iostat = Oops) 
     *          FileType

              write (OutUnit, 701) 
     *            North, South, West, East
              write (OutUnit, 702) ActivityIDKeep
              write (OutUnit, 703) Year+Century
              write (OutUnit, 704) Ship
              write (OutUnit, 705) 
              write (OutUnit, 706)  
              write (OutUnit, 707)  
              write (OutUnit, 708)  
              write (OutUnit, 709)  
              write (OutUnit, 710)  
              write (OutUnit, 711)  
              write (OutUnit, 712)  
              write (OutUnit, 713)  
              write (OutUnit, 714)  
              write (OutUnit, 715)  
              write (OutUnit, 716)  
              write (OutUnit, 717)  
              write (OutUnit, 718)  
              write (OutUnit, 719)  
              write (OutUnit, 720)  
              write (OutUnit, 721)  
              write (OutUnit, 722)  
              write (OutUnit, 723)  

      call stringlen (SearchOption, SearchLength)
              call getcentury (Year, Century)