DEXP: PROCEDURE OPTIONS(MAIN);

    %INCLUDE MTH$DEXP;

    DECLARE (OPERAND,RESULT) FLOAT(53);

    OPERAND = 3.456;
    RESULT = MTH$DEXP(OPERAND);
    PUT EDIT ('MTH$DEXP of ', OPERAND, ' is ', RESULT)(A(12),F(5,3),A(4),F(20,15));

END DEXP;