mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-19 12:32:34 +01:00
14 lines
354 B
Fortran
14 lines
354 B
Fortran
|
program test
|
||
|
|
double precision :: energy(N_states)
|
||
|
|
if (is_gaspi_master) then
|
||
|
|
energy = 1.d0
|
||
|
|
else
|
||
|
|
energy = 0.d0
|
||
|
|
endif
|
||
|
|
call broadcast_wf(energy)
|
||
|
|
print *, 'energy (1.d0) :', GASPI_rank, energy(1)
|
||
|
|
print *, 'coef :', GASPI_rank, psi_coef(1,1)
|
||
|
|
print *, 'det :', GASPI_rank, psi_det (1,1,1)
|
||
|
|
call gaspi_finalize
|
||
|
|
end
|