ELPA 2013.11.008: standard functions for command line argument retrieval

ELPA_2013.11/configure

 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.69 for elpa 2013.11.007.
+# Generated by GNU Autoconf 2.69 for elpa 2013.11.008.
 #
 # Report bugs to <elpa-library@rzg.mpg.de>.
 #
@@ -590,8 +590,8 @@ MAKEFLAGS=
 # Identity of this package.
 PACKAGE_NAME='elpa'
 PACKAGE_TARNAME='elpa'
-PACKAGE_VERSION='2013.11.007'
-PACKAGE_STRING='elpa 2013.11.007'
+PACKAGE_VERSION='2013.11.008'
+PACKAGE_STRING='elpa 2013.11.008'
 PACKAGE_BUGREPORT='elpa-library@rzg.mpg.de'
 PACKAGE_URL=''
@@ -1390,7 +1390,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures elpa 2013.11.007 to adapt to many kinds of systems.
+\`configure' configures elpa 2013.11.008 to adapt to many kinds of systems.
 Usage: $0 [OPTION]... [VAR=VALUE]...
@@ -1460,7 +1460,7 @@ fi
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of elpa 2013.11.007:";;
+     short | recursive ) echo "Configuration of elpa 2013.11.008:";;
    esac
   cat <<\_ACEOF
@@ -1599,7 +1599,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-elpa configure 2013.11.007
+elpa configure 2013.11.008
 generated by GNU Autoconf 2.69
 Copyright (C) 2012 Free Software Foundation, Inc.
@@ -2082,7 +2082,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
-It was created by elpa $as_me 2013.11.007, which was
+It was created by elpa $as_me 2013.11.008, which was
 generated by GNU Autoconf 2.69.  Invocation command line was
   $ $0 $@
@@ -2947,7 +2947,7 @@ fi
 # Define the identity of the package.
  PACKAGE='elpa'
- VERSION='2013.11.007'
+ VERSION='2013.11.008'
 cat >>confdefs.h <<_ACEOF
@@ -20783,7 +20783,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by elpa $as_me 2013.11.007, which was
+This file was extended by elpa $as_me 2013.11.008, which was
 generated by GNU Autoconf 2.69.  Invocation command line was
   CONFIG_FILES    = $CONFIG_FILES
@@ -20849,7 +20849,7 @@ _ACEOF
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
 ac_cs_version="\\
-elpa config.status 2013.11.007
+elpa config.status 2013.11.008
 configured by $0, generated by GNU Autoconf 2.69,
   with options \\"\$ac_cs_config\\"

ELPA_2013.11/configure.ac

 AC_PREREQ([2.69])
-AC_INIT([elpa],[2013.11.007], elpa-library@rzg.mpg.de)
+AC_INIT([elpa],[2013.11.008], elpa-library@rzg.mpg.de)
 AC_CONFIG_SRCDIR([src/elpa1.F90])
 
 AM_INIT_AUTOMAKE([foreign -Wall subdir-objects])

ELPA_2013.11/test/test_complex.F90

@@ -105,25 +105,27 @@ program test_complex
    na = 4000
    nev = 1500
 
-   if (iargc() == 3) then
-      call getarg(1, arg1)
-      call getarg(2, arg2)
-      call getarg(3, arg3)
+   if (COMMAND_ARGUMENT_COUNT() == 3) then
+      call GET_COMMAND_ARGUMENT(1, arg1)
+      call GET_COMMAND_ARGUMENT(2, arg2)
+      call GET_COMMAND_ARGUMENT(3, arg3)
+
       read(arg1, *) na
       read(arg2, *) nev
       read(arg3, *) nblk
    endif
 
-   if (iargc() == 4) then
-      call getarg(1, arg1)
-      call getarg(2, arg2)
-      call getarg(3, arg3)
-      call getarg(4, arg4)
+   if (COMMAND_ARGUMENT_COUNT() == 4) then
+      call GET_COMMAND_ARGUMENT(1, arg1)
+      call GET_COMMAND_ARGUMENT(2, arg2)
+      call GET_COMMAND_ARGUMENT(3, arg3)
+      call GET_COMMAND_ARGUMENT(4, arg4)
       read(arg1, *) na
       read(arg2, *) nev
       read(arg3, *) nblk
- 
+      
    endif
+
    !-------------------------------------------------------------------------------
    !  MPI Initialization
 #ifndef WITH_OPENMP

ELPA_2013.11/test/test_complex2.F90

@@ -107,20 +107,21 @@ program test_complex2
    na = 4000
    nev = 1500
 
-   if (iargc() == 3) then
-      call getarg(1, arg1)
-      call getarg(2, arg2)
-      call getarg(3, arg3)
+   if (COMMAND_ARGUMENT_COUNT() == 3) then
+      call GET_COMMAND_ARGUMENT(1, arg1)
+      call GET_COMMAND_ARGUMENT(2, arg2)
+      call GET_COMMAND_ARGUMENT(3, arg3)
+
       read(arg1, *) na
       read(arg2, *) nev
       read(arg3, *) nblk
    endif
 
-   if (iargc() == 4) then
-      call getarg(1, arg1)
-      call getarg(2, arg2)
-      call getarg(3, arg3)
-      call getarg(4, arg4)
+   if (COMMAND_ARGUMENT_COUNT() == 4) then
+      call GET_COMMAND_ARGUMENT(1, arg1)
+      call GET_COMMAND_ARGUMENT(2, arg2)
+      call GET_COMMAND_ARGUMENT(3, arg3)
+      call GET_COMMAND_ARGUMENT(4, arg4)
       read(arg1, *) na
       read(arg2, *) nev
       read(arg3, *) nblk

ELPA_2013.11/test/test_real.F90

@@ -104,25 +104,27 @@ program test_real
    na = 4000
    nev = 1500
 
-   if (iargc() == 3) then
-      call getarg(1, arg1)
-      call getarg(2, arg2)
-      call getarg(3, arg3)
+   if (COMMAND_ARGUMENT_COUNT() == 3) then
+      call GET_COMMAND_ARGUMENT(1, arg1)
+      call GET_COMMAND_ARGUMENT(2, arg2)
+      call GET_COMMAND_ARGUMENT(3, arg3)
+
       read(arg1, *) na
       read(arg2, *) nev
       read(arg3, *) nblk
    endif
 
-   if (iargc() == 4) then
-      call getarg(1, arg1)
-      call getarg(2, arg2)
-      call getarg(3, arg3)
-      call getarg(4, arg4)
+   if (COMMAND_ARGUMENT_COUNT() == 4) then
+      call GET_COMMAND_ARGUMENT(1, arg1)
+      call GET_COMMAND_ARGUMENT(2, arg2)
+      call GET_COMMAND_ARGUMENT(3, arg3)
+      call GET_COMMAND_ARGUMENT(4, arg4)
       read(arg1, *) na
       read(arg2, *) nev
       read(arg3, *) nblk
- 
+      
    endif
+
    !-------------------------------------------------------------------------------
    !  MPI Initialization
 #ifndef WITH_OPENMP

ELPA_2013.11/test/test_real2.F90

@@ -103,24 +103,27 @@ program test_real2
    na = 4000
    nev = 1500
 
-   if (iargc() == 3) then
-      call getarg(1, arg1)
-      call getarg(2, arg2)
-      call getarg(3, arg3)
+   if (COMMAND_ARGUMENT_COUNT() == 3) then
+      call GET_COMMAND_ARGUMENT(1, arg1)
+      call GET_COMMAND_ARGUMENT(2, arg2)
+      call GET_COMMAND_ARGUMENT(3, arg3)
+
       read(arg1, *) na
       read(arg2, *) nev
       read(arg3, *) nblk
    endif
 
-   if (iargc() == 4) then
-      call getarg(1, arg1)
-      call getarg(2, arg2)
-      call getarg(3, arg3)
-      call getarg(4, arg4)
+   if (COMMAND_ARGUMENT_COUNT() == 4) then
+      call GET_COMMAND_ARGUMENT(1, arg1)
+      call GET_COMMAND_ARGUMENT(2, arg2)
+      call GET_COMMAND_ARGUMENT(3, arg3)
+      call GET_COMMAND_ARGUMENT(4, arg4)
       read(arg1, *) na
       read(arg2, *) nev
       read(arg3, *) nblk
+      
    endif
+
    !-------------------------------------------------------------------------------
    !  MPI Initialization