[cig-commits] r21260 - in seismo/3D/SPECFEM3D/trunk/src: decompose_mesh shared specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-01-16 18:24:49 -0800 (Wed, 16 Jan 2013)
New Revision: 21260

Modified:
   seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/program_decompose_mesh.f90
   seismo/3D/SPECFEM3D/trunk/src/shared/combine_surf_data.f90
   seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90
   seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/model_update.f90
Log:
changed call getarg() to call get_command_argument() for portability, to conform to Fortran2003 standard


Modified: seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/program_decompose_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/program_decompose_mesh.f90	2013-01-17 01:51:19 UTC (rev 21259)
+++ seismo/3D/SPECFEM3D/trunk/src/decompose_mesh/program_decompose_mesh.f90	2013-01-17 02:24:49 UTC (rev 21260)
@@ -45,9 +45,6 @@
                                   LOCAL_PATH,TOMOGRAPHY_PATH,PML_CONDITIONS,PML_INSTEAD_OF_FREE_SURFACE, &
                                   PML_WIDTH_MIN,PML_WIDTH_MAX,f0_FOR_PML,IMODEL
 
-! daniel: ifort
-!  USE IFPORT,only: getarg
-
   implicit none
 
   integer :: i
@@ -55,7 +52,7 @@
 
 ! check usage
   do i=1,3
-    call getarg(i,arg(i))
+    call get_command_argument(i,arg(i))
     if (i <= 3 .and. trim(arg(i)) == "") then
       print *, 'Usage: ./decompose_mesh  nparts  input_directory output_directory'
       print *

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/combine_surf_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/combine_surf_data.f90	2013-01-17 01:51:19 UTC (rev 21259)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/combine_surf_data.f90	2013-01-17 02:24:49 UTC (rev 21260)
@@ -64,7 +64,7 @@
 
 
   do i = 1, 8
-    call getarg(i,arg(i))
+    call get_command_argument(i,arg(i))
     if (i < 6 .and. trim(arg(i)) == '') then
       print *, 'Usage: xcombine_surface start_slice end_slice filename surfacename input_dir output_dir high/low-resolution 3D/2D'
       print *, '    or xcombine_surface slice_list filename surfacename input_dir output_dir high/low-resolution 3D/2D'

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90	2013-01-17 01:51:19 UTC (rev 21259)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90	2013-01-17 02:24:49 UTC (rev 21260)
@@ -110,7 +110,7 @@
   print *
 
   do i = 1, 6
-    call getarg(i,arg(i))
+    call get_command_argument(i,arg(i))
     if (i < 6 .and. trim(arg(i)) == '') then
       print *, 'Usage: '
       print *, '        xcombine_data start_slice end_slice filename input_dir output_dir high/low-resolution'

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90	2013-01-17 01:51:19 UTC (rev 21259)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/smooth_vol_data.f90	2013-01-17 02:24:49 UTC (rev 21260)
@@ -152,7 +152,7 @@
 
   ! reads arguments
   do i = 1, 5
-    call getarg(i,arg(i))
+    call get_command_argument(i,arg(i))
     if (i <= 5 .and. trim(arg(i)) == '') then
       print *, 'Usage: '
       print *, '        xsmooth_data filename input_dir output_dir sigma_h sigma_v'

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/model_update.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/model_update.f90	2013-01-17 01:51:19 UTC (rev 21259)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/model_update.f90	2013-01-17 02:24:49 UTC (rev 21260)
@@ -151,7 +151,7 @@
   ! subjective step length to multiply to the gradient
   ! e.g. step_fac = 0.03
 
-  call getarg(1,s_step_fac)
+  call get_command_argument(1,s_step_fac)
 
   if (trim(s_step_fac) == '') then
     call exit_MPI(myrank,'Usage: add_model step_factor')