USGS InfoBank program -- participants4kml

participants4kml

  Program to form collections of navigation .kmls by participant.

       

  This program first runs scientistscruise.for which makes

  a keep file scientists_cruise.keep
  Then it reads scientsts.keep to read a list of scientist names
  then grep each scientists name in scietists_cruise.keep
  concatenates all kml from the activity ids to a big kml file 
    

  platforms4kml.for       years4kml.for    regions4kml.for    

  organizations4kml.for   projects4kml.for
    

  Clint Steele    4/28/2006

    

  Sumy Tom        7/7/2010


    

          read (KeepUnit, '(q,a)', end = 99)
     *         ParticipantLength, Participant
          read (TempUnit, '(q,a)', end = 98)
     *          ALineLength, ALine
          read (TempUnit, '(q,a)', end = 98)
     *          ALineLength, ALine
             read (BestUnit, '(q,a)', end = 97)
     *            BestFileLength, BestFile

       write (OpenFolderUnit, '(a)') '<Folde
       write (CloseFolderUnit, '(a)') '</Folde
       write (CloseKmlUnit, '(2x,a)') '</Documen
       write (CloseKmlUnit, '(a)') '</km
          write (OpenKmlUnit, '(a)') 
     *       '<?xml version="1.0" encoding="UTF-8"
          write (OpenKmlUnit, '(a)')
     *       '<kml xmlns="http://earth.google.com/kml/2.0
          write (OpenKmlUnit, '(2x,a)')
     *       '<Documen
          write (OpenKmlUnit, '(4x,a)')
     *       '<name>'//Participant(1:ParticipantLength)//'&l

       open (unit = OpenFolderUnit,
     *       status = 'unknown',
     *       form = 'formatted',
     *       access = 'sequential',
     *       file = '/infobank/tmp/participants4kml.'//
     *              'OpenFolder.temp') 
       open (unit = CloseFolderUnit,
     *       status = 'unknown',
     *       form = 'formatted',
     *       access = 'sequential',
     *       file = '/infobank/tmp/participants4kml.'//
     *              'CloseFolder.temp') 
       open (unit = CloseKmlUnit,
     *       status = 'unknown',
     *       form = 'formatted',
     *       access = 'sequential',
     *       file = '/infobank/tmp/participants4kml.'//
     *              'closeKml.temp')  
       open (unit = KeepUnit,
     *       status = 'old',
     *       form = 'formatted',
     *       access = 'sequential',
     *       file = '/infobank/programs/keep/scientists.keep')
          open (unit = TempUnit,
     *       status = 'old',
     *       form = 'formatted',
     *       access = 'sequential',
     *       file = '/infobank/tmp/participants4kml.'//
     *                 'Participants.temp')
          open (unit = OpenKmlUnit,
     *          status = 'unknown',
     *          form = 'formatted',
     *          access = 'sequential',
     *          file = '/infobank/tmp/participants4kml.'//
     *                 'openKml.temp') 
          open (unit = BestUnit,
     *       status = 'old',
     *       form = 'formatted',
     *       access = 'sequential',
     *       file = '/infobank/'//ShortID(1:1)//'/'//
     *              ShortID(1:IDLength)//'/nav/'//
     *              LongID(1:IDLength+3)//'.best_nav_file')

       call system ('/bin/rm /infobank/programs/kml/participants4kml/'//
     *               'participants/*')
       call system('/infobank/programs/dbase/scientists2keepfile/'//
     *                                      'scientists2keepfile')
          call system ('/bin/grep "'//Participant(1:ParticipantLength)//
     *                 '" '//
     *                 '/infobank/programs/keep/'//
     *                 'scientists_cruise.keep'//
     *                 ' > /infobank/tmp/participants4kml.
     *                 'Participants.temp')
          call changecase('Smalls', Participant(1:ParticipantLength))
             call system ('/bin/rm /infobank/programs/kml/'//
     *                 'participants4kml/participants/'//
     *                 participant(1:participantLength)//'.kml')
          call system ('/bin/cat /infobank/tmp/participants4kml.'//
     *                 'openKml.temp >> /infobank/programs/k
     *                 'participants4kml/participants/'//
     *                 participant(1:participantLength)//'.kml')
          call stringlen (ShortID, IDLength)
          call changecase ('SMALLS', ShortID(1:IDLength))
          call system ('/bin/cat /infobank/tmp/participants4kml.'//
     *                 'OpenFolder.temp >> /infobank/programs/k
     *                 'participants4kml/participants/'//
     *                 participant(1:participantLength)//'.kml')
             call stringlen(KmlFile, KmlFileLength)
             call system ('/bin/cat '//KmlFile(1:KmlFileLength)//
     *                 ' | grep -v "<Document" 
     *                 ' | grep -v "</Document" 
     *                 ' | grep -v "<?xml version" 
     *                 ' | grep -v "<kml xmlns" 
     *                 ' | grep -v "</kml>" >> '/
     *                    '/infobank/programs/kml/participants4kml'//
     *                    '/participants/'//
     *                    Participant(1:ParticipantLength)//'.kml')
          call system ('/bin/cat /infobank/tmp/participants4kml.'//
     *                 'CloseFolder.temp >> /infobank/programs/k
     *                 'participants4kml/participants/'//
     *                 participant(1:participantLength)//'.kml')     
             call system ('/bin/cat /infobank/tmp/participants4kml.'//
     *                 'closeKml.temp >> /infobank/programs/k
     *                 'participants4kml/participants/'//
     *                 participant(1:participantLength)//'.kml')
             call kmlzip ('/infobank/programs/kml/'//
     *                 'participants4kml/participants/'//
     *                 participant(1:participantLength)//'.kml')
       call system ('/bin/rm /infobank/tmp/'//
     *              'participants4kml.*.temp')