$PBExportHeader$f_getrightsize_h.srf
global type f_getrightsize_h from function_object
end type

forward prototypes
global function decimal f_getrightsize_h (decimal arg_aw, integer arg_ah, decimal arg_bw, decimal arg_bh)
end prototypes

global function decimal f_getrightsize_h (decimal arg_aw, integer arg_ah, decimal arg_bw, decimal arg_bh);Long rslt = 0

IF arg_bw <> 0 THEN
	rslt = arg_bh * (arg_aw / arg_bw)
ELSE
	rslt = arg_ah
END IF

RETURN rslt





end function