Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- facs2equipment

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
facs2equipment
Synopsis
/infobank/programs/refmt/facs2equipment/facs2equipment.for
Description
  Program to convert a .equipment_log file 

  to a .equipmentused file.  
       
AUTHOR
  Clint Steele   12/7/2000

    
PROMTS
  'Enter non-hyphenated ActivityID'

    
INPUT
  (EquipSystem, EquipType, EquipmentCode, EquipmentBrand, 

   EquipmentModel, EquipmentMedia, Comment)
  (a,t,a,t,a,t,a,t,a,t,a,t,a)
    
OUTPUT
  (ActivityID, Equipment)

  (a7, t10, a)

    
Reads
      read (5, '(q,a)', end=999)
     *      IDLength, ID(1:IDLength)
          read (90, '(q,a)', end = 199)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
Writes
      write (BigID, '(10x)')
      write (InFile, '(1024x)')
      write (OutFile, '(1024x)')
          write (91, 8) BigID,                ! ActivityID
     *        ALine(1:Tabs(1)-1),             ! EquipmentSystem
     *        ALine(Tabs(1)+1:Tabs(2)-1),     ! EquipmentType
     *        ALine(Tabs(3)+1:Tabs(4)-1),     ! EquipmentBrand
     *        ALine(Tabs(4)+1:Tabs(5)-1),     ! EquipmentModel
     *        ALine(Tabs(5)+1:Tabs(6)-1),     ! EquipmentMedia
     *        ALine(Tabs(2)+1:Tabs(3)-1),     ! EquipmentCode
     *        ALine(Tabs(6)+1:ALineLength)    ! Comment
Opens
      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = InFile(1:InFileLength),
     *      err = 2)
      open (unit = 91,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = OutFile(1:OutFileLength))
Calls
      call changecase ('SMALLS', ID(1:IDLength))
      call changecase ('CAPITALS', BigID(1:IDLength))
      call stringlen (InFile, InFileLength)
      call stringlen (OutFile, OutFileLength)

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