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