18 行
567 B
Fortran
18 行
567 B
Fortran
!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
|
|
!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
|
|
!Code distribution @ https://git.em3d.cn/
|
|
|
|
subroutine Get_eps_r
|
|
use constantparameters
|
|
use time_parameter
|
|
implicit none
|
|
integer ii
|
|
do ii=1,nstop,1
|
|
EPS_R(ii)=3.0D0*(DELT(ii)/GridSize)**2/MU0
|
|
Cq(ii)=(DELT(ii-1)+DELT(ii))/(2.0D0*MU0)
|
|
! It is needed in the iterative subroutine, and we don't have to compute it in each iterative process.
|
|
enddo
|
|
end subroutine Get_eps_r
|
|
|
|
|