Previous: utrrno Up: ../plot79_u.html Next: utrs2

UTRS1

       SUBROUTINE  UTRS1 (XMIN,XMAX, N, XMINP,XMAXP, NP, DIST)
 C$    (Define Linear Scale Limits - Variable Interval)
 C$    Given estimated maximum and minimum values and a  requested
 C$    number of  intervals, adjust  the  extrema to  encompass  a
 C$    number of equal intervals of size DIST, such that they  are
 C$    "nice" values for a plot.
 C$
 C$    The input arguments are:
 C$
 C$    XMIN.......Approximate minimum value.
 C$    XMAX.......Approximate maximum value.
 C$    N..........Approximate number of data intervals required.
 C$
 C$    The output arguments are:
 C$
 C$    XMINP......Adjusted minimum value.
 C$    XMAXP......Adjusted maximum value.
 C$    NP.........Number of data intervals, equal to
 C$               (XMAXP-XMINP)/DIST.
 C$    DIST.......Data interval size.
 C$
 C$    XMIN, XMAX, and N are not modified.
 C$
 C$    VINT(*) is an array of acceptable vales for DIST (times  an
 C$    integer power of 10).
 C$
 C$    SQR(*) is an array of geometric means of adjacent values of
 C$    VINT.  It is used as  break points to determine which  VINT
 C$    value to assign to DIST.
 C$
 C$    Author:  C.R. Lewart, Comm. ACM.  Algorithm 463 (1972).
 C$
 C$    (30-JAN-82)