Typographical changes for old/new style comparison operators.

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

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

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)