removed psblas example for now

old-with-submodules
Antonio De Lucreziis 2 years ago
parent abcefa7909
commit 82a14e8b93

5
.gitmodules vendored

@ -1,7 +1,4 @@
[submodule "deps/petsc"]
path = deps/petsc
url = https://gitlab.com/petsc/petsc.git
branch = release
[submodule "deps/psblas"]
path = deps/psblas
url = https://github.com/sfilippone/psblas3.git
branch = release

@ -1,22 +0,0 @@
program hello
implicit none
type(psb_ctxt_type) :: icontxt
integer(psb_ipk_) :: iam, np, 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
ip = 0
call psb_snd(icontxt,idummy,ip)
endif
end if
call psb_exit(icontxt)
end program hello
Loading…
Cancel
Save