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