ckscl.f
SUBROUTINE CKSCL (ZR, FNU, N, Y, NZ, RZ, ASCLE, TOL, ELIM)
C***BEGIN PROLOGUE CKSCL
....
....
Warning: this routine is not intended to be user-callable.
....
....
C***SUBSIDIARY
C***PURPOSE Subsidiary to CBKNU, CUNK1 and CUNK2
C***LIBRARY SLATEC
C***TYPE ALL (CKSCL-A, ZKSCL-A)
C***AUTHOR Amos, D. E., (SNL)
C***DESCRIPTION
C
C SET K FUNCTIONS TO ZERO ON UNDERFLOW, CONTINUE RECURRENCE
C ON SCALED FUNCTIONS UNTIL TWO MEMBERS COME ON SCALE, THEN
C RETURN WITH MIN(NZ+2,N) VALUES SCALED BY 1/TOL.
C
C***SEE ALSO CBKNU, CUNK1, CUNK2
C***ROUTINES CALLED CUCHK
C***REVISION HISTORY (YYMMDD)
C ?????? DATE WRITTEN
C 910415 Prologue converted to Version 4.0 format. (BAB)
C***END PROLOGUE CKSCL