Expanded Description
| Topic |
Description |
| Name |
section12 |
| Synopsis |
/infobank/programs/html/makefmeta/section12.for |
| Description |
Subroutine to output DESCRIPTION for formal metadata.
|
| Reads |
read (MetaUnit, '(q,a)', end = 106)
* ALineLength, ALine(1:ALineLength)
read (MetaUnit, '(a1)', end = 198) ALine(1:1)
read (MetaUnit, '(q,a)', end = 107)
* ALineLength, ALine(1:ALineLength)
read (TempUnit, '(a)', end = 99) ALine
read (TempUnit, '(a)', end = 99) TempLine
read (MetaUnit, '(q,a)', end = 207)
* ALineLength, ALine(1:ALineLength)
read (MetaUnit, '(q,a)', end = 307)
* ALineLength, ALine(1:ALineLength)
read (MetaUnit, '(q,a)', end = 407)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (Sentence, '(4096x)')
write (Sentence(SentenceLength+1:), '(a)') ', '
write (Sentence(SentenceLength+1:), '(a)')
* ALine(10:ALineLength)
write (Sentence(SentenceLength+1:), '(a)') '.'
write (Sentence(SentenceLength+1:), '(a)')
* ' Chief Scientist:'
write (Sentence(SentenceLength+1:), '(a)')
* ' Chief Scientists:'
write (Sentence(SentenceLength+1:), '(a)') ', '
write (Sentence(SentenceLength+1:), '(a)')
* ALine(10:ALineLength)
write (Sentence(SentenceLength+1:), '(a)') '.'
write (Paragraph, '(4096x)')
write (Paragraph(1:), '(a)') 'Abstract: '//
* Sentence(1:SentenceLength)//
* Title(1:TitleLength)//','
write (Paragraph, '(a)') 'Abstract: '//
* Title(1:TitleLength)//','
write (OutUnit, '(8x,a)') Paragraph(OutStart:OutEnd)
write (AbstractUnit, '(a)') Paragraph(11:OutEnd)
write (OutUnit, '(18x,a)') Paragraph(OutStart:OutEnd)
write (AbstractUnit, '(a)')
* Paragraph(OutStart:OutStart+AbEnd-1)
write (OutUnit, '(18x,a)')
* 'http://walrus.wr.usgs.gov/infobank/'//
* ShortID(1:1)//'/'//ShortID(1:IDLength)//'/html/'//
* LongID(1:IDLength+3)//'.meta.html.'
write (OutUnit, 4)
write (TempLine, '(1024x)')
write (ALine, '(1024x)')
write (OutUnit, '(1x)')
write (OutUnit, '(t37,a)')
* TempLine(1:TempLineLength)
write (OutUnit, 7)
write (ALine, '(1024x)')
write (OutUnit, '(/,t35,a)')
* 'Equipment Used -'
write (OutUnit, '(/,t35,a)')
* ALine(10:ALineLength)
write (OutUnit, '(/,t35,a)')
* ALine(10:ALineLength)
write (ALine, '(1024x)')
write (OutUnit, '(/,t35,a)')
* 'Notes -'
write (OutUnit, '(/,t35,a)')
* ALine(10:ALineLength)
write (OutUnit, '(/,t35,a)')
* ALine(1:ALineLength)
write (ALine, '(1024x)')
write (OutUnit, '(/,t35,a)')
* 'Publications -'
write (OutUnit, '(/,t35,a)')
* ALine(1:ALineLength)
write (OutUnit, '(/,t35,a)')
* ALine(1:ALineLength)
write (OutUnit, 227)
|
| Opens |
open (unit = AbstractUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.abstract')
open (unit = MetaUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.organization')
open (unit = MetaUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.chief')
open (unit = TempUnit,
* file = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.overview',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = MetaUnit,
* file = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.equipmentused',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = MetaUnit,
* file = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.notes',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = MetaUnit,
* file = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.publications',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
|
| Calls |
call head (2, OutUnit,
* 'Description:')
call titleline (LongID, CapLongID, ShortID, IDLength,
* TempUnit, OutUnit,
* OverviewExists, Aka, AkaExists,
* Title, TitleLength,
* TodaysDate, StartingDate, EndingDate, 'section12',
* Currency)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Sentence, SentenceLength)
call stringlen (Paragraph, ParagraphLength)
call stringlen (Paragraph(OutStart:OutEnd), AbEnd)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call stringlen (TempLine, TempLineLength)
call stringlen (TempLine, TempLineLength)
|
|
