PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-24 14:12:24 +02:00
Code Releases Activity

remove debug

Browse Source
This commit is contained in:
Yann Damour 2022-11-08 10:20:59 +01:00
parent d827a909c4
commit 14841c5a6f
5 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/utils_trust_region/apply_mo_rotation.irp.f
View File

@ -60,12 +60,12 @@ subroutine apply_mo_rotation(R,prev_mos)
prev_mos = mo_coef
mo_coef = new_mos
if (debug) then
print*,'New mo_coef : '
do i = 1, mo_num
write(*,'(100(F10.5))') mo_coef(i,:)
enddo
endif
!if (debug) then
! print*,'New mo_coef : '
! do i = 1, mo_num
! write(*,'(100(F10.5))') mo_coef(i,:)
! enddo
!endif
! Save the new MOs and change the label
mo_label = 'MCSCF'

12
src/utils_trust_region/apply_mo_rotation.org
View File

@ -60,12 +60,12 @@ subroutine apply_mo_rotation(R,prev_mos)
prev_mos = mo_coef
mo_coef = new_mos
if (debug) then
print*,'New mo_coef : '
do i = 1, mo_num
write(*,'(100(F10.5))') mo_coef(i,:)
enddo
endif
!if (debug) then
! print*,'New mo_coef : '
! do i = 1, mo_num
! write(*,'(100(F10.5))') mo_coef(i,:)
! enddo
!endif
! Save the new MOs and change the label
mo_label = 'MCSCF'

2
src/utils_trust_region/pi.h
View File

@ -1,2 +1,2 @@
logical, parameter :: debug=.False.
!logical, parameter :: debug=.False.
double precision, parameter :: pi = 3.1415926535897932d0

8
src/utils_trust_region/trust_region_optimal_lambda.irp.f
View File

@ -214,7 +214,7 @@ subroutine trust_region_optimal_lambda(n,e_val,tmp_wtg,delta,lambda)
! Resolution with the Newton method:
! Initialization
! Initialization
epsilon = 1d-4
lambda =MAX(0d0, -e_val(1))
@ -295,9 +295,9 @@ subroutine trust_region_optimal_lambda(n,e_val,tmp_wtg,delta,lambda)
print*, 'w_1^T . g =', tmp_wtg(1)
! Debug
if (debug) then
print*, 'Iteration rho_2 lambda delta ||x|| |1-(||x||^2/delta^2)|'
endif
!if (debug) then
! print*, 'Iteration rho_2 lambda delta ||x|| |1-(||x||^2/delta^2)|'
!endif
! Initialization
i = 1

6
src/utils_trust_region/trust_region_optimal_lambda.org
View File

@ -294,9 +294,9 @@ Resolution with the Newton method:
print*, 'w_1^T . g =', tmp_wtg(1)
! Debug
if (debug) then
print*, 'Iteration rho_2 lambda delta ||x|| |1-(||x||^2/delta^2)|'
endif
!if (debug) then
! print*, 'Iteration rho_2 lambda delta ||x|| |1-(||x||^2/delta^2)|'
!endif
! Initialization
i = 1