Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- incgroups2kmlhelper

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
incgroups2kmlhelper
Synopsis
/infobank/programs/kml/incgroups2kml/incgroups2kmlhelper.for
Description
  Subroutine to help mainincgroups2kml to read the equipment and

  calculate the north south east west lat and long
  call getRange to calculate the range
       
AUTHOR
  Sumy Tom        4/17/2008

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

    
Reads
	  read( SampsName
     * (FirstDot + 1 : LastDot - 1), '(q,a)')
     * EqTypeLength, EqTypeName
 3    read(99,'(q,a)', end = 4) 
     * ALineLength, ALine(1:ALineLength)
         read (ALine, '(t25,f9.5,t35,f10.5)', err=3) Lat, Long
         read (ALine, '(t25,f10.6,t36,f11.6)', err=3) Lat, Long
Writes
      write (82, '(6x,a)') 
     * '<name>'//EqTypeName(1:EqTypeLength) //'<
      write (82, '(a)') '  <LookA
      write (82, '(sp,a,f11.6,a)') 
     *  '<longitude>', Long , '</lo
      write (82, '(sp,a,f10.6,a)') '  <latitude>',Lat,'</l
      write (82, '(a,f,a)') '    <range>', Range, '<
      write (82, '(a)') '    <tilt>0&l
      write (82, '(a)') '    <heading>0</
      write (82, '(a)') '  </LookA
Opens
         open (unit = 82,
     *   access = 'sequential',
     *   form   =  'formatted',
     *   status =  'unknown',
     *   name = '/infobank/tmp/incgroups2kml.eqfolder.txt')
       open (unit = 99,
     * access = 'sequential',
     * form   =  'formatted',
     * status =  'unknown',
     * name = '/infobank/tmp/incgroups2kml.latlong2.txt')
Calls
      call system('/bin/cat '//
     * '/infobank/?/*/kml/*."'//
     *  EqTypeName(1:EqTypeLength)//
     * '".sampids.kmlinc > 
     * '/infobank/tmp/incgroups2kml.latlong1.txt')
      call system('/bin/grep Lat/Long '//
     * '/infobank/tmp/incgroups2kml.latlong1.txt '//
     * '> 
     * '/infobank/tmp/incgroups2kml.latlong2.txt' )   
      call system ('/bin/rm /infobank/tmp/incgroups2kml.latlong1.txt')
      call system ('/bin/rm /infobank/tmp/incgroups2kml.latlong2.txt')
        call  getrange( Lat, Long,
     *  North,South, East ,West, Range)

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