fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed declaration and use of CONTEXT with new type.

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-14 16:42:15 +01:00
parent 2009ed8dbe
commit b376d226cb
468 changed files with 3616 additions and 2324 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/hello/hello.f90
+2 -1
View File
@@ -1,7 +1,8 @@
program hello
use psb_base_mod
implicit none
integer(psb_ipk_) :: iam, np, icontxt, ip, jp, idummy
type(psb_ctxt_type) :: icontxt
integer(psb_ipk_) :: iam, np, ip, jp, idummy
call psb_init(icontxt)
call psb_info(icontxt,iam,np)
test/hello/pingpong.f90
+2 -1
View File
@@ -1,7 +1,8 @@
program pingpong
use psb_base_mod
implicit none
integer(psb_ipk_) :: iam, np, icontxt, ip, jp, idummy
type(psb_ctxt_type) :: icontxt
integer(psb_ipk_) :: iam, np, ip, jp, idummy
integer(psb_ipk_), parameter :: nmax=2**16
integer(psb_ipk_) :: i,j,k,n
real(psb_dpk_) :: v(nmax)