Fixed prec%descr call

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(info)
   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(info)
   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(info)
   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(info)
   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)