next up previous contents index
Next: SUBROUTINE PFACTOR Up: Description of Plotting Previous: SUBROUTINE NEWPEN

SUBROUTINE NUMBER

 NUMBER plots a floating point number in a specified format using a fortran format-like specification. It also permits free-format and exponential notation formats. The number is converted to an  ASCII string plotted at a specified location and baseline angle using SYMBOL. The following table illustrates the dependence of the output string on the type (integer/real) and value of the parameter e. The table shows the output for an input f=103.356 and i=-1.

         Output    integer e   real e
        --------   ---------- --------
         103          -1       1003.0
         103.          0        0.0
         103.          0        3.00
         x103.36                7.02
         103.36        2        0.02
         103.356000    6       10.06
         xx103                 1005.0
         **                    1002.0 (format overflow)
         x103.4                 6.01
         *.****                 6.04  (format overflow)
         .103E+02              -8.03
         *.***                 -5.03  (format overflow)

note: x=space, * indicates overflow

CALL NUMBER (x,y,h,f,a,e,i)

x,y   (R): location position (x,y returned if i=-2 or -3)
           If x=999 then x is continued from lower right of
           prior call to SYMBOL or NUMBER.  If y=999 then
           y is continued.
h     (R): size (height) of digits
f     (R): floating point number to be plotted
a     (R): baseline angle at which to plot (normally zero)
e     (R): output format (e=n.j) 
           (similar to the FORTAN format statement Fn.j)
           n is the total number of characters (max 18) 
           including the decimal point and j is a two digit number
           specifying the number of digits to the right of 
           the decimal point (e.g., to get F6.4 use e=6.04)
             if e<0 number is plotted in exponential notation (En.j)
             if e=-1.0 then f is plotted free format exponential
             if e=1.0 then f is plotted free format real
             if e=0.0 then f is plotted as free format integer
             if n = 0 then f is plotted with j digits to
                      the right of the decimal point
             f will be plotted as a formatted m digit integer
               [i.e., (Im)] when e=1000+m.
i     (I): centering flag (see SYMBOL)
           = -3 : same as -2 but string is not plotted and
                  last position is not affected
           = -2 : same as -1 but returns end point in x,y
           = -1 : (x,y) is lower left corner of plotted array
           =  0 : (x,y) is center of plotted array
           =  1 : (x,y) is lower right corner of plotted array
           =  2 : no action



David Long
Wed Jun 12 10:34:11 MDT 1996