USGS InfoBank program -- mainincgroups2kml

mainincgroups2kml

  Program to display samples by equipment type in google earth

       

  Sumy Tom        3/28/2008


    

 1    read(92, '(q,a)', end = 2)
     * SampsIDLength, SampsIDName
 2    read(93, '(q,a)', end = 99)
     * SampsEPLength, SampsEPName

      write (95, '(1x,a)') '<Folde
      write (95, '(2x,a)') 
     * '<name>'// 'Activity Ids'//'<
      write (95, '(a)') '  <LookA
      write (95, '(a,f11.6,a)') 
     *    '    <longitude>-100</lo
      write (95, '(a,f10.6,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,f11.6,a)') 
     *    '    <longitude>-100.0</lo
      write (96, '(a,f10.6,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,f11.6,a)') 
     *    '    <longitude>-100.0</lo
      write (Header, '(a,f10.6,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

      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')

      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')