Coastal & Marine Geology InfoBank

USGS InfoBank program -- whequipment

**Expanded description**
Topic	Description
Name	whequipment
Synopsis	/infobank/programs/refmt/whreport2meta/whequipment.for
Description	Subroutine to make a .equipmentused file for whreport2html
Author	Clint Steele 11/3/2006
Opens	open (unit = 91, * access = 'sequential', * form = 'formatted', * status = 'unknown', * name = OutName(1:OutNameLength)//'.equipmentused')
Reads	read (90, '(q,a)', end=99) ALineLength, ALine(1:ALineLength)
Writes	write (91, '(a,t10,a)') * CapID(1:CapIDLength), ALine(1:ALineLength)
Calls	call stringlen (ALine, ALineLength) call stringlen (CapID, CapIDLength) call stringlen (OutName, OutNameLength)

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/whreport2meta/whequipment.doc.html
Page Contact: InfoBank staff
Page Last Modified: Sat Oct 4 00:52:43 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/whreport2meta/whequipment.doc.html Page Contact: InfoBank staff Page Last Modified: Sat Oct 4 00:52:43 PDT 2008 (wcs)