[cig-commits] [commit] devel: added a stop statement if the first time step entered by the user is negative (d29cbc8)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/8447c9a3e0940e91c18a416e5eab60901d29fa68...d29cbc8abd6ba763a8d7fbfea9799ecb6ffd74d9

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

commit d29cbc8abd6ba763a8d7fbfea9799ecb6ffd74d9
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Fri Jun 27 22:54:22 2014 +0200

    added a stop statement if the first time step entered by the user is negative


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

d29cbc8abd6ba763a8d7fbfea9799ecb6ffd74d9
 src/auxiliaries/create_movie_shakemap_AVS_DX_GMT.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/auxiliaries/create_movie_shakemap_AVS_DX_GMT.f90 b/src/auxiliaries/create_movie_shakemap_AVS_DX_GMT.f90
index e2eb043..8b19306 100644
--- a/src/auxiliaries/create_movie_shakemap_AVS_DX_GMT.f90
+++ b/src/auxiliaries/create_movie_shakemap_AVS_DX_GMT.f90
@@ -193,8 +193,11 @@
   print *
   print *,'enter first time step of movie (e.g. 1, enter -1 for shaking map)'
   read(5,*) it1
-  if(it1 == 0 ) it1 = 1
+
+  if(it1 < 1 .and. it1 /= -1) stop 'the first time step must be >= 1'
+
   if(it1 == -1) plot_shaking_map = .true.
+
   if(.not. plot_shaking_map) then
     print *,'enter last time step of movie (e.g. ',NSTEP,')'
     read(5,*) it2