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-2:

Browse Source 
tests/fileread/mld_cf_sample.f90
 tests/fileread/mld_df_sample.f90
 tests/fileread/mld_sf_sample.f90
 tests/fileread/mld_zf_sample.f90
 tests/pdegen/mld_d_pde2d.f90
 tests/pdegen/mld_d_pde3d.f90
 tests/pdegen/mld_s_pde2d.f90
 tests/pdegen/mld_s_pde3d.f90

Fixed new name for user API.
This commit is contained in:
Salvatore Filippone
2016-10-04 16:07:18 +00:00
parent ae3699b09e
commit 3cbeeda750
8 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/fileread/mld_cf_sample.f90
+1 -1
View File
@@ -289,7 +289,7 @@ program mld_cf_sample
end if
call psb_barrier(ictxt)
t1 = psb_wtime()
call mld_ml_prec_bld(a,desc_a,prec,info)
call mld_smoothers_bld(a,desc_a,prec,info)
tprec = psb_wtime()-t1
if (info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='psb_precbld')
tests/fileread/mld_df_sample.f90
+1 -1
View File
@@ -289,7 +289,7 @@ program mld_df_sample
end if
call psb_barrier(ictxt)
t1 = psb_wtime()
call mld_ml_prec_bld(a,desc_a,prec,info)
call mld_smoothers_bld(a,desc_a,prec,info)
tprec = psb_wtime()-t1
if (info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='psb_precbld')
tests/fileread/mld_sf_sample.f90
+1 -1
View File
@@ -289,7 +289,7 @@ program mld_sf_sample
end if
call psb_barrier(ictxt)
t1 = psb_wtime()
call mld_ml_prec_bld(a,desc_a,prec,info)
call mld_smoothers_bld(a,desc_a,prec,info)
tprec = psb_wtime()-t1
if (info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='psb_precbld')
tests/fileread/mld_zf_sample.f90
+1 -1
View File
@@ -289,7 +289,7 @@ program mld_zf_sample
end if
call psb_barrier(ictxt)
t1 = psb_wtime()
call mld_ml_prec_bld(a,desc_a,prec,info)
call mld_smoothers_bld(a,desc_a,prec,info)
tprec = psb_wtime()-t1
if (info /= psb_success_) then
call psb_errpush(psb_err_from_subroutine_,name,a_err='psb_precbld')
tests/pdegen/mld_d_pde2d.f90
+1 -1
View File
@@ -284,7 +284,7 @@ program mld_d_pde2d
call psb_barrier(ictxt)
t1 = psb_wtime()
call mld_ml_prec_bld(a,desc_a,prec,info)
call mld_smoothers_bld(a,desc_a,prec,info)
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_precbld'
tests/pdegen/mld_d_pde3d.f90
+1 -1
View File
@@ -296,7 +296,7 @@ program mld_d_pde3d
call psb_barrier(ictxt)
t1 = psb_wtime()
call mld_ml_prec_bld(a,desc_a,prec,info)
call mld_smoothers_bld(a,desc_a,prec,info)
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_precbld'
tests/pdegen/mld_s_pde2d.f90
+1 -1
View File
@@ -284,7 +284,7 @@ program mld_s_pde2d
call psb_barrier(ictxt)
t1 = psb_wtime()
call mld_ml_prec_bld(a,desc_a,prec,info)
call mld_smoothers_bld(a,desc_a,prec,info)
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_precbld'
tests/pdegen/mld_s_pde3d.f90
+1 -1
View File
@@ -296,7 +296,7 @@ program mld_s_pde3d
call psb_barrier(ictxt)
t1 = psb_wtime()
call mld_ml_prec_bld(a,desc_a,prec,info)
call mld_smoothers_bld(a,desc_a,prec,info)
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_precbld'