*DECK BKISR SUBROUTINE BKISR (X, N, SUM, IERR) C***BEGIN PROLOGUE BKISR C***SUBSIDIARY C***PURPOSE Subsidiary to BSKIN C***LIBRARY SLATEC C***TYPE SINGLE PRECISION (BKISR-S, DBKISR-D) C***AUTHOR Amos, D. E., (SNLA) C***DESCRIPTION C C BKISR computes repeated integrals of the K0 Bessel function C by the series for N=0,1, and 2. C C***SEE ALSO BSKIN C***ROUTINES CALLED PSIXN, R1MACH C***REVISION HISTORY (YYMMDD) C 820601 DATE WRITTEN C 890531 Changed all specific intrinsics to generic. (WRB) C 891214 Prologue converted to Version 4.0 format. (BAB) C 900328 Added TYPE section. (WRB) C 910722 Updated AUTHOR section. (ALS) C***END PROLOGUE BKISR