Coastal & Marine Geology InfoBank

USGS InfoBank program -- controlbar


InfoBank Programs:	by Name by Topic

**Expanded description**
Topic	Description
Name	controlbar
Synopsis	/infobank/programs/html/info2html/controlbar.for
Description	Subroutine to generate a control bar.
Author	Clint Steele 10/21/97 updated 3/15/99
Opens	open (unit = 73, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/tmp/info2html.kmls.temp')
Reads	read (73, '(q,a)', end = 17398) * KmlLength, KmlName(1:KmlLength)
Writes	write (SpecificUnit, '(2x,a)') '<tr>' write (SpecificUnit, '(4x,a)') '<td align="right">' write (SpecificUnit, '(6x,a)') '<b>'//CapID//' links...</b>' write (SpecificUnit, '(4x,a)') '</td>' write (SpecificUnit, '(4x,a)') '<td align="left">' write (SpecificUnit, '(6x,a)') '<b><hr></b>' write (SpecificUnit, '(4x,a)') '</td>' write (SpecificUnit, '(2x,a)') '</tr>' write (SpecificUnit, '(2x,a)') '<tr>' write (SpecificUnit, '(4x,a)') * '<td valign="top" align="right" width="10%">' write (SpecificUnit, '(6x,a)') * '<b>' write (SpecificUnit, '(8x,a)') * 'Metadata & Data:' write (SpecificUnit, '(6x,a)') '</b>' write (SpecificUnit, '(4x,a,/)') '</td>' write (SpecificUnit, '(4x,a)') '<td valign="middle">' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'bath', 'Bathymetry' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'bath', 'Bathymetry' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'geo', 'Geodetics' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'geo', 'Geodetics' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'grav', 'Gravity' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'grav', 'Gravity' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'imag', 'Imagery' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'imag', 'Imagery' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'mag', 'Magnetics' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'mag', 'Magnetics' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'meta', 'Metadata' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'meta', 'Metadata' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'meter', 'Meters' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'meter', 'Meters' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'nav', 'Navigation' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'nav', 'Navigation' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'samp', 'Samples' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'samp', 'Samples' write (SpecificUnit, 8) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'seis', 'Seismic' write (SpecificUnit, 9) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'seis', 'Seismic' write (SpecificUnit, '(a)') * KmlName(Dot+1:KmlLength-4)// * ' ('// * '<a href="http://walrus.wr.usgs.gov'// * KmlName(1:KmlLength-1)//'z">GE</a> '// * '<a href="http://maps.google.com/maps?q='// * 'http://walrus.wr.usgs.gov'// * KmlName(1:KmlLength-1)//'z&t=h">GM</a>'// * ') ' write (SpecificUnit, '(a)') * KmlName(Dot+1:KmlLength-4)// * ' ('// * '<a href="http://walrus.wr.usgs.gov'// * KmlName(1:KmlLength)//'">GE</a> '// * '<a href="http://maps.google.com/maps?q='// * 'http://walrus.wr.usgs.gov'// * KmlName(1:KmlLength)//'&t=h">GM</a>'// * ') ' write (SpecificUnit, '(4x,a)') '</td>' write (SpecificUnit, '(2x,a,/)') '</tr>' write (SpecificUnit, '(2x,a)') '<tr>' write (SpecificUnit, '(4x,a)') * '<td valign="top" align="right" width="10%">' write (SpecificUnit, '(6x,a)') * '<b>' write (SpecificUnit, '(8x,a)') 'Formal Metadata:' write (SpecificUnit, '(6x,a)') '</b>' write (SpecificUnit, '(4x,a,/)') '</td>' write (SpecificUnit, '(4x,a)') '<td valign="middle">' write (SpecificUnit, '(6x,a)') * '<a href="http://walrus.wr.usgs.gov/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/html/'// * LongID(1:IDLength+3)//'.fmeta.faq.html">'// * 'Frequently-Anticipated Questions</a> ' write (SpecificUnit, '(6x,a)') * '<a href="http://walrus.wr.usgs.gov/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/html/'// * LongID(1:IDLength+3)//'.fmeta.outline.html">'// * 'Outline</a> ' write (SpecificUnit, '(6x,a)') * '<a href="http://walrus.wr.usgs.gov/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/html/'// * LongID(1:IDLength+3)//'.fmeta.indent.html">'// * 'Parseable Text</a> ' write (SpecificUnit, '(6x,a)') * '<a href="http://walrus.wr.usgs.gov/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/html/'// * LongID(1:IDLength+3)//'.fmeta.xml">'// * 'XML</a> ' write (SpecificUnit, '(4x,a)') '</td>' write (SpecificUnit, '(2x,a,/)') '</tr>' write (SpecificUnit, '(2x,a)') '<tr>' write (SpecificUnit, '(4x,a)') '<td> </td>' write (SpecificUnit, '(4x,a)') '<td> </td>' write (SpecificUnit, '(2x,a)') '</tr>' write (SpecificUnit, '(a,/)') '</table>' write (SpecificUnit, '(a)') * '<table border="0" width="100%" bgcolor="#ffffff">' write (SpecificUnit, '(2x,a)') '<tr>' write (SpecificUnit, '(4x,a,/)') '<td>' write (SpecificUnit, '(2x,a)') '<tr>' write (SpecificUnit, '(4x,a)') '<td>'
Calls	call includeit (SpecificUnit, * '/infobank/programs/html/tools/activities.tabs') call includeit (SpecificUnit, * '/infobank/programs/html/tools/activities.activities.tabs') call includeit (SpecificUnit, * '/infobank/programs/html/tools/activities.firstletter.tabs') call includeit (SpecificUnit, * '/infobank/programs/html/tools/virtualglobesstart.tabs') call includeit (SpecificUnit, * '/infobank/programs/html/tools/virtualglobesend.tabs') call system ('/bin/ls -1 /infobank/'// * ShortID(1:1)//'/'//ShortID(1:IDLength)//'/'// * 'html/'//LongID(1:IDLength+3)//'.kml > '// '/tmp/info2html.kmls.temp') call includeit (SpecificUnit, * '/infobank/programs/keep/contents.keep')

Skip footer navigational links

InfoBank Menlo Park & Santa Cruz Centers 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/info2html/controlbar.doc.html
Page Contact: InfoBank staff
Page Last Modified: Thu May 29 02:01:29 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/html/info2html/controlbar.doc.html Page Contact: InfoBank staff Page Last Modified: Thu May 29 02:01:29 PDT 2008 (wcs)