Source Code Description: Subroutine NUMBER

NUMBER

PURPOSE: to convert alpha-numeric numbers to floating or fixed point numbers.

METHOD: After initially determining the sign of the number, the DO LOOP ending at statement 6 scans each character beginning at N1. The DO LOOP ending at statement 3 terminates the outer DO LOOP if the character being compared is not an alpha-numeric number. The DO LOOP ending at statement 5 converts the alpha-numeric number to an actual number. Below statement 7, the multiplier correction is applied to the floating point number before returning to the calling program.

CALLED BY:

• READD

CALLS TO: NONE