mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-30 07:53:39 +02:00
Added overwrite_with_cas
This commit is contained in:
parent
569faa4e23
commit
6dfb4d3d00
8
stable/cassd/overwrite_with_cas.irp.f
Normal file
8
stable/cassd/overwrite_with_cas.irp.f
Normal 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
12
stable/utilities/print_basis.irp.f
Normal 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
|
Loading…
Reference in New Issue
Block a user