Typographical changes for old/new style comparison operators.

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(*,'(" ")')

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(*,'(" ")')

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