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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-01-16 18:31:57 -0800 (Wed, 16 Jan 2013)
New Revision: 21261

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90
Log:
removed three calls to "system" (they do not conform to the Fortran2003 standard)


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90	2013-01-17 02:24:49 UTC (rev 21260)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90	2013-01-17 02:31:57 UTC (rev 21261)
@@ -349,21 +349,27 @@
     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)
+!! DK DK removed call to "system", which is not portable: we impose to conform strictly to the Fortran2003 standard;
+!! DK DK the developer who wrote this command should find another way (in Fortran, without a system call)
+!   call system(system_command)
 
     ! only extract receiver locations and remove temporary file
     filename_new = trim(OUTPUT_FILES)//'/receiver.vtk'
     write(system_command, &
   "('awk ',a1,'{if(NR<5) print $0;if(NR==6)print ',a1,'POINTS',i6,' float',a1,';if(NR>5+',i6,')print $0}',a1,' < ',a,' > ',a)")&
       "'",'"',nrec,'"',NSOURCES,"'",trim(filename),trim(filename_new)
-    call system(system_command)
+!! DK DK removed call to "system", which is not portable: we impose to conform strictly to the Fortran2003 standard;
+!! DK DK the developer who wrote this command should find another way (in Fortran, without a system call)
+!   call system(system_command)
 
     ! only extract source locations and remove temporary file
     filename_new = trim(OUTPUT_FILES)//'/source.vtk'
     write(system_command, &
   "('awk ',a1,'{if(NR< 6 + ',i6,') print $0}END{print}',a1,' < ',a,' > ',a,'; rm -f ',a)")&
       "'",NSOURCES,"'",trim(filename),trim(filename_new),trim(filename)
-    call system(system_command)
+!! DK DK removed call to "system", which is not portable: we impose to conform strictly to the Fortran2003 standard;
+!! DK DK the developer who wrote this command should find another way (in Fortran, without a system call)
+!   call system(system_command)
 
 
     write(IMAIN,*)