PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-07-22 10:47:38 +02:00
Code Releases Activity

WIP

Browse Source
This commit is contained in:
Anthony Scemama 2021-01-12 14:23:33 +01:00
parent 6377f4df63
commit 76b10b9bf2
4 changed files with 27 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
RELEASE_NOTES.org
View File

@ -2,8 +2,6 @@
* Version 2.2 * Version 2.2
** New features
** Changes ** Changes
- Python3 replaces Python2 - Python3 replaces Python2
@ -73,6 +71,10 @@
- S^2 in single precision - S^2 in single precision
- Added Shank function - Added Shank function
- Added utilities for periodic calculations - 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 ao_one_e_integral_zero
banned_excitations banned_excitations

2
ocaml/Makefile
View File

@ -80,7 +80,7 @@ git:
./create_git_sha1.sh ./create_git_sha1.sh
${QP_EZFIO}/Ocaml/ezfio.ml: ${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 qp_edit.ml: ../scripts/ezfio_interface/qp_edit_template

5
src/fci/pt2.irp.f
View File

@ -1,3 +1,4 @@
! -*- mode: f90 -*-
program pt2 program pt2
implicit none implicit none
BEGIN_DOC BEGIN_DOC
@ -24,7 +25,7 @@ program pt2
else else
call run_slave_cipsi call run_slave_cipsi
endif endif
end end program pt2
subroutine run subroutine run
implicit none implicit none
@ -60,6 +61,6 @@ subroutine run
call pt2_dealloc(pt2_data) call pt2_dealloc(pt2_data)
call pt2_dealloc(pt2_data_err) call pt2_dealloc(pt2_data_err)
deallocate(E_CI_before) deallocate(E_CI_before)
end end subroutine run

6
src/utils/linear_algebra.irp.f
View File

@ -28,14 +28,14 @@ subroutine svd(A,LDA,U,LDU,D,Vt,LDVt,m,n)
! Find optimal size for temp arrays ! Find optimal size for temp arrays
allocate(work(1)) allocate(work(1))
lwork = -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) D, U, LDU, Vt, LDVt, work, lwork, info)
! /!\ int(WORK(1)) becomes negative when WORK(1) > 2147483648 ! /!\ 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) deallocate(work)
allocate(work(lwork)) 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) D, U, LDU, Vt, LDVt, work, lwork, info)
deallocate(A_tmp,work) deallocate(A_tmp,work)