Mie program for scattering and surface current computation of  dielectric non absorbing spheres. FORTRAN program listed in

Joseph R. Mautz, Computer program for the Mie series solution for a sphere, Technical Report TR-77-12, Dec. 1977, Department of Electrical and Computer Engineering, Syracuse  University,Syracuse, NY 13210, USA.