[cig-commits] r16388 - seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0

[danielpeter at geodynamics.org]

Author: danielpeter
Date: 2010-03-04 18:24:11 -0800 (Thu, 04 Mar 2010)
New Revision: 16388

Modified:
   seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/setup_sources_receivers.f90
Log:
copying small change to avoid filename problems with gfortran in setup_sources_receivers.f90

Modified: seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/setup_sources_receivers.f90	2010-03-05 01:51:14 UTC (rev 16387)
+++ seismo/3D/SPECFEM3D_GLOBE/tags/v5.0.0/setup_sources_receivers.f90	2010-03-05 02:24:11 UTC (rev 16388)
@@ -113,7 +113,7 @@
   ! call to locate_sources, where further write statements to that file follow
   if(myrank == 0) then
   ! write source and receiver VTK files for Paraview
-    write(filename,*) trim(OUTPUT_FILES)//'/sr_tmp.vtk'
+    filename = trim(OUTPUT_FILES)//'/sr_tmp.vtk'
     open(IOVTK,file=trim(filename),status='unknown')
     write(IOVTK,'(a)') '# vtk DataFile Version 2.0'
     write(IOVTK,'(a)') 'Source and Receiver VTK file'
@@ -254,8 +254,8 @@
     close(IOVTK)
 
     !  we should know NSOURCES+nrec at this point...
-    write(filename,*) trim(OUTPUT_FILES)//'/sr_tmp.vtk'
-    write(filename_new,*) trim(OUTPUT_FILES)//'/sr.vtk'
+    filename = trim(OUTPUT_FILES)//'/sr_tmp.vtk'
+    filename_new = trim(OUTPUT_FILES)//'/sr.vtk'
     write(system_command,"('sed -e ',a1,'s/POINTS.*/POINTS',i6,' float/',a1,' < ',a,' > ',a)") &
       "'",NSOURCES + nrec,"'",trim(filename),trim(filename_new)
     call system(system_command)