10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 04:43:45 +01:00

minor modifs

This commit is contained in:
eginer 2022-10-28 15:48:14 +02:00
parent 0b7fe4e184
commit 315f2582f6

View File

@ -115,7 +115,8 @@ subroutine routine_scf()
!do while( it .lt. n_it_tcscf_max .and. (e_delta .gt. dsqrt(thresh_tcscf)) ) !do while( it .lt. n_it_tcscf_max .and. (e_delta .gt. dsqrt(thresh_tcscf)) )
!do while( it .lt. n_it_tcscf_max .and. (e_delta .gt. thresh_tcscf) ) !do while( it .lt. n_it_tcscf_max .and. (e_delta .gt. thresh_tcscf) )
do while( it .lt. n_it_tcscf_max .and. (rho_delta .gt. thresh_tcscf) ) !do while( it .lt. n_it_tcscf_max .and. (rho_delta .gt. thresh_tcscf) )
do while( it .lt. n_it_tcscf_max .and. (grad_non_hermit_right.gt. dsqrt(thresh_tcscf)) )
it += 1 it += 1
print*,'iteration = ', it print*,'iteration = ', it