From 97bdaa2225acbe159a3a3cdd4146d397c74929e9 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 19 Jul 2017 15:59:18 +0100 Subject: [PATCH] Switched to CG --- examples/fileread/mld_cexample_1lev.f90 | 2 +- examples/fileread/mld_cexample_ml.f90 | 2 +- examples/fileread/mld_dexample_1lev.f90 | 2 +- examples/fileread/mld_dexample_ml.f90 | 2 +- examples/fileread/mld_sexample_1lev.f90 | 2 +- examples/fileread/mld_sexample_ml.f90 | 2 +- examples/fileread/mld_zexample_1lev.f90 | 2 +- examples/fileread/mld_zexample_ml.f90 | 2 +- examples/pdegen/mld_dexample_1lev.f90 | 2 +- examples/pdegen/mld_dexample_ml.f90 | 2 +- examples/pdegen/mld_sexample_1lev.f90 | 2 +- examples/pdegen/mld_sexample_ml.f90 | 2 +- 12 files changed, 12 insertions(+), 12 deletions(-) diff --git a/examples/fileread/mld_cexample_1lev.f90 b/examples/fileread/mld_cexample_1lev.f90 index 85a322fb..ce8c3947 100644 --- a/examples/fileread/mld_cexample_1lev.f90 +++ b/examples/fileread/mld_cexample_1lev.f90 @@ -226,7 +226,7 @@ program mld_cexample_1lev call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/fileread/mld_cexample_ml.f90 b/examples/fileread/mld_cexample_ml.f90 index c73992b2..b7a01265 100644 --- a/examples/fileread/mld_cexample_ml.f90 +++ b/examples/fileread/mld_cexample_ml.f90 @@ -270,7 +270,7 @@ program mld_cexample_ml call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/fileread/mld_dexample_1lev.f90 b/examples/fileread/mld_dexample_1lev.f90 index ad512737..52833aa2 100644 --- a/examples/fileread/mld_dexample_1lev.f90 +++ b/examples/fileread/mld_dexample_1lev.f90 @@ -226,7 +226,7 @@ program mld_dexample_1lev call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/fileread/mld_dexample_ml.f90 b/examples/fileread/mld_dexample_ml.f90 index a1309e31..c6af2bbd 100644 --- a/examples/fileread/mld_dexample_ml.f90 +++ b/examples/fileread/mld_dexample_ml.f90 @@ -270,7 +270,7 @@ program mld_dexample_ml call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/fileread/mld_sexample_1lev.f90 b/examples/fileread/mld_sexample_1lev.f90 index 94e6b47c..c4df2cfa 100644 --- a/examples/fileread/mld_sexample_1lev.f90 +++ b/examples/fileread/mld_sexample_1lev.f90 @@ -226,7 +226,7 @@ program mld_sexample_1lev call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/fileread/mld_sexample_ml.f90 b/examples/fileread/mld_sexample_ml.f90 index 4b2b602e..0b6bd262 100644 --- a/examples/fileread/mld_sexample_ml.f90 +++ b/examples/fileread/mld_sexample_ml.f90 @@ -270,7 +270,7 @@ program mld_sexample_ml call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/fileread/mld_zexample_1lev.f90 b/examples/fileread/mld_zexample_1lev.f90 index e58c9c99..e00948a5 100644 --- a/examples/fileread/mld_zexample_1lev.f90 +++ b/examples/fileread/mld_zexample_1lev.f90 @@ -226,7 +226,7 @@ program mld_zexample_1lev call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/fileread/mld_zexample_ml.f90 b/examples/fileread/mld_zexample_ml.f90 index c8c08f7c..e7ed82f9 100644 --- a/examples/fileread/mld_zexample_ml.f90 +++ b/examples/fileread/mld_zexample_ml.f90 @@ -270,7 +270,7 @@ program mld_zexample_ml call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/pdegen/mld_dexample_1lev.f90 b/examples/pdegen/mld_dexample_1lev.f90 index 727b08a7..104063d2 100644 --- a/examples/pdegen/mld_dexample_1lev.f90 +++ b/examples/pdegen/mld_dexample_1lev.f90 @@ -233,7 +233,7 @@ program mld_dexample_1lev call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/pdegen/mld_dexample_ml.f90 b/examples/pdegen/mld_dexample_ml.f90 index 02c7c729..6b61b998 100644 --- a/examples/pdegen/mld_dexample_ml.f90 +++ b/examples/pdegen/mld_dexample_ml.f90 @@ -286,7 +286,7 @@ program mld_dexample_ml call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/pdegen/mld_sexample_1lev.f90 b/examples/pdegen/mld_sexample_1lev.f90 index b103cc5e..6e7cc588 100644 --- a/examples/pdegen/mld_sexample_1lev.f90 +++ b/examples/pdegen/mld_sexample_1lev.f90 @@ -233,7 +233,7 @@ program mld_sexample_1lev call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2) diff --git a/examples/pdegen/mld_sexample_ml.f90 b/examples/pdegen/mld_sexample_ml.f90 index b21b132c..b10c6ae4 100644 --- a/examples/pdegen/mld_sexample_ml.f90 +++ b/examples/pdegen/mld_sexample_ml.f90 @@ -286,7 +286,7 @@ program mld_sexample_ml call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov('BICGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) + call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) t2 = psb_wtime() - t1 call psb_amx(ictxt,t2)