Expanded Description
| Topic |
Description |
| Name |
section13 |
| Synopsis |
/infobank/programs/html/makefmeta/section13.for |
| Description |
Subroutine to output TIME PERIOD OF CONTENT formal metadata.
|
| Reads |
read (TempUnit, '(a)') ALine
read (ALine(16:19), '(i4)') LongYear
read (ALine(40:43), '(i4)') LongYear
read (ShortID(3:4), '(i2)') ShortYear
read (ShortID(4:5), '(i2)') ShortYear
|
| Writes |
write (TempLine, '(1024x)')
write (TempLine, '(i4.4,a,a)')
* LongYear, ALine(10:11), ALine(13:14)
write (TempLine, '(1024x)')
write (TempLine, '(i4.4,a,a)')
* LongYear, ALine(34:35), ALine(37:38)
write (TempLine, '(1024x)')
write (TempLine, '(i4.4)') LongYear
write (OutUnit, '(1x)')
|
| Opens |
open (unit = TempUnit,
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.dates',
* status = 'old',
* access = 'sequential',
* form = 'formatted')
|
| Calls |
call head (2, OutUnit,
* 'Time_Period_of_Content:')
call head (3, OutUnit,
* 'Time_Period_Information:')
call stringlen (ALine, ALineLength)
call stringlen (TempLine, TempLineLength)
call head (4, OutUnit,
* 'Range_of_Dates/Times:')
call value (5, OutUnit,
* 'Beginning_Date: ',
* TempLine(1:TempLineLength))
call stringlen (TempLine, TempLineLength)
call value (5, OutUnit,
* 'Ending_Date: ',
* TempLine(1:TempLineLength))
call getcentury (ShortYear, Century)
call getcentury (ShortYear, Century)
call head (4, OutUnit,
* 'Single_Date/Time:')
call stringlen (TempLine, TempLineLength)
call value (5, OutUnit,
* 'Calendar_Date: ',
* TempLine(1:TempLineLength))
call value (3, OutUnit,
* 'Currentness_Reference: ',
* 'ground condition')
|
|
