psblas3:

Fixed two write statements in pargen
15 years ago · e307e0a22e
parent d724c14b5a
commit e307e0a22e
2 changed files with 4 additions and 4 deletions
--- a/test/pargen/ppde.f90
+++ b/test/pargen/ppde.f90
@ -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.
--- a/test/pargen/spde.f90
+++ b/test/pargen/spde.f90
@ -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.