1 C -+-+-+-+-+
\ e H P E N U M . F T
\ e -+-+-+-+-+
3 C E FORMAT NUMBER ROUTINE FOR REAL NUMBERS
5 SUBROUTINE ENUMBR (X,Y,H,N,A,C)
6 REAL X,Y, @ LOWER LEFT CORNER OF STARTING CHARACTER
7 * H, @ HEIGHT OF CHARACTERS
8 * N, @ NUMBER TO BE CONVERTED AND PLOTTED
9 * A @ ANGLE AT WHICH THE TEXT IS TO BE PRINTED
10 INTEGER C @ NUMBER THAT CONTROLS THE FORMAT OF THE MANTISSA
13 REAL MA @ MANTISSA OF THE NUMBER TO BE PLOTTED
14 INTEGER EX @ EXPONENT OF N
17 MA=ALOG10(N) @ TEMP EXPONENT
18 EX=INT(MA+SIGN(.009,MA)) @ ROUND TO INTEGER
19 MA=N/(10.**FLOAT(EX)) @ COMPUTE MANTISSA
20 CALL NUMBER (X,Y,H,MA,A,C)
21 CALL SYMBOL (999.,999.,H,1HE,A,1)
22 CALL NUMBER (999.,999.,H,EX,A,-1)