execute block returns (Calcs double precision) as

  declare function Func(V integer) returns integer as
  begin
    -- много кода
  end

  declare function Calc(P integer) returns integer as
  begin
    return Func(P);
    -- много кода и много вызовов Func
  end

begin
  Calcs = Calc(1);
  suspend;
  --  ещё много вызовов Calc
end

execute block returns (Calcs integer) as

  declare function Calc(P integer) returns integer as

    declare function Func(V integer) returns integer as
    begin
      -- много кода
    end

  begin
    return Func(P);
    -- много кода и много вызовов Func
  end

begin
  Calcs = Calc(1);
  suspend;
  --  ещё много вызовов Calc
end