Commit 0173b511 authored by Satomichi Nishihara's avatar Satomichi Nishihara
Browse files

fix do_1drism.f90

parent 683014e9
......@@ -101,6 +101,7 @@ SUBROUTINE do_1drism(rismt, maxiter, rmsconv, nbox, eta, gbond, lhand, cool, tit
lconv = .FALSE.
rismt%avail = .FALSE.
rmssave = 1.0E+99_DP
rmscurr = 1.0E+99_DP
IF (gbond > 0.0_DP) THEN
gmax = GMAX_SCALE / gbond
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