changed h_p to h
continuous-integration/drone/push Build is failing Details

This commit is contained in:
eginer 2023-04-14 10:56:07 +02:00 committed by Anthony Scemama
parent 750ec9ca00
commit d3b76e5957
2 changed files with 2 additions and 3 deletions

@ -1 +1 @@
Subproject commit fd43778e12bb5858c4c780c34346be0f158b8cc7
Subproject commit e0d0e02e9f5ece138d1520106954a881ab0b8db2

View File

@ -465,8 +465,7 @@ subroutine davidson_diag_hjj_sjj(dets_in,u_in,H_jj,s2_out,energies,dim_in,sze,N_
integer :: lwork, info
double precision, allocatable :: work(:)
! y = h
y = h_p
y = h
lwork = -1
allocate(work(1))
call dsygv(1,'V','U',shift2,y,size(y,1), &