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@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