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