Changed all CCTK_Equals to the CCTK_EQUALS macro.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@32 2a26948c-0e4f-0410-aee8-f1d3e353619c

1 files changed, 9 insertions, 9 deletions

diff --git a/src/include/physical_part.h b/src/include/physical_part.h
index c846a66..6e396b9 100644
--- a/src/include/physical_part.h
+++ b/src/include/physical_part.h
@@ -42,7 +42,7 @@ if ( cctk_bbox(6) .eq. 0 ) kzr = kzr - ngz
 ! as seen on the global grid is equal to zero. If this is the case adjust the
 ! minimum and maximum cell index appropriately with the size of the ghostzone.
 
-if ( CCTK_Equals(domain,'octant') .ne. 0 ) then
+if ( CCTK_EQUALS ( domain, 'octant' ) ) then
   if (cctk_lbnd(1) .eq. 0 ) then
     ixl = ixl + ngx
     symx = .true.
@@ -60,8 +60,8 @@ end if
 ! In quadrant I do the same, except here I have to check in which direction
 ! the quadrant is directed.
 
-if ( CCTK_Equals(domain,'quadrant') .ne. 0 ) then
-  if ( CCTK_Equals(quadrant_direction,'x') .ne. 0 ) then
+if ( CCTK_EQUALS ( domain, 'quadrant' ) ) then
+  if ( CCTK_EQUALS ( quadrant_direction, 'x' ) ) then
     if (cctk_lbnd(2) .eq. 0 ) then
       jyl = jyl + ngy
       symy = .true.
@@ -71,7 +71,7 @@ if ( CCTK_Equals(domain,'quadrant') .ne. 0 ) then
       symz = .true.
     end if
   end if
-  if ( CCTK_Equals(quadrant_direction,'y') .ne. 0 ) then
+  if ( CCTK_EQUALS ( quadrant_direction, 'y' ) ) then
     if (cctk_lbnd(1) .eq. 0 ) then
       ixl = ixl + ngx
       symx = .true.
@@ -81,7 +81,7 @@ if ( CCTK_Equals(domain,'quadrant') .ne. 0 ) then
       symz = .true.
     end if
   end if
-  if ( CCTK_Equals(quadrant_direction,'z') .ne. 0 ) then
+  if ( CCTK_EQUALS ( quadrant_direction,'z' ) ) then
     if (cctk_lbnd(1) .eq. 0 ) then
       ixl = ixl + ngx
       symx = .true.
@@ -95,20 +95,20 @@ end if
 
 ! Ditto for bitant. Here I have to check which plane is the symmetry-plane.
 
-if ( CCTK_Equals(domain,'bitant') .ne. 0 ) then
-  if ( CCTK_Equals(bitant_plane,'xy') .ne. 0 ) then
+if ( CCTK_EQUALS ( domain, 'bitant' ) ) then
+  if ( CCTK_EQUALS ( bitant_plane, 'xy' ) ) then
     if (cctk_lbnd(3) .eq. 0 ) then
       kzl = kzl + ngz
       symz = .true.
     end if
   endif
-  if ( CCTK_Equals(bitant_plane,'xz') .ne. 0 ) then
+  if ( CCTK_EQUALS ( bitant_plane, 'xz' ) ) then
     if (cctk_lbnd(2) .eq. 0 ) then
       jyl = jyl + ngy
       symy = .true.
     end if
   endif
-  if ( CCTK_Equals(bitant_plane,'yz') .ne. 0 ) then
+  if ( CCTK_EQUALS ( bitant_plane, 'yz' ) ) then
     if (cctk_lbnd(1) .eq. 0 ) then
       ixl = ixl + ngx
       symx = .true.