function reconvert,image, data_type

IF ((data_type GT 0) AND (data_type LT 7)) THEN BEGIN
CASE (data_type) OF
    0: RETURN,image
    1: RETURN,byte(image)
    2: RETURN,fix(image)
    3: RETURN,long(image)
    4: RETURN,float(image)
    5: RETURN,double(image)
    6: RETURN,complex(image)
    7: RETURN,string(image)
ENDCASE
ENDIF ELSE return,0

END