*DECK CBUNK SUBROUTINE CBUNK (Z, FNU, KODE, MR, N, Y, NZ, TOL, ELIM, ALIM) C***BEGIN PROLOGUE CBUNK C***SUBSIDIARY C***PURPOSE Subsidiary to CBESH and CBESK C***LIBRARY SLATEC C***TYPE ALL (CBUNK-A, ZBUNK-A) C***AUTHOR Amos, D. E., (SNL) C***DESCRIPTION C C CBUNK COMPUTES THE K BESSEL FUNCTION FOR FNU.GT.FNUL. C ACCORDING TO THE UNIFORM ASYMPTOTIC EXPANSION FOR K(FNU,Z) C IN CUNK1 AND THE EXPANSION FOR H(2,FNU,Z) IN CUNK2 C C***SEE ALSO CBESH, CBESK C***ROUTINES CALLED CUNK1, CUNK2 C***REVISION HISTORY (YYMMDD) C 830501 DATE WRITTEN C 910415 Prologue converted to Version 4.0 format. (BAB) C***END PROLOGUE CBUNK