[cig-commits] [commit] devel: removed white spaces (ae876fe)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/de447bfa352469d332becb13a96f191c67f8bc28...ae876feb0b07b860f769cd822d71da0c57556416

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

commit ae876feb0b07b860f769cd822d71da0c57556416
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Fri Oct 24 00:40:06 2014 +0200

    removed white spaces


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

ae876feb0b07b860f769cd822d71da0c57556416
 setup/constants_tomography.h.in                               | 0
 src/generate_databases/get_model.f90                          | 2 +-
 src/generate_databases/model_external_values.f90              | 8 ++++----
 utils/DSM_FOR_SPECFEM3D/UTILS/create_inputs_files.f90         | 0
 utils/bathy_sep_to_ascii/inc/parse_sep.h                      | 0
 utils/bathy_sep_to_ascii/inc/sep_header.h                     | 0
 utils/bathy_sep_to_ascii/src/convert_topo.c                   | 0
 utils/bathy_sep_to_ascii/src/create_ascii_bathy_from_sep_vs.c | 0
 utils/bathy_sep_to_ascii/src/parse_sep.c                      | 0
 9 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/generate_databases/get_model.f90 b/src/generate_databases/get_model.f90
index d727059..1f38ad9 100644
--- a/src/generate_databases/get_model.f90
+++ b/src/generate_databases/get_model.f90
@@ -98,7 +98,7 @@
       call FindLayer(xmesh,ymesh,zmesh)
     else
       stop 'bad number of GLL points for coupling with DSM'
-    end if
+    endif
   endif
 
 ! !  Piero, read bedrock file
diff --git a/src/generate_databases/model_external_values.f90 b/src/generate_databases/model_external_values.f90
index 493f8d1..3725cae 100644
--- a/src/generate_databases/model_external_values.f90
+++ b/src/generate_databases/model_external_values.f90
@@ -149,7 +149,7 @@
        smooth_vp(i) = aa
        smooth_vs(i) = bb
        !write(*,*) a,b
-    end do
+    enddo
 
     filename = IN_DATA_FILES_PATH(1:len_trim(IN_DATA_FILES_PATH))//'/model_1D.in'
     open(27,file=trim(filename))
@@ -163,7 +163,7 @@
        read(27,*) vpv_1D(i,:)
        read(27,*) vsv_1D(i,:)
        read(27,*) density_1D(i,:)
-    end do
+    enddo
     read(27,*) ZREF
     read(27,*) OLON,OLAT
 
@@ -295,9 +295,9 @@
 
     !write(124,*) 'RADIUS ',radius,x,y,z,z+zref,zref
     il = 1
-    do while (radius .gt. zlayer(il).and.il.lt.nlayer)
+    do while (radius > zlayer(il).and.il<nlayer)
        il = il + 1
-    end do
+    enddo
     il = il - 1
     ilayer = il