fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4:

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
 examples/pdegen/mld_dexample_1lev.f90
 examples/pdegen/mld_dexample_ml.f90
 examples/pdegen/mld_sexample_1lev.f90
 examples/pdegen/mld_sexample_ml.f90
 mlprec/mld_cdiag_bld.f90
 mlprec/mld_cmlprec_bld.f90
 mlprec/mld_cprecaply.f90
 mlprec/mld_cprecbld.f90
 mlprec/mld_cumf_bld.f90
 mlprec/mld_ddiag_bld.f90
 mlprec/mld_dmlprec_bld.f90
 mlprec/mld_dprecaply.f90
 mlprec/mld_dprecbld.f90
 mlprec/mld_inner_mod.f90
 mlprec/mld_sdiag_bld.f90
 mlprec/mld_smlprec_bld.f90
 mlprec/mld_sprecaply.f90
 mlprec/mld_sprecbld.f90
 mlprec/mld_zdiag_bld.f90
 mlprec/mld_zmlprec_bld.f90
 mlprec/mld_zprecaply.f90
 mlprec/mld_zprecbld.f90
 mlprec/mld_zumf_bld.f90
 tests/fileread/cf_sample.f90
 tests/fileread/df_sample.f90
 tests/fileread/sf_sample.f90
 tests/fileread/zf_sample.f90
 tests/pdegen/ppde.f90
 tests/pdegen/spde.f90


Changed interface in matdist. It is unspecified in the Fortran
standard whether a subroutine can be used to disambiguate a specific
interface with respect to an integer vector.

Fixes for various small inconsistencies in interfaces revealed by NAG
compiler.
This commit is contained in:
Salvatore Filippone
2009-05-14 20:03:37 +00:00
parent 73dac6d963
commit f4be42b685
37 changed files with 205 additions and 205 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/fileread/mld_cexample_1lev.f90
+2 -2
View File
@@ -178,8 +178,8 @@ program mld_cexample_ml
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, part_block, ictxt, &
& desc_A,b_glob,b,info)
call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block)
t2 = psb_wtime() - t1
examples/fileread/mld_cexample_ml.f90
+2 -2
View File
@@ -182,8 +182,8 @@ program mld_cexample_ml
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, part_block, ictxt, &
& desc_A,b_glob,b,info)
call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block)
t2 = psb_wtime() - t1
examples/fileread/mld_dexample_1lev.f90
+2 -2
View File
@@ -177,8 +177,8 @@ program mld_dexample_ml
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, part_block, ictxt, &
& desc_A,b_glob,b,info)
call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block)
t2 = psb_wtime() - t1
examples/fileread/mld_dexample_ml.f90
+2 -2
View File
@@ -181,8 +181,8 @@ program mld_dexample_ml
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, part_block, ictxt, &
& desc_A,b_glob,b,info)
call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block)
t2 = psb_wtime() - t1
examples/fileread/mld_sexample_1lev.f90
+2 -2
View File
@@ -178,8 +178,8 @@ program mld_sexample_ml
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, part_block, ictxt, &
& desc_A,b_glob,b,info)
call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block)
t2 = psb_wtime() - t1
examples/fileread/mld_sexample_ml.f90
+2 -2
View File
@@ -182,8 +182,8 @@ program mld_sexample_ml
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, part_block, ictxt, &
& desc_A,b_glob,b,info)
call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block)
t2 = psb_wtime() - t1
examples/fileread/mld_zexample_1lev.f90
+2 -2
View File
@@ -177,8 +177,8 @@ program mld_zexample_ml
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, part_block, ictxt, &
& desc_A,b_glob,b,info)
call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block)
t2 = psb_wtime() - t1
examples/fileread/mld_zexample_ml.f90
+2 -2
View File
@@ -181,8 +181,8 @@ program mld_zexample_ml
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
call psb_matdist(aux_A, A, part_block, ictxt, &
& desc_A,b_glob,b,info)
call psb_matdist(aux_A, A, ictxt, &
& desc_A,b_glob,b,info, parts=part_block)
t2 = psb_wtime() - t1