mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-11-07 22:53:42 +01:00
13 lines
215 B
FortranFixed
13 lines
215 B
FortranFixed
|
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
|