mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-27 06:43:48 +01:00
28 lines
540 B
Fortran
28 lines
540 B
Fortran
|
program print_pgm
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer :: i,j
|
||
|
|
character*(64) :: fmt
|
||
|
|
|
||
|
|
print '(A)', '-------------------------------'
|
||
|
|
print '(A)', 'P2'
|
||
|
|
print '(A)', '#'
|
||
|
|
print *, n_det_alpha_unique, n_det_beta_unique
|
||
|
|
print *, 255
|
||
|
|
|
||
|
|
write(fmt,*) '(',n_det_beta_unique,'(I3,X))'
|
||
|
|
|
||
|
|
integer, external :: f
|
||
|
|
do i=1,n_det_alpha_unique
|
||
|
|
write(*,fmt) (f(psi_bilinear_matrix(i,j,1)), j=1,n_det_beta_unique)
|
||
|
|
enddo
|
||
|
|
end program
|
||
|
|
|
||
|
|
integer function f(x)
|
||
|
|
implicit none
|
||
|
|
double precision :: x, df
|
||
|
|
df = 255.d0*erf(abs(10.d0*x)**(0.25d0))
|
||
|
|
f = int(df)
|
||
|
|
end
|
||
|
|
|