Coastal & Marine Geology InfoBank

USGS InfoBank program -- spfacs2meta


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
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))
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)//'</a>' 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)//'</a>' 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)//'</a>' 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)
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

InfoBank Menlo Park Center Santa Cruz Center St. Petersburg Center Woods Hole Center Coastal and Marine Geology Program Geologic Information Ask-A-Geologist USGS Disclaimer

Accessibility FOIA Privacy Policies and Notices

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: InfoBank staff
Page Last Modified: Tue Apr 1 03:45:11 PDT 2008 (wcs)

Accessibility FOIA Privacy Policies and Notices
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: InfoBank staff Page Last Modified: Tue Apr 1 03:45:11 PDT 2008 (wcs)