Mercurial Mercurial > cgi-bin > ladcp-cgi-bin > hgweb.cgi > ADCP_tools / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
listHdr
changeset 57 5a59411306ba
parent 56 82384f531dba
child 58 78607e2e8add
equal deleted inserted replaced
56:82384f531dba 57:5a59411306ba 
     1 #!/usr/bin/perl
 
     1 #!/usr/bin/perl
 
     2 #======================================================================
 
     2 #======================================================================
 
     3 #                    L I S T H D R 
     3 #                    L I S T H D R 
     4 #                    doc: Sat Jan 18 18:41:49 2003
 
     4 #                    doc: Sat Jan 18 18:41:49 2003
 
     5 #                    dlm: Thu Mar  4 09:42:59 2021
 
     5 #                    dlm: Sat Mar  6 14:19:53 2021
 
     6 #                    (c) 2003 A.M. Thurnherr
 
     6 #                    (c) 2003 A.M. Thurnherr
 
     7 #                    uE-Info: 134 34 NIL 0 0 72 10 2 4 NIL ofnI
 
     7 #                    uE-Info: 208 75 NIL 0 0 72 10 2 4 NIL ofnI
 
     8 #======================================================================
 
     8 #======================================================================
 
     9 
     9 
    10 # Print useful info from the RDI BB header
 
    10 # Print useful info from the RDI BB header
 
    11 
    11 
    12 # HISTORY:
 
    12 # HISTORY:
 
    95 		printf("\tINSTRUMENT\t\t\t= %s #%d\n",$hdr{INSTRUMENT_TYPE},$hdr{SERIAL_NUMBER});
 
    95 		printf("\tINSTRUMENT\t\t\t= %s #%d\n",$hdr{INSTRUMENT_TYPE},$hdr{SERIAL_NUMBER});
 
    96     } else {
 
    96     } else {
 
    97 		printf("\tINSTRUMENT_TYPE\t\t\t= %s\n",$hdr{INSTRUMENT_TYPE});
 
    97 		printf("\tINSTRUMENT_TYPE\t\t\t= %s\n",$hdr{INSTRUMENT_TYPE});
 
    98     }
 
    98     }
 
    99 	printf("\tCPU_SERIAL_NUMBER\t\t= %s\n",$hdr{CPU_SERIAL_NUMBER})
 
    99 	printf("\tCPU_SERIAL_NUMBER\t\t= %s\n",$hdr{CPU_SERIAL_NUMBER})
 
   100 		if ($opt_l && ($hdr{INSTRUMENT_TYPE} ne 'Explorer'));
 
   100 		if ($opt_l && ($hdr{INSTRUMENT_TYPE} ne 'Explorer')
 
       
   101 				   && ($hdr{INSTRUMENT_TYPE} ne 'Signature'));
 
   101 	printf("\tFIRMWARE\t\t\t= %d.%d\n",$hdr{CPU_FW_VER},$hdr{CPU_FW_REV});
 
   102 	printf("\tFIRMWARE\t\t\t= %d.%d\n",$hdr{CPU_FW_VER},$hdr{CPU_FW_REV});
 
   102 	printf("\tBEAM_FREQUENCY\t\t\t= %.1f kHz\n",$hdr{BEAM_FREQUENCY});
 
   103 	printf("\tBEAM_FREQUENCY\t\t\t= %.1f kHz\n",$hdr{BEAM_FREQUENCY});
 
   103 	printf("\tBEAM_ANGLE\t\t\t= %d deg\n",$hdr{BEAM_ANGLE}) if $opt_l;
 
   104 	printf("\tBEAM_ANGLE\t\t\t= %d deg\n",$hdr{BEAM_ANGLE}) if $opt_l;
 
   104 	printf("\tN_BEAMS\t\t\t\t= %d\n",$hdr{N_BEAMS}) if $opt_l;
 
   105 	printf("\tN_BEAMS\t\t\t\t= %d\n",$hdr{N_BEAMS}) if $opt_l;
 
   105 	printf("\tTRANSMIT_LAG_DISTANCE\t\t= %g m\n",$hdr{TRANSMIT_LAG_DISTANCE}) if $opt_l;
 
   106 	printf("\tTRANSMIT_LAG_DISTANCE\t\t= %g m\n",$hdr{TRANSMIT_LAG_DISTANCE}) if $opt_l;
 
   106 	printf("\tLAG_LENGTH\t\t\t= %d\n",$hdr{LAG_LENGTH}) if $opt_l;
 
   107 	printf("\tLAG_LENGTH\t\t\t= %d\n",$hdr{LAG_LENGTH}) if $opt_l;
 
   107 	printf("\tN_DEMODS\t\t\t= %d\n",$hdr{N_DEMODS}) if $opt_l && defined($hdr{N_DEMODS});
 
   108 	printf("\tN_DEMODS\t\t\t= %d\n",$hdr{N_DEMODS}) if $opt_l && defined($hdr{N_DEMODS});
 
   108 	printf("\tSPEED_OF_SOUND\t\t\t= %d m/s [%s]\n",
 
   109 	printf("\tSPEED_OF_SOUND\t\t\t= %d m/s [%s]\n",
 
   109 				$hdr{SPEED_OF_SOUND},
 
   110 				$hdr{SPEED_OF_SOUND},
 
   110 				$dta->{SPEED_OF_SOUND_CALCULATED} ? 'from sensors' : 'from settings');
 
   111 				$hdr{SSPEED_CALCULATED} ? 'using measurements' : 'from settings');
 
   111 	printf("\tAMBIGUITY_VELOCITY\t\t= %g m/s\n",
 
   112 	printf("\tAMBIGUITY_VELOCITY\t\t= %.1f m/s\n",
 
   112 				ambiguity_velocity($hdr{BEAM_FREQUENCY},$hdr{BEAM_ANGLE},$hdr{SPEED_OF_SOUND},$hdr{TRANSMIT_LAG_DISTANCE}));
 
   113 				ambiguity_velocity($hdr{BEAM_FREQUENCY},$hdr{BEAM_ANGLE},$hdr{SPEED_OF_SOUND},$hdr{TRANSMIT_LAG_DISTANCE}))
 
   113 
   114 					unless ($hdr{INSTRUMENT_TYPE} eq 'Signature');
 
   114 	printf("\tSensors\t\t\t\t: ");
 
   115 
   115 	printf("PRESSURE ") 						if ($hdr{PRESSURE_SENSOR_AVAILABLE});
 
   116 	printf("\tEnvironmental Sensors\t\t: ");
 
   116 	printf("CONDUCTIVITY ") 					if ($hdr{CONDUCTIVITY_SENSOR_AVAILABLE});
 
   117 	printf("PRESSURE ") 						if ($hdr{PRESSURE_SENSOR});
 
   117 	printf("TEMPERATURE ") 						if ($hdr{TEMPERATURE_SENSOR_AVAILABLE});
 
   118 	printf("CONDUCTIVITY ") 					if ($hdr{CONDUCTIVITY_SENSOR});
 
   118 	printf("COMPASS ") 							if ($hdr{COMPASS_AVAILABLE});
 
   119 	printf("TEMPERATURE ") 						if ($hdr{TEMPERATURE_SENSOR});
 
   119 	printf("PITCH ") 							if ($hdr{PITCH_SENSOR_AVAILABLE});
 
   120 	printf("COMPASS ") 							if ($hdr{COMPASS});
 
   120 	printf("ROLL ") 							if ($hdr{ROLL_SENSOR_AVAILABLE});
 
   121 	printf("PITCH ") 							if ($hdr{PITCH_SENSOR});
 
       
   122 	printf("ROLL ") 							if ($hdr{ROLL_SENSOR});
 
   121 	print("\n");
 
   123 	print("\n");
 
   122 
   124 
   123 	if ($opt_l) {
 
   125 	if ($opt_l) {
 
   124 		printf("\tFlags\t\t\t\t: ");
 
   126 		printf("\tHardware Flags\t\t\t: ");
 
   125 		printf("XDUCER_HEAD_ATTACHED ") 		if ($hdr{XDUCER_HEAD_ATTACHED});
 
   127 		printf("XDUCER_HEAD_ATTACHED ") 		if ($hdr{XDUCER_HEAD_ATTACHED});
 
   126 		printf("CONVEX_BEAM_PATTERN ")			if ($hdr{CONVEX_BEAM_PATTERN});
 
   128 		printf("CONVEX_BEAM_PATTERN ")			if ($hdr{CONVEX_BEAM_PATTERN});
 
   127 		printf("CONCAVE_BEAM_PATTERN ") 		if ($hdr{CONCAVE_BEAM_PATTERN});
 
   129 		printf("CONCAVE_BEAM_PATTERN ") 		if ($hdr{CONCAVE_BEAM_PATTERN});
 
   128 	    print("\n");
 
   130 	    print("\n");
 
   129 	}
 
   131 	}
 
   130 
   132 
   131 	if ($opt_l) {
 
   133 	if ($opt_l) {
 
   132 		print("    File Format:\n");
 
   134 		print("    File Format:\n");
 
   133 #		printf("\tNUMBER_OF_DATA_TYPES\t\t= %d\n",$hdr{NUMBER_OF_DATA_TYPES});
 
   135 #		printf("\tNUMBER_OF_DATA_TYPES\t\t= %d\n",$hdr{NUMBER_OF_DATA_TYPES});
 
   134 		printf("\tDATA_TYPES\t\t\t= @{$hdr{DATA_TYPES}}\n");
 
   136 		printf("\tDATA_TYPES\t\t\t: @{$hdr{DATA_TYPES}}\n");
 
   135 		printf("\tFIXED_LEADER_BYTES\t\t= %3d bytes\n",$hdr{FIXED_LEADER_BYTES});
 
   137 		printf("\tFIXED_LEADER_BYTES\t\t= %4d bytes\n",$hdr{FIXED_LEADER_BYTES});
 
   136 		printf("\tENSEMBLE_BYTES\t\t\t= %3d bytes\n",$hdr{ENSEMBLE_BYTES});
 
   138 		printf("\tENSEMBLE_BYTES\t\t\t= %4d bytes\n",$hdr{ENSEMBLE_BYTES});
 
   137 		printf("\tHEADER_BYTES\t\t\t= %3d bytes\n",$hdr{HEADER_BYTES});
 
   139 		printf("\tHEADER_BYTES\t\t\t= %4d bytes\n",$hdr{HEADER_BYTES});
 
   138 		printf("\tVARIABLE_LEADER_BYTES\t\t= %3d bytes\n",$hdr{VARIABLE_LEADER_BYTES});
 
   140 		printf("\tVARIABLE_LEADER_BYTES\t\t= %4d bytes\n",$hdr{VARIABLE_LEADER_BYTES});
 
   139 		printf("\tVELOCITY_DATA_BYTES\t\t= %3d bytes\n",$hdr{VELOCITY_DATA_BYTES})
 
   141 		printf("\tVELOCITY_DATA_BYTES\t\t= %4d bytes\n",$hdr{VELOCITY_DATA_BYTES})
 
   140 			if defined($hdr{VELOCITY_DATA_BYTES});
 
   142 			if defined($hdr{VELOCITY_DATA_BYTES});
 
   141 		printf("\tCORRELATION_DATA_BYTES\t\t= %3d bytes\n",$hdr{CORRELATION_DATA_BYTES})
 
   143 		printf("\tCORRELATION_DATA_BYTES\t\t= %4d bytes\n",$hdr{CORRELATION_DATA_BYTES})
 
   142 			if defined($hdr{CORRELATION_DATA_BYTES});
 
   144 			if defined($hdr{CORRELATION_DATA_BYTES});
 
   143 		printf("\tECHO_INTENSITY_DATA_BYTES\t= %3d bytes\n",$hdr{ECHO_INTENSITY_DATA_BYTES})
 
   145 		printf("\tECHO_INTENSITY_DATA_BYTES\t= %4d bytes\n",$hdr{ECHO_INTENSITY_DATA_BYTES})
 
   144 			if defined($hdr{ECHO_INTENSITY_DATA_BYTES});
 
   146 			if defined($hdr{ECHO_INTENSITY_DATA_BYTES});
 
   145 		printf("\tPERCENT_GOOD_DATA_BYTES\t\t= %3d bytes\n",$hdr{PERCENT_GOOD_DATA_BYTES})
 
   147 		printf("\tPERCENT_GOOD_DATA_BYTES\t\t= %4d bytes\n",$hdr{PERCENT_GOOD_DATA_BYTES})
 
   146 			if defined($hdr{PERCENT_GOOD_DATA_BYTES});
 
   148 			if defined($hdr{PERCENT_GOOD_DATA_BYTES});
 
   147 	}
 
   149 	}
 
   148 
   150 
   149 	print("    Coordinate System:\n");
 
   151 	print("    Coordinate System:\n");
 
   150 
   152 
   165 	print("\n");
 
   167 	print("\n");
 
   166 	
   168 	
   167 	
   169 	
   168 	if ($hdr{SPEED_OF_SOUND_CALCULATED}) {
 
   170 	if ($hdr{SPEED_OF_SOUND_CALCULATED}) {
 
   169 		print("    Speed-of-Sound Sensors Used:\n");
 
   171 		print("    Speed-of-Sound Sensors Used:\n");
 
   170 		printf("\tPRESSURE_SENSOR_USED\n")	if ($hdr{PRESSURE_SENSOR_USED});
 
   172 		printf("\tPRESSURE\n")					if ($hdr{SSPEED_USING_PRESS});
 
   171 		printf("\tCOMPASS_USED\n")			if ($hdr{COMPASS_USED});
 
   173 		printf("\tCOMPASS_USED\n")				if ($hdr{COMPASS_USED});
 
   172 		printf("\tPITCH_SENSOR_USED\n")		if ($hdr{PITCH_SENSOR_USED});
 
   174 		printf("\tPITCH_SENSOR_USED\n")			if ($hdr{PITCH_SENSOR_USED});
 
   173 		printf("\tROLL_SENSOR_USED\n")		if ($hdr{ROLL_SENSOR_USED});
 
   175 		printf("\tROLL_SENSOR_USED\n")			if ($hdr{ROLL_SENSOR_USED});
 
   174 		printf("\tCONDUCTIVITY_SENSOR_USED\n")    
   176 		printf("\tCONDUCTIVITY_SENSOR_USED\n")  if ($hdr{CONDUCTIVITY_SENSOR_USED});
 
   175 												if ($hdr{CONDUCTIVITY_SENSOR_USED});
 
   177 		printf("\tTEMPERATURE_SENSOR_USED\n")	if ($hdr{TEMPERATURE_SENSOR_USED});
 
   176 		printf("\tTEMPERATURE_SENSOR_USED\n")
 
       
   177 												if ($hdr{TEMPERATURE_SENSOR_USED});
 
       
   178 		print("\n");
 
   178 		print("\n");
 
   179 	}
 
   179 	}
 
   180 	
   180 	
   181 	
   181 	
   182 	print("    Bin Setup:\n");
 
   182 	print("    Bin Setup:\n");
 
   203 												$hdr{FALSE_TARGET_THRESHOLD})
 
   203 												$hdr{FALSE_TARGET_THRESHOLD})
 
   204 												if defined($hdr{FALSE_TARGET_THRESHOLD});
 
   204 												if defined($hdr{FALSE_TARGET_THRESHOLD});
 
   205 	printf("\tFlags\t\t\t\t: ");
 
   205 	printf("\tFlags\t\t\t\t: ");
 
   206 	printf("NARROW_BANDWIDTH ") 				if ($hdr{NARROW_BANDWIDTH});
 
   206 	printf("NARROW_BANDWIDTH ") 				if ($hdr{NARROW_BANDWIDTH});
 
   207 	printf("WIDE_BANDWIDTH ")					if ($hdr{WIDE_BANDWIDTH});
 
   207 	printf("WIDE_BANDWIDTH ")					if ($hdr{WIDE_BANDWIDTH});
 
   208 	printf("TRANSMIT_POWER_HIGH ")				if ($hdr{TRANSMIT_POWER_HIGH});
 
   208 	printf("TRANSMIT_POWER_MAX ")				if ($hdr{TRANSMIT_POWER_MAX});
 
   209 	print("\n");
 
   209 	print("\n");
 
   210 
   210 
   211 	#----------------------------------------------------------------------
 
   211 	#----------------------------------------------------------------------
 
   212 	# BT code is never executed since BT_MODE is not set any more
 
   212 	# BT code is never executed since BT_MODE is not set any more
 
   213 	#----------------------------------------------------------------------
 
   213 	#----------------------------------------------------------------------
ADCP_tools