cthw  *********************************************************************
c
c     Program coded and tested by 
c     Thomas Wriedt, thw@iwt.uni-bremen.de, www.ScattPort.org
c     Bremen, Germany, 9. March 2010
c     
c     according to the report
c     Merril E. Milham, Electromagnetic scattering by magnetic spheres: 
c     theory and  algorithms, 
c     Edgewood Research Development and Engineering Center, 
c     ERDEC-TR-207,  Oct. 1994, ADA289798.
c
c     The program is available via 
c     www.scattport.org/index.php/programs-menu/
c     mie-type-codes-menu/70-mie-code-magnetic-sphere
c
c     Compiler: Intel(R) Fortran Compiler
c 
c     Program changes: 
c     - missing SLATEC subroutines added
c     - zabs and zsqrt replayed by abs and sqrt 
c     - parameter input via input.dat file
c     - pages numbers refer to the report
c     - changes are marked by cthw
c
c
cthw  *********************************************************************