From e307e0a22ed6e9774241e706bfc2094ab997daea Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 20 Apr 2010 11:15:38 +0000
Subject: [PATCH] psblas3: Fixed two write statements in pargen

---
 test/pargen/ppde.f90 | 4 ++--
 test/pargen/spde.f90 | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/pargen/ppde.f90 b/test/pargen/ppde.f90
index 2dd31634..ef149ebb 100644
--- 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.
diff --git a/test/pargen/spde.f90 b/test/pargen/spde.f90
index 97dc019a..a9aee94b 100644
--- 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.