Commit 560f445f authored by Aditya Kela's avatar Aditya Kela

Change main solver iterations mid=1, n_mtilde -> mid=1

parent 5d2b3f4a
......@@ -174,10 +174,8 @@ subroutine cg_solver(para)
call init_imp_all(.true.)
call init_cg_stat(cg_stat)
do iterations = 1, 100
do mid = 1, n_mtilde
call make_source(eta_e, eta_o, 1)
call solve(zeta_e, zeta_o, eta_e, eta_o, mid)
enddo
call make_source(eta_e, eta_o, 1)
call solve(zeta_e, zeta_o, eta_e, eta_o, 1)
enddo
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment