[cig-commits] [commit] : Added explicit format statement for writing STATIONS_FILTERED -- problem was encountered with Portland compiler. (96ed770)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d

On branch  : 
Link       : https://github.com/geodynamics/specfem2d/compare/1e201257d91c794056b990a43329e05d04f77454...0000000000000000000000000000000000000000

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

commit 96ed7709d061de5fcabf02ac6a15f6a1f690e0ee
Author: Carl Tape <carltape at gi.alaska.edu>
Date:   Wed Jan 19 04:32:36 2011 +0000

    Added explicit format statement for writing STATIONS_FILTERED -- problem was encountered with Portland compiler.


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

96ed7709d061de5fcabf02ac6a15f6a1f690e0ee
 meshfem3D.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/meshfem3D.f90 b/meshfem3D.f90
index ae4ca61..54472df 100644
--- a/meshfem3D.f90
+++ b/meshfem3D.f90
@@ -903,8 +903,10 @@
   do irec = 1,nrec
     read(IIN,*) station_name,network_name,stlat,stlon,stele,stbur
     if(stlat >= LATITUDE_MIN .and. stlat <= LATITUDE_MAX .and. stlon >= LONGITUDE_MIN .and. stlon <= LONGITUDE_MAX) &
-      write(IOUT,*) station_name(1:len_trim(station_name)),' ',network_name(1:len_trim(network_name)),' ', &
-              sngl(stlat),' ',sngl(stlon), ' ', sngl(stele), ' ', sngl(stbur)
+      !write(IOUT,*) station_name(1:len_trim(station_name)),' ',network_name(1:len_trim(network_name)),' ', &
+      !        sngl(stlat),' ',sngl(stlon), ' ', sngl(stele), ' ', sngl(stbur)
+      write(IOUT,"(3a,4f16.6)") station_name(1:len_trim(station_name)),' ',network_name(1:len_trim(network_name)), &
+                                stlat, stlon, stele, stbur
   enddo
 
   close(IIN)