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)