Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- spfacs2meta

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
spfacs2meta
Synopsis
/infobank/programs/refmt/spfacs2meta/spfacs2meta.for
Description
   Program to extract from .txt files of St. Petersburg FACS files 

   into DAPS standard /meta/ metadata files.
       
AUTHOR
   Clint Steele     1/31/2007


    
Reads
      read (5, '(q,a)', end = 99) IDLength, ALine
          read (91, '(q,a)', end = 9199)
     *        ALineLength, ALine(1:ALineLength)
      read (91, '(q,a)', end = 9199)
     *    ALineLength, ALine(1:ALineLength)
          read (91, '(q,a)', end = 9199)
     *        ALineLength, ALine(1:ALineLength)
          read (91, '(q,a)', end = 9199)
     *        ALineLength, ALine(1:ALineLength)
          read (91, '(q,a,/)', end = 9199)
     *        ALineLength, ALine(1:ALineLength)
          read (92, '(q,a)', end = 9299)
     *        ALineLength, ALine(1:ALineLength)
      read (92, '(q,a)', end = 9299)
     *        ALineLength, ALine(1:ALineLength)
          read (92, '(q,a)', end = 9299)
     *        ALineLength, ALine(1:ALineLength)
          read (92, '(q,a)', end = 9299)
     *        ALineLength, ALine(1:ALineLength)
              read (92, '(q,a)', end = 9299)
     *             ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 9099)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 9099)
     *        ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                  read (90, '(q,a)', end = 9099)
     *                ALineLength, ALine(1:ALineLength)
                          read (90, '(q,a)', end = 9099)
     *                        ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end = 9099)
     *            ALineLength, ALine(1:ALineLength)
                      read (90, '(q,a)', end = 9099)
     *                    ALineLength, ALine(1:ALineLength)
Writes
          write (OutLine, '(2048x)')
          write (OutLine, '(a,t10,a)')
     *        CapID(1:IDLength), ALine(1:ALineLength)
          write (93, '(a)') OutLine(1:OutLineLength)
          write (OutLine, '(2048x)')
          write (OutLine, '(a,t10,a,t40,a)')
     *        CapID(1:IDLength), ALine(1:ALineLength), '.'
          write (93, '(a)') OutLine(1:OutLineLength)
      write (ALine, '(2048x)')
                  write (93, '(a,t10,a,t30,a)')
     *                CapID(1:IDLength),
     *                ALine(2:ALineLength),
     *                '<a href="http://walrus.wr.usgs.gov
     *                '/infobank/'//ShortID(1:1)//'/'//
     *                ShortID(1:IDLength)//'/html/'//
     *                LongID(1:IDLength+3)//'.meta.html">
     *                ALine(1:ALineLength)//'</
                  write (93, '(a,t10,a,t30,a)')
     *                CapID(1:IDLength),
     *                CapID(1:IDLength),
     *                '<a href="http://walrus.wr.usgs.gov
     *                '/infobank/'//ShortID(1:1)//'/'//
     *                ShortID(1:IDLength)//'/html/'//
     *                LongID(1:IDLength+3)//'.meta.html">
     *                CapID(1:IDLength)//'</
                  write (93, '(a,t10,a,t30,a)')
     *                CapID(1:IDLength),
     *                ALine(2:ALineLength),
     *                '<a href="http://walrus.wr.usgs.gov
     *                '/infobank/'//ShortID(1:1)//'/'//
     *                ShortID(1:IDLength)//'/html/'//
     *                LongID(1:IDLength+3)//'.meta.html">
     *                ALine(2:ALineLength)//'</
                      write (93, '(a,t10,a)')
     *                    CapID(1:IDLength), ALine(2:ALineLength)
                      write (93, '(a,t10,a)')
     *                    CapID(1:IDLength), ALine(2:ALineLength)
                      write (93, '(a,t10,a)')
     *                    CapID(1:IDLength), ALine(2:ALineLength)
                      write (93, '(a,t10,a)')
     *                    CapID(1:IDLength), ALine(2:ALineLength)
                      write (93, '(a,t10,a)')
     *                    CapID(1:IDLength), ALine(2:ALineLength)
                      write (93, '(a,t10,a)')
     *                    CapID(1:IDLength), ALine(2:ALineLength)
                          write (93, '(a,t10,a)')
     *                        CapID(1:IDLength), ALine(2:ALineLength)
                          write (93, '(a)') ALine(1:ALineLength)
                  write (93, '(a,t10,a)')
     *                CapID(1:IDLength), ALine(2:ALineLength)
                  write (93, '(a,t10,a,t30,a,t34,a)')
     *                CapID(1:IDLength), 
     *                StartDate(2:StartDateLength),'-->
     *                ALine(2:ALineLength)
                  write (93, '(a,t37,a,t45,a, t53,a)')
     *                'yyyydddhhmmsst lat.itude long.itude',
     *                CapID(1:IDLength), 'IN PORT',
     *                'LEAVE '//StartPort(2:StartPortLength)
                  write (93, '(a,t37,a,t45,a, t53,a)')
     *                'yyyydddhhmmsst lat.itude long.itude',
     *                CapID(1:IDLength), 'IN PORT',
     *                'ARRIVE '//ALine(2:ALineLength)
                          write (93, '(a,t10,a)')
     *                        CapID(1:IDLength), ALine(2:ALineLength)
                          write (93, '(a,t10,a)')
     *                        CapID(1:IDLength), ALine(2:ALineLength)
                          write (93, '(a)') ALine(1:ALineLength)
                          write (93, '(a,t10,a)')
     *                        CapID(1:IDLength), ALine(2:ALineLength)
                          write (93, '(a)') ALine(1:ALineLength)
                          write (93, '(a,t10,a)')
     *                        CapID(1:IDLength), ALine(2:ALineLength)
                          write (93, '(a)') ALine(1:ALineLength)
Opens
                  open (unit = 93,
     *                  access = 'append',
     *                  form = 'formatted',
     *                  status = 'unknown',
     *                  name = MetaPath(1:MetaPathLength)//'.akas')
      open (unit = 93,
     *         access = 'sequential',
     *         form = 'formatted',
     *         status = 'unknown',
     *         name = MetaPath(1:MetaPathLength)//
     *                     MetaName(1:MetaNameLength))
Calls
      call changecase ('SMALLS', ALine(1:IDLength))
      call changecase ('CAPITALS', CapID(1:IDLength))
      call stringlen (MetaPath, MetaPathLength)
      call openem (3,0)
      call openmeta (MetaPath(1:MetaPathLength),
     *               '.crew')
          call stringlen (ALine(1:ALineLength), ALineLength)
          call stringlen (OutLine, OutLineLength)
          call stringlen (ALine(1:ALineLength), ALineLength)
              call stringlen (OutLine, OutLineLength)
          call stringlen (ALine(1:ALineLength), ALineLength)
              call stringlen (OutLine, OutLineLength)
      call openmeta (MetaPath(1:MetaPathLength),
     *               '.equipmentused')
      call stringlen (ALine(1:ALineLength), ALineLength)
          call stringlen (ALine(1:ALineLength), ALineLength)
          call stringlen (ALine(1:ALineLength), ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
          call stringlen (OutLine, OutLineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call stringlen (OutLine, OutLineLength)
          call stringlen (ALine(1:ALineLength), ALineLength)
          call changecase ('CAPITALS', CapLine)
          call stringlen (ALine(1:ALineLength), ALineLength)
          call changecase ('CAPITALS', CapLine)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.ids')
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.akas')
              call stringlen (ALine(1:ALineLength), ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.organization')
                      call stringlen (ALine(1:ALineLength), 
     *                    ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.project')
                      call stringlen (ALine(1:ALineLength),
     *                    ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.operationarea')
                      call stringlen (ALine(1:ALineLength),
     *                    ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.chief')
                      call stringlen (ALine(1:ALineLength),
     *                    ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.infospecialist')
                      call stringlen (ALine(1:ALineLength),
     *                    ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.activitytype')
                      call stringlen (ALine(1:ALineLength),
     *                    ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.purpose')
                      call stringlen (ALine(1:ALineLength),
     *                    ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.platform')
              call stringlen (ALine(1:ALineLength), ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.dates')
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.ports')
                  call stringlen (ALine(1:ALineLength), ALineLength)
                      call openmeta (MetaPath(1:MetaPathLength),
     *                           '.equipmentused')
                          call stringlen (ALine(1:ALineLength),
     *                        ALineLength)
                      call stringlen (ALine(1:ALineLength), ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.derivatives')
                      call stringlen (ALine(1:ALineLength),
     *                    ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.summary')
                      call stringlen (ALine(1:ALineLength),
     *                    ALineLength)
              call stringlen (ALine(1:ALineLength), ALineLength)
                  call openmeta (MetaPath(1:MetaPathLength),
     *                       '.notes')
                      call stringlen (ALine(1:ALineLength),
     *                    ALineLength)
      call stringlen (MetaPath, MetaPathLength)
      call stringlen (MetaName, MetaNameLength)

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