Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- whakas

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
whakas
Synopsis
/infobank/programs/refmt/whakas/whakas.for
Description
  Program to convert existing Woods Hole .akas and .ids files

  to improved format.
       
AUTHOR
  Clint Steele     3/6/2007


    
Reads
          read (90, '(q,a)', end = 99) IDLength, ShortID(1:IDLength)
                  read (93, '(q,a)', end = 299)
     *                AKALineLength, AKALine(1:AKALineLength)
                       read (AKALine(10:14), '(i5.5)', err=3) ITest
              read (92, '(q,a)') IDLineLength, IDLine(1:IDLineLength)
Writes
          write (ShortID, '(7x)')
          write (LongID, '(10x)')
          write (APath, '(80x)')
                       write (94, '(a)') AKALine(1:AKALineLength)
                   write (95, '(a)') AKALine(1:AKALineLength)
              write (92, '(a,i5.5,t20,a,i5.5,a)') IDLine(1:9),ITest,
     *             IDLine(20:GreaterThan),ITest,
     *             IDLine(LessThan:IDLineLength)
Opens
              open (unit = 93,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old',
     *              name = APath(1:APathLength)//'.akas')
                       open (unit = 95,
     *                       access = 'sequential',
     *                       status = 'unknown',
     *                       form = 'formatted',
     *                       name = '/infobank/tmp/whakas.line2.temp')
                       open (unit = 94,
     *                       access = 'sequential',
     *                       status = 'unknown',
     *                       form = 'formatted',
     *                       name = '/infobank/tmp/whakas.line1.temp')
              open (unit = 92,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old',
     *              name = APath(1:APathLength)//'.ids')
Calls
      call openem (1,-1)
          call changecase ('SMALLS', ShortID(1:IDLength))
          call stringlen (APath, APathLength)
                  call stringlen (AKALine(1:AKALineLength), 
     *                AKALineLength)
              call system ('/bin/cat /infobank/tmp/whakas.line1.temp'//
     *             ' /infobank/tmp/whakas.line2.temp > 
     *             APath(1:APathLength)//'.akas')
              call stringlen (IDLine(1:IDLineLength), IDLineLength)
      call system ('/bin/rm /infobank/tmp/whakas.*.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/refmt/whakas/whakas.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:35 PDT 2013  (chd)