Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- platforms4kml

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
platforms4kml
Synopsis
/infobank/programs/kml/platforms4kml/platforms4kml.for
Description
  Program to form collections of navigation .kmls by platform.

       
COMMENTS
  This program uses collections of IDs from platforms.for

    
RELATED_PROGRAMS
  organizations4kml.for   years4kml.for    regions4kml.for    

  participants4kml.for    projects4kml.for
    
AUTHOR
  Clint Steele    4/28/2006

  MODIFIED
  Sumy Tom        03/17/2010    

    
Reads
          read (PNameUnit, '(q,a)', end = 97)
     *           PlatformNameLength, PlatformName
          read (PFileUnit, '(q,a)')
     *          PFileLength, PFileName
                 read (IDUnit, '(q,a)', end = 98)
     *                 IDLineLength, IDLine   
Writes
Opens
      open (unit = PNameUnit,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/tmp/platforms4kml.file2.temp')
          open (unit = PFileUnit,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old',
     *          name = '/infobank/tmp/platforms4kml.file3.temp')
                 open (unit = IDUnit,
     *                 access = 'sequential',
     *                 form   = 'formatted',
     *                 status = 'old',
     *                 name = '/infobank/tmp/platforms4kml.ids.temp')
Calls
       call system ('/bin/cat /infobank/programs/keep/translate/'//
     *            'platforms/*.keep > 
     *            '/infobank/tmp/platforms4kml.file1.temp')
       call system ('/bin/grep "<Platform_Name>
     *              '/infobank/tmp/platforms4kml.file1.temp > 
     *              '/infobank/tmp/platforms4kml.file2.temp')
       call system ('/bin/rm /infobank/tmp/platforms4kml.file1.temp')
          call system ('/bin/grep "'//
     *             PlatformName(1:PlatformNameLength)//
     *       '" /infobank/programs/keep/translate/platforms/*.keep '//    
     *       ' > /infobank/tmp/platforms4kml.file3.tem
          call getUnit(PFileUnit)
          call stringlen (PFileName, PFileLength)
          call stringlen (PlatformName, PlatformNameLength)
          call stringlen(PlatformKml, PlatformKmlLength)
          call stringlen (TempKml, TempKmlLength)
             call system ('/bin/grep "'//
     *              PlatformName(1:PlatformNameLength)//
     *             '" /infobank/'//Alphabet(i:i)//
     *             '/*/meta/*.platform > /infobank/tmp/
     *             'platforms4kml.ids.temp')
                 call stringlen(LongID, LongIDLength)      
                 call convertid(LongID(1:LongIDLength), ShortID)
                 call stringlen(ShortID, ShortIDLength)    
                 call system ('/bin/cat /infobank/'//ShortID(1:1)//'/'//
     *                        ShortID(1:ShortIDLength)//'/kml/'//
     *                        '*.nav.kml '//
     *                        ' | grep -v "<?xml version" 
     *                        ' | grep -v "<kml xmlns" '
     *                        ' | grep -v "</kml>
     *                        ' >&g
     *                        TempKml(1:TempKmlLength))
                 call system(
     *            '/bin/cat /infobank/programs/keep/kmlhead.keep '//
     *            TempKml(1:TempKmlLength)//' '//
     *            '/infobank/programs/keep/kmlfoot.keep '//
     *            ' > ' //PlatformKml(1:PlatformKmlLengt
                 call kmlzip (PlatformKml(1:PlatformKmlLength))
         call system('/bin/rm /infobank/tmp/platforms4kml.*.temp')

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/kml/platforms4kml/platforms4kml.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:39:08 PDT 2013  (chd)