RDI_Coords.pl
changeset 34 3b4bcd55e1ea
parent 32 7155adf61d77
child 35 7c394a2d1fc9
--- a/RDI_Coords.pl
+++ b/RDI_Coords.pl
@@ -1,9 +1,9 @@
 #======================================================================
 #                    R D I _ C O O R D S . P L 
 #                    doc: Sun Jan 19 17:57:53 2003
-#                    dlm: Mon Feb 29 18:03:31 2016
+#                    dlm: Thu May 19 10:18:44 2016
 #                    (c) 2003 A.M. Thurnherr
-#                    uE-Info: 44 85 NIL 0 0 72 0 2 4 NIL ofnI
+#                    uE-Info: 167 0 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # RDI Workhorse Coordinate Transformations
@@ -43,6 +43,7 @@
 #	Jan  9, 2016: - added &velEarthToBeam(), &velBeamToEarth()
 #	Feb 29, 2016: - debugged & verified velEarthToInstrument(), velInstrumentToBeam()
 #				  - added velBeamToEarth()
+#	May 19, 2016: - begin implemeting bin interpolation
 
 use strict;
 use POSIX;
@@ -67,7 +68,7 @@
 
 	sub velBeamToInstrument(@)
 	{
-		my($dta,$v1,$v2,$v3,$v4) = @_;
+		my($dta,$ens,$v1,$v2,$v3,$v4) = @_;
 		return undef unless (defined($v1) + defined($v2) +
 					   		 defined($v3) + defined($v4)
 								>= $RDI_Coords::minValidVels);
@@ -163,7 +164,7 @@
 sub velBeamToEarth(@)
 {
 	my($dtaR,$e,@v) = @_;
-	return velInstrumentToEarth($dtaR,$e,velBeamToInstrument($dtaR,@v));
+	return velInstrumentToEarth($dtaR,$e,velBeamToInstrument($dtaR,$e,@v));
 }
 
 #----------------------------------------------------------------------