Problema com o resultado de uma Procedure

Olá amigos.

Sou iniciante em firebird e preciso de uma ajuda que pode ser no entanto simples.

Tenho uma procedure que efetua um calculo passando determinados parametros de entrada. Aqui esta ela

Esta é a procedure que eu criei. Firebird 2.0


CREATE PROCEDURE STP_CALC_PESO (
largura integer,
comprimento integer,
gramatura integer)

returns (
result_final decimal(5,5))

as
declare variable result_calc_parametros decimal(5,5);
declare variable result_calc_grama decimal(5,5);

begin

result_final = result_calc_grama * result_calc_parametros;

suspend;
end^


Pois bem, quanto eu executo este comando, ele retarna o seguinte:

comando de execução:

execute procedure STP_CALC_PESO (0.9,0.23,0.060)

resultado:

------ Procedure executing results: ------

RESULT_FINAL =

Ele aparece vazio, alguem podia me ajudar?