USGS InfoBank program -- existance

existance

  Program to determine the existance or not of a file type

  within a <ID> stru
       

  Clint Steele    2/19/98


    

      read (5, '(q,a)', end = 99) SearchLength, 
     *      SearchName(1:SearchLength)
          read (89, '(q,a)', end = 99) PathLength,
     *              PathName(1:PathLength)

      write (90, 2) SearchName(1:SearchLength)
      write (91, 3) SearchName(1:SearchLength)
              write (LongID, 10) PathName(Slash+1:Slash+1),
     *                           PathName(Slash+2:Slash+2),
     *                           PathName(Slash+3:Slash+4),
     *                           PathName(Slash+5:Slash+6)
              write (LongID, 10) PathName(Slash+1:Slash+1),
     *                           PathName(Slash+2:Slash+3),
     *                           PathName(Slash+4:Slash+5),
     *                           PathName(Slash+6:Slash+7)
              write (90, '(a)') PathName(Slash+1:PathLength-1)
              write (91, '(a)') PathName(Slash+1:PathLength-1)

      open (unit   = 89,
     *      file   = '/infobank/tmp/existance.temp',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old')

      call openem (0,-2)
      call system ('ls -1dF  /infobank/?/*'//
     *             '  > /infobank/tmp/existance.tem