Coastal & Marine Geology InfoBank
browse
/infobank/programs/html/makefmeta/browse.for
Subroutine to construct BROWSE GRAPHIC formal metadata.
write (OutUnit, '(1x)') write (OutUnit, 154) PathName, LongID, DataType write (OutUnit, 155) DataText, CapLongID
call head (2, OutUnit, * 'Browse_Graphic:') call value (3, OutUnit, * 'Browse_Graphic_File_Type: ', * 'GIF')