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
 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_c_prec_type.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_z_prec_type.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



Made prec_sizeof into a method of prec.
Aligned test programs.
stopcriterion
Salvatore Filippone 13 years ago
parent 21db81b817
commit 978019add3
22 changed files with 51 additions and 47 deletions
Show Stats Download Patch File Download Diff File

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

@ -241,9 +241,9 @@ program mld_cexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -278,9 +278,9 @@ program mld_cexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -240,9 +240,9 @@ program mld_dexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -277,9 +277,9 @@ program mld_dexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -241,9 +241,9 @@ program mld_sexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -278,9 +278,9 @@ program mld_sexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -240,9 +240,9 @@ program mld_zexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -277,9 +277,9 @@ program mld_zexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

6
examples/pdegen/mld_dexample_1lev.f90
Unescape Escape View File

@ -193,9 +193,9 @@ program mld_dexample_1lev
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

6
examples/pdegen/mld_dexample_ml.f90
Unescape Escape View File

@ -229,9 +229,9 @@ program mld_dexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

6
examples/pdegen/mld_sexample_1lev.f90
Unescape Escape View File

@ -194,9 +194,9 @@ program mld_sexample_1lev
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

6
examples/pdegen/mld_sexample_ml.f90
Unescape Escape View File

@ -230,9 +230,9 @@ program mld_sexample_ml
call psb_genrm2s(resmx,r,desc_A,info)
call psb_geamaxs(resmxp,r,desc_A,info)
amatsize = psb_sizeof(A)
descsize = psb_sizeof(desc_A)
precsize = mld_sizeof(P)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = p%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

3
mlprec/mld_c_prec_type.f90
Unescape Escape View File

@ -92,6 +92,7 @@ module mld_c_prec_type
procedure, pass(prec) :: get_complexity => mld_c_get_compl
procedure, pass(prec) :: cmp_complexity => mld_c_cmp_compl
procedure, pass(prec) :: get_nzeros => mld_c_get_nzeros
procedure, pass(prec) :: sizeof => mld_cprec_sizeof
end type mld_cprec_type
private :: mld_c_dump, mld_c_get_compl, mld_c_cmp_compl,&
@ -178,7 +179,7 @@ contains
function mld_cprec_sizeof(prec) result(val)
implicit none
type(mld_cprec_type), intent(in) :: prec
class(mld_cprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer :: i
val = 0

3
mlprec/mld_d_prec_type.f90
Unescape Escape View File

@ -92,6 +92,7 @@ module mld_d_prec_type
procedure, pass(prec) :: get_complexity => mld_d_get_compl
procedure, pass(prec) :: cmp_complexity => mld_d_cmp_compl
procedure, pass(prec) :: get_nzeros => mld_d_get_nzeros
procedure, pass(prec) :: sizeof => mld_dprec_sizeof
end type mld_dprec_type
private :: mld_d_dump, mld_d_get_compl, mld_d_cmp_compl,&
@ -178,7 +179,7 @@ contains
function mld_dprec_sizeof(prec) result(val)
implicit none
type(mld_dprec_type), intent(in) :: prec
class(mld_dprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer :: i
val = 0

3
mlprec/mld_s_prec_type.f90
Unescape Escape View File

@ -92,6 +92,7 @@ module mld_s_prec_type
procedure, pass(prec) :: get_complexity => mld_s_get_compl
procedure, pass(prec) :: cmp_complexity => mld_s_cmp_compl
procedure, pass(prec) :: get_nzeros => mld_s_get_nzeros
procedure, pass(prec) :: sizeof => mld_sprec_sizeof
end type mld_sprec_type
private :: mld_s_dump, mld_s_get_compl, mld_s_cmp_compl,&
@ -178,7 +179,7 @@ contains
function mld_sprec_sizeof(prec) result(val)
implicit none
type(mld_sprec_type), intent(in) :: prec
class(mld_sprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer :: i
val = 0

3
mlprec/mld_z_prec_type.f90
Unescape Escape View File

@ -92,6 +92,7 @@ module mld_z_prec_type
procedure, pass(prec) :: get_complexity => mld_z_get_compl
procedure, pass(prec) :: cmp_complexity => mld_z_cmp_compl
procedure, pass(prec) :: get_nzeros => mld_z_get_nzeros
procedure, pass(prec) :: sizeof => mld_zprec_sizeof
end type mld_zprec_type
private :: mld_z_dump, mld_z_get_compl, mld_z_cmp_compl,&
@ -178,7 +179,7 @@ contains
function mld_zprec_sizeof(prec) result(val)
implicit none
type(mld_zprec_type), intent(in) :: prec
class(mld_zprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer :: i
val = 0

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

@ -317,7 +317,7 @@ program cf_sample
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = mld_sizeof(prec)
precsize = prec%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -321,7 +321,7 @@ program df_sample
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = mld_sizeof(prec)
precsize = prec%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -317,7 +317,7 @@ program sf_sample
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = mld_sizeof(prec)
precsize = prec%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

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

@ -317,7 +317,7 @@ program zf_sample
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = mld_sizeof(prec)
precsize = prec%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

2
tests/pdegen/ppde.f90
Unescape Escape View File

@ -260,7 +260,7 @@ program ppde
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = mld_sizeof(prec)
precsize = prec%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

4
tests/pdegen/spde.f90
Unescape Escape View File

@ -258,9 +258,9 @@ program spde
t2 = psb_wtime() - t1
call psb_amx(ictxt,t2)
amatsize = psb_sizeof(a)
amatsize = a%sizeof()
descsize = desc_a%sizeof()
precsize = mld_sizeof(prec)
precsize = prec%sizeof()
call psb_sum(ictxt,amatsize)
call psb_sum(ictxt,descsize)
call psb_sum(ictxt,precsize)

Write Preview
Loading…
Cancel
Save