LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 03:23:29 +01:00
Code Releases Activity

Fixed NaN in SCF

Browse Source
This commit is contained in:
Anthony Scemama 2020-05-25 23:27:38 +02:00
parent a90b446beb
commit 5803482a60
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/scf_utils/roothaan_hall_scf.irp.f
View File

@ -284,19 +284,22 @@ END_DOC
! Solve the linear system C = B.X ! Solve the linear system C = B.X
call dsysvx('N','U',dim_DIIS+1,1, & X_vector_DIIS = C_vector_DIIS
B_matrix_DIIS,size(B_matrix_DIIS,1), & call dgesv ( dim_DIIS+1 , 1, B_matrix_DIIS, size(B_matrix_DIIS,1), &
AF, size(AF,1), & ipiv , X_vector_DIIS , size(X_vector_DIIS,1), info)
ipiv, & ! call dsysvx('N','U',dim_DIIS+1,1, &
C_vector_DIIS,size(C_vector_DIIS,1), & ! B_matrix_DIIS,size(B_matrix_DIIS,1), &
X_vector_DIIS,size(X_vector_DIIS,1), & ! AF, size(AF,1), &
rcond, & ! ipiv, &
ferr, & ! C_vector_DIIS,size(C_vector_DIIS,1), &
berr, & ! X_vector_DIIS,size(X_vector_DIIS,1), &
scratch,size(scratch), & ! rcond, &
iwork, & ! ferr, &
info & ! berr, &
) ! scratch,size(scratch), &
! iwork, &
! info &
! )
deallocate(scratch,AF,iwork) deallocate(scratch,AF,iwork)