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