From 82a14e8b937454ce4a4e7f2d3582269d30bf1e4b Mon Sep 17 00:00:00 2001 From: Antonio De Lucreziis Date: Mon, 4 Mar 2024 01:09:59 +0100 Subject: [PATCH] removed psblas example for now --- .gitmodules | 5 +---- psblas-example.f90 | 22 ---------------------- 2 files changed, 1 insertion(+), 26 deletions(-) delete mode 100644 psblas-example.f90 diff --git a/.gitmodules b/.gitmodules index 10f75bd..a211346 100644 --- a/.gitmodules +++ b/.gitmodules @@ -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 \ No newline at end of file diff --git a/psblas-example.f90 b/psblas-example.f90 deleted file mode 100644 index 27777d7..0000000 --- a/psblas-example.f90 +++ /dev/null @@ -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 \ No newline at end of file