Coastal & Marine Geology InfoBank
section71
/infobank/programs/html/makefmeta/section71.for
Subroutine to create METADATA DATE of formal metadata.
read (SystemDateTime(9:10), '(i2)') Day
write (OutUnit, 1) SystemDateTime(21:24), * Month, Day