area

  Program to determine cruises within a specified area.
    

   Clint Steele     6/17/96


    

 open (unit   =  89,
*      access = 'sequential',
*      file   =
*  '/infobank/programs/keep/area_list.keep',
*      form   = 'formatted',
*      status = 'old')

     open (unit = 93,
*          access = 'sequential',
*          file = 'areapath.temp',
*          form = 'formatted',
*          status = 'old')

    

     read (5, '(q,a)') SumLength, Summary
     read (89, '(q,a)', end = 99)
*            Length,ALine(1:Length)

     read (ALine, '(t10,f9.5,1x,f9.5,1x,f10.5,1x,f10.5)')
*            TempNorth, TempSouth, TempEast, TempWest

     read (93, '(q,a)') FullPathLength, 
*                       FullPath(1:FullPathLength)

    

     write (Title, '(255x)')
     write (Title, 5) north, south, east, west
     write (ALine, '(255x)')
         write (CapShort, '(7x)')
         write (CapLong, '(10x)')
         write (SmallShort, '(7x)')
         write (SmallLong, '(10x)')
         write (90, '(a)') CapLong(1:LongLength)
                 write (91, 33)
             write (91, 2) SmallLong(1:1),
*                              SmallShort(1:ShortLength),
*                              SmallLong(1:LongLength),
*                              CapLong(1:LongLength)
                 write (91, 33)
             write (Command, '(255x)')
             write (Command, 35) SmallLong(1:1),
*                      SmallShort(1:ShortLength),
*                      SmallLong(1:LongLength)

             write (91, 3) SmallLong(1:LongLength),
*                          CapLong(1:LongLength)
     write (Command, '(255x)')
         write (ALine, '(255x)')
         write (ALine, 50) FullPath(1:FullPathLength),
*               Path(1:PathLength)
    

 call yesno ('1,2,[3],q', Option)
 call degrees (north, south, west, east)
     call openem (0,-1)
     call openem (0,-2)
     call openem (0,-2)
     call stringlen (Title, TitleLength)
     call htmlhead (91, Title(1:TitleLength))
     call overlap (TempNorth, TempSouth, 
*                          TempWest, TempEast,
*                          North, South, West, East,
*                          Relationship)

     call stringlen (ALine, Length)
         call changecase 
*            ('SMALL', SmallShort(1:ShortLength))

         call system ('grep -v \! '//
*             ' /infobank/programs/keep/summarize.keep'//
*             ' | grep '//SmallLong(1:LongLength)//
*             ' >> /tmp/areasum.temp')

             call stringlen (Command,CommandLength)
             call system (Command(1:CommandLength))
     call stringlen (Path, PathLength)
     call stringlen (Command, CommandLength)
     call system (Command(1:CommandLength))
         call stringlen (ALine, Length)
         call htmlfoot (91, ALine(1:Length))
         call htmlfoot (91, Path(1:PathLength))
 call system ('/bin/cp /tmp/areasum.temp '//
*             Summary(1:SumLength))
 call system ('/bin/rm /tmp/areasum.temp')