Skip to content

GitLab

Commit 579088b2 authored by Andreas Marek's avatar Andreas Marek
Browse files

ELPA 2013.11.008: standard functions for command line argument retrieval

parent b360f7ae
Hide whitespace changes
Inline Side-by-side
ELPA_2013.11/configure
View file @ 579088b2
#! /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
View file @ 579088b2
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
View file @ 579088b2
......@@ -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
View file @ 579088b2
......@@ -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
View file @ 579088b2
......@@ -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
View file @ 579088b2
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment