psblas3:

test/fileread/cf_sample.f90
 test/fileread/df_sample.f90
 test/fileread/sf_sample.f90
 test/fileread/zf_sample.f90

Fixed usage of gather.

test/fileread/cf_sample.f90

@@ -286,12 +286,9 @@ program cf_sample
          &  desc_a%indxmap%get_fmt()
   end if
 
-  allocate(x_col_glob(m_problem),r_col_glob(m_problem),stat=ierr)
-  if (ierr /= 0) then 
-    write(psb_err_unit,*) 'allocation error: no data collection'
-  else
   call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_)
-    call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
+  if (info == psb_success_) &
+       & call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
   if (iam == psb_root_) then
     write(psb_err_unit,'(" ")')
     write(psb_err_unit,'("Saving x on file")')
@@ -307,7 +304,6 @@ program cf_sample
       write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)
     enddo
   end if
-  end if
 998 format(i8,6(1x,g11.5))
 993 format(i6,4(1x,e12.6))
 

test/fileread/df_sample.f90

@@ -293,12 +293,9 @@ program df_sample
   end if
 !!$  call psb_precdump(prec,info,prefix=trim(mtrx_file)//'_')
 
-  allocate(x_col_glob(m_problem),r_col_glob(m_problem),stat=ierr)
-  if (ierr /= 0) then 
-    write(psb_err_unit,*) 'allocation error: no data collection'
-  else
   call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_)
-    call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
+  if (info == psb_success_) &
+       & call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
   if (iam == psb_root_) then
     write(psb_err_unit,'(" ")')
     write(psb_err_unit,'("Saving x on file")')
@@ -314,7 +311,6 @@ program df_sample
       write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)
     enddo
   end if
-  end if
 998 format(i8,4(2x,g20.14))
 993 format(i6,4(1x,e12.6))
 

test/fileread/sf_sample.f90

@@ -290,12 +290,9 @@ program sf_sample
   end if
 !!$  call psb_precdump(prec,info,prefix=trim(mtrx_file)//'_')
 
-  allocate(x_col_glob(m_problem),r_col_glob(m_problem),stat=ierr)
-  if (ierr /= 0) then 
-    write(psb_err_unit,*) 'allocation error: no data collection'
-  else
   call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_)
-    call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
+  if (info == psb_success_) &
+       & call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
   if (iam == psb_root_) then
     write(psb_err_unit,'(" ")')
     write(psb_err_unit,'("Saving x on file")')
@@ -311,7 +308,6 @@ program sf_sample
       write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)
     enddo
   end if
-  end if
 998 format(i8,4(2x,g20.14))
 993 format(i6,4(1x,e12.6))
 

test/fileread/zf_sample.f90

@@ -286,12 +286,9 @@ program zf_sample
          &  desc_a%indxmap%get_fmt()
   end if
 
-  allocate(x_col_glob(m_problem),r_col_glob(m_problem),stat=ierr)
-  if (ierr /= 0) then 
-    write(psb_err_unit,*) 'allocation error: no data collection'
-  else
   call psb_gather(x_col_glob,x_col,desc_a,info,root=psb_root_)
-    call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
+  if (info == psb_success_) &
+       & call psb_gather(r_col_glob,r_col,desc_a,info,root=psb_root_)
   if (iam == psb_root_) then
     write(psb_err_unit,'(" ")')
     write(psb_err_unit,'("Saving x on file")')
@@ -307,7 +304,6 @@ program zf_sample
       write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)
     enddo
   end if
-  end if
 998 format(i8,6(1x,g11.5))
 993 format(i6,4(1x,e12.6))