scemama/qp_plugins_scemama
1
0
Fork 0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-11-07 14:43:41 +01:00
Code Issues Releases Wiki Activity

Added abproducts

Browse Source
This commit is contained in:
Anthony Scemama 2021-06-08 15:40:54 +02:00
parent 0589635dc2
commit 08a66a51b5
4 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
devel/svdwf/ab_products.irp.f Normal file
View File

@ -0,0 +1,13 @@
program abproducts
implicit none
read_wf = .True.
TOUCH read_wf
call run
end
subroutine run
implicit none
call generate_all_alpha_beta_det_products
call diagonalize_ci
call save_wavefunction
end

4
devel/svdwf/buildpsi_diagSVDit_modif_v2.irp.f
View File

@ -106,8 +106,8 @@ subroutine run
deallocate( Vtref )
! Truncated rank
n_selected = n_svd
call write_int(6,n_svd, 'Rank of psi')
n_selected = 10 ! n_svd
call write_int(6,n_selected, 'Rank of psi')
!________________________________________________________________________________________________________

3
devel/trexio/LIB
View File

@ -1 +1,2 @@
-L/home/scemama/TREX/trexio/_install/lib -L/usr/lib/x86_64-linux-gnu/hdf5/serial -ltrexio
-L/home/scemama/TREX/trexio/_install/lib -ltrexio

6
devel/trexio/export_trexio.irp.f
View File

@ -105,6 +105,9 @@ program export_trexio
rc = trexio_write_basis_prim_num(f, prim_num)
call check_success(rc)
rc = trexio_write_basis_shell_prim_num(f, shell_prim_num)
call check_success(rc)
double precision, allocatable :: factor(:)
allocate(factor(shell_num))
if (ao_normalized) then
@ -116,9 +119,6 @@ program export_trexio
call check_success(rc)
deallocate(factor)
rc = trexio_write_basis_prim_num(f, prim_num)
call check_success(rc)
rc = trexio_write_basis_prim_index(f, shell_prim_index)
call check_success(rc)