[svn:einsteintoolkit] GRHydro/branches/divclean/src/ (Rev. 235) - Commits

27 Apr 2011

User: tbode
Date: 2011/04/27 05:56 PM
Modified:
 /branches/divclean/src/
  GRHydro_ReconstructPoly.F90
Log:
 Move erroneous end do statements.
File Changes:
Directory: /branches/divclean/src/
==================================
File [modified]: GRHydro_ReconstructPoly.F90
Delta lines: +1 -1
===================================================================

--- branches/divclean/src/GRHydro_ReconstructPoly.F90	2011-04-27 22:37:19 UTC (rev 234)
+++ branches/divclean/src/GRHydro_ReconstructPoly.F90	2011-04-27 22:56:11 UTC (rev 235)
@@ -693,6 +693,7 @@
             end if
           end do
         end do
+       end do
         !$OMP END PARALLEL DO
      else if (flux_direction == 2) then
         !$OMP PARALLEL DO PRIVATE(i, j)
@@ -764,7 +765,6 @@
               end do
            end do
         end do
-      end do
       !$OMP END PARALLEL DO
     else if (flux_direction == 3) then
       !$OMP PARALLEL DO PRIVATE(i, j)

    