next up previous contents index
Next: SUBROUTINE NUM3D Up: INIT3D Routines Previous: SUBROUTINE INIT3D

SUBROUTINE AXIS3D

       

 AXIS3D plots an axis and its markings in 3-d. In order to draw a coordinate system, the routine has to be called separately for the x, y, and z axis. A possible exponent is determined and placed behind the axis label in the form of 10**n in the auto scaling mode (see AXIS3). AXIS3D calls PLOT3D, NUM3D, and SYM3D. See also AXIS3.

CALL AXIS3D (x,y,x,a,b,g,s,n,ale,xm,xx,t,c,f)

x,y,z (R): location of start of axis 
a,b   (R): angles from the x-y, x-z planes (in deg) of the ray
           from (x,y,z) along the character string 
g     (R): angle of rotation about the ray defined by a,b (deg)
s     (C): 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 : axis is labeled
               = 1 : line and ticks only--no labeling
ale   (R): length of axis 
           < 0 : tick marks placed on same side of axis as title
           = 0 : no action
           < 0 : tick marks placed opposite side of axis from title
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): number label format (see NUMBER)



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