Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
579088b2
Commit
579088b2
authored
Mar 21, 2014
by
Andreas Marek
Browse files
ELPA 2013.11.008: standard functions for command line argument retrieval
parent
b360f7ae
Changes
6
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.00
7
.
# Generated by GNU Autoconf 2.69 for elpa 2013.11.00
8
.
#
# 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.00
7
'
PACKAGE_STRING='elpa 2013.11.00
7
'
PACKAGE_VERSION='2013.11.00
8
'
PACKAGE_STRING='elpa 2013.11.00
8
'
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.00
7
to adapt to many kinds of systems.
\`configure' configures elpa 2013.11.00
8
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.00
7
:";;
short | recursive ) echo "Configuration of elpa 2013.11.00
8
:";;
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.00
7
elpa configure 2013.11.00
8
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.00
7
, which was
It was created by elpa $as_me 2013.11.00
8
, 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.00
7
'
VERSION='2013.11.00
8
'
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.00
7
, which was
This file was extended by elpa $as_me 2013.11.00
8
, 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.00
7
elpa config.status 2013.11.00
8
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.00
7
], elpa-library@rzg.mpg.de)
AC_INIT([elpa],[2013.11.00
8
], 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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment