Expanded description
| Topic |
Description |
| Name |
makefmetaindent |
| Synopsis |
/infobank/programs/html/makefmetamp/makefmetaindent.for |
| Description |
Subroutine to make MP formal metadata indentation page for DAPS data.
|
| Author |
Clint Steele 2/4/2003
|
| Opens |
open (unit = InUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/makefmetamp.indent.temp')
open (unit = MetaUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.fmeta.faq.html')
open (unit = OutUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.fmeta.indent.html')
|
| Reads |
read (MetaUnit, '(q,a)', end=99)
* ALineLength, ALine(1:ALineLength)
read (MetaUnit, '(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)') ALine(1:ALineLength)
write (OutUnit, '(a)') '<pre>'
write (OutUnit, '(a)') ALine(1:ALineLength)
write (OutUnit, '(a)') '<\pre>'
|
| Calls |
call htmlfoot (OutUnit,
* 'http://walrus.wr.usgs.gov/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.fmeta.indent.html')
|
|
