From fb7b78d459284d22837b4c8da60fb9796407e612 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 25 Jan 2008 10:00:12 +0000 Subject: [PATCH] *** empty log message *** --- test/fileread/zf_sample.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/fileread/zf_sample.f90 b/test/fileread/zf_sample.f90 index cd80a65f..d53d8c13 100644 --- a/test/fileread/zf_sample.f90 +++ b/test/fileread/zf_sample.f90 @@ -37,7 +37,7 @@ program zf_sample implicit none ! input parameters - character(len=40) :: cmethd, ptype, mtrx_file, rhs_file + character(len=40) :: kmethd, ptype, mtrx_file, rhs_file ! sparse matrices type(psb_zspmat_type) :: a, aux_a @@ -92,7 +92,7 @@ program zf_sample ! ! get parameters ! - call get_parms(ictxt,mtrx_file,rhs_file,cmethd,ptype,& + call get_parms(ictxt,mtrx_file,rhs_file,kmethd,ptype,& & ipart,afmt,istopc,itmax,itrace,irst,eps) call psb_barrier(ictxt) @@ -211,7 +211,7 @@ program zf_sample iparm = 0 call psb_barrier(ictxt) t1 = psb_wtime() - call psb_krylov(cmethd,a,prec,b_col,x_col,eps,desc_a,info,& + call psb_krylov(kmethd,a,prec,b_col,x_col,eps,desc_a,info,& & itmax=itmax,iter=iter,err=err,itrace=itrace,istop=istopc,irst=irst) call psb_barrier(ictxt) t2 = psb_wtime() - t1