*** empty log message ***

15 years ago · 17ba1533f5
parent ba931f4207
commit 17ba1533f5
1 changed files with 1 additions and 1 deletions
--- a/tests/pdegen/ppde.f90
+++ b/tests/pdegen/ppde.f90
@ -464,7 +464,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.