fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed last remnants of gebs2d.

Browse Source
psblas3-type-indexed
Salvatore Filippone 19 years ago
parent f2c532f812
commit 2d9a8b50d9
2 changed files with 48 additions and 51 deletions
Show Stats Download Patch File Download Diff File

13
test/Fileread/df_sample.f90
Unescape Escape View File

@ -131,7 +131,7 @@ program df_sample
call readmat(mtrx_file, aux_a, ictxt) call readmat(mtrx_file, aux_a, ictxt)
m_problem = aux_a%m m_problem = aux_a%m
call gebs2d(ictxt,'a',m_problem) call psb_bcast(ictxt,m_problem)
if(rhs_file /= 'NONE') then if(rhs_file /= 'NONE') then
! reading an rhs ! reading an rhs
@ -155,20 +155,17 @@ program df_sample
do i=1, m_problem do i=1, m_problem
b_col_glob(i) = 1.d0 b_col_glob(i) = 1.d0
enddo enddo
call random_seed()
call random_number(b_col_glob(1:m_problem))
b_col_glob(1:m_problem) = 2.0d0 * b_col_glob(1:m_problem) - 1.0d0
endif endif
call gebs2d(ictxt,'a',b_col_glob(1:m_problem)) call psb_bcast(ictxt,b_col_glob(1:m_problem))
else else
call gebr2d(ictxt,'a',m_problem) call psb_bcast(ictxt,m_problem)
allocate(aux_b(m_problem,1), stat=ircode) allocate(aux_b(m_problem,1), stat=ircode)
if (ircode /= 0) then if (ircode /= 0) then
call psb_errpush(4000,name) call psb_errpush(4000,name)
goto 9999 goto 9999
endif endif
b_col_glob =>aux_b(:,1) b_col_glob =>aux_b(:,1)
call gebr2d(ictxt,'a',b_col_glob(1:m_problem)) call psb_bcast(ictxt,b_col_glob(1:m_problem))
end if end if
! switch over different partition types ! switch over different partition types
@ -196,7 +193,7 @@ program df_sample
if (amroot) then if (amroot) then
write(*,'("Partition type: graph")') write(*,'("Partition type: graph")')
write(*,'(" ")') write(*,'(" ")')
! write(0,'("Build type: graph")') ! write(0,'("Build type: graph")')
call build_grppart(aux_a%m,aux_a%fida,aux_a%ia1,aux_a%ia2,np) call build_grppart(aux_a%m,aux_a%fida,aux_a%ia1,aux_a%ia2,np)
endif endif
call psb_barrier(ictxt) call psb_barrier(ictxt)

8
test/Fileread/zf_sample.f90
Unescape Escape View File

@ -131,7 +131,7 @@ program zf_sample
call readmat(mtrx_file, aux_a, ictxt) call readmat(mtrx_file, aux_a, ictxt)
m_problem = aux_a%m m_problem = aux_a%m
call gebs2d(ictxt,'a',m_problem) call psb_bcast(ictxt,m_problem)
if(rhs_file /= 'NONE') then if(rhs_file /= 'NONE') then
! reading an rhs ! reading an rhs
@ -156,16 +156,16 @@ program zf_sample
b_col_glob(i) = (1.d0,1.d0) b_col_glob(i) = (1.d0,1.d0)
enddo enddo
endif endif
call gebs2d(ictxt,'a',b_col_glob(1:m_problem)) call psb_bcast(ictxt,b_col_glob(1:m_problem))
else else
call gebr2d(ictxt,'a',m_problem) call psb_bcast(ictxt,m_problem)
allocate(aux_b(m_problem,1), stat=ircode) allocate(aux_b(m_problem,1), stat=ircode)
if (ircode /= 0) then if (ircode /= 0) then
call psb_errpush(4000,name) call psb_errpush(4000,name)
goto 9999 goto 9999
endif endif
b_col_glob =>aux_b(:,1) b_col_glob =>aux_b(:,1)
call gebr2d(ictxt,'a',b_col_glob(1:m_problem)) call psb_bcast(ictxt,b_col_glob(1:m_problem))
end if end if
! switch over different partition types ! switch over different partition types

Write Preview
Loading…
Cancel
Save