SUBROUTINE AXIS

 AXIS plots a single coordinate axis with numeric labels at any desired location and angle. The routine has to be called separately for the x and y axis. A possible exponent is determined and placed at the end of the axis title in the form of 10**n. In order to leave room for the labelling the axis should be removed at least by 3/4 inch from the edge of the plotter page. The length of the axis should be integer-valued. The (i)th (i=0 to ml-1) axis major tick is labeled with the value, xm+dx*i. For a log axis see LGAXS.

CALL AXIS (x,y,s,n,al,a,xm,dx<,nm,ml<,ic>>)

x,y  (R): location of starting point of the axis
s    (C): character variable containing the axis title
n    (I): number of characters in the string s
          > 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
 (10000's digit)  = 0 : additional optional parameters ignored
                  = 1 : additional optional parameters used
 (100000's digit) = 0 : color list ignored
                  = 1 : color list used
al   (R): length of axis in plot units (real number, integer-valued)
          > 0 : tick marks placed on same side of axis as title
          = 0 : no action (return with no plotting)
          < 0 : tick marks placed on opposite side of axis from title
a    (R): angle at which the coordinate axis is to be drawn
xm   (R): value of first marking on the axis
dx   (R): increment for numeric axis labels
(NOTE: the following parameters are accessed only if the
       magnitude of n is > 10000)
mn   (I): minor tick marks between labeled major ticks
           if not specified, 0 is used
ml   (I): number of labeled major tick marks
           if not specified, int(l) is used
ic   (I): array of color values, if color not enabled,
           current color is unchanged
          ic(1) : color value for axis line and ticks
          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)