mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 02:38:31 +02:00
Fixed NaN in SCF
This commit is contained in:
parent
a90b446beb
commit
5803482a60
@ -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)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user