SUBROUTINE AXIS3

 AXIS3 plots a single axis and its markings at any desired location and angle. Optionally, a possible exponent is determined and placed at the end of the axis title in the form of 10**n. The length of the axis can take any value. The (i)th (i=0 to ml-1) axis major tick is labeled with the value, xm+i*(xx-xm)/le. This version of axis is more flexible than other versions and permits specifying the axis number labeling format. For a log axis see LGAXS.

CALL AXIS3 (x,y,s,n,al,a,xm,xx,t,c,f,ic)

x,y  (R): starting location of the axis
s    (C): character variable containing the axis title
n    (I): number of characters in the string
          > 0 : axis labelling on positive side (anti-clockwise)
          < 0 : axis labelling on negative side (clockwise)
 (100's digit)    = 0 : coordinate line, ticks and labels drawn
                  = 1 : line and ticks only--no labeling
 (1000's digit)   = 0 : numeric labels paralel to axis line
                  = 1 : numeric labels orthogonal to axis line
 (100000's digit) = 0 : color list ignored
                  = 1 : color list used
al   (R): length of axis 
          > 0 : tick marks placed on same side of axis as title
          = 0 : no action
          < 0 : tick marks placed on opposite side of axis from title
a    (R): angle at which the axis is to be drawn 
xm   (R): value of first marking on the axis
xx   (R): value of last marking on the axis
t    (R): number of tick marks 
          specification is coded in the form MMM.mmss where
          MMM is the number of major tick marks ( MMM > 0), mm is
          the number of minor tick marks between major tick marks
          (100 > mm => 0), and ss is the number of subminor tick
          marks between minor tick marks (100 > ss => 0).
          (example 1.0102 produces I_._._i_._._I)
c    (R): size of characters 
          < 0 auto exponent scaling (x10 to power) disabled
          > 0 auto exponent scaling (x10 to power) enabled
f    (R): axis number label format (see NUMBER)
ic   (I): array of color indexes for axis colors
          ic(1) : color value for axis line and ticks
                  (color upon return if no labels)
          ic(2) : color value for numbers on axis
          ic(3) : color value for axis label 
                  (color upon return if no exponent plotted)
          ic(4) : color for auto exponent scale
                  (color upon return if exponent shown)