new file mode 100644
--- /dev/null
+++ b/libDeines99.pl
@@ -0,0 +1,22 @@
+#======================================================================
+#                    L I B D E I N E S 9 9 . P L 
+#                    doc: Wed Apr 15 11:57:01 2020
+#                    dlm: Wed Apr 15 11:57:01 2020
+#                    (c) 2020 A.M. Thurnherr
+#                    uE-Info: 14 2 NIL 0 0 70 0 2 4 NIL ofnI
+#======================================================================
+
+sub Sv($$$$$)		  
+{
+	my($temp,$pulse_length,$noise_level,$range,$echo_amplitude) = @_;
+	my($C)		= -143; 				# RDI WHM300 (from Deines)
+	my($Ldbm)	= 10 * log10($pulse_length);
+	my($PdbW)	= 14.0;
+	my($alpha)	= 0.069;
+	my($Kc) 	= 0.45;
+		    
+	return $C + 10*log10(($temp+273)*$range**2) - $Ldbm - $PdbW
+			  + 2*$alpha*$range + $Kc*($echo_amplitude-$noise_level);
+}
+
+1;