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

psblas3:

Browse Source 
Fixed two write statements in pargen
This commit is contained in:
Salvatore Filippone
2010-04-20 11:15:38 +00:00
parent d724c14b5a
commit e307e0a22e
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/ppde.f90
+2 -2
View File
@@ -133,7 +133,7 @@ program ppde
!
! prepare the preconditioner.
!
if(iam == psb_root_) write(0,'("Setting preconditioner to : ",a)')ptype
if(iam == psb_root_) write(*,'("Setting preconditioner to : ",a)')ptype
call psb_precinit(prec,ptype,info)
call psb_barrier(ictxt)
@@ -385,7 +385,7 @@ contains
m = idim*idim*idim
n = m
nnz = ((n*9)/(np))
if(iam == psb_root_) write(0,'("Generating Matrix (size=",i0,")...")')n
if(iam == psb_root_) write(*,'("Generating Matrix (size=",i0,")...")')n
!
! Using a simple BLOCK distribution.
test/pargen/spde.f90
+2 -2
View File
@@ -133,7 +133,7 @@ program ppde
!
! prepare the preconditioner.
!
if(iam == psb_root_) write(0,'("Setting preconditioner to : ",a)')ptype
if(iam == psb_root_) write(*,'("Setting preconditioner to : ",a)')ptype
call psb_precinit(prec,ptype,info)
call psb_barrier(ictxt)
@@ -383,7 +383,7 @@ contains
m = idim*idim*idim
n = m
nnz = ((n*9)/(np))
if(iam == psb_root_) write(0,'("Generating Matrix (size=",i0,")...")')n
if(iam == psb_root_) write(*,'("Generating Matrix (size=",i0,")...")')n
!
! Using a simple BLOCK distribution.