Expanded Description
| Topic |
Description |
| Name |
section15 |
| Synopsis |
/infobank/programs/html/makefmeta/section15.for |
| Description |
Subroutine to output SPATIAL DOMAIN for formal metadata.
|
| Reads |
read (TempUnit, '(a)') ALine
read (TempUnit, '(a)', end = 99) GazLine
|
| Writes |
write (GazLine, '(255x)')
write (ALine, '(1024x)')
write (OutUnit, 1) '-180.00000'
write (OutUnit, 1) ALine(41:50)
write (OutUnit, 3) ' 180.00000'
write (OutUnit, 3) ALine(30:39)
write (OutUnit, 4) ALine(10:18)
write (OutUnit, 5) ALine(20:28)
|
| Opens |
open (unit = TempUnit,
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.navarea',
* status = 'old',
* access = 'sequential',
* form = 'formatted')
open (unit = TempUnit,
* name = '/infobank/programs/keep/gazette.keep',
* status = 'old',
* access = 'sequential',
* form = 'formatted')
|
| Calls |
call head (2, OutUnit,
* 'Spatial_Domain:')
call head (3, OutUnit,
* 'Bounding_Coordinates:')
call stringlen (ALine, ALineLength)
call stringlen (GazLine, GazLength)
|
|
