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

mld2p4-2:

Browse Source 
examples/fileread/mld_cexample_1lev.f90
 examples/fileread/mld_cexample_ml.f90
 examples/fileread/mld_dexample_1lev.f90
 examples/fileread/mld_dexample_ml.f90
 examples/fileread/mld_sexample_1lev.f90
 examples/fileread/mld_sexample_ml.f90
 examples/fileread/mld_zexample_1lev.f90
 examples/fileread/mld_zexample_ml.f90
 tests/fileread/cf_sample.f90
 tests/fileread/df_sample.f90
 tests/fileread/sf_sample.f90
 tests/fileread/zf_sample.f90

New MATDIST interface.
stopcriterion
Salvatore Filippone 9 years ago
parent 3ba0d6fe7d
commit 84aba17ddf
12 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File

2
examples/fileread/mld_cexample_1lev.f90
Unescape Escape View File

@ -186,7 +186,7 @@ program mld_cexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")') if (iam == psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, ictxt, & call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block) & desc_A,info,b_glob=b_glob,b=b, parts=part_block)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1

2
examples/fileread/mld_cexample_ml.f90
Unescape Escape View File

@ -190,7 +190,7 @@ program mld_cexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")') if (iam == psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, ictxt, & call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block) & desc_A,info,b_glob=b_glob,b=b, parts=part_block)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1

2
examples/fileread/mld_dexample_1lev.f90
Unescape Escape View File

@ -185,7 +185,7 @@ program mld_dexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")') if (iam == psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, ictxt, & call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block) & desc_A,info,b_glob=b_glob,b=b, parts=part_block)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1

2
examples/fileread/mld_dexample_ml.f90
Unescape Escape View File

@ -189,7 +189,7 @@ program mld_dexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")') if (iam == psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, ictxt, & call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block) & desc_A,info,b_glob=b_glob,b=b, parts=part_block)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1

2
examples/fileread/mld_sexample_1lev.f90
Unescape Escape View File

@ -186,7 +186,7 @@ program mld_sexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")') if (iam == psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, ictxt, & call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block) & desc_A,info,b_glob=b_glob,b=b, parts=part_block)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1

2
examples/fileread/mld_sexample_ml.f90
Unescape Escape View File

@ -190,7 +190,7 @@ program mld_sexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")') if (iam == psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, ictxt, & call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block) & desc_A,info,b_glob=b_glob,b=b, parts=part_block)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1

2
examples/fileread/mld_zexample_1lev.f90
Unescape Escape View File

@ -185,7 +185,7 @@ program mld_zexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")') if (iam == psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, ictxt, & call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block) & desc_A,info,b_glob=b_glob,b=b, parts=part_block)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1

2
examples/fileread/mld_zexample_ml.f90
Unescape Escape View File

@ -189,7 +189,7 @@ program mld_zexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")') if (iam == psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, ictxt, & call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block) & desc_A,info,b_glob=b_glob,b=b, parts=part_block)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1

6
tests/fileread/cf_sample.f90
Unescape Escape View File

@ -212,7 +212,7 @@ program cf_sample
ivg(i) = ipv(1) ivg(i) = ipv(1)
enddo enddo
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else if (ipart == 2) then else if (ipart == 2) then
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Partition type: graph")') write(psb_out_unit,'("Partition type: graph")')
@ -224,11 +224,11 @@ program cf_sample
call distr_mtpart(psb_root_,ictxt) call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg) call getv_mtpart(ivg)
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else else
if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")') if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block)
end if end if
call psb_geall(x_col,desc_a,info) call psb_geall(x_col,desc_a,info)

6
tests/fileread/df_sample.f90
Unescape Escape View File

@ -213,7 +213,7 @@ program df_sample
ivg(i) = ipv(1) ivg(i) = ipv(1)
enddo enddo
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else if (ipart == 2) then else if (ipart == 2) then
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Partition type: graph")') write(psb_out_unit,'("Partition type: graph")')
@ -225,11 +225,11 @@ program df_sample
call distr_mtpart(psb_root_,ictxt) call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg) call getv_mtpart(ivg)
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else else
if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")') if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block)
end if end if
call psb_geall(x_col,desc_a,info) call psb_geall(x_col,desc_a,info)

6
tests/fileread/sf_sample.f90
Unescape Escape View File

@ -212,7 +212,7 @@ program sf_sample
ivg(i) = ipv(1) ivg(i) = ipv(1)
enddo enddo
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else if (ipart == 2) then else if (ipart == 2) then
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Partition type: graph")') write(psb_out_unit,'("Partition type: graph")')
@ -224,11 +224,11 @@ program sf_sample
call distr_mtpart(psb_root_,ictxt) call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg) call getv_mtpart(ivg)
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else else
if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")') if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block)
end if end if
call psb_geall(x_col,desc_a,info) call psb_geall(x_col,desc_a,info)

6
tests/fileread/zf_sample.f90
Unescape Escape View File

@ -212,7 +212,7 @@ program zf_sample
ivg(i) = ipv(1) ivg(i) = ipv(1)
enddo enddo
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else if (ipart == 2) then else if (ipart == 2) then
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'("Partition type: graph")') write(psb_out_unit,'("Partition type: graph")')
@ -224,11 +224,11 @@ program zf_sample
call distr_mtpart(psb_root_,ictxt) call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg) call getv_mtpart(ivg)
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,v=ivg) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,v=ivg)
else else
if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")') if (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
call psb_matdist(aux_a, a, ictxt, & call psb_matdist(aux_a, a, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt,parts=part_block) & desc_a,info,b_glob=b_col_glob,b=b_col,fmt=afmt,parts=part_block)
end if end if
call psb_geall(x_col,desc_a,info) call psb_geall(x_col,desc_a,info)

Write Preview
Loading…
Cancel
Save