1*DECK SDSCL
2      SUBROUTINE SDSCL (HMAX, N, NQ, RMAX, H, RC, RH, YH)
3C***BEGIN PROLOGUE  SDSCL
4C***SUBSIDIARY
5C***PURPOSE  Subroutine SDSCL rescales the YH array whenever the step
6C            size is changed.
7C***LIBRARY   SLATEC (SDRIVE)
8C***TYPE      SINGLE PRECISION (SDSCL-S, DDSCL-D, CDSCL-C)
9C***AUTHOR  Kahaner, D. K., (NIST)
10C             National Institute of Standards and Technology
11C             Gaithersburg, MD  20899
12C           Sutherland, C. D., (LANL)
13C             Mail Stop D466
14C             Los Alamos National Laboratory
15C             Los Alamos, NM  87545
16C***ROUTINES CALLED  (NONE)
17C***REVISION HISTORY  (YYMMDD)
18C   790601  DATE WRITTEN
19C   900329  Initial submission to SLATEC.
20C***END PROLOGUE  SDSCL
21      INTEGER I, J, N, NQ
22      REAL H, HMAX, RC, RH, RMAX, R1, YH(N,*)
23C***FIRST EXECUTABLE STATEMENT  SDSCL
24      IF (H .LT. 1.E0) THEN
25        RH = MIN(ABS(H)*RH, ABS(H)*RMAX, HMAX)/ABS(H)
26      ELSE
27        RH = MIN(RH, RMAX, HMAX/ABS(H))
28      END IF
29      R1 = 1.E0
30      DO 10 J = 1,NQ
31        R1 = R1*RH
32        DO 10 I = 1,N
33 10       YH(I,J+1) = YH(I,J+1)*R1
34      H = H*RH
35      RC = RC*RH
36      RETURN
37      END
38