*DECK ZUNK1 SUBROUTINE ZUNK1 (ZR, ZI, FNU, KODE, MR, N, YR, YI, NZ, TOL, ELIM, + ALIM) C***BEGIN PROLOGUE ZUNK1 C***SUBSIDIARY C***PURPOSE Subsidiary to ZBESK C***LIBRARY SLATEC C***TYPE ALL (CUNK1-A, ZUNK1-A) C***AUTHOR Amos, D. E., (SNL) C***DESCRIPTION C C ZUNK1 COMPUTES K(FNU,Z) AND ITS ANALYTIC CONTINUATION FROM THE C RIGHT HALF PLANE TO THE LEFT HALF PLANE BY MEANS OF THE C UNIFORM ASYMPTOTIC EXPANSION. C MR INDICATES THE DIRECTION OF ROTATION FOR ANALYTIC CONTINUATION. C NZ=-1 MEANS AN OVERFLOW WILL OCCUR C C***SEE ALSO ZBESK C***ROUTINES CALLED D1MACH, ZABS, ZS1S2, ZUCHK, ZUNIK C***REVISION HISTORY (YYMMDD) C 830501 DATE WRITTEN C 910415 Prologue converted to Version 4.0 format. (BAB) C***END PROLOGUE ZUNK1