Coastal & Marine Geology InfoBank
section4
/infobank/programs/html/makefmeta/section4.for
Subroutine to create section 4 of formal metadata.
write (OutUnit, '(1x)') write (OutUnit, '(1x)')
call head (1, OutUnit, * 'Spatial_Reference_Information:') call section41 (OutUnit, LongYear) call section42 (OutUnit)