added LSL2 stored procedures

LSL2/STPROC/MET_CONV.txt

@@ -0,0 +1,36 @@
+SUBROUTINE MET_CONV(ConvType, DataIo, Parms, ReturnedValue)
+*
+
+$INSERT LOGICAL
+
+equ valid$         to 0    ;* successful
+equ invalid_msg$   to 1    ;* bad data       -   print error message window
+equ invalid_conv$  to 2    ;* bad conversion -          "         "
+equ invalid_nomsg$ to 3    ;* bad but do not print the error message window
+
+Status() = Valid$
+
+DEBUG
+
+BEGIN CASE
+	CASE ConvType = 'ICONV'
+		MetProp = Parms[1,',']
+		BEGIN CASE
+			CASE MetProp = 'THICK'
+			CASE MetProp = 'RES'
+			CASE MetProp = 'CRES'
+		END CASE
+			
+
+	CASE ConvType = 'OCONV'
+		Precision = Parms[1,',']
+		ReturnedValue = OCONV(DataIO,'MD5')
+		ReturnedValue = ICONV(ReturnedValue,'MD':Precision)
+		ReturnedValue = OCONV(ReturnedValue,'MD':Precision)
+
+	CASE Otherwise$
+		Status() = invalid_msg$
+
+END CASE
+
+RETURN