@read_1d_table @write_1d_table @read_2d_table @write_2d_table @read_3d_table @write_3d_table ;----------------------------------------------------------------- ; ;----------------------------------------------------------------- pro modify_on_flag, rank, nc_filename, on_flag_new ;--- read table (according to rank) case rank of 1: begin read_1d_table, nc_filename, lut, attributes, channels_used, success_flag lut.on_flag = on_flag_new sd_id = ncdf_create(nc_filename,/CLOBBER,/NETCDF4_FORMAT) write_1d_table, sd_id, lut, attributes, channels_used, success_flag, /class_att ncdf_close, sd_id end 2: begin read_2d_table, nc_filename, lut, attributes, channels_used, success_flag lut.on_flag = on_flag_new sd_id = ncdf_create(nc_filename,/CLOBBER,/NETCDF4_FORMAT) write_2d_table, sd_id, lut, attributes, channels_used, success_flag, /class_att ncdf_close, sd_id end 3: begin read_3d_table, nc_filename, lut, attributes, channels_used, success_flag lut.on_flag = on_flag_new sd_id = ncdf_create(nc_filename,/CLOBBER,/NETCDF4_FORMAT) write_3d_table, sd_id, lut, attributes, channels_used, success_flag, /class_att ncdf_close, sd_id end else: begin print, 'unsupported rank ' stop end endcase end