Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- mainincgroups2kml

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
mainincgroups2kml
Synopsis
/infobank/programs/kml/incgroups2kml/mainincgroups2kml.for
Description
  Program to display samples by equipment type in google earth

       
AUTHOR
  Sumy Tom        3/28/2008

  Carolyn Degnan, 8/3/2012, Added sp format specification to output positive lat/lons with plus signs.

    
Reads
 1    read(92, '(q,a)', end = 2)
     * SampsIDLength, SampsIDName
 2    read(93, '(q,a)', end = 99)
     * SampsEPLength, SampsEPName
Writes
      write (95, '(1x,a)') '<Folde
      write (95, '(2x,a)') 
     * '<name>'// 'Activity Ids'//'<
      write (95, '(a)') '  <LookA
      write (95, '(a)') 
     *    '    <longitude>-100</lo
      write (95, '(a)') '    <latitude>+40</l
      write (95, '(a)') '    <altitude>6437300.</a
      write (95, '(a)') 
     * '    <altitudeMode>relativeToGround</altit
      write (95, '(a)') '    <range>6437300.<
      write (95, '(a)') '    <tilt>0&l
      write (95, '(a)') '    <heading>0</
      write (95, '(a)') '  </LookA
      write (96, '(1x,a)') '<Folde
      write (96, '(2x,a)') 
     * '<name>'// 'Sample Ids'//'<
      write (96, '(a)') '  <LookA
      write (96, '(a)') 
     *    '    <longitude>-100.0</lo
      write (96, '(a)') '    <latitude>+40</l
      write (96, '(a)') '    <altitude>6437300.</a
      write (96, '(a)') 
     * '    <altitudeMode>relativeToGround</altit
      write (96, '(a)') '    <range>6437300.<
      write (96, '(a)') '    <tilt>0&l
      write (96, '(a)') '    <heading>0</
      write (96, '(a)') '  </LookA
      write (98, '(1x,a)') '</Folde
      write (Header, '(a)') 
     *    '<?xml version="1.0" encoding="UTF-8"
      write (Header, '(a)') 
     *    '<kml xmlns="http://earth.google.com/kml/2.0
      write (Header, '(a)') '<Documen
      write (Header, '(a)') 
     *    '  <name>Samples&l
      write (Header, '(4x,a)') '<open>0&l
      write (Header, '(a)') '   '
      write (Header, '(a)') '  <LookA
      write (Header, '(a)') 
     *    '    <longitude>-100.0</lo
      write (Header, '(a)') '    <latitude>+40</l
      write (Header, '(a)') '    <altitude>6437300.</a
      write (Header, '(a)') 
     * '    <altitudeMode>relativeToGround</altit
      write (Header, '(a)') '    <range>6437300.<
      write (Header, '(a)') '    <tilt>0&l
      write (Header, '(a)') '    <heading>0</
      write (Header, '(a)') '  </LookA
      write (Footer, '(a)') '</Documen
      write (Footer, '(a)') '</km
Opens
      open (unit = 92,
     * access = 'sequential',
     * form   =  'formatted',
     * status =  'unknown',
     * name = '/infobank/tmp/incgroups2kml.groupids.txt')
      open (unit = 93,
     * access = 'sequential',
     * form   =  'formatted',
     * status =  'unknown',
     * name = '/infobank/tmp/incgroups2kml.groupep.txt')
      open (unit = 95,
     * access = 'sequential',
     * form   =  'formatted',
     * status =  'unknown',
     * name = '/infobank/tmp/incgroups2kml.openfolderids.txt')
      open (unit = 96,
     * access = 'sequential',
     * form   =  'formatted',
     * status =  'unknown',
     * name = '/infobank/tmp/incgroups2kml.openfoldereps.txt')
      open (unit = 98,
     * access = 'sequential',
     * form   =  'formatted',
     * status =  'unknown',
     * name = '/infobank/tmp/incgroups2kml.closefolder.txt')
      open (unit = Header,
     * access = 'sequential',
     * form   =  'formatted',
     * status =  'unknown',
     * name = '/infobank/tmp/incgroups2kml.lookat.temp')
      open (unit = Footer,
     * access = 'sequential',
     * form   =  'formatted',
     * status =  'unknown',
     * name = '/infobank/tmp/incgroups2kml.close.temp')
Calls
      call system ('/bin/ls -1 '//
     * '/infobank/programs/kml/kmlinc2incgroups/sampids/*.kmlinc
     *  >> /infobank/tmp/incgroups2kml.groupids
      call system ('/bin/ls -1 '//
     * '/infobank/programs/kml/kmlinc2incgroups/sampeps/*.kmlinc
     * >> /infobank/tmp/incgroups2kml.groupep
      call includeit (Header,
     *    '/infobank/programs/keep/infobank_style.keep')
      call incgroups2kmlhelper(SampsIDName(1:SampsIDLength),
     * SampsIDLength)
      call system('/bin/cat '//
     * '/infobank/tmp/incgroups2kml.eqfolder.txt '//
     * SampsIDName(1:SampsIDLength)//' '//
     * '/infobank/tmp/incgroups2kml.closefolder.txt >&g
     * '/infobank/tmp/incgroups2kml.tempids.txt')
      call incgroups2kmlhelper(SampsEPName(1:SampsEPLength),
     * SampsEPLength)
      call system('/bin/cat '//
     * '/infobank/tmp/incgroups2kml.eqfolder.txt '//
     * SampsEPName(1:SampsEPLength)//' '//
     * '/infobank/tmp/incgroups2kml.closefolder.txt >&g
     * '/infobank/tmp/incgroups2kml.tempeps.txt')
      call kmlzip('/infobank/programs/kml'//
     * '/incgroups2kml/incgroups2kml.kml')
      call system ('/bin/rm /infobank/tmp/incgroups2kml.*.temp') 
      call system ('/bin/rm /infobank/tmp/incgroups2kml.*.txt')

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/incgroups2kml/mainincgroups2kml.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:59 PDT 2013  (chd)