[cig-commits] r22438 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-06-28 08:53:59 -0700 (Fri, 28 Jun 2013)
New Revision: 22438

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90
Log:
removed white spaces


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90	2013-06-28 15:50:07 UTC (rev 22437)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90	2013-06-28 15:53:59 UTC (rev 22438)
@@ -213,7 +213,7 @@
     ! close receiver file
     close(1)
 
-! BS BS begin      
+! BS BS begin
 ! In case that the same station and network name appear twice (or more times) in the STATIONS
 ! file, problems occur, as two (or more) seismograms are written (with mode
 ! "append") to a file with same name. The philosophy here is to accept multiple
@@ -230,9 +230,9 @@
               write(station_name(irec),"(a,'_',i2.2)") trim(station_name(irec)),station_duplet(i)+1
             else
               call exit_MPI(myrank,'Please increase MAX_LENGTH_STATION_NAME by at lease 3')
-            endif      
+            endif
 
-        endif    
+        endif
       enddo
     enddo
 ! BS BS end
@@ -606,7 +606,7 @@
 
 ! for MPI version, gather information from all the nodes
   ispec_selected_rec_all(:,:) = -1
-  
+
   call MPI_GATHER(ispec_selected_rec_subset,nrec_SUBSET_current_size,MPI_INTEGER,ispec_selected_rec_all,nrec_SUBSET_current_size, &
                   MPI_INTEGER,0,MPI_COMM_WORLD,ier)