[cig-commits] [commit] devel, master: removed extra white spaces (d02f73b)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

>---------------------------------------------------------------

commit d02f73b2af9418460817b08e3cca74c6ede1cd32
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Fri May 23 03:56:28 2014 +0200

    removed extra white spaces


>---------------------------------------------------------------

d02f73b2af9418460817b08e3cca74c6ede1cd32
 src/specfem3D/compute_forces_crust_mantle_Dev.F90 | 2 +-
 src/specfem3D/compute_forces_inner_core_Dev.F90   | 2 +-
 src/specfem3D/compute_forces_outer_core_Dev.F90   | 2 +-
 src/specfem3D/multiply_arrays_source.f90          | 2 +-
 src/specfem3D/update_displacement_Newmark.f90     | 6 +++---
 5 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/specfem3D/compute_forces_crust_mantle_Dev.F90 b/src/specfem3D/compute_forces_crust_mantle_Dev.F90
index 091b807..7356c61 100644
--- a/src/specfem3D/compute_forces_crust_mantle_Dev.F90
+++ b/src/specfem3D/compute_forces_crust_mantle_Dev.F90
@@ -394,7 +394,7 @@
     endif
 
   enddo ! of spectral element loop NSPEC_CRUST_MANTLE
-!$OMP ENDDO
+!$OMP enddo
 !$OMP END PARALLEL
 
   contains
diff --git a/src/specfem3D/compute_forces_inner_core_Dev.F90 b/src/specfem3D/compute_forces_inner_core_Dev.F90
index 43b3a76..1e5993e 100644
--- a/src/specfem3D/compute_forces_inner_core_Dev.F90
+++ b/src/specfem3D/compute_forces_inner_core_Dev.F90
@@ -782,7 +782,7 @@
     endif ! end of test to exclude fictitious elements in central cube
 
   enddo ! of spectral element loop
-!$OMP ENDDO
+!$OMP enddo
 !$OMP END PARALLEL
 
   contains
diff --git a/src/specfem3D/compute_forces_outer_core_Dev.F90 b/src/specfem3D/compute_forces_outer_core_Dev.F90
index df97540..c1636ad 100644
--- a/src/specfem3D/compute_forces_outer_core_Dev.F90
+++ b/src/specfem3D/compute_forces_outer_core_Dev.F90
@@ -448,7 +448,7 @@
     endif
 
   enddo   ! spectral element loop
-!$OMP ENDDO
+!$OMP enddo
 !$OMP END PARALLEL
 
   contains
diff --git a/src/specfem3D/multiply_arrays_source.f90 b/src/specfem3D/multiply_arrays_source.f90
index 90ddf83..208fa5a 100644
--- a/src/specfem3D/multiply_arrays_source.f90
+++ b/src/specfem3D/multiply_arrays_source.f90
@@ -84,7 +84,7 @@
     accel(2,i) = accel(2,i)*rmassy(i) - two_omega_earth*veloc(1,i)
     accel(3,i) = accel(3,i)*rmassz(i)
   enddo
-!$OMP ENDDO
+!$OMP enddo
 !$OMP END PARALLEL
 
   end subroutine multiply_accel_elastic
diff --git a/src/specfem3D/update_displacement_Newmark.f90 b/src/specfem3D/update_displacement_Newmark.f90
index 86296fd..d955fc3 100644
--- a/src/specfem3D/update_displacement_Newmark.f90
+++ b/src/specfem3D/update_displacement_Newmark.f90
@@ -210,7 +210,7 @@
     veloc(i) = veloc(i) + deltatover2 * accel(i)
     accel(i) = 0._CUSTOM_REAL
   enddo
-!$OMP ENDDO
+!$OMP enddo
 !$OMP END PARALLEL
 
   end subroutine update_displ_acoustic
@@ -410,14 +410,14 @@
     do i=1,NGLOB_CM * NDIM
       veloc_crust_mantle(i,1) = veloc_crust_mantle(i,1) + deltatover2*accel_crust_mantle(i,1)
     enddo
-!$OMP ENDDO
+!$OMP enddo
 
 !$OMP DO SCHEDULE(GUIDED)
     ! inner core
     do i=1,NGLOB_IC * NDIM
       veloc_inner_core(i,1) = veloc_inner_core(i,1) + deltatover2*accel_inner_core(i,1)
     enddo
-!$OMP ENDDO
+!$OMP enddo
 
   else