Coastal & Marine Geology InfoBank

USGS InfoBank program -- makefmetaoutline


InfoBank Programs:	by Name by Data Type General Tools GIS Plotting Web USGS Disclaimer InfoBank Programs Boothill

**Expanded description**
Topic	Description
Name	makefmetaoutline
Synopsis	/infobank/programs/html/makefmetamp/makefmetaoutline.for
Description	Subroutine to make MP formal metadata outline page for DAPS data.
Author	Clint Steele 2/4/2003
Opens	open (unit = InUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/tmp/makefmetamp.outline.temp') open (unit = MetaUnit, * access = 'sequential', * form = 'formatted', * status = 'old', * name = '/infobank/'//ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/html/'// * LongID(1:IDLength+3)//'.meta.html') open (unit = OutUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'//ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/html/'// * LongID(1:IDLength+3)//'.fmeta.outline.html')
Reads	read (MetaUnit, '(q,a)', end=99) * ALineLength, ALine(1:ALineLength) read (MetaUnit, '(q,a)', end=99) * ALineLength, ALine(1:ALineLength) read (MetaUnit, '(q,a)', end=99) * ALineLength, ALine(1:ALineLength) read (InUnit, '(a)') ALine read (InUnit, '(a)') ALine read (InUnit, '(a)') ALine read (InUnit, '(a)') ALine read (InUnit, '(q,a)', end=99) * ALineLength, ALine(1:ALineLength) read (InUnit, '(a)') ALine read (InUnit, '(a)') ALine read (InUnit, '(a)') ALine read (InUnit, '(a)') ALine read (MetaUnit, '(q,a)', end=98) * ALineLength, ALine(1:ALineLength) read (InUnit, '(q,a)', end = 99) * ALineLength, ALine(1:ALineLength) read (InUnit, '(q,a)', end = 99) * ALineLength, ALine(1:ALineLength)
Writes	write (OutUnit, '(a)') ALine(1:ALineLength) write (OutUnit, '(a)') '<head>' write (OutUnit, '(a)') * '<link href="http://walrus.wr.usgs.gov/infobank/programs'// * '/html/tools/universal.css" rel="stylesheet" type="text/css">' write (OutUnit, '(a)') * '<link href="http://walrus.wr.usgs.gov/infobank/programs'// * '/html/tools/custom.css" rel="stylesheet" type="text/css">' write (OutUnit, '(a)') ALine(1:ALineLength) write (OutUnit, '(a)') ALine(1:ALineLength) write (OutUnit, '(a)') ALine(1:ALineLength)
Calls	call htmlfoot (OutUnit, * 'http://walrus.wr.usgs.gov/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/html/'// * LongID(1:IDLength+3)//'.fmeta.outline.html')

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/html/makefmetamp/makefmetaoutline.doc.html
Page Contact Information: Clint Steele
Page Last Modified: Wed Jan 11 03:18:39 PST 2006 (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/html/makefmetamp/makefmetaoutline.doc.html Page Contact Information: Clint Steele Page Last Modified: Wed Jan 11 03:18:39 PST 2006 (wcs)