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