[cig-commits] [commit] devel: changed i1 and i2 to i7.7 following a request from Carl Tape (cd8e1a3)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/e6a0ddf9cc4f82b41302ffa3f4a4bab32503f718...cd8e1a3df7480775100f2f4b7f9a39570ef15505

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

commit cd8e1a3df7480775100f2f4b7f9a39570ef15505
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Tue Jun 24 00:07:16 2014 +0200

    changed i1 and i2 to i7.7 following a request from Carl Tape


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

cd8e1a3df7480775100f2f4b7f9a39570ef15505
 src/specfem3D/prepare_timerun.F90 | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/specfem3D/prepare_timerun.F90 b/src/specfem3D/prepare_timerun.F90
index eb8fa03..c27c310 100644
--- a/src/specfem3D/prepare_timerun.F90
+++ b/src/specfem3D/prepare_timerun.F90
@@ -451,11 +451,7 @@
     if(NSOURCES == 1) then
       plot_file = '/plot_source_time_function.txt'
     else
-      if (NSOURCES < 10) then
-        write(plot_file,"('/plot_source_time_function',i1,'.txt')") NSOURCES
-      else
-        write(plot_file,"('/plot_source_time_function',i2,'.txt')") NSOURCES
-      endif
+      write(plot_file,"('/plot_source_time_function',i7.7,'.txt')") NSOURCES
     endif
     open(unit=IOSTF,file=trim(OUTPUT_FILES_PATH)//plot_file,status='unknown',iostat=ier)
     if( ier /= 0 ) call exit_mpi(myrank,'error opening plot_source_time_function file')