Commit 340f9d6a authored by Marco Govoni's avatar Marco Govoni
Browse files

Update davidson_diago.f90

parent 7024fc76
...@@ -192,9 +192,7 @@ SUBROUTINE davidson_diago_gamma ( ) ...@@ -192,9 +192,7 @@ SUBROUTINE davidson_diago_gamma ( )
ENDDO ENDDO
! !
pccg_res_tr2 = -1._DP pccg_res_tr2 = -1._DP
PRINT*, "HERE1"
CALL apply_operator ( mloc, dvg(1,mstart), dng(1,mstart), pccg_res_tr2, 1 ) CALL apply_operator ( mloc, dvg(1,mstart), dng(1,mstart), pccg_res_tr2, 1 )
PRINT*, "HERE2"
dav_iter = -1 dav_iter = -1
IF(n_steps_write_restart == 1) CALL wstat_restart_write( dav_iter, notcnv, nbase, ew, hr_distr, vr_distr ) IF(n_steps_write_restart == 1) CALL wstat_restart_write( dav_iter, notcnv, nbase, ew, hr_distr, vr_distr )
! !
......
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