convert tabs to (8) spaces. No other changes.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@485 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45

1 files changed, 85 insertions, 85 deletions

diff --git a/src/GRHydro_Boundaries.F90 b/src/GRHydro_Boundaries.F90
index 99a8e89..e3be957 100644
--- a/src/GRHydro_Boundaries.F90
+++ b/src/GRHydro_Boundaries.F90
@@ -90,9 +90,9 @@ subroutine GRHydro_InitSymBound(CCTK_ARGUMENTS)
   
   !if (sync_conserved_only .eq. 0) then
       if (general_coordinates .ne. 0) then
-	 call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::lvel[0]")
+         call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::lvel[0]")
       else
-	 call SetCartSymVN(ierr, cctkGH, sym, "HydroBase::vel[0]")
+         call SetCartSymVN(ierr, cctkGH, sym, "HydroBase::vel[0]")
       endif
   !endif
   call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::scon[0]")
@@ -109,15 +109,15 @@ subroutine GRHydro_InitSymBound(CCTK_ARGUMENTS)
   
   !if (sync_conserved_only .eq. 0) then
       if (general_coordinates .ne. 0) then
-	 call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::lvel[1]")
+         call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::lvel[1]")
       else
-	 call SetCartSymVN(ierr, cctkGH, sym, "HydroBase::vel[1]")
+         call SetCartSymVN(ierr, cctkGH, sym, "HydroBase::vel[1]")
       endif
   !endif
   call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::scon[1]")
   if(evolve_mhd.ne.0) then
      !if (sync_conserved_only .eq. 0) then
-	 call SetCartSymVN(ierr, cctkGH, sym, "HydroBase::Bvec[1]")
+         call SetCartSymVN(ierr, cctkGH, sym, "HydroBase::Bvec[1]")
      !endif
      call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::Bcons[1]")
   endif
@@ -128,9 +128,9 @@ subroutine GRHydro_InitSymBound(CCTK_ARGUMENTS)
   
   !if (sync_conserved_only .eq. 0) then
       if (general_coordinates .ne. 0) then
-	 call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::lvel[2]")
+         call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::lvel[2]")
       else
-	 call SetCartSymVN(ierr, cctkGH, sym, "HydroBase::vel[2]")
+         call SetCartSymVN(ierr, cctkGH, sym, "HydroBase::vel[2]")
       endif
   !endif
   call SetCartSymVN(ierr, cctkGH, sym, "GRHydro::scon[2]")
@@ -196,30 +196,30 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS)
          "GRHydro::scon", "Flat")
     if (sync_conserved_only .eq. 0) then
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	    "HydroBase::w_lorentz", "Flat")
+            "HydroBase::w_lorentz", "Flat")
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	    "HydroBase::rho", "Flat")
+            "HydroBase::rho", "Flat")
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	    "HydroBase::press", "Flat")
+            "HydroBase::press", "Flat")
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	    "HydroBase::eps", "Flat")
+            "HydroBase::eps", "Flat")
       if (general_coordinates .ne. 0) then
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "GRHydro::lvel", "Flat")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "GRHydro::lvel", "Flat")
       else
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "HydroBase::vel", "Flat")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "HydroBase::vel", "Flat")
       endif
     endif
     if(evolve_mhd.ne.0) then
        if (sync_conserved_only .eq. 0) then
-	 if (general_coordinates .ne. 0) then
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "GRHydro::lBvec", "Flat")
-	 else
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "HydroBase::Bvec", "Flat")
-	 endif
+         if (general_coordinates .ne. 0) then
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "GRHydro::lBvec", "Flat")
+         else
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "HydroBase::Bvec", "Flat")
+         endif
        endif
        ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::Bcons", "Flat")
@@ -243,8 +243,8 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS)
 
     if(evolve_tracer.ne.0) then 
       if (sync_conserved_only .eq. 0) then
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "GRHydro::GRHydro_tracers", "Flat")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "GRHydro::GRHydro_tracers", "Flat")
       endif
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::GRHydro_cons_tracers", "Flat")
@@ -252,8 +252,8 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS)
 
     if(evolve_y_e.ne.0) then
       if (sync_conserved_only .eq. 0) then
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "HydroBase::Y_e", "Flat")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "HydroBase::Y_e", "Flat")
       endif
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::Y_e_con", "Flat")
@@ -261,10 +261,10 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS)
 
     if(evolve_temper.ne.0) then
       if (sync_conserved_only .eq. 0) then
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "HydroBase::temperature", "Flat")
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "HydroBase::entropy", "Flat")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "HydroBase::temperature", "Flat")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "HydroBase::entropy", "Flat")
       endif
     endif
 
@@ -281,31 +281,31 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS)
     
     if (sync_conserved_only .eq. 0) then
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	    "HydroBase::w_lorentz", "None")
+            "HydroBase::w_lorentz", "None")
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	    "HydroBase::rho", "None")
+            "HydroBase::rho", "None")
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	    "HydroBase::press", "None")
+            "HydroBase::press", "None")
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	    "HydroBase::eps", "None")
+            "HydroBase::eps", "None")
       if (general_coordinates .ne. 0) then
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "GRHydro::lvel", "None")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "GRHydro::lvel", "None")
       else
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "HydroBase::vel", "None")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "HydroBase::vel", "None")
       endif
     endif
     
     if(evolve_mhd.ne.0) then
        if (sync_conserved_only .eq. 0) then
-	 if (general_coordinates .ne. 0) then
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "GRHydro::lBvec", "None")
-	 else
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "HydroBase::Bvec", "None")
-	 endif
+         if (general_coordinates .ne. 0) then
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "GRHydro::lBvec", "None")
+         else
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "HydroBase::Bvec", "None")
+         endif
        endif
        ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::Bcons", "None")
@@ -329,8 +329,8 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS)
 
     if(evolve_tracer.ne.0) then 
       if (sync_conserved_only .eq. 0) then 
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "GRHydro::GRHydro_tracers", "None")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "GRHydro::GRHydro_tracers", "None")
       endif
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::GRHydro_cons_tracers", "None")
@@ -338,8 +338,8 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS)
 
     if(evolve_y_e.ne.0) then
       if (sync_conserved_only .eq. 0) then
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "HydroBase::Y_e", "None")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "HydroBase::Y_e", "None")
       endif
       ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
             "GRHydro::Y_e_con", "None")
@@ -347,10 +347,10 @@ subroutine GRHydro_Boundaries(CCTK_ARGUMENTS)
 
     if(evolve_temper.ne.0) then
       if (sync_conserved_only .eq. 0) then
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "HydroBase::temperature", "None")
-	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-	       "HydroBase::entropy", "None")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "HydroBase::temperature", "None")
+         ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+               "HydroBase::entropy", "None")
       endif
     endif
 
@@ -412,13 +412,13 @@ subroutine GRHydro_SelectPrimitiveInitialGuessesBoundaries(CCTK_ARGUMENTS)
              "HydroBase::vel", "Flat")
     endif
     if(evolve_mhd.ne.0) then
-	 if (general_coordinates .ne. 0) then
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "GRHydro::lBvec", "Flat")
-	 else
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "HydroBase::Bvec", "Flat")
-	 endif
+         if (general_coordinates .ne. 0) then
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "GRHydro::lBvec", "Flat")
+         else
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "HydroBase::Bvec", "Flat")
+         endif
     endif
 
     !if(evolve_tracer.ne.0) then 
@@ -459,13 +459,13 @@ subroutine GRHydro_SelectPrimitiveInitialGuessesBoundaries(CCTK_ARGUMENTS)
     endif
     
     if(evolve_mhd.ne.0) then
-	 if (general_coordinates .ne. 0) then
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "GRHydro::lBvec", "None")
-	 else
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "HydroBase::Bvec", "None")
-	 endif
+         if (general_coordinates .ne. 0) then
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "GRHydro::lBvec", "None")
+         else
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "HydroBase::Bvec", "None")
+         endif
        
     endif
 
@@ -548,23 +548,23 @@ subroutine GRHydro_SelectPrimitiveBoundaries(CCTK_ARGUMENTS)
              "HydroBase::vel", "Flat")
     endif
     if(evolve_mhd.ne.0) then
-	 if (general_coordinates .ne. 0) then
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "GRHydro::lBvec", "Flat")
-	 else
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "HydroBase::Bvec", "Flat")
-	 endif
+         if (general_coordinates .ne. 0) then
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "GRHydro::lBvec", "Flat")
+         else
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "HydroBase::Bvec", "Flat")
+         endif
     endif
 
     if(evolve_tracer.ne.0) then 
-    	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-    	       "GRHydro::GRHydro_tracers", "Flat")
+             ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                   "GRHydro::GRHydro_tracers", "Flat")
     endif
 
     if(evolve_y_e.ne.0) then
-    	 ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-    	       "HydroBase::Y_e", "Flat")
+             ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                   "HydroBase::Y_e", "Flat")
     endif
 
     if(evolve_temper.ne.0) then
@@ -595,13 +595,13 @@ subroutine GRHydro_SelectPrimitiveBoundaries(CCTK_ARGUMENTS)
     endif
     
     if(evolve_mhd.ne.0) then
-	 if (general_coordinates .ne. 0) then
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "GRHydro::lBvec", "None")
-	 else
-	    ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
-		  "HydroBase::Bvec", "None")
-	 endif
+         if (general_coordinates .ne. 0) then
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "GRHydro::lBvec", "None")
+         else
+            ierr = ierr + Boundary_SelectGroupForBC(cctkGH, faces, GRHydro_stencil, -ione, &
+                  "HydroBase::Bvec", "None")
+         endif
        
     endif