fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
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.
This commit is contained in:
Salvatore Filippone
2015-12-08 17:38:45 +00:00
parent 3ba0d6fe7d
commit 84aba17ddf
12 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/fileread/mld_cexample_1lev.f90
+1 -1
View File
@@ -186,7 +186,7 @@ program mld_cexample_ml
call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")')
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
examples/fileread/mld_cexample_ml.f90
+1 -1
View File
@@ -190,7 +190,7 @@ program mld_cexample_ml
call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")')
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
examples/fileread/mld_dexample_1lev.f90
+1 -1
View File
@@ -185,7 +185,7 @@ program mld_dexample_ml
call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")')
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
examples/fileread/mld_dexample_ml.f90
+1 -1
View File
@@ -189,7 +189,7 @@ program mld_dexample_ml
call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")')
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
examples/fileread/mld_sexample_1lev.f90
+1 -1
View File
@@ -186,7 +186,7 @@ program mld_sexample_ml
call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")')
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
examples/fileread/mld_sexample_ml.f90
+1 -1
View File
@@ -190,7 +190,7 @@ program mld_sexample_ml
call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")')
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
examples/fileread/mld_zexample_1lev.f90
+1 -1
View File
@@ -185,7 +185,7 @@ program mld_zexample_ml
call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")')
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
examples/fileread/mld_zexample_ml.f90
+1 -1
View File
@@ -189,7 +189,7 @@ program mld_zexample_ml
call psb_barrier(ictxt)
if (iam == psb_root_) write(*,'("Partition type: block")')
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
tests/fileread/cf_sample.f90
+3 -3
View File
@@ -212,7 +212,7 @@ program cf_sample
ivg(i) = ipv(1)
enddo
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
if (iam == psb_root_) then
write(psb_out_unit,'("Partition type: graph")')
@@ -224,11 +224,11 @@ program cf_sample
call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg)
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 (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
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
call psb_geall(x_col,desc_a,info)
tests/fileread/df_sample.f90
+3 -3
View File
@@ -213,7 +213,7 @@ program df_sample
ivg(i) = ipv(1)
enddo
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
if (iam == psb_root_) then
write(psb_out_unit,'("Partition type: graph")')
@@ -225,11 +225,11 @@ program df_sample
call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg)
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 (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
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
call psb_geall(x_col,desc_a,info)
tests/fileread/sf_sample.f90
+3 -3
View File
@@ -212,7 +212,7 @@ program sf_sample
ivg(i) = ipv(1)
enddo
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
if (iam == psb_root_) then
write(psb_out_unit,'("Partition type: graph")')
@@ -224,11 +224,11 @@ program sf_sample
call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg)
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 (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
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
call psb_geall(x_col,desc_a,info)
tests/fileread/zf_sample.f90
+3 -3
View File
@@ -212,7 +212,7 @@ program zf_sample
ivg(i) = ipv(1)
enddo
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
if (iam == psb_root_) then
write(psb_out_unit,'("Partition type: graph")')
@@ -224,11 +224,11 @@ program zf_sample
call distr_mtpart(psb_root_,ictxt)
call getv_mtpart(ivg)
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 (iam == psb_root_) write(psb_out_unit,'("Partition type: block")')
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
call psb_geall(x_col,desc_a,info)