Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- samponoff2details

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
samponoff2details
Synopsis
/infobank/programs/refmt/samponoff2details/samponoff2details.for
Description
  Program to subdivide .onoff. files into "---" detailed files.

       
AUTHOR
  Clint Steele   5/11/01


    
Reads
      read (5, '(q,a)', end = 99) IDLength, ID(1:IDLength)
          read (90, '(q,a)', end = 98)
     *        InFileLength, InFile(1:InFileLength)
              read (91, '(q,a)', end = 96)
     *            ALineLength, ALine(1:ALineLength)
          read (5, '(a1)', end = 99)  Column
              read (91, '(q,a)', end = 97)
     *            ALineLength, ALine(1:ALineLength)
Writes
          write (OutFile, '(1024x)')
              write (SampleID, '(9x)')
                      write (92, '(a,a)') 'Sample ID --- ',ALine(80:88)
                      write (92, '(a,a)') 'Sample ID --- ',ALine(90:98)
                      write (92, '(a,a)') 'Sample ID --- ',
     *                    ALine(100:108)
                  write (92, '(a,a)') '  Activity ID        --- ',
     *                ALine(37:43)
                  write (92, '(a,a)') '  Sampling Equipment --- ',
     *                ALine(45:68)
                  write (92, '(a,a,a)') '  Time               --- ',
     *                ALine(1:14), ' (yyyydddhhmmsst)'
                  write (92, '(a,a)') '  Latitude           ---  ',
     *                ALine(16:24)
                  write (92, '(a,a)') '  Longitude          --- ',
     *                ALine(26:35)
                  write (92, '(a,a)') '  Water Depth        --- ',
     *                ALine(70:78)
                      write (92, '(a,a)') '  Comment            --- ',
     *                    ALine(90:ALineLength)
                      write (92, '(a,a)') '  Comment            --- ',
     *                    ALine(100:ALineLength)
                      write (92, '(a,a)') '  Line               --- ',
     *                    ALine(80:88)
                      write (92, '(a,a)') '  Station            --- ',
     *                    ALine(90:98)
                      write (92, '(a,a)') '  Comment            --- ',
     *                    ALine(110:ALineLength)
Opens
      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = '/infobank/tmp/samponoff2details.temp')
          open (unit = 91,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old',
     *          name = InFile(1:InFileLength))
                  open (unit = 92,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'new',
     *                  name = OutFile(1:OutFileLength)//'.'//
     *                 SampleID(1:SampleIDLength))
Calls
      call changecase ('SMALLS', ID(1:IDLength))
      call system ('ls -1 /infobank/'//
     *             ID(1:1)//
     *             '/'//ID(1:IDLength)//
     *             '/samp/*.onoff.* > 
     *             '/infobank/tmp/samponoff2details.temp')
          call stringlen (OutFile, OutFileLength)
              call stringlen (SampleID, SampleIDLength)
              call changecase ('SMALLS', SampleID)
                  call changecase ('CAPS', ALine(1:ALineLength))

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