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