谱域法求解电磁场扩散方程的Fortran程序 A working example of solving the electromagnetic diffusion equation using a spectral method