USGS InfoBank program -- kmlsuite

kmlsuite

  Program to generate a .html page for KML suite that
  has an atlas map.
    

  Alex Ma     5/31/2006


    

 open (unit = 90,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'old',
*      name = '/infobank/programs/keep/gazette.keep')

    

 read (90, '(q,a)', end = 199) RecordLength, 
*                     Record(1:RecordLength)

    

 call changecase ('SMALLS', AtlasID(1:AtlasIDLength))
     call system ('/bin/mkdir /infobank/programs'//
*                 '/html/kml/regions/'//
*                  AtlasID(1:AtlasIDLength))
     call system ('/bin/cp /infobank/programs'//
*                 '/html/kml/regions/index.html '//
*                 '/infobank/programs/html'//
*                 '/kml/regions/'//AtlasID(1:AtlasIDLength))