Coastal & Marine Geology InfoBank

USGS InfoBank program -- makemeta


InfoBank Programs:	by Name by Topic

**Expanded description**
Topic	Description
Name	makemeta
Synopsis	/infobank/programs/html/info2html/makemeta.for
Description	Subroutine to make specific meta.htmls for an Activity ID.
Author	Clint Steele 10/16/1997 Clint Steele 03/28/2006 restructured Carolyn Degnan 06/17/2008 added subroutine meta2tablerecord
Opens	open (name = SpecificHtml(1:SpecificHtmlLength), * access = 'sequential', * status = 'unknown', * form = 'formatted', * unit = SpecificUnit) open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.ids') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.akas') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.abstract') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.organization') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.project') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.nationalplan') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.chief') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.activitytype') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.platform') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.owner') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.submersible') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.operationarea') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.navarea') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.ports') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.dates') open (unit = ItemUnit, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/infobank/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.daysatsea') open (unit = 68, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = '/tmp/info2html.metaPDFfiles.temp')
Reads	read (ItemUnit, '(q,a)', end = 201) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 2011) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 413) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 213) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 216) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 1216) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(t10,q,a)', end = 204) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 200) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(t10,q,a)', end = 214) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 2203) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 2205) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 212) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 203) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 215) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 206) * ItemLength, Item(1:ItemLength) read (ItemUnit, '(q,a)', end = 2219) * ItemLength, Item(1:ItemLength) read (68, '(q,a)', end = 6897) * ALineLength, ALine(1:ALineLength) read (68, '(q,a)', end = 6899) * PDFFileLength, PDFFile(1:PDFFileLength)
Writes	write (SpecificHtml, '(4096x)') write (SpecificHtml, 3) * ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * ShortName write (MetaPath, '(4096x)') write (MetaPath, '(a)') * '/infobank/'//ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'//LongID(1:IDLength+3) write (HtmlPath, '(4096x)') write (HtmlPath, '(a)') * '/infobank/'//ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/html/'//LongID(1:IDLength+3) write (SpecificUnit, '(6x,a)') * '<table border="0" bgcolor="#ffffff">' write (SpecificUnit, '(8x,a)') '<tr valign="top">' write (SpecificUnit, '(10x,a)') '<th align="left">' write (SpecificUnit, '(12x,a)') * '<a href="http://walrus.wr.usgs.gov/infobank/programs/'// * 'html/definition/meta.html">' write (SpecificUnit, '(14x,a)') 'Metadata' write (SpecificUnit, '(12x,a)') '</a>' write (SpecificUnit, '(10x,a)') '</th>' write (SpecificUnit, '(8x,a)') '</tr>' write (SpecificUnit, '(/,a,/)') * '<!-- ====== LINKS TO METADATA FILES: ====== -->' write (SpecificUnit, '(8x,a)') '<tr>' write (SpecificUnit, '(10x,a)') '<td valign="top">' write (SpecificUnit, '(12x,a)') '<table border="3" align="left">' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'ID', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(10:29) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Also Known As', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(30:ItemLength) write (SpecificUnit, '(a)') * Item(10:29) write (SpecificUnit, '(a)') * '<br>'//Item(30:ItemLength) write (SpecificUnit, '(a)') * '<br>'//Item(10:29) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Abstract', * ' </td>', * ' <td bgcolor="#ccffff" align="left">' write (SpecificUnit, '(a)') * Item(1:ItemLength) write (SpecificUnit, '(a)') * Item(1:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Organization', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(10:ItemLength) write (SpecificUnit, '(a)') * '<br>'//Item(10:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Project/Theme', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(10:ItemLength) write (SpecificUnit, '(a)') * '<hr>'//Item(10:ItemLength) write (SpecificUnit, '(a)') * '<hr>'//Item(1:ItemLength) write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'National Plan', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(10:ItemLength) write (SpecificUnit, '(a)') * '<hr>'//Item(10:ItemLength) write (SpecificUnit, '(a)') * '<hr>'//Item(1:ItemLength) write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (Item, '(4096x)') write (SpecificUnit, '(a,/,a,/,a)') * 'Chief Scientist', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(1:Comma) write (SpecificUnit, '(a)') * '<br>'//Item(1:Comma) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Activity Type', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(10:ItemLength) write (SpecificUnit, '(a)') * '<br>'//Item(1:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (PlatformPath, '(512x)') write (SpecificUnit, '(a,/,a,/,a)') * 'Platform', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * '<a href="http://walrus.wr.usgs.gov'// * PlatformPath(1:PlatformPathLength)// * '">'// * Item(1:ItemLength)//'</a>' write (SpecificUnit, '(a)') * Item(1:ItemLength) write (SpecificUnit, '(a)') * '<br>'// * '<a href="http://walrus.wr.usgs.gov'// * PlatformPath(1:PlatformPathLength)// * '">'// * Item(1:ItemLength)//'</a>' write (SpecificUnit, '(a)') * '<br>'//Item(1:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Owner', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(1:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Submersible', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(1:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Area of Operation', * ' </td>', * ' <td bgcolor="#ccffff" align="left">' write (SpecificUnit, '(a,/,a,/,a)') * '<center>', * Item(10:ItemLength), * '</center>' write (SpecificUnit, '(a)') * ' '//Item(1:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(10x,a)') '<tr>' write (SpecificUnit, '(12x,a)') * '<td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(14x,a)') 'Location map' write (SpecificUnit, '(12x,a,/)') '</td>' write (SpecificUnit, '(10x,a)') * '<td bgcolor="#ccffff" align="center" valign="top">' write (SpecificUnit, 21) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'nav.150px', * CapID write (SpecificUnit, 22) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'meta.150px', * CapID write (SpecificUnit, 621) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'location', * ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'location', * CapID write (SpecificUnit, '(10x,a)') '</td>' write (SpecificUnit, '(8x,a)') '</tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Bounding Coordinates', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * Item(10:18), * '<br>'//Item(41:50)// * ' '// * Item(30:39), * '<br>'//Item(20:28) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Ports', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(53:ItemLength) write (SpecificUnit, '(a)') * '<br>'//Item(53:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Dates', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(10:28)// * ' to '//Item(34:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Days at Sea', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') * Item(1:ItemLength) write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a,/,a)') * 'Analog Materials', * ' </td>', * ' <td bgcolor="#ccffff" align="center">', * ' <a href="http://walrus.wr.usgs.gov'// * '/infobank'// * '/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/html/'// * LongID(1:IDLength+3)//'.container.html">'// * 'list</A>' write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a,/,a)') * 'Analog Materials', * ' </td>', * ' <td bgcolor="#ccffff" align="center">', * 'No analog holdings.' write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="center">' write (SpecificUnit, '(a,/,a,/,a)') * 'Scanned Materials', * ' </td>', * ' <td bgcolor="#ccffff" align="center">' write (SpecificUnit, '(a)') '<br>' write (SpecificUnit, '(a)') * ' <a href="http://walrus.wr.usgs.gov'// * PDFFile(1:PDFFileLength)//'" target="pdf">' write (SpecificUnit, '(a)') * PDFFile(Slash+1:PDFFileLength-4)//' log</a> (pdf)' write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(12x,a)') '</table>' write (SpecificUnit, '(10x,a)') '</td>' write (SpecificUnit, '(a,/)') * '<!-- ====== INDEX MAP: ====== -->' write (SpecificUnit, '(10x,a)') '<td valign="top" align="center">' write (SpecificUnit, '(12x,a)') '<b>Index maps</b><p>' write (SpecificUnit, '(12x,a)') '<b>Index map</b><p>' write (SpecificUnit, 620) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'index', * ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'index', * CapID write (SpecificUnit, 20) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'nav', * CapID write (SpecificUnit, 20) ShortID(1:1), * ShortID(1:IDLength), * LongID(1:IDLength+3), * 'meta', * CapID write (SpecificUnit, '(10x,a)') '<p>' write (SpecificUnit, '(10x,a)') '</td>' write (SpecificUnit, '(8x,a)') '</tr>' write (SpecificUnit, '(6x,a,/)') '</table>' write (SpecificUnit, '(4x,a)') '</td>' write (SpecificUnit, '(2x,a)') '</tr>' write (SpecificUnit, '(a,/)') '</table>' write (SpecificUnit, '(a)') * '<table border="3" width="90%" align="center">' write (Sentence, '(2048x)') write (SpecificUnit, '(a,/,a)') * ' <tr>', * ' <td bgcolor="#00ffff" align="left">' write (SpecificUnit, '(a,/,a)') * ' Got Help?', * ' </td>' write (SpecificUnit, '(a)') * ' <td bgcolor="#ccffff" align="left">' write (SpecificUnit, '(a)') * 'For '//CapID//', '// * 'we would appreciate any information on -- '// * Sentence(3:SentenceLength)// * '.' write (SpecificUnit, '(a,/,a)') * ' </td>', * ' </tr>' write (SpecificUnit, '(a,/,a,/)') * '</table>','<p>' write (SpecificUnit, '(a)') '<table border="0">' write (SpecificUnit, '(2x,a)') '<tr>' write (SpecificUnit, '(4x,a)') '<td>' write (SpecificUnit, '(6x,a)') ' '
Calls	call changecase ('CAPITALS', CapShortID) call stringlen (SpecificHtml, SpecificHtmlLength) call stringlen (MetaPath, MetaPathLength) call stringlen (HtmlPath, HtmlPathLength) call htmlhead (SpecificUnit, * 'CMG '//CapID//' '//LongName ) call controlbar * (SpecificUnit, ShortID, IDLength, LongID, CapID, * ShortName, LongName, Existance) call changecase ('SMALLS', Item(10:ItemLength)) call changecase ('TITLE', Item(10:ItemLength)) call stringlen (PlatformPath, PlatformPathLength) call stringlen (PlatformPath, PlatformPathLength) call system ('/bin/grep -i PDF '// * '/infobank'// * '/'// * ShortID(1:1)//'/'// * ShortID(1:IDLength)//'/meta/'// * LongID(1:IDLength+3)//'.metafiles.keep'// * ' > /tmp/info2html.metaPDFfiles.temp') call changecase ('SMALLS', PDFFile(1:PDFFileLength)) call changecase ('TITLE', PDFFile(Slash+1:PDFFileLength)) call system ('/bin/rm /tmp/info2html.metaPDFfiles.temp') call meta2tablerecord (MetaPath(1:MetaPathLength), * 'infospecialist', 'Information Specialist', * DidInfoSpecialist, SpecificUnit, ItemUnit, ShortID, LongID, * Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'crew', 'Crew', * DidCrew, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'equipmentused', 'Equipment Used', * DidEquipmentUsed, SpecificUnit, ItemUnit, ShortID, LongID, * Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'trackplot', 'Track Plot', * DidTrackPlot, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'purpose', 'Purpose', * DidPurpose, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'derivatives', 'Information to be Derived', * DidDerivatives, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'tabulatedinfo', 'Tabulated Info', * DidTabulatedInfo, SpecificUnit, ItemUnit, ShortID, LongID, * Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'summary', 'Summary', * DidSummary, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'notes', 'Notes', * DidNotes, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'navkm', 'Nav Km', * DidNavKm, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'stationcount', 'Station Count', * DidStationCount, SpecificUnit, ItemUnit, ShortID, LongID, * Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'divecount', 'Dive Count', * DidDiveCount, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'stationdescription', 'Station Description', * DidStationDescription, SpecificUnit, ItemUnit, ShortID, * LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'seismicdescription', 'Seismic Description', * DidSeismicDescription, SpecificUnit, ItemUnit, ShortID, * LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'projectnumber', 'Project Number', * DidProjectNumber, SpecificUnit, ItemUnit, ShortID, LongID, * Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'funding', 'Funding', * DidFunding, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'contract', 'Contract', * DidContract, SpecificUnit, ItemUnit, ShortID, LongID, Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'ngdc_overview', 'NGDC Overview', * DidNGDCOverview, SpecificUnit, ItemUnit, ShortID, LongID, * Item) call meta2tablerecord (MetaPath(1:MetaPathLength), * 'publications', 'Publications', * DidPublications, SpecificUnit, ItemUnit, ShortID, LongID, * Item) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call stringlen (Sentence, SentenceLength) call htmlfoot (SpecificUnit, * 'http://walrus.wr.usgs.gov'// * '/infobank'// * '/'//ShortID(1:1)//'/'//ShortID(1:IDLength)// * '/html/'//LongID(1:IDLength+3)//'.'// * ShortName//'.html' )

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/makemeta.doc.html
Page Contact: InfoBank staff
Page Last Modified: Tue Jul 22 02:02:40 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/makemeta.doc.html Page Contact: InfoBank staff Page Last Modified: Tue Jul 22 02:02:40 PDT 2008 (wcs)