[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 460)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2013/01/14 08:23 AM

Modified:
 /trunk/src/
  GRHydro_Boundaries.F90

Log:
 GRHydro: CCTK_Equals -> CCTK_EQUALS
 
 since only the later (a macro) contains the required ".ne. 0" to turn
 the return value into a logical type
 
 From: Roland Haas <roland.haas at physics.gatech.edu>

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_Boundaries.F90
Delta lines: +2 -2
===================================================================
--- trunk/src/GRHydro_Boundaries.F90	2013-01-14 14:23:42 UTC (rev 459)
+++ trunk/src/GRHydro_Boundaries.F90	2013-01-14 14:23:44 UTC (rev 460)
@@ -234,7 +234,7 @@
        endif
     endif
 
-    if (CCTK_Equals(Bvec_evolution_method, "GRHydro_Avec")) then 
+    if (CCTK_EQUALS(Bvec_evolution_method, "GRHydro_Avec")) then 
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
              "HydroBase::Avec", "Flat")
       if (general_coordinates .ne. 0) then
@@ -320,7 +320,7 @@
        endif
     endif
 
-    if (CCTK_Equals(Bvec_evolution_method, "GRHydro_Avec")) then 
+    if (CCTK_EQUALS(Bvec_evolution_method, "GRHydro_Avec")) then 
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
              "HydroBase::Avec", "None")
       if (general_coordinates .ne. 0) then