Coastal & Marine Geology InfoBank
section3
/infobank/programs/html/makefmeta/section3.for
Subroutine to create section 3 of formal metadata.
write (OutUnit, '(1x)') write (OutUnit, '(1x)')
call head (1, OutUnit, * 'Spatial_Data_Organization_Information:') call section31 (LongID, ShortID, IDLength, * TempUnit, OutUnit) call section32 (OutUnit) call section33 (OutUnit)