*DECK ZMLRI SUBROUTINE ZMLRI (ZR, ZI, FNU, KODE, N, YR, YI, NZ, TOL) C***BEGIN PROLOGUE ZMLRI C***SUBSIDIARY C***PURPOSE Subsidiary to ZBESI and ZBESK C***LIBRARY SLATEC C***TYPE ALL (CMLRI-A, ZMLRI-A) C***AUTHOR Amos, D. E., (SNL) C***DESCRIPTION C C ZMLRI COMPUTES THE I BESSEL FUNCTION FOR RE(Z).GE.0.0 BY THE C MILLER ALGORITHM NORMALIZED BY A NEUMANN SERIES. C C***SEE ALSO ZBESI, ZBESK C***ROUTINES CALLED D1MACH, DGAMLN, ZABS, ZEXP, ZLOG, ZMLT C***REVISION HISTORY (YYMMDD) C 830501 DATE WRITTEN C 910415 Prologue converted to Version 4.0 format. (BAB) C 930122 Added ZEXP and ZLOG to EXTERNAL statement. (RWC) C***END PROLOGUE ZMLRI