From 369a40850f25454b8d6a647cce6480347b6063fc Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 14 Jan 2008 15:33:11 +0000
Subject: [PATCH] Typographical changes for old/new style comparison operators.

---
 test/fileread/df_sample.f90 |  4 ++--
 test/fileread/zf_sample.f90 |  4 ++--
 test/pargen/ppde.f90        | 10 +++++-----
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/test/fileread/df_sample.f90 b/test/fileread/df_sample.f90
index 8b8ef6c0..35ef20dd 100644
--- a/test/fileread/df_sample.f90
+++ b/test/fileread/df_sample.f90
@@ -142,7 +142,7 @@ program df_sample
   end if
 
   ! switch over different partition types
-  if (ipart.eq.0) then 
+  if (ipart == 0) then 
     call psb_barrier(ictxt)
     if (iam==psb_root_) write(*,'("Partition type: block")')
     allocate(ivg(m_problem),ipv(np))
@@ -152,7 +152,7 @@ program df_sample
     enddo
     call psb_matdist(aux_a, a, ivg, ictxt, &
          & desc_a,b_col_glob,b_col,info,fmt=afmt)
-  else if (ipart.eq.2) then 
+  else if (ipart == 2) then 
     if (iam==psb_root_) then 
       write(*,'("Partition type: graph")')
       write(*,'(" ")')
diff --git a/test/fileread/zf_sample.f90 b/test/fileread/zf_sample.f90
index 030567f7..cd80a65f 100644
--- a/test/fileread/zf_sample.f90
+++ b/test/fileread/zf_sample.f90
@@ -142,7 +142,7 @@ program zf_sample
   end if
 
   ! switch over different partition types
-  if (ipart.eq.0) then 
+  if (ipart == 0) then 
      call psb_barrier(ictxt)
      if (iam==psb_root_) write(*,'("Partition type: block")')
      allocate(ivg(m_problem),ipv(np))
@@ -152,7 +152,7 @@ program zf_sample
      enddo
      call psb_matdist(aux_a, a, ivg, ictxt, &
           & desc_a,b_col_glob,b_col,info,fmt=afmt)
-  else if (ipart.eq.2) then 
+  else if (ipart == 2) then 
     if (iam==psb_root_) then 
       write(*,'("Partition type: graph")')
       write(*,'(" ")')
diff --git a/test/pargen/ppde.f90 b/test/pargen/ppde.f90
index f9681c78..9cba0599 100644
--- a/test/pargen/ppde.f90
+++ b/test/pargen/ppde.f90
@@ -234,7 +234,7 @@ contains
 
     if (iam==0) then
       read(*,*) ip
-      if (ip.ge.3) then
+      if (ip >= 3) then
         read(*,*) kmethd
         read(*,*) ptype
         read(*,*) afmt
@@ -246,22 +246,22 @@ contains
 
 
         read(*,*) idim
-        if (ip.ge.4) then
+        if (ip >= 4) then
           read(*,*) istopc
         else
           istopc=1        
         endif
-        if (ip.ge.5) then
+        if (ip >= 5) then
           read(*,*) itmax
         else
           itmax=500
         endif
-        if (ip.ge.6) then
+        if (ip >= 6) then
           read(*,*) itrace
         else
           itrace=-1
         endif
-        if (ip.ge.7) then
+        if (ip >= 7) then
           read(*,*) irst
         else
           irst=1