function deci_str,str
;
;	DECI_STR returns the value true if the string contains the letter
;	'e' or a decimal point followed by non-zero numbers.
;
;					-EMH 23-June-1988
;
if strpos(strupcase(str),'E') gt (-1) then return,1
deci_loc=strpos(str,'.')
if deci_loc gt (-1) then return,1 else return,0
end