psblas3-dev:

test/fileread/cf_sample.f90
    test/fileread/sf_sample.f90

Aligned versions for long integers.

test/fileread/cf_sample.f90

@@ -1,4 +1,4 @@
- !!$ 
+!!$ 
 !!$              Parallel Sparse BLAS  version 3.0
 !!$    (C) Copyright 2006, 2007, 2008, 2009, 2010, 2012
 !!$                       Salvatore Filippone    University of Rome Tor Vergata
@@ -160,7 +160,7 @@ program cf_sample
 
       b_col_glob => aux_b(:,1)
       do i=1, m_problem
-         b_col_glob(i) = (1.d0,1.d0)
+         b_col_glob(i) = (1.0,1.0)
       enddo      
     endif
     call psb_bcast(ictxt,b_col_glob(1:m_problem))
@@ -180,7 +180,7 @@ program cf_sample
   ! switch over different partition types
   if (ipart == 0) then 
     call psb_barrier(ictxt)
-    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
+    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block vector")')
     allocate(ivg(m_problem),ipv(np))
     do i=1,m_problem
       call part_block(i,m_problem,np,ipv,nv)
@@ -191,7 +191,7 @@ program cf_sample
     
   else if (ipart == 2) then 
     if (iam == psb_root_) then 
-      write(psb_out_unit,'("Partition type: graph")')
+      write(psb_out_unit,'("Partition type: graph vector")')
       write(psb_out_unit,'(" ")')
       !      write(psb_err_unit,'("Build type: graph")')
       call build_mtpart(aux_a,np)
@@ -204,7 +204,7 @@ program cf_sample
          & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
 
   else 
-    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
+    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block subroutine")')
     call psb_matdist(aux_a, a,  ictxt, &
          & desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block)
   end if

test/fileread/sf_sample.f90

@@ -181,7 +181,7 @@ program sf_sample
   ! switch over different partition types
   if (ipart == 0) then 
     call psb_barrier(ictxt)
-    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
+    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block vector")')
     allocate(ivg(m_problem),ipv(np))
     do i=1,m_problem
       call part_block(i,m_problem,np,ipv,nv)
@@ -192,7 +192,7 @@ program sf_sample
     
   else if (ipart == 2) then 
     if (iam == psb_root_) then 
-      write(psb_out_unit,'("Partition type: graph")')
+      write(psb_out_unit,'("Partition type: graph vector")')
       write(psb_out_unit,'(" ")')
       !      write(psb_err_unit,'("Build type: graph")')
       call build_mtpart(aux_a,np)
@@ -205,7 +205,7 @@ program sf_sample
          & desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg)
 
   else 
-    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
+    if (iam == psb_root_) write(psb_out_unit,'("Partition type: block subroutine")')
     call psb_matdist(aux_a, a,  ictxt, &
          & desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block)
   end if