1
0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-12-22 20:34:05 +01:00
qp_plugins_scemama/stable/utilities/print_basis.irp.f

13 lines
215 B
FortranFixed
Raw Normal View History

2019-05-28 09:20:40 +02:00
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