sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/hpenum.ft

   1 C       -+-+-+-+-+ \ e  H P E N U M . F T  \ e -+-+-+-+-+
   2 C
   3 C       E FORMAT NUMBER ROUTINE FOR REAL NUMBERS
   4 C
   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
  11 C
  12 C
  13         REAL MA                 @ MANTISSA OF THE NUMBER TO BE PLOTTED
  14         INTEGER EX              @ EXPONENT OF N
  15 C
  16 C
  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)
  23         END
  24 \1a