From df824ff3be0a4f359cdd48908a1d1171083d9d0b Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 14 Jan 2008 15:32:17 +0000 Subject: [PATCH] Typographical changes for old/new style comparison operators. --- krylov/psb_krylov_mod.f90 | 4 ++-- krylov/psb_zcgs.f90 | 2 +- krylov/psb_zrgmres.f90 | 6 +++--- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/krylov/psb_krylov_mod.f90 b/krylov/psb_krylov_mod.f90 index 25c6baee..a6ed1048 100644 --- a/krylov/psb_krylov_mod.f90 +++ b/krylov/psb_krylov_mod.f90 @@ -302,7 +302,7 @@ contains 9999 continue call psb_erractionrestore(err_act) - if (err_act.eq.psb_act_abort_) then + if (err_act == psb_act_abort_) then call psb_error(ictxt) return end if @@ -416,7 +416,7 @@ contains 9999 continue call psb_erractionrestore(err_act) - if (err_act.eq.psb_act_abort_) then + if (err_act == psb_act_abort_) then call psb_error(ictxt) return end if diff --git a/krylov/psb_zcgs.f90 b/krylov/psb_zcgs.f90 index 653303b2..6b8ff422 100644 --- a/krylov/psb_zcgs.f90 +++ b/krylov/psb_zcgs.f90 @@ -174,7 +174,7 @@ Subroutine psb_zcgs(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) Allocate(aux(naux),stat=info) if (info == 0) Call psb_geall(wwrk,desc_a,info,n=11) if (info == 0) Call psb_geasb(wwrk,desc_a,info) - if (info.ne.0) Then + if (info /= 0) Then info=4011 call psb_errpush(info,name) goto 9999 diff --git a/krylov/psb_zrgmres.f90 b/krylov/psb_zrgmres.f90 index 311fda04..775e03ba 100644 --- a/krylov/psb_zrgmres.f90 +++ b/krylov/psb_zrgmres.f90 @@ -534,7 +534,7 @@ contains ! .. ! .. executable statements .. ! - if( n.le.0 ) return + if( n <= 0 ) return if( incx == 1 .and. incy == 1 ) then ! ! code for both increments equal to 1 @@ -550,8 +550,8 @@ contains ! ix = 1 iy = 1 - if( incx.lt.0 )ix = ( -n+1 )*incx + 1 - if( incy.lt.0 )iy = ( -n+1 )*incy + 1 + if( incx < 0 )ix = ( -n+1 )*incx + 1 + if( incy < 0 )iy = ( -n+1 )*incy + 1 do i = 1, n stemp = c*cx(ix) + s*cy(iy) cy(iy) = c*cy(iy) - dconjg(s)*cx(ix)