USGS InfoBank program -- themekeywords

themekeywords

  Subroutine to generate formal metadata theme_keyword entries

  based on data directories and equipment.
       

  Clint Steele     12/4/97


    

      write (OutUnit, 2) 'Marine Geology'
          write (OutUnit, 2) 'Marine Gravity Field'
          write (OutUnit, 2) 'Marine Magnetic Field'
          write (OutUnit, 2) 'Magnetic Anomalies'
          write (OutUnit, 2) 'Bathymetry'
          write (OutUnit, 2) 'Water Depth'
          write (OutUnit, 2) 'Seafloor Topography'
          write (OutUnit, 2) 'Seafloor Samples'
          write (OutUnit, 2) 'Marine Samples'
          write (OutUnit, 2) 'Seafloor Sediments'
          write (OutUnit, 2) 'Marine Sediments'
          write (OutUnit, 2) 'Marine Seismic'
          write (OutUnit, 2) 'Marine Metering'
          write (OutUnit, 2) 'Marine Video'

      open (unit   = OutUnit,
     *      file   = '/infobank/tmp/theme_keywords.temp',
     *      form   = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown')
          open (unit   = OutUnit,
     *          file   = '/infobank/tmp/theme_keywords.temp',
     *          form   = 'formatted',
     *          access = 'sequential',
     *          status = 'unknown')
          open (unit   = OutUnit,
     *          file   = '/infobank/tmp/theme_keywords.temp',
     *          form   = 'formatted',
     *          access = 'sequential',
     *          status = 'unknown')
          open (unit   = OutUnit,
     *          file   = '/infobank/tmp/theme_keywords.temp',
     *          form   = 'formatted',
     *          access = 'sequential',
     *          status = 'unknown')
          open (unit   = OutUnit,
     *          file   = '/infobank/tmp/theme_keywords.temp',
     *          form   = 'formatted',
     *          access = 'sequential',
     *          status = 'unknown')
          open (unit   = OutUnit,
     *          file   = '/infobank/tmp/theme_keywords.temp',
     *          form   = 'formatted',
     *          access = 'sequential',
     *          status = 'unknown')
          open (unit   = OutUnit,
     *          file   = '/infobank/tmp/theme_keywords.temp',
     *          form   = 'formatted',
     *          access = 'sequential',
     *          status = 'unknown')
          open (unit   = OutUnit,
     *          file   = '/infobank/tmp/theme_keywords.temp',
     *          form   = 'formatted',
     *          access = 'sequential',
     *          status = 'unknown')

      call stringlen (ID, IDLength)
      call saveold (OutUnit, '/infobank/'//
     *              ID(1:1)//'/'//
     *              ID(1:IDLength)//'/meta/'//
     *              LongID(1:IDLength+3)//'.theme_keywords')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'grav',
     *                  'STATION GRAVITY', 'Gravity Station')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'grav',
     *                  'LAND TIE', 'Land Tie')
          call saveold (OutUnit, '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/grav/'//
     *                  LongID(1:IDLength+3)//'.theme_grav_keywords')
          call saveold (OutUnit, '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/mag/'//
     *                  LongID(1:IDLength+3)//'.theme_mag_keywords')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'bath',
     *                  '3.5KH BATHYMETRY', '3.5 Khz Bathymetry')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'bath',
     *                  '4.5KHZ BATHYMETRY', '4.5 Khz Bathymetry')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'bath',
     *                  '7 KHZ BATHYMETRY', '7 Khz Bathymetry')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'bath',
     *                  '10 KHZ BATHYMETRY', '10 Khz Bathymetry')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'bath',
     *                  '12KH BATHYMETRY', '12 Khz Bathymetry')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'bath',
     *                  '48KH BATHYMETRY', '48 Khz Bathymetry')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'bath',
     *                  '200KH BATHYMETRY', '200 Khz Bathymetry')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'bath',
     *                  '200 + 7KH BATHYM', '200 Khz Bathymetry')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'bath',
     *                  '200 + 7KH BATHYM', '7 Khz Bathymetry')
          call saveold (OutUnit, '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/bath/'//
     *                  LongID(1:IDLength+3)//'.theme_bath_keywords')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'NET', 'Net')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'BEAM TRAWL', 'Beam Trawl')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'CRAB TRAP (POT)', 'Crab Trap (Pot)')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'FISH TRAP', 'Fish Trap')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'OTTER TRAWL', 'Otter Trawl')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'PLANKTON NET', 'Plankton Net')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'SEAFLOOR CORE', 'Seafloor Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'ALPINE CORE', 'Alpine Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'BOOMERANG CORE', 'Boomerang Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'BOX(SHIP) CORE', 'Box (Ship) Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'DART CORE', 'Dart Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'DRILL CORE', 'Drill Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'GRAVITY CORE', 'Gravity Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'HAND BOX CORE', 'Hand Box Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'HYDROPLAST CORE', 'Hydroplast Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'PHLEGER CORE', 'Phleger Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'PISTON CORE', 'Piston Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'VIBRALIFT (BULK SAMPLE VIBRACORE)', 
     *                  'Vibralift (Bulk Sample Vibracore)')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'VIBRATING CORE', 'Vibrating Core')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'SEDIMENT TRAP', 'Sediment Trap')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'SEAFLOOR DREDGE', 'Seafloor Dredge')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'CHAIN DREDGE', 'Chain Dredge')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'PIPE DREDGE', 'Pipe Dredge')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'SEAFLOOR GRAB', 'Seafloor Grab')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'FREEFALL GRAB', 'Freefall Grab')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'HAND SAMPLE GRAB', 'Hand Sample Grab')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'SHIPECK GRAB', 'Shipeck Grab')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'SMITH/MACINTRYE GRAB', 'Smith/Macintrye Grab')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'SOUTAR GRAB', 'Soutar Grab')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'VAN VEEN GRAB', 'Van Veen Grab')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'WATER SAMPLING DEVICE', 
     *                  'Water Sampling Device')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'NISKEN BOTTLE', 'Nisken Bottle')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'VAN DORN BOTTLE', 'Van Dorn Bottle')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'samples',
     *                  'WATER BUCKET', 'Water Bucket')
          call saveold (OutUnit, '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/samp/'//
     *                  LongID(1:IDLength+3)//'.theme_samp_keywords')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'BURG SEISMIC', 'Burg Seismic')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'BURG AIRGUN', 'Burg Airgun')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'BURG AIRGN/SPRKR', 'Burg Airgun / Sparker')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'BURG SPARKER', 'Burg Sparker')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'HIGH RESOLUTION ACOUSTICS', 
     *                  'High Resolution Acoustics')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'BOOMER', 'Boomer')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'DATASONICS BUBBLE PULSER SEISMIC SYSTEM', 
     *                  'Datasonics Bubble Pulser Seismic System')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'DEL NORTE', 'Del Norte')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'GLORIA SIDE SCAN', 'GLORIA Side Scan')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'HP SSS/ORE/PROFILER', 
     *                  'HP Sidescan Sonar / Ore / Profiler')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'HUNTEC DEEP TOW SIDE SCAN/BOOMER', 
     *                  'Huntec Deep Tow Side Scan / Boomer')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'ORE GEOPULSE SEISMIC PROFILER', 
     *                  'ORE Geopulse Seismic Profiler')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'MINISPARKER', 'Minisparker')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'SIDE SCAN SONAR', 'Side Scan Sonar')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'UNIBOOM', 'Uniboom')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'UNIBOOM/MINSPRKR', 'Uniboom / Minsparker')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'MULTI-CHANNEL SEISMIC', 
     *                  'Multi-Channel Seismic')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  '2 CHANNEL AIRGUN', '2-Channel Airgun')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  '2 CHANNEL WATERGUN', '2-Channel Watergun')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  '24 CHANL SEISMIC', '24-Channel Seismic')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  '48 CHANL SEISMIC', '48-Channel Seismic')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'SINGLE CHANNEL SEISMIC', 
     *                  'Single Channel Seismic')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'AIRGUN', 'Airgun')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'AIRGUN / ARCER', 'Airgun / Arcer')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'AIRGUN MONITOR', 'Airgun Monitor')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'SPARKER', 'Sparker')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'WATERGUN', 'Watergun')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'WIDE ANGLE REFLECTION/REFRACTION', 
     *                  'Wide Angle Reflection / Refraction')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'BOTTOM SEISMOMTR', 'Bottom Seismometer')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'EXPLOSIVES', 'Explosives')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'seis',
     *                  'SONOBUOY', 'Sonobuoy')
          call saveold (OutUnit, '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/seis/'//
     *                  LongID(1:IDLength+3)//'.theme_seis_keywords')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'CURRENT METERS', 'Current Meters')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'AND CURRENT METR', 'Andera Current Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'BEN CURRENT METR', 'Benthic Current Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'GEO CURRENT METR', 'Geo Current Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'HYD CURRENT METR', 'Hydrologic Current Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'MAR CURRENT METR', 'Marine Current Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'VCTR AVG CUR MTR', 
     *                  'Vector Averaging Current Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'VCTR MSR CUR MTR', 
     *                  'Vector Measuring Current Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'ENGINEERING PROPERTIES', 
     *                  'Engineering Properties')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'PENETROMETER', 'Penetrometer')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'HEAT FLOW', 'Heat Flow')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'HEAT FLOW GAUGE', 'Heat Flow Gauge')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'INSTRUMENT PACKAGES', 'Instrument Packages')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'BECKMAN STC', 'Beckman Stc')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'CTD METER', 'CTD Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'CTD METER', 
     *                'Conductivity / Temperature / Depth (CDT) Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'GEOPROBE', 'Geoprobe')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'INSTRMT. MOORING', 'Instrument Mooring')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'PRESSURE SENSOR', 'Pressure Sensor')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'WAVE PRES SENSOR', 'Wave Pressure Sensor')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'TEMPERATURE/SALINITY/CONDUCTANCE GAUGES', 
     *                  'Temperature / Salinity / Conductance Gauges')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'TEMPRATURE GAUGE', 'Temprature Gauge')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'TEMP/SALINOMETER', 'Temperature / Salinometer')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'EXP. BATHY THERMOGRAPH', 
     *                  'Experimental Bathymetry Thermograph')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'TIDE GAUGES OR METERS', 
     *                  'Tide Gauges or Meters')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'ANDERA TIDE METR', 'Andera Tide Meter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'TURBIDITY METERS', 'Turbidity Meters')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'BOTTOM DRIFTER', 'Bottom Drifter')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'NEPHELOMETER', 'Nephelometer')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'meters',
     *                  'TRANSMISSOMETER', 'Transmissometer')
          call saveold (OutUnit, '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/meter/'//
     *                  LongID(1:IDLength+3)//'.theme_meters_keywords')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'cameras',
     *                  'UNDERWATER CAMERA', 'Underwater Camera')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'cameras',
     *                  'SEAFLOOR CAMERA', 'Seafloor Camera')
          call gettheme (OutUnit, 
     *                   ID, LongID, IDLength, 'cameras',
     *                  'TELEVISION', 'Television')
          call saveold (OutUnit, '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/cam/'//
     *                  LongID(1:IDLength+3)//'.theme_cameras_keywords')