[cig-commits] [commit] devel, master: fixes a new line issue (1febe0d)

[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 1febe0d53db63d485fc311d128888de015491686
Author: daniel peter <peterda at ethz.ch>
Date:   Wed Aug 6 12:20:44 2014 +0200

    fixes a new line issue


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

1febe0d53db63d485fc311d128888de015491686
 src/specfem3D/save_forward_arrays_adios.F90 | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/specfem3D/save_forward_arrays_adios.F90 b/src/specfem3D/save_forward_arrays_adios.F90
index 3c6976d..ffa1a09 100644
--- a/src/specfem3D/save_forward_arrays_adios.F90
+++ b/src/specfem3D/save_forward_arrays_adios.F90
@@ -78,7 +78,7 @@ subroutine save_intermediate_forward_arrays_adios()
 
   ! Open an ADIOS handler to the restart file.
   call adios_open (adios_handle, "SPECFEM3D_GLOBE_FORWARD_ARRAYS", &
-      outputname, "w", comm, adios_err);
+                   outputname, "w", comm, adios_err);
   call adios_group_size (adios_handle, group_size_inc, &
                          adios_totalsize, adios_err)
 
@@ -150,7 +150,7 @@ subroutine save_forward_arrays_adios()
 
   ! Open an ADIOS handler to the restart file.
   call adios_open (adios_handle, "SPECFEM3D_GLOBE_FORWARD_ARRAYS", &
-      outputname, "w", comm, adios_err);
+                   outputname, "w", comm, adios_err);
   call adios_group_size (adios_handle, group_size_inc, &
                          adios_totalsize, adios_err)
 
@@ -632,7 +632,8 @@ subroutine save_forward_arrays_undoatt_adios()
   !endif
 
   ! Open an ADIOS handler to the restart file.
-  call adios_open (adios_handle, group_name, & outputname, "w", comm, adios_err)
+  call adios_open (adios_handle, group_name, & 
+                   outputname, "w", comm, adios_err)
   call adios_group_size (adios_handle, group_size_inc, &
                          adios_totalsize, adios_err)