Skip to content. | Skip to navigation

Personal tools

vnir_rad_rdr.f

! This function is autogenerated by the mkezio program to read ! an AIRS swath of type "L1B_VIS_Science" from file given by the ! file_name argument into a buffer pointed to by the vnir_rad_gran ! argument. The caller owns the buffer. The entire granule ! is read -- every attribute and field, the whole lat/lon/time ! extent. ! ! Errors opening the file, etc. are fatal and cause STOP. ! Problems reading individual attributes or fields are reported to ! the console but do not interrupt program flow. subroutine vnir_rad_rdr(file_name, vnir_rad_gran) IMPLICIT NONE INCLUDE 'vnir_rad_typ.inc' INCLUDE 'vnir_rad_struct.inc' character*(*) file_name RECORD /vnir_rad_gran_t/ vnir_rad_gran integer statn ! HDF-EOS status. 0 for success integer fid ! HDF-EOS file ID integer swid ! HDF-EOS swath ID integer nchar ! Number of characters character*256 swathname ! Name of swath integer nswath ! Number of swaths integer start(10) /0,0,0,0,0, 0,0,0,0,0/ ! start of each dimensions for Swath I/O ! 0 => start with first element integer stride(10)/1,1,1,1,1, 1,1,1,1,1/ ! stride of each dimensions for Swath I/O ! 1 => use every element integer edge(10) ! size of each dimension for swath I/O ! will be set for each individual read integer swopen, swinqswath, swattach integer swrdfld, swrdattr integer swdetach, swclose fid = swopen(file_name, 1) if (fid .eq. -1) then print *, "Error ", fid, " opening file ", file_name stop end if ! Get name of swath(s) nswath = swinqswath(file_name, swathname, nchar) if (nswath .ne. 1) then print *, "swinqswath found ", nswath, " swaths for file ", & file_name, " Need exactly 1" stop end if ! There's exactly one swath. Make sure it is the right one. if (swathname .ne. & 'L1B_VIS_Science') then print *, "Error: bad swath name ", swathname, " in file ", & file_name print *, "Expected L1B_VIS_Science" stop end if ! Attach to (open) the one swath. swid = swattach(fid, swathname) if (swid .eq. -1) then print *, "Failed to attach to swath ", swathname, & " in file ", file_name stop end if ! Attributes statn = swrdattr(swid, "VISDarkAMSUFOVCount", & vnir_rad_gran.VISDarkAMSUFOVCount) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "VISDarkAMSUFOVCount" statn = swrdattr(swid, "VISBrightAMSUFOVCount", & vnir_rad_gran.VISBrightAMSUFOVCount) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "VISBrightAMSUFOVCount" statn = swrdattr(swid, "processing_level", & vnir_rad_gran.processing_level) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "processing_level" statn = swrdattr(swid, "instrument", & vnir_rad_gran.instrument) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "instrument" statn = swrdattr(swid, "DayNightFlag", & vnir_rad_gran.DayNightFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "DayNightFlag" statn = swrdattr(swid, "AutomaticQAFlag", & vnir_rad_gran.AutomaticQAFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "AutomaticQAFlag" statn = swrdattr(swid, "NumTotalData", & vnir_rad_gran.NumTotalData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumTotalData" statn = swrdattr(swid, "NumProcessData", & vnir_rad_gran.NumProcessData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumProcessData" statn = swrdattr(swid, "NumSpecialData", & vnir_rad_gran.NumSpecialData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumSpecialData" statn = swrdattr(swid, "NumBadData", & vnir_rad_gran.NumBadData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumBadData" statn = swrdattr(swid, "NumMissingData", & vnir_rad_gran.NumMissingData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumMissingData" statn = swrdattr(swid, "NumLandSurface", & vnir_rad_gran.NumLandSurface) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumLandSurface" statn = swrdattr(swid, "NumOceanSurface", & vnir_rad_gran.NumOceanSurface) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumOceanSurface" statn = swrdattr(swid, "node_type", & vnir_rad_gran.node_type) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "node_type" statn = swrdattr(swid, "start_year", & vnir_rad_gran.start_year) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_year" statn = swrdattr(swid, "start_month", & vnir_rad_gran.start_month) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_month" statn = swrdattr(swid, "start_day", & vnir_rad_gran.start_day) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_day" statn = swrdattr(swid, "start_hour", & vnir_rad_gran.start_hour) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_hour" statn = swrdattr(swid, "start_minute", & vnir_rad_gran.start_minute) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_minute" statn = swrdattr(swid, "start_sec", & vnir_rad_gran.start_sec) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_sec" statn = swrdattr(swid, "start_orbit", & vnir_rad_gran.start_orbit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_orbit" statn = swrdattr(swid, "end_orbit", & vnir_rad_gran.end_orbit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_orbit" statn = swrdattr(swid, "orbit_path", & vnir_rad_gran.orbit_path) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "orbit_path" statn = swrdattr(swid, "start_orbit_row", & vnir_rad_gran.start_orbit_row) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_orbit_row" statn = swrdattr(swid, "end_orbit_row", & vnir_rad_gran.end_orbit_row) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_orbit_row" statn = swrdattr(swid, "granule_number", & vnir_rad_gran.granule_number) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "granule_number" statn = swrdattr(swid, "num_scansets", & vnir_rad_gran.num_scansets) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scansets" statn = swrdattr(swid, "num_scanlines", & vnir_rad_gran.num_scanlines) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines" statn = swrdattr(swid, "start_Latitude", & vnir_rad_gran.start_Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Latitude" statn = swrdattr(swid, "start_Longitude", & vnir_rad_gran.start_Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Longitude" statn = swrdattr(swid, "start_Time", & vnir_rad_gran.start_Time) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Time" statn = swrdattr(swid, "end_Latitude", & vnir_rad_gran.end_Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Latitude" statn = swrdattr(swid, "end_Longitude", & vnir_rad_gran.end_Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Longitude" statn = swrdattr(swid, "end_Time", & vnir_rad_gran.end_Time) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Time" statn = swrdattr(swid, "eq_x_longitude", & vnir_rad_gran.eq_x_longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "eq_x_longitude" statn = swrdattr(swid, "eq_x_tai", & vnir_rad_gran.eq_x_tai) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "eq_x_tai" statn = swrdattr(swid, "orbitgeoqa", & vnir_rad_gran.orbitgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "orbitgeoqa" statn = swrdattr(swid, "num_satgeoqa", & vnir_rad_gran.num_satgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_satgeoqa" statn = swrdattr(swid, "num_glintgeoqa", & vnir_rad_gran.num_glintgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_glintgeoqa" statn = swrdattr(swid, "num_moongeoqa", & vnir_rad_gran.num_moongeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_moongeoqa" statn = swrdattr(swid, "num_ftptgeoqa", & vnir_rad_gran.num_ftptgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_ftptgeoqa" statn = swrdattr(swid, "num_zengeoqa", & vnir_rad_gran.num_zengeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_zengeoqa" statn = swrdattr(swid, "num_demgeoqa", & vnir_rad_gran.num_demgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_demgeoqa" statn = swrdattr(swid, "num_fpe", & vnir_rad_gran.num_fpe) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_fpe" statn = swrdattr(swid, "LonGranuleCen", & vnir_rad_gran.LonGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LonGranuleCen" statn = swrdattr(swid, "LatGranuleCen", & vnir_rad_gran.LatGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LatGranuleCen" statn = swrdattr(swid, "LocTimeGranuleCen", & vnir_rad_gran.LocTimeGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LocTimeGranuleCen" statn = swrdattr(swid, "VegMapFileName", & vnir_rad_gran.VegMapFileName) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "VegMapFileName" statn = swrdattr(swid, "limit_vis_det_temp.red_lo_limit", & vnir_rad_gran.limit_vis_det_temp.red_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.red_lo_limit" statn = swrdattr(swid, "limit_vis_det_temp.red_lo_cnt", & vnir_rad_gran.limit_vis_det_temp.red_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.red_lo_cnt" statn = swrdattr(swid, "limit_vis_det_temp.to_red_lo", & vnir_rad_gran.limit_vis_det_temp.to_red_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.to_red_lo" statn = swrdattr(swid, "limit_vis_det_temp.yellow_lo_limit", & vnir_rad_gran.limit_vis_det_temp.yellow_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.yellow_lo_limit" statn = swrdattr(swid, "limit_vis_det_temp.yellow_lo_cnt", & vnir_rad_gran.limit_vis_det_temp.yellow_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.yellow_lo_cnt" statn = swrdattr(swid, "limit_vis_det_temp.to_yellow_lo", & vnir_rad_gran.limit_vis_det_temp.to_yellow_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.to_yellow_lo" statn = swrdattr(swid, "limit_vis_det_temp.green_cnt", & vnir_rad_gran.limit_vis_det_temp.green_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.green_cnt" statn = swrdattr(swid, "limit_vis_det_temp.to_green", & vnir_rad_gran.limit_vis_det_temp.to_green) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.to_green" statn = swrdattr(swid, "limit_vis_det_temp.yellow_hi_limit", & vnir_rad_gran.limit_vis_det_temp.yellow_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.yellow_hi_limit" statn = swrdattr(swid, "limit_vis_det_temp.yellow_hi_cnt", & vnir_rad_gran.limit_vis_det_temp.yellow_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.yellow_hi_cnt" statn = swrdattr(swid, "limit_vis_det_temp.to_yellow_hi", & vnir_rad_gran.limit_vis_det_temp.to_yellow_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.to_yellow_hi" statn = swrdattr(swid, "limit_vis_det_temp.red_hi_limit", & vnir_rad_gran.limit_vis_det_temp.red_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.red_hi_limit" statn = swrdattr(swid, "limit_vis_det_temp.red_hi_cnt", & vnir_rad_gran.limit_vis_det_temp.red_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.red_hi_cnt" statn = swrdattr(swid, "limit_vis_det_temp.to_red_hi", & vnir_rad_gran.limit_vis_det_temp.to_red_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.to_red_hi" statn = swrdattr(swid, "limit_vis_det_temp.missing", & vnir_rad_gran.limit_vis_det_temp.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "limit_vis_det_temp.missing" statn = swrdattr(swid, "input_vis_det_temp.min", & vnir_rad_gran.input_vis_det_temp.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.min" statn = swrdattr(swid, "input_vis_det_temp.max", & vnir_rad_gran.input_vis_det_temp.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.max" statn = swrdattr(swid, "input_vis_det_temp.mean", & vnir_rad_gran.input_vis_det_temp.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.mean" statn = swrdattr(swid, "input_vis_det_temp.dev", & vnir_rad_gran.input_vis_det_temp.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.dev" statn = swrdattr(swid, "input_vis_det_temp.num_in", & vnir_rad_gran.input_vis_det_temp.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.num_in" statn = swrdattr(swid, "input_vis_det_temp.num_lo", & vnir_rad_gran.input_vis_det_temp.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.num_lo" statn = swrdattr(swid, "input_vis_det_temp.num_hi", & vnir_rad_gran.input_vis_det_temp.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.num_hi" statn = swrdattr(swid, "input_vis_det_temp.num_bad", & vnir_rad_gran.input_vis_det_temp.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.num_bad" statn = swrdattr(swid, "input_vis_det_temp.range_min", & vnir_rad_gran.input_vis_det_temp.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.range_min" statn = swrdattr(swid, "input_vis_det_temp.range_max", & vnir_rad_gran.input_vis_det_temp.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.range_max" statn = swrdattr(swid, "input_vis_det_temp.missing", & vnir_rad_gran.input_vis_det_temp.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.missing" statn = swrdattr(swid, "input_vis_det_temp.max_track", & vnir_rad_gran.input_vis_det_temp.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.max_track" statn = swrdattr(swid, "input_vis_det_temp.max_xtrack", & vnir_rad_gran.input_vis_det_temp.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.max_xtrack" statn = swrdattr(swid, "input_vis_det_temp.min_track", & vnir_rad_gran.input_vis_det_temp.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.min_track" statn = swrdattr(swid, "input_vis_det_temp.min_xtrack", & vnir_rad_gran.input_vis_det_temp.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_vis_det_temp.min_xtrack" statn = swrdattr(swid, "granules_present", & vnir_rad_gran.granules_present) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "granules_present" statn = swrdattr(swid, "align_1_2_nadir", & vnir_rad_gran.align_1_2_nadir) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "align_1_2_nadir" statn = swrdattr(swid, "align_2_3_nadir", & vnir_rad_gran.align_2_3_nadir) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "align_2_3_nadir" statn = swrdattr(swid, "align_2_4_nadir", & vnir_rad_gran.align_2_4_nadir) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "align_2_4_nadir" statn = swrdattr(swid, "align_1_2_maxang", & vnir_rad_gran.align_1_2_maxang) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "align_1_2_maxang" statn = swrdattr(swid, "align_2_3_maxang", & vnir_rad_gran.align_2_3_maxang) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "align_2_3_maxang" statn = swrdattr(swid, "align_2_4_maxang", & vnir_rad_gran.align_2_4_maxang) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "align_2_4_maxang" statn = swrdattr(swid, "align_vis_airs", & vnir_rad_gran.align_vis_airs) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "align_vis_airs" ! Geolocation fields edge(1) = VNIR_RAD_GEOXTRACK edge(2) = VNIR_RAD_GEOTRACK statn = swrdfld(swid, "Latitude", start, stride, edge, & vnir_rad_gran.Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading field Latitude" statn = swrdfld(swid, "Longitude", start, stride, edge, & vnir_rad_gran.Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading field Longitude" statn = swrdfld(swid, "Time", start, stride, edge, & vnir_rad_gran.Time) if (statn .ne. 0) & print *, "Error ", statn, " reading field Time" ! Data Fields edge(5) = 135 edge(4) = 90 edge(3) = 4 edge(2) = 9 edge(1) = 8 statn = SWrdfld(swid, "radiances", & start, stride, edge, & vnir_rad_gran.radiances) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "radiances" edge(3) = 135 edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset", & start, stride, edge, & vnir_rad_gran.offset) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset" edge(3) = 135 edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_err", & start, stride, edge, & vnir_rad_gran.offset_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_err" edge(3) = 135 edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN", & start, stride, edge, & vnir_rad_gran.NeN) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "PrelimCldQA", & start, stride, edge, & vnir_rad_gran.PrelimCldQA) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrelimCldQA" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "PrelimCldFracVis", & start, stride, edge, & vnir_rad_gran.PrelimCldFracVis) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrelimCldFracVis" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "PrelimCldFracVisErr", & start, stride, edge, & vnir_rad_gran.PrelimCldFracVisErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrelimCldFracVisErr" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "PrelimClrFracVis", & start, stride, edge, & vnir_rad_gran.PrelimClrFracVis) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrelimClrFracVis" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "PrelimClrFracVisErr", & start, stride, edge, & vnir_rad_gran.PrelimClrFracVisErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrelimClrFracVisErr" edge(4) = 135 edge(3) = 90 edge(2) = 9 edge(1) = 8 statn = SWrdfld(swid, "PrelimCldMapVis", & start, stride, edge, & vnir_rad_gran.PrelimCldMapVis) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrelimCldMapVis" edge(4) = 135 edge(3) = 90 edge(2) = 9 edge(1) = 8 statn = SWrdfld(swid, "PrelimNDVI", & start, stride, edge, & vnir_rad_gran.PrelimNDVI) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrelimNDVI" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "bright_index", & start, stride, edge, & vnir_rad_gran.bright_index) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bright_index" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "inhomo_index", & start, stride, edge, & vnir_rad_gran.inhomo_index) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "inhomo_index" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "scanang", & start, stride, edge, & vnir_rad_gran.scanang) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "scanang" edge(1) = 135 statn = SWrdfld(swid, "satheight", & start, stride, edge, & vnir_rad_gran.satheight) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satheight" edge(1) = 135 statn = SWrdfld(swid, "satroll", & start, stride, edge, & vnir_rad_gran.satroll) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satroll" edge(1) = 135 statn = SWrdfld(swid, "satpitch", & start, stride, edge, & vnir_rad_gran.satpitch) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satpitch" edge(1) = 135 statn = SWrdfld(swid, "satyaw", & start, stride, edge, & vnir_rad_gran.satyaw) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satyaw" edge(1) = 135 statn = SWrdfld(swid, "satgeoqa", & start, stride, edge, & vnir_rad_gran.satgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satgeoqa" edge(1) = 135 statn = SWrdfld(swid, "glintgeoqa", & start, stride, edge, & vnir_rad_gran.glintgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintgeoqa" edge(1) = 135 statn = SWrdfld(swid, "moongeoqa", & start, stride, edge, & vnir_rad_gran.moongeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "moongeoqa" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "ftptgeoqa", & start, stride, edge, & vnir_rad_gran.ftptgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "ftptgeoqa" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "zengeoqa", & start, stride, edge, & vnir_rad_gran.zengeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "zengeoqa" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "demgeoqa", & start, stride, edge, & vnir_rad_gran.demgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "demgeoqa" edge(1) = 135 statn = SWrdfld(swid, "nadirTAI", & start, stride, edge, & vnir_rad_gran.nadirTAI) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nadirTAI" edge(1) = 135 statn = SWrdfld(swid, "sat_lat", & start, stride, edge, & vnir_rad_gran.sat_lat) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sat_lat" edge(1) = 135 statn = SWrdfld(swid, "sat_lon", & start, stride, edge, & vnir_rad_gran.sat_lon) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sat_lon" edge(1) = 135 statn = SWrdfld(swid, "scan_node_type", & start, stride, edge, & vnir_rad_gran.scan_node_type) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "scan_node_type" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "satzen", & start, stride, edge, & vnir_rad_gran.satzen) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satzen" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "satazi", & start, stride, edge, & vnir_rad_gran.satazi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satazi" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "solzen", & start, stride, edge, & vnir_rad_gran.solzen) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "solzen" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "solazi", & start, stride, edge, & vnir_rad_gran.solazi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "solazi" edge(1) = 135 statn = SWrdfld(swid, "glintlat", & start, stride, edge, & vnir_rad_gran.glintlat) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintlat" edge(1) = 135 statn = SWrdfld(swid, "glintlon", & start, stride, edge, & vnir_rad_gran.glintlon) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintlon" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "sun_glint_distance", & start, stride, edge, & vnir_rad_gran.sun_glint_distance) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sun_glint_distance" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "topog", & start, stride, edge, & vnir_rad_gran.topog) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "topog" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "topog_err", & start, stride, edge, & vnir_rad_gran.topog_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "topog_err" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "landFrac", & start, stride, edge, & vnir_rad_gran.landFrac) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "landFrac" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "landFrac_err", & start, stride, edge, & vnir_rad_gran.landFrac_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "landFrac_err" edge(1) = 135 statn = SWrdfld(swid, "ViSnsrArrTemp", & start, stride, edge, & vnir_rad_gran.ViSnsrArrTemp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "ViSnsrArrTemp" edge(1) = 135 statn = SWrdfld(swid, "ScHeadTemp1", & start, stride, edge, & vnir_rad_gran.ScHeadTemp1) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "ScHeadTemp1" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.red_lo_limit", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.red_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.red_lo_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.red_lo_cnt", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.red_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.red_lo_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.to_red_lo", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.to_red_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.to_red_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.yellow_lo_limit", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.yellow_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.yellow_lo_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.yellow_lo_cnt", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.yellow_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.yellow_lo_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.to_yellow_lo", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.to_yellow_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.to_yellow_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.green_cnt", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.green_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.green_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.to_green", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.to_green) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.to_green" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.yellow_hi_limit", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.yellow_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.yellow_hi_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.yellow_hi_cnt", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.yellow_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.yellow_hi_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.to_yellow_hi", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.to_yellow_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.to_yellow_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.red_hi_limit", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.red_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.red_hi_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.red_hi_cnt", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.red_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.red_hi_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.to_red_hi", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.to_red_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.to_red_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_scene_counts.missing", & start, stride, edge, & vnir_rad_gran.limit_scene_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_scene_counts.missing" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.red_lo_limit", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.red_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.red_lo_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.red_lo_cnt", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.red_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.red_lo_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.to_red_lo", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.to_red_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.to_red_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.yellow_lo_limit", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.yellow_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.yellow_lo_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.yellow_lo_cnt", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.yellow_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.yellow_lo_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.to_yellow_lo", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.to_yellow_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.to_yellow_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.green_cnt", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.green_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.green_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.to_green", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.to_green) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.to_green" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.yellow_hi_limit", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.yellow_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.yellow_hi_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.yellow_hi_cnt", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.yellow_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.yellow_hi_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.to_yellow_hi", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.to_yellow_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.to_yellow_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.red_hi_limit", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.red_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.red_hi_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.red_hi_cnt", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.red_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.red_hi_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.to_red_hi", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.to_red_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.to_red_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_bb_counts.missing", & start, stride, edge, & vnir_rad_gran.limit_bb_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_bb_counts.missing" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.red_lo_limit", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.red_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.red_lo_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.red_lo_cnt", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.red_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.red_lo_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.to_red_lo", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.to_red_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.to_red_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.yellow_lo_limit", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.yellow_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.yellow_lo_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.yellow_lo_cnt", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.yellow_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.yellow_lo_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.to_yellow_lo", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.to_yellow_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.to_yellow_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.green_cnt", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.green_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.green_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.to_green", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.to_green) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.to_green" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.yellow_hi_limit", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.yellow_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.yellow_hi_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.yellow_hi_cnt", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.yellow_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.yellow_hi_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.to_yellow_hi", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.to_yellow_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.to_yellow_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.red_hi_limit", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.red_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.red_hi_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.red_hi_cnt", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.red_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.red_hi_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.to_red_hi", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.to_red_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.to_red_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_phot_counts.missing", & start, stride, edge, & vnir_rad_gran.limit_phot_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_phot_counts.missing" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.min", & start, stride, edge, & vnir_rad_gran.input_scene_counts.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.max", & start, stride, edge, & vnir_rad_gran.input_scene_counts.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.mean", & start, stride, edge, & vnir_rad_gran.input_scene_counts.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.mean" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.dev", & start, stride, edge, & vnir_rad_gran.input_scene_counts.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.dev" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.num_in", & start, stride, edge, & vnir_rad_gran.input_scene_counts.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.num_in" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.num_lo", & start, stride, edge, & vnir_rad_gran.input_scene_counts.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.num_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.num_hi", & start, stride, edge, & vnir_rad_gran.input_scene_counts.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.num_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.num_bad", & start, stride, edge, & vnir_rad_gran.input_scene_counts.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.num_bad" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.range_min", & start, stride, edge, & vnir_rad_gran.input_scene_counts.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.range_min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.range_max", & start, stride, edge, & vnir_rad_gran.input_scene_counts.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.range_max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.missing", & start, stride, edge, & vnir_rad_gran.input_scene_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.missing" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.max_track", & start, stride, edge, & vnir_rad_gran.input_scene_counts.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.max_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.max_xtrack", & start, stride, edge, & vnir_rad_gran.input_scene_counts.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.max_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.min_track", & start, stride, edge, & vnir_rad_gran.input_scene_counts.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.min_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_scene_counts.min_xtrack", & start, stride, edge, & vnir_rad_gran.input_scene_counts.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.min_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.min", & start, stride, edge, & vnir_rad_gran.input_bb_counts.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.max", & start, stride, edge, & vnir_rad_gran.input_bb_counts.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.mean", & start, stride, edge, & vnir_rad_gran.input_bb_counts.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.mean" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.dev", & start, stride, edge, & vnir_rad_gran.input_bb_counts.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.dev" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.num_in", & start, stride, edge, & vnir_rad_gran.input_bb_counts.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.num_in" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.num_lo", & start, stride, edge, & vnir_rad_gran.input_bb_counts.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.num_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.num_hi", & start, stride, edge, & vnir_rad_gran.input_bb_counts.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.num_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.num_bad", & start, stride, edge, & vnir_rad_gran.input_bb_counts.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.num_bad" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.range_min", & start, stride, edge, & vnir_rad_gran.input_bb_counts.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.range_min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.range_max", & start, stride, edge, & vnir_rad_gran.input_bb_counts.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.range_max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.missing", & start, stride, edge, & vnir_rad_gran.input_bb_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.missing" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.max_track", & start, stride, edge, & vnir_rad_gran.input_bb_counts.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.max_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.max_xtrack", & start, stride, edge, & vnir_rad_gran.input_bb_counts.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.max_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.min_track", & start, stride, edge, & vnir_rad_gran.input_bb_counts.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.min_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_bb_counts.min_xtrack", & start, stride, edge, & vnir_rad_gran.input_bb_counts.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.min_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.min", & start, stride, edge, & vnir_rad_gran.input_phot_counts.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.max", & start, stride, edge, & vnir_rad_gran.input_phot_counts.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.mean", & start, stride, edge, & vnir_rad_gran.input_phot_counts.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.mean" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.dev", & start, stride, edge, & vnir_rad_gran.input_phot_counts.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.dev" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.num_in", & start, stride, edge, & vnir_rad_gran.input_phot_counts.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.num_in" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.num_lo", & start, stride, edge, & vnir_rad_gran.input_phot_counts.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.num_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.num_hi", & start, stride, edge, & vnir_rad_gran.input_phot_counts.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.num_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.num_bad", & start, stride, edge, & vnir_rad_gran.input_phot_counts.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.num_bad" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.range_min", & start, stride, edge, & vnir_rad_gran.input_phot_counts.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.range_min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.range_max", & start, stride, edge, & vnir_rad_gran.input_phot_counts.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.range_max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.missing", & start, stride, edge, & vnir_rad_gran.input_phot_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.missing" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.max_track", & start, stride, edge, & vnir_rad_gran.input_phot_counts.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.max_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.max_xtrack", & start, stride, edge, & vnir_rad_gran.input_phot_counts.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.max_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.min_track", & start, stride, edge, & vnir_rad_gran.input_phot_counts.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.min_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "input_phot_counts.min_xtrack", & start, stride, edge, & vnir_rad_gran.input_phot_counts.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_phot_counts.min_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.red_lo_limit", & start, stride, edge, & vnir_rad_gran.limit_offsets.red_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.red_lo_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.red_lo_cnt", & start, stride, edge, & vnir_rad_gran.limit_offsets.red_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.red_lo_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.to_red_lo", & start, stride, edge, & vnir_rad_gran.limit_offsets.to_red_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.to_red_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.yellow_lo_limit", & start, stride, edge, & vnir_rad_gran.limit_offsets.yellow_lo_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.yellow_lo_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.yellow_lo_cnt", & start, stride, edge, & vnir_rad_gran.limit_offsets.yellow_lo_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.yellow_lo_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.to_yellow_lo", & start, stride, edge, & vnir_rad_gran.limit_offsets.to_yellow_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.to_yellow_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.green_cnt", & start, stride, edge, & vnir_rad_gran.limit_offsets.green_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.green_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.to_green", & start, stride, edge, & vnir_rad_gran.limit_offsets.to_green) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.to_green" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.yellow_hi_limit", & start, stride, edge, & vnir_rad_gran.limit_offsets.yellow_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.yellow_hi_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.yellow_hi_cnt", & start, stride, edge, & vnir_rad_gran.limit_offsets.yellow_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.yellow_hi_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.to_yellow_hi", & start, stride, edge, & vnir_rad_gran.limit_offsets.to_yellow_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.to_yellow_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.red_hi_limit", & start, stride, edge, & vnir_rad_gran.limit_offsets.red_hi_limit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.red_hi_limit" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.red_hi_cnt", & start, stride, edge, & vnir_rad_gran.limit_offsets.red_hi_cnt) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.red_hi_cnt" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.to_red_hi", & start, stride, edge, & vnir_rad_gran.limit_offsets.to_red_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.to_red_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "limit_offsets.missing", & start, stride, edge, & vnir_rad_gran.limit_offsets.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "limit_offsets.missing" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.min", & start, stride, edge, & vnir_rad_gran.offset_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.max", & start, stride, edge, & vnir_rad_gran.offset_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.mean", & start, stride, edge, & vnir_rad_gran.offset_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.mean" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.dev", & start, stride, edge, & vnir_rad_gran.offset_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.dev" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.num", & start, stride, edge, & vnir_rad_gran.offset_stats.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.num" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.num_bad", & start, stride, edge, & vnir_rad_gran.offset_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.num_bad" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.max_track", & start, stride, edge, & vnir_rad_gran.offset_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.max_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.max_xtrack", & start, stride, edge, & vnir_rad_gran.offset_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.max_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.min_track", & start, stride, edge, & vnir_rad_gran.offset_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.min_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_stats.min_xtrack", & start, stride, edge, & vnir_rad_gran.offset_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.min_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.min", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.max", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.mean", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.mean" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.dev", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.dev" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.num", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.num" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.num_bad", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.num_bad" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.max_track", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.max_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.max_xtrack", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.max_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.min_track", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.min_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "offset_unc_stats.min_xtrack", & start, stride, edge, & vnir_rad_gran.offset_unc_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_unc_stats.min_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "gain", & start, stride, edge, & vnir_rad_gran.gain) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "gain_err", & start, stride, edge, & vnir_rad_gran.gain_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_err" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.min", & start, stride, edge, & vnir_rad_gran.rad_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.max", & start, stride, edge, & vnir_rad_gran.rad_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.mean", & start, stride, edge, & vnir_rad_gran.rad_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.mean" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.dev", & start, stride, edge, & vnir_rad_gran.rad_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.dev" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.num", & start, stride, edge, & vnir_rad_gran.rad_stats.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.num" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.num_bad", & start, stride, edge, & vnir_rad_gran.rad_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.num_bad" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.max_track", & start, stride, edge, & vnir_rad_gran.rad_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.max_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.max_xtrack", & start, stride, edge, & vnir_rad_gran.rad_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.max_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.min_track", & start, stride, edge, & vnir_rad_gran.rad_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.min_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "rad_stats.min_xtrack", & start, stride, edge, & vnir_rad_gran.rad_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.min_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.min", & start, stride, edge, & vnir_rad_gran.NeN_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.max", & start, stride, edge, & vnir_rad_gran.NeN_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.mean", & start, stride, edge, & vnir_rad_gran.NeN_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.mean" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.dev", & start, stride, edge, & vnir_rad_gran.NeN_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.dev" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.num_in", & start, stride, edge, & vnir_rad_gran.NeN_stats.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.num_in" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.num_lo", & start, stride, edge, & vnir_rad_gran.NeN_stats.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.num_lo" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.num_hi", & start, stride, edge, & vnir_rad_gran.NeN_stats.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.num_hi" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.num_bad", & start, stride, edge, & vnir_rad_gran.NeN_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.num_bad" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.range_min", & start, stride, edge, & vnir_rad_gran.NeN_stats.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.range_min" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.range_max", & start, stride, edge, & vnir_rad_gran.NeN_stats.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.range_max" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.missing", & start, stride, edge, & vnir_rad_gran.NeN_stats.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.missing" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.max_track", & start, stride, edge, & vnir_rad_gran.NeN_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.max_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.max_xtrack", & start, stride, edge, & vnir_rad_gran.NeN_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.max_xtrack" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.min_track", & start, stride, edge, & vnir_rad_gran.NeN_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.min_track" edge(2) = 4 edge(1) = 9 statn = SWrdfld(swid, "NeN_stats.min_xtrack", & start, stride, edge, & vnir_rad_gran.NeN_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN_stats.min_xtrack" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "state", & start, stride, edge, & vnir_rad_gran.state) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "state" edge(1) = 4 statn = SWrdfld(swid, "xtrack_err", & start, stride, edge, & vnir_rad_gran.xtrack_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "xtrack_err" edge(1) = 4 statn = SWrdfld(swid, "track_err", & start, stride, edge, & vnir_rad_gran.track_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "track_err" edge(1) = 135 statn = SWrdfld(swid, "OpMode", & start, stride, edge, & vnir_rad_gran.OpMode) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "OpMode" edge(4) = 135 edge(3) = 90 edge(2) = 4 edge(1) = 4 statn = SWrdfld(swid, "cornerlats", & start, stride, edge, & vnir_rad_gran.cornerlats) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cornerlats" edge(4) = 135 edge(3) = 90 edge(2) = 4 edge(1) = 4 statn = SWrdfld(swid, "cornerlons", & start, stride, edge, & vnir_rad_gran.cornerlons) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cornerlons" ! Final clean-up statn = swdetach(swid) if (statn .ne. 0) & print *, "Error detaching from input file ", file_name statn = swclose(fid) if (statn .ne. 0) & print *, "Error closing input file ", file_name return end
Document Actions
NASA Logo - nasa.gov
NASA Privacy Policy and Important Notices
Last updated: Sep 09, 2009 02:26 PM ET
Top