You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
535 B
Fortran
22 lines
535 B
Fortran
9 years ago
|
program hello
|
||
|
|
use psb_base_mod
|
||
|
|
implicit none
|
||
|
|
integer iam, np, icontxt, ip, jp, idummy
|
||
|
|
|
||
|
|
call psb_init(icontxt)
|
||
|
|
call psb_info(icontxt,iam,np)
|
||
|
|
! have all processes check in
|
||
|
|
if ((iam >= 0).and.(iam < np)) then
|
||
|
|
if (iam == 0) then
|
||
|
|
do ip = 1, np-1
|
||
|
|
call psb_rcv(icontxt,idummy,ip)
|
||
|
|
enddo
|
||
|
|
write(*,*) 'Hello, world: all ',np, &
|
||
|
|
& ' processes checked in!'
|
||
|
|
else
|
||
|
|
call psb_snd(icontxt,idummy,0)
|
||
|
|
endif
|
||
|
|
end if
|
||
|
|
call psb_exit(icontxt)
|
||
|
|
end program hello
|