Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- mainwhprereport2meta

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
mainwhprereport2meta
Synopsis
/infobank/programs/refmt/whprereport2meta/mainwhprereport2meta.for
Description
  Program to convert Woods Hole's Pre-Cruise Report to 

  InfoBank metadata.
       
AUTHOR
  Clint Steele    11/3/2006

  Clint Steele    8/28/2008   updated input format
  modified whreport2meta - Carolyn Degnan   2/1/2010

    
Reads
      read (5, '(q,a)', end = 99)
     *    IDLength, ID(1:IDLength)
      read (89, '(q,a)', end = 99)
     *    ALineLength, ALine(1:ALineLength)
          read (89, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (89, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 999) 
     *        ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end=999) 
     *            ALineLength, ALine(1:ALineLength)
              read (90, '(q,a)', end=999) 
Writes
      write (ID, '(7x)')
      write (76, '(a,t10,a)') CapID(1:IDLength),
     *    'United States Geological Survey, Woods Hole, Massachusetts'
              write (90, '(a)') ALine(1:ALineLength)
Opens
      open (unit = 76,
     *      access = 'sequential',
     *      status = 'unknown',
     *      form   = 'formatted',
     *      name   = '/infobank/'//
     *               ID(1:1)//'/'//
     *               ID(1:IDLength)//'/meta/'//
     *               SmallHyphenID(1:IDLength+3)//'.organization')
      open (unit = 89,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old',
     *      name   = '/infobank/'//
     *               ID(1:1)//'/'//
     *               ID(1:IDLength)//'/meta/'//
     *               SmallHyphenID(1:IDLength+3)//'.precruise_original')
      open (unit = 90,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown',
     *      name   = '/infobank/tmp/whprereport2meta.temp')
Calls
      call changecase ('SMALLS', ID)
      call changecase ('CAPITALS', CapID)
      call stringlen (OutName, OutLength)
      call stringlen (OutName, OutLength)
      call changecase ('SMALLS', SmallHyphenID)
          call system ('/bin/rm '//
     *                 '/infobank/'//
     *                 ID(1:1)//'/'//
     *                 ID(1:IDLength)//'/meta/'//
     *                 SmallHyphenID(1:IDLength+3)//'.notes')
               call stringlen (ALine(1:ALineLength), ALineLength)
          call stringlen (ALine(1:ALineLength), ALineLength)
          call stringlen (ALine(1:ALineLength), ALineLength)
              call whid (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength),
     *            HyphenID(1:IDLength+3))
              call whplatform (CapID(1:IDLength), 
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whplatformfeatures (CapID(1:IDLength), 
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whchief (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call wharea (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whdates (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whdaysatsea (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whpurpose (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whcrew (CapID(1:IDLength), 
     *            OutName(1:OutLength), ALine(1:ALineLength),
     *            Captain)
              call whovertime (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whprojectnum (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whshoreleave (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whcrew (CapID(1:IDLength),  OutName(1:OutLength), 
     *            ALine(1:ALineLength), Captain)
              call whequipment (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whinfospecialist (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength),
     *            DidDataCurator)
              call whderivative (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whfunding (CapID(1:IDLength), 
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whcertainty (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whnotes (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
              call whreportdate (CapID(1:IDLength),
     *            OutName(1:OutLength), ALine(1:ALineLength))
                  call whinfospecialist (CapID(1:IDLength), 
     *                OutName(1:OutLength), ALine(1:ALineLength),
     *                DidDataCurator)
                  call whsubmittedby (CapID(1:IDLength),
     *                OutName(1:OutLength), ALine(1:ALineLength))
              call stringlen (ALine(1:ALineLength), UnAntiLength)

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