fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3-dev:

Browse Source 
test/fileread/cf_sample.f90
    test/fileread/sf_sample.f90

Aligned versions for long integers.
This commit is contained in:
Salvatore Filippone
2012-12-10 13:46:25 +00:00
parent d6f5f5acd3
commit 716c511385
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/fileread/cf_sample.f90
+5 -5
View File
@@ -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
+3 -3
View File
@@ -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