Fix call to prec%descr

tests/fileread/mld_cf_sample.f90

@@ -516,8 +516,8 @@ program mld_cf_sample
   call psb_sum(ictxt,amatsize)
   call psb_sum(ictxt,descsize)
   call psb_sum(ictxt,precsize)
+  call prec%descr(iout=psb_out_unit)
   if (iam == psb_root_) then 
-    call prec%descr(info)
     write(psb_out_unit,'("Matrix: ",a)')mtrx_file
     write(psb_out_unit,'("Computed solution on ",i8," processors")')np
     write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)

tests/fileread/mld_df_sample.f90

@@ -516,8 +516,8 @@ program mld_df_sample
   call psb_sum(ictxt,amatsize)
   call psb_sum(ictxt,descsize)
   call psb_sum(ictxt,precsize)
+  call prec%descr(iout=psb_out_unit)
   if (iam == psb_root_) then 
-    call prec%descr(info)
     write(psb_out_unit,'("Matrix: ",a)')mtrx_file
     write(psb_out_unit,'("Computed solution on ",i8," processors")')np
     write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)

tests/fileread/mld_sf_sample.f90

@@ -516,8 +516,8 @@ program mld_sf_sample
   call psb_sum(ictxt,amatsize)
   call psb_sum(ictxt,descsize)
   call psb_sum(ictxt,precsize)
+  call prec%descr(iout=psb_out_unit)
   if (iam == psb_root_) then 
-    call prec%descr(info)
     write(psb_out_unit,'("Matrix: ",a)')mtrx_file
     write(psb_out_unit,'("Computed solution on ",i8," processors")')np
     write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)

tests/fileread/mld_zf_sample.f90

@@ -516,8 +516,8 @@ program mld_zf_sample
   call psb_sum(ictxt,amatsize)
   call psb_sum(ictxt,descsize)
   call psb_sum(ictxt,precsize)
+  call prec%descr(iout=psb_out_unit)
   if (iam == psb_root_) then 
-    call prec%descr(info)
     write(psb_out_unit,'("Matrix: ",a)')mtrx_file
     write(psb_out_unit,'("Computed solution on ",i8," processors")')np
     write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)

tests/pdegen/mld_d_pde2d.f90

@@ -730,8 +730,8 @@ program mld_d_pde2d
   call psb_sum(ictxt,amatsize)
   call psb_sum(ictxt,descsize)
   call psb_sum(ictxt,precsize)
+  call prec%descr(iout=psb_out_unit)
   if (iam == psb_root_) then 
-    call prec%descr(info)
     write(psb_out_unit,'("Computed solution on ",i8," processors")')   np
     write(psb_out_unit,'("Krylov method                      : ",a)')  trim(s_choice%kmethd)
     write(psb_out_unit,'("Preconditioner                     : ",a)')  trim(p_choice%descr)

tests/pdegen/mld_d_pde3d.f90

@@ -784,8 +784,8 @@ program mld_d_pde3d
   call psb_sum(ictxt,amatsize)
   call psb_sum(ictxt,descsize)
   call psb_sum(ictxt,precsize)
+  call prec%descr(iout=psb_out_unit)
   if (iam == psb_root_) then 
-    call prec%descr(info)
     write(psb_out_unit,'("Computed solution on ",i8," processors")')  np
     write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)
     write(psb_out_unit,'("Preconditioner                     : ",a)') trim(p_choice%descr)

tests/pdegen/mld_s_pde2d.f90

@@ -730,8 +730,8 @@ program mld_s_pde2d
   call psb_sum(ictxt,amatsize)
   call psb_sum(ictxt,descsize)
   call psb_sum(ictxt,precsize)
+  call prec%descr(iout=psb_out_unit)
   if (iam == psb_root_) then 
-    call prec%descr(info)
     write(psb_out_unit,'("Computed solution on ",i8," processors")')   np
     write(psb_out_unit,'("Krylov method                      : ",a)')  trim(s_choice%kmethd)
     write(psb_out_unit,'("Preconditioner                     : ",a)')  trim(p_choice%descr)

tests/pdegen/mld_s_pde3d.f90

@@ -784,8 +784,8 @@ program mld_s_pde3d
   call psb_sum(ictxt,amatsize)
   call psb_sum(ictxt,descsize)
   call psb_sum(ictxt,precsize)
+  call prec%descr(iout=psb_out_unit)
   if (iam == psb_root_) then 
-    call prec%descr(info)
     write(psb_out_unit,'("Computed solution on ",i8," processors")')  np
     write(psb_out_unit,'("Krylov method                      : ",a)') trim(s_choice%kmethd)
     write(psb_out_unit,'("Preconditioner                     : ",a)') trim(p_choice%descr)