mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-24 21:21:47 +02:00
WIP
This commit is contained in:
parent
6377f4df63
commit
76b10b9bf2
@ -2,8 +2,6 @@
|
||||
|
||||
* Version 2.2
|
||||
|
||||
** New features
|
||||
|
||||
** Changes
|
||||
|
||||
- Python3 replaces Python2
|
||||
@ -73,6 +71,10 @@
|
||||
- S^2 in single precision
|
||||
- Added Shank function
|
||||
- Added utilities for periodic calculations
|
||||
- Added ~V_ne_psi_energy~
|
||||
- Added ~h_core_huess~ routine
|
||||
- Fixed Laplacians in real space (indices)
|
||||
-
|
||||
|
||||
ao_one_e_integral_zero
|
||||
banned_excitations
|
||||
|
@ -80,7 +80,7 @@ git:
|
||||
./create_git_sha1.sh
|
||||
|
||||
${QP_EZFIO}/Ocaml/ezfio.ml:
|
||||
$(NINJA) -C ${QP_ROOT}/config ${QP_ROOT}/lib/libezfio_irp.a
|
||||
ninja -C ${QP_ROOT}/config ${QP_ROOT}/lib/libezfio_irp.a
|
||||
|
||||
qp_edit.ml: ../scripts/ezfio_interface/qp_edit_template
|
||||
|
||||
|
@ -1,3 +1,4 @@
|
||||
! -*- mode: f90 -*-
|
||||
program pt2
|
||||
implicit none
|
||||
BEGIN_DOC
|
||||
@ -24,7 +25,7 @@ program pt2
|
||||
else
|
||||
call run_slave_cipsi
|
||||
endif
|
||||
end
|
||||
end program pt2
|
||||
|
||||
subroutine run
|
||||
implicit none
|
||||
@ -60,6 +61,6 @@ subroutine run
|
||||
call pt2_dealloc(pt2_data)
|
||||
call pt2_dealloc(pt2_data_err)
|
||||
deallocate(E_CI_before)
|
||||
end
|
||||
end subroutine run
|
||||
|
||||
|
||||
|
@ -28,14 +28,14 @@ subroutine svd(A,LDA,U,LDU,D,Vt,LDVt,m,n)
|
||||
! Find optimal size for temp arrays
|
||||
allocate(work(1))
|
||||
lwork = -1
|
||||
call dgesvd('A','A', m, n, A_tmp, LDA, &
|
||||
call dgesvd('S','S', m, n, A_tmp, LDA, &
|
||||
D, U, LDU, Vt, LDVt, work, lwork, info)
|
||||
! /!\ int(WORK(1)) becomes negative when WORK(1) > 2147483648
|
||||
lwork = max(int(work(1)), 5*MIN(M,N))
|
||||
lwork = max(int(work(1)), 10*MIN(M,N))
|
||||
deallocate(work)
|
||||
|
||||
allocate(work(lwork))
|
||||
call dgesvd('A','A', m, n, A_tmp, LDA, &
|
||||
call dgesvd('S','S', m, n, A_tmp, LDA, &
|
||||
D, U, LDU, Vt, LDVt, work, lwork, info)
|
||||
deallocate(A_tmp,work)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user