scemama/qp_plugins_scemama
1
0
Fork 0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2025-01-03 01:55:52 +01:00
Code Issues Releases Wiki Activity

Added overwrite_with_cas

Browse Source
This commit is contained in:
Anthony Scemama 2019-05-28 09:20:40 +02:00
parent 569faa4e23
commit 6dfb4d3d00
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
stable/cassd/overwrite_with_cas.irp.f Normal file
View File

@ -0,0 +1,8 @@
program overwrite_w_cas
read_wf = .True.
TOUCH read_wf
call extract_cas
call save_wavefunction
end

12
stable/utilities/print_basis.irp.f Normal file
View File

@ -0,0 +1,12 @@
program print_basis
implicit none
BEGIN_DOC
! Truncate the wave function
END_DOC
integer :: i,j
do i=1,ao_num
do j=1,ao_prim_num(i)
print *, i, j, ao_coef_normalized(i,j), ao_expo(i,j)
enddo
enddo
end