cosmetic changes on the changelog

* Avoid purification stage in [d,s]neupd.f if it requires division by zero (Closes: #58)

.gitignore

@@ -1,14 +1,54 @@
-*.o
-*.lo
-Makefile
-*.la
-.libs/
-SRC/.libs/
-UTIL/.libs/
+.hgignore
+
+# Generated by `autoreconf`
+Makefile.in
+aclocal.m4
 autom4te.cache/
+m4/libtool.m4
+m4/lt*.m4
+compile
+configure
+config.guess
+config.sub
+depcomp
+install-sh
+ltmain.sh
+missing
+test-driver
+
+# Generated by `./configure`
+Makefile
 config.log
 config.status
 libtool
+.deps/
+arpack.pc
+
+# Generated by `make`
+*.o
+*.lo
+*.la
+.libs/
+
+# Generated by `make check`
+*.log
+*.trs
+TESTS/dnsimp
+TESTS/bug_1315_double
+TESTS/bug_1315_single
+TESTS/bug_1323
+EXAMPLES/BAND/[sd][sn]bdr[123456]
+EXAMPLES/BAND/[cz]nbdr[1234]
+EXAMPLES/COMPLEX/[cz]ndrv[1234]
+EXAMPLES/NONSYM/[sd]ndrv[123456]
+EXAMPLES/SIMPLE/[sd]ssimp
+EXAMPLES/SIMPLE/[sdcz]nsimp
+EXAMPLES/SVD/[sd]svd
+EXAMPLES/SYM/[sd]sdrv[123456]
+PARPACK/EXAMPLES/MPI/p[sd]ndrv[13]
+PARPACK/EXAMPLES/MPI/p[sd]sdrv1
+PARPACK/EXAMPLES/MPI/p[cz]ndrv1
+
 *.lib
 *.def
 *.dll
@@ -18,5 +58,3 @@ libtool
 *.suo
 VISUAL_STUDIO/Release MKL/
 VISUAL_STUDIO/bin/
-TESTS/dnsimp
-

.hgignore

@@ -0,0 +1,34 @@
+syntax: glob
+
+.gitignore
+
+Makefile
+
+*.o
+*.lo
+*.la
+.libs/
+SRC/.libs/
+UTIL/.libs/
+arpack.pc
+autom4te.cache/
+config.log
+config.status
+libtool
+*.lib
+*.def
+*.dll
+*.bak
+*.exp
+*.u2d
+*.suo
+VISUAL_STUDIO/Release MKL/
+VISUAL_STUDIO/bin/
+TESTS/dnsimp
+PARPACK/EXAMPLES/MPI/pcndrv1
+PARPACK/EXAMPLES/MPI/pdndrv1
+PARPACK/EXAMPLES/MPI/pdndrv3
+PARPACK/EXAMPLES/MPI/pdsdrv1
+PARPACK/EXAMPLES/MPI/psndrv3
+PARPACK/EXAMPLES/MPI/pssdrv1
+PARPACK/EXAMPLES/MPI/pzndrv1

.travis.yml

@@ -0,0 +1,34 @@
+sudo: false
+
+language: c
+
+compiler:
+  - gcc
+
+addons:
+  apt:
+    packages:
+      - gfortran
+      - libblas-dev
+      - liblapack-dev
+      - libopenmpi-dev
+      - openmpi-bin
+
+env:
+  - BUILD=cmake
+  - BUILD=configure
+
+before_script:
+  - if [ "$BUILD" == "cmake" ]; then mkdir build ; fi
+  - if [ "$BUILD" == "cmake" ]; then cd build ; fi
+  - if [ "$BUILD" == "cmake" ]; then cmake -D EXAMPLES=ON -D MPI=ON .. ; fi
+
+script:
+  # CMAKE
+  - if [ "$BUILD" == "cmake"  ]; then make all check ; fi
+  # CONFIGURE
+  - if [ "$BUILD" == "configure" ]; then ./bootstrap ; fi
+  - if [ "$BUILD" == "configure" ]; then ./configure --enable-mpi ; fi
+  - if [ "$BUILD" == "configure" ]; then make all ; fi
+  - if [ "$BUILD" == "configure" ]; then make check ; fi
+  - if [ "$BUILD" == "configure" ]; then make distcheck ; fi

CHANGES

@@ -1,3 +1,145 @@
+arpack-ng - 3.5.0
+
+ [ Julien Schueller ]
+ * Improve cmake build system: disable C++ detection, set default build type.
+
+ [ Marco Atzeri]
+ * Use AC_PROG_FC instead of AC_PROG_F77 for proper inizialization
+   for the usage of AC_FC_LINE_LENGTH. Noted on Cygwin.
+
+ [ Denis Davydov ]
+ * Improve cmake build system: add make install and fix shared libraries.
+
+ [ Zhang Z ]
+ * fix usages of DLACPY to not alias inputs
+   (patch from https://software.intel.com/en-us/articles/how-to-resolve-arpack-issues-with-intel-mkl-110-update-3)
+
+ [ Iskakov Sergei ]
+ *  Fix possible deadlock when PARPACK call uses communicator with a larger
+    number of CPUs than previous call
+
+ [ Kyle Guinn ]
+ * Portability improvements to the autotools build system.
+ * Let cmake guess the default installation directories.  Can be
+   overridden by changing CMAKE_INSTALL_LIBDIR and CMAKE_INSTALL_BINDIR.
+ * Shared libraries built by cmake now have their SONAME set identical to
+   those built by autotools.
+
+ [ Marco Caliari ]
+ * Avoid purification stage in [d,s]neupd.f if it requires division
+    by zero (Closes: #58)
+
+ -- Sylvestre Ledru <sylvestre@debian.org>  Mon, 15 May 2017 14:21:48 +0200
+
+arpack-ng - 3.4.0
+
+  [ Milan Bouchet-Valat ]
+  * Allow adding suffixes to symbols and library names to build ILP64 version
+    based on ILP64 BLAS/LAPACK with suffixes. This avoids conflicts when loading
+    libraries with different integer sizes in the same program.
+
+  [ Martin Reuter ]
+  * Add the support of cmake build system
+
+ -- Sylvestre Ledru <sylvestre@debian.org>  Sat, 02 Jul 2016 21:51:52 +0200
+
+arpack-ng - 3.3.0
+
+ [ Denis Davydov ]
+ * Rename pdlamch to pdlamch10 to avoid symbol collision with Scalapack 2.0.2 in MPI context.
+
+ [ Kyle Guinn ]
+ * General improvements on the build system
+ * libparpack links against libarpack (instead of doing a static link)
+
+ [ Guillaume Horel ]
+ * reverts using {d,s}lahqr from lapack 2
+ * use dlahqr from lapack 3 instead of dlaqrb (credit to Marco Caliari)
+
+ -- Sylvestre Ledru <sylvestre@debian.org>  Mon, 12 October 2015 08:40:51 +0200
+
+arpack-ng - 3.2.0
+
+ * Switch to github - https://github.com/opencollab/arpack-ng/
+
+ * Fix dsneupd select/calculate wrong eigenpairs if rvec = true
+   by using dlahqr and slahqr from lapack2 (Closes: #3)
+
+ -- Sylvestre Ledru <sylvestre@debian.org>  Sat, 14 Nov 2014 16:25:36 +0200
+
+arpack-ng - 3.1.5
+
+ * Build all examples and run them as tests
+
+ * Fix the version of arpack-ng itself
+
+ * Switch to automake 1.14.1
+
+ [ Ruediger Meier ]
+ * Do not install test binaries (Closes: #1348)
+
+ [ Nikita Styopin ]
+ * Fix the diagonal matrix example (dndrv5) (Closes: #1397)
+
+ -- Sylvestre Ledru <sylvestre@debian.org>  Sat, 15 Feb 2014 14:24:42 +0200
+
+arpack-ng - 3.1.4
+
+ * libparpack2: missing dependency on MPI:
+   http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=718790
+
+ * Replace LAPACK second function with ARPACK's own arscnd in PARPACK
+
+ * Fix issue #1259 in DSEUPD and SSEUPD
+   The Ritz vector purification step assumes workl(iq) still contains the
+   original Q matrix. This is however overwritten by the call to xGEQR2
+   earlier.
+   .
+   This patch fixes the issue by making a copy of the last row of the
+   eigenvector matrix, after it is recomputed after QR by xORM2R. The work
+   space WORKL(IW+NCV:IW+2*NCV) is not used later in the routine, and can
+   be used for this.
+
+ * Use configure supplied blas and lapack in the pkg-config.
+   Thanks to Ward Poelmans (Closes: #1320)
+
+ * Switch to automake 1.14 + libtool 2.4.2.
+   Thanks to Ward Poelmans (Closes: #1321)
+
+ * dseupd routine may lead to a segmentation fault
+   Thanks to Edouard Canot (Closes: #1323)
+
+ * dsaupd and 'BE' option returns wrong eigenvalues for a SPD matrix
+   Thanks to Edouard Canot (Closes: #1329)
+
+ -- Sylvestre Ledru <sylvestre.ledru@scilab-enterprises.com>  Mon, 07 Oct 2013 14:24:42 +0200
+
+arpack-ng - 3.1.3
+
+  [ Jordi Gutiérrez Hermoso ]
+  * Replace depcomp symlink with actual file.
+  * Update libtool usage. Thanks to John W. Eaton <jwe@octave.org>.
+  * Replace arpack.pc with proper autotooled arpack.pc.in
+  * Add debug.h to TESTS/Makefile.am sources
+
+  * "make dist" is functionnal
+  * Also build the library "libparpacksrcblacs" (PARPACK/UTIL/BLACS/)
+
+ -- Sylvestre Ledru <sylvestre.ledru@scilab-enterprises.com>  Tue, 02 Apr 2013 10:53:08 +0200
+
+arpack-ng - 3.1.2
+
+   * Wrong call to pdlamch was causing segfaults
+     Thanks to Kyrre Sjøbæk for finding the bug and the fix.
+   * Get rid of the mpif.h occurences in the source code (Closes: #782)
+   * Compile also PARPACK / MPI example (Closes: #783)
+   * Configure detected built-in LAPACK and BLAS, but refused to use them
+     (Closes: #784)
+   * Fixed division by zero in smlnum by usind p[d,s]lamch instead of the
+     serial. Thanks to Umberto De Giovannini.
+
+ -- Sylvestre Ledru <sylvestre.ledru@scilab-enterprises.com>  Fri, 22 Jun 2012 22:05:41 +0200
+
 arpack-ng - 3.1.1
 
    * Option --enable-maintainer-mode added to the configure
@@ -11,7 +153,7 @@ arpack-ng - 3.1.0
    * Many bug fixes in the parpack lib. It is an old patch from upstream.
      Thanks to Viral Shah for pinging us on this subject.
      See the PARPACK_CHANGES file for the details.
-   * Change the bug report from arpack@caam.rice.edu to 
+   * Change the bug report from arpack@caam.rice.edu to
      http://forge.scilab.org/index.php/p/arpack-ng/issues/
    * Provide a M4 macro (detect_arpack_bug.m4) to check if the underlying
      arpack is buggy (ie not arpack-ng). This allows developper applications
@@ -53,8 +195,8 @@ arpack-ng - 3.0
      second_NONE works with all fortrans compilers (used by default with Scilab)
 
      sneupd.f, cneupd.f: modified for scilab add a check on nconv value (Scilab bug fix)
-     dnaupd.f: modified  NEV Integer: INPUT/OUTPUT before only INPUT (Scilab bug fix) 
- 
+     dnaupd.f: modified  NEV Integer: INPUT/OUTPUT before only INPUT (Scilab bug fix)
+
    * Patches from Octave: (Thanks to John W. EATON)
      dneupd.f: Restore value of nconv
      dseupd.f: Restore value of nconv

CMakeLists.txt

@@ -0,0 +1,446 @@
+cmake_minimum_required(VERSION 2.8.6)
+
+if (NOT DEFINED CMAKE_BUILD_TYPE)
+   set (CMAKE_BUILD_TYPE Release CACHE STRING "Build type")
+endif ()
+
+project(arpack C Fortran)
+
+# Adopted from https://github.com/feymark/arpack.git
+
+if (POLICY CMP0042)
+  # enable MACOSX_RPATH by default
+  cmake_policy (SET CMP0042 NEW)
+endif ()
+
+option(MPI "Enable parallel support" OFF)
+#option(SYSTEM_BLAS "Use system BLAS" ON)
+#option(SYSTEM_LAPACK "Use system LAPACK" ON)
+option(EXAMPLES "Compile ARPACK examples" OFF)
+set(LIBSUFFIX ""
+    CACHE STRING "suffix to add to ARPACK libraries names")
+set(SYMBOLSUFFIX ""
+    CACHE STRING "suffix to add to ARPACK, BLAS and LAPACK function names")
+option(INTERFACE64 "use the 64-bit integer interface (ILP64) for ARPACK, BLAS and LAPACK")
+
+set(CMAKE_LIBRARY_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/lib)
+
+function(prefixlist list_name prefix)
+    set(${list_name}_TMP)
+    foreach(l ${${list_name}})
+      list(APPEND ${list_name}_TMP ${prefix}${l} )
+    endforeach()
+    set(${list_name} "${${list_name}_TMP}" PARENT_SCOPE)
+endfunction(prefixlist)
+
+function(examples list_name)
+    foreach(l ${${list_name}})
+        get_filename_component(lwe ${l} NAME_WE)
+        add_executable(${lwe} ${arpackexample_DIR}/${l} ${examples_EXTRA_SRCS})
+        target_link_libraries(${lwe} arpack ${BLAS_LIBRARIES} ${LAPACK_LIBRARIES})
+    endforeach()
+endfunction(examples)
+
+function(pexamples list_name)
+    foreach(l ${${list_name}})
+        get_filename_component(lwe ${l} NAME_WE)
+        add_executable(${lwe} ${parpackexample_DIR}/${l} )
+        target_link_libraries(${lwe} parpack arpack  ${MPI_Fortran_LIBRARIES})
+    endforeach()
+endfunction(pexamples)
+
+#if (SYSTEM_BLAS)
+    find_package(BLAS REQUIRED)
+#endif()
+#if (BLAS_LIBRARIES)
+#    set(SYSTEM_BLAS ON)
+#endif()
+
+if (MPI)
+    include(FindMPI)
+    find_package(MPI REQUIRED)
+    include_directories(${MPI_Fortran_INCLUDE_PATH})
+    set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} ${MPI_Fortran_COMPILE_FLAG}")
+endif()
+
+#if (SYSTEM_LAPACK)
+    find_package(LAPACK REQUIRED)
+#endif()
+#if (BLAS_LIBRARIES)
+#    set(SYSTEM_LAPACK ON)
+#endif()
+
+if (MPI)
+    set(parpackutil_DIR ${arpack_SOURCE_DIR}/PARPACK/UTIL/)
+    set(parpacksrc_DIR ${arpack_SOURCE_DIR}/PARPACK/SRC/)
+endif()
+
+#if (NOT SYSTEM_BLAS)
+#    file(GLOB arpackblas_STAT_SRCS blas/*.f)
+#endif()
+#if (NOT SYSTEM_LAPACK)
+#    file(GLOB arpacklapack_STAT_SRCS lapack/*.f)
+#endif()
+#file(GLOB arpackutil_STAT_SRCS util/*.f)
+file(GLOB arpacksrc_STAT_SRCS SRC/*.f)
+
+set(arpackutil_STAT_SRCS
+    UTIL/icnteq.f
+    UTIL/icopy.f
+    UTIL/iset.f
+    UTIL/iswap.f
+    UTIL/ivout.f
+    UTIL/second_NONE.f
+    UTIL/svout.f
+    UTIL/smout.f
+    UTIL/dvout.f
+    UTIL/dmout.f
+    UTIL/cvout.f
+    UTIL/cmout.f
+    UTIL/zvout.f
+    UTIL/zmout.f )
+
+
+if (MPI)
+    file(GLOB parpackutil_STAT_SRCS PARPACK/UTIL/MPI/*.f)
+    file(GLOB parpacksrc_STAT_SRCS PARPACK/SRC/MPI/*.f)
+endif()
+
+#add_library(arpack SHARED
+#                   ${arpackblas_STAT_SRCS}
+#                   ${arpacklapack_STAT_SRCS}
+#                   ${arpackutil_STAT_SRCS}
+#                   ${arpacksrc_STAT_SRCS})
+add_library(arpack
+                   ${arpackutil_STAT_SRCS}
+                   ${arpacksrc_STAT_SRCS})
+
+target_link_libraries(arpack ${BLAS_LIBRARIES})
+target_link_libraries(arpack ${LAPACK_LIBRARIES})
+set_target_properties(arpack PROPERTIES OUTPUT_NAME arpack${LIBSUFFIX})
+set_target_properties(arpack PROPERTIES VERSION 2.0.0)
+set_target_properties(arpack PROPERTIES SOVERSION 2)
+
+if (MPI)
+#    add_library(parpack SHARED
+    add_library(parpack
+                        ${parpacksrc_STAT_SRCS}
+                        ${parpackutil_STAT_SRCS})
+
+    target_link_libraries(parpack ${MPI_Fortran_LIBRARIES})
+    target_link_libraries(parpack arpack)
+    set_target_properties(parpack PROPERTIES OUTPUT_NAME parpack${LIBSUFFIX})
+    set_target_properties(parpack PROPERTIES VERSION 2.0.0)
+    set_target_properties(parpack PROPERTIES SOVERSION 2)
+endif ()
+
+if (INTERFACE64)
+    if ("${CMAKE_Fortran_COMPILER_ID}" MATCHES "GNU")
+      set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fdefault-integer-8")
+    elseif ("${CMAKE_Fortran_COMPILER_ID}" MATCHES "Intel")
+      set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -i8")
+    else ()
+      message(WARNING "build script does not know how to make your Fortran compiler use 64-bit integers: set it manually via FFLAGS.")
+    endif ()
+
+    set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DBLASINT=int64_t")
+endif ()
+
+if (SYMBOLSUFFIX)
+    if ("${CMAKE_Fortran_COMPILER_ID}" MATCHES "GNU")
+      set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -cpp -ffixed-line-length-none")
+    elseif ("${CMAKE_Fortran_COMPILER_ID}" MATCHES "Intel")
+      set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fpp -extend-source")
+    else ()
+      message(WARNING "build script does not know how to enable your Fortran compiler's preprocessor and support for lines longer than 72 characters: set them manually via FFLAGS.")
+    endif ()
+
+    set(SCALARFUNS naitr napps naup2 naupd nconv neigh neupd ngets statn saitr sapps saup2 saupd sconv seigt seupd sgets stats getv0 sortc sortr sesrt stqrb)
+    set(COMPLEXFUNS, naitr napps naup2 naupd neigh neupd ngets statn getv0 sortc)
+
+    set(BLASFUNS1 axpy copy gemv geqr2 lacpy lae2 lahqr lanhs larnv lartg lascl laset lasrt scal trevc trmm trsen gbmv gbtrf gbtrs gttrf gttrs pttrf pttrs)
+    set(BLASFUNS2 dot ger labad laev2 lamch lanst lanv2 lapy2 larf larfg lasr nrm2 orm2r rot steqr swap)
+    set(BLASFUNS3 dotc geru unm2r)
+    set(BLASFUNS4 COPY LABAD LAMCH LANHS LANV2 LARFG ROT GEMV)
+    set(BLASFUNS5 scnrm2 dznrm2 csscal zdscal)
+
+    foreach (f IN LISTS SCALARFUNS BLASFUNS1 BLASFUNS2)
+      set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -Ds${f}=s${f}${SYMBOLSUFFIX} -Dd${f}=d${f}${SYMBOLSUFFIX}")
+    endforeach ()
+
+    foreach (f IN LISTS COMPLEXFUNS BLASFUNS1 BLASFUNS3)
+      set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -Dc${f}=c${f}${SYMBOLSUFFIX} -Dz${f}=z${f}${SYMBOLSUFFIX}")
+    endforeach ()
+
+    foreach (f IN LISTS BLASFUNS4)
+      set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -DS${f}=S${f}${SYMBOLSUFFIX} -DD${f}=D${f}${SYMBOLSUFFIX}")
+    endforeach ()
+
+    foreach (f IN LISTS BLASFUNS5)
+      set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -D${f}=${f}${SYMBOLSUFFIX}")
+    endforeach ()
+endif ()
+
+set(CFUNS sgemm snaupd sneupd dnaupd dneupd cheev)
+foreach (f IN LISTS CFUNS)
+  set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -D${f}=${f}${SYMBOLSUFFIX}")
+  list(APPEND CFUNS_SUFFIXED ${f}${SYMBOLSUFFIX})
+endforeach ()
+
+include(FortranCInterface)
+FortranCInterface_HEADER(FCMangle.h SYMBOLS ${CFUNS_SUFFIXED})
+
+set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DINCLUDE_FCMANGLE")
+set(CMAKE_INCLUDE_CURRENT_DIR ON)
+
+############################
+# EXAMPLES
+############################
+if (EXAMPLES)
+    ############################
+    # EXAMPLES/BAND
+    ############################
+    set(arpackexample_DIR ${arpack_SOURCE_DIR}/EXAMPLES/BAND/)
+    set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/Examples/band/)
+
+    set(examples_EXTRA_SRCS ${arpackexample_DIR}/cnband.f)
+    set(examples_STAT_SRCS
+        cnbdr1.f
+        cnbdr2.f
+        cnbdr3.f
+        cnbdr4.f)
+    examples(examples_STAT_SRCS)
+
+    set(examples_EXTRA_SRCS ${arpackexample_DIR}/dnband.f)
+    set(examples_STAT_SRCS
+        dnbdr1.f
+        dnbdr2.f
+        dnbdr3.f
+        dnbdr4.f
+        dnbdr5.f
+        dnbdr6.f)
+    examples(examples_STAT_SRCS)
+
+    set(examples_EXTRA_SRCS ${arpackexample_DIR}/dsband.f)
+    set(examples_STAT_SRCS
+        dsbdr1.f
+        dsbdr2.f
+        dsbdr3.f
+        dsbdr4.f
+        dsbdr5.f
+        dsbdr6.f)
+    examples(examples_STAT_SRCS)
+
+    set(examples_EXTRA_SRCS ${arpackexample_DIR}/snband.f)
+    set(examples_STAT_SRCS
+        snbdr1.f
+        snbdr2.f
+        snbdr3.f
+        snbdr4.f
+        snbdr5.f
+        snbdr6.f)
+    examples(examples_STAT_SRCS)
+
+    set(examples_EXTRA_SRCS ${arpackexample_DIR}/ssband.f)
+    set(examples_STAT_SRCS
+        ssbdr1.f
+        ssbdr2.f
+        ssbdr3.f
+        ssbdr4.f
+        ssbdr5.f
+        ssbdr6.f)
+    examples(examples_STAT_SRCS)
+
+    set(examples_EXTRA_SRCS ${arpackexample_DIR}/znband.f)
+    set(examples_STAT_SRCS
+        znbdr1.f
+        znbdr2.f
+        znbdr3.f
+        znbdr4.f)
+    examples(examples_STAT_SRCS)
+    set(examples_EXTRA_SRCS)
+
+    ############################
+    # EXAMPLES/COMPLEX
+    ############################
+    set(arpackexample_DIR ${arpack_SOURCE_DIR}/EXAMPLES/COMPLEX/)
+    set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/Examples/complex/)
+
+    set(examples_STAT_SRCS
+        cndrv1.f
+        cndrv2.f
+        cndrv3.f
+        cndrv4.f
+        zndrv1.f
+        zndrv2.f
+        zndrv3.f
+        zndrv4.f)
+    examples(examples_STAT_SRCS)
+
+    ############################
+    # examples/nonsym
+    ############################
+    set(arpackexample_DIR ${arpack_SOURCE_DIR}/EXAMPLES/NONSYM/)
+    set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/Examples/nonsym/)
+
+    set(examples_STAT_SRCS
+        dndrv1.f
+        dndrv2.f
+        dndrv3.f
+        dndrv4.f
+        dndrv5.f
+        dndrv6.f
+        sndrv1.f
+        sndrv2.f
+        sndrv3.f
+        sndrv4.f
+        sndrv5.f
+        sndrv6.f)
+    examples(examples_STAT_SRCS)
+
+    ############################
+    # examples/SIMPLE
+    ############################
+    set(arpackexample_DIR ${arpack_SOURCE_DIR}/EXAMPLES/SIMPLE/)
+    set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/Examples/simple/)
+
+    set(examples_STAT_SRCS
+        cnsimp.f
+        dnsimp.f
+        dssimp.f
+        snsimp.f
+        sssimp.f
+        znsimp.f)
+
+    examples(examples_STAT_SRCS)
+
+    ############################
+    # examples/svd
+    ############################
+    set(arpackexample_DIR ${arpack_SOURCE_DIR}/EXAMPLES/SVD/)
+    set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/Examples/svd/)
+
+    set(examples_STAT_SRCS
+        ssvd.f)
+
+    examples(examples_STAT_SRCS)
+
+    ############################
+    # examples/sym
+    ############################
+    set(arpackexample_DIR ${arpack_SOURCE_DIR}/EXAMPLES/SYM/)
+    set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/Examples/sym/)
+
+    set(examples_STAT_SRCS
+        dsdrv1.f
+        dsdrv2.f
+        dsdrv3.f
+        dsdrv4.f
+        dsdrv5.f
+        dsdrv6.f
+        ssdrv1.f
+        ssdrv2.f
+        ssdrv3.f
+        ssdrv4.f
+        ssdrv5.f
+        ssdrv6.f)
+
+    examples(examples_STAT_SRCS)
+
+    ############################
+    # parpack/examples
+    ############################
+    if (MPI)
+        set(parpackexample_DIR ${arpack_SOURCE_DIR}/PARPACK/EXAMPLES/MPI/)
+        set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/Examples/parpack)
+
+        set(pexamples_STAT_SRCS
+            pcndrv1.f
+            pdndrv1.f
+            pdndrv3.f
+            pdsdrv1.f
+            psndrv1.f
+            psndrv3.f
+            pssdrv1.f
+            pzndrv1.f)
+
+        pexamples(pexamples_STAT_SRCS)
+    endif()
+endif()
+
+
+############################
+# CHECK
+############################
+
+enable_testing()
+
+set(CMAKE_CTEST_COMMAND ctest -V)
+
+add_custom_target(check COMMAND ${CMAKE_CTEST_COMMAND})
+
+set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/Tests)
+
+add_executable(dnsimp_test EXCLUDE_FROM_ALL TESTS/dnsimp.f TESTS/mmio.f TESTS/debug.h)
+set_target_properties( dnsimp_test PROPERTIES OUTPUT_NAME  dnsimp )
+target_link_libraries(dnsimp_test arpack ${BLAS_LIBRARIES} ${LAPACK_LIBRARIES})
+add_custom_command(TARGET dnsimp_test POST_BUILD
+  COMMAND ${CMAKE_COMMAND} -E copy ${CMAKE_CURRENT_SOURCE_DIR}/TESTS/testA.mtx testA.mtx
+)
+add_test(dnsimp_test Tests/dnsimp)
+
+add_executable(bug_1315_single EXCLUDE_FROM_ALL TESTS/bug_1315_single.c)
+target_link_libraries(bug_1315_single arpack ${BLAS_LIBRARIES} ${LAPACK_LIBRARIES})
+add_test(bug_1315_single Tests/bug_1315_single)
+
+add_executable(bug_1315_double EXCLUDE_FROM_ALL TESTS/bug_1315_double.c)
+target_link_libraries(bug_1315_double arpack ${BLAS_LIBRARIES} ${LAPACK_LIBRARIES})
+add_test(bug_1315_double Tests/bug_1315_double)
+
+add_executable(bug_1323 EXCLUDE_FROM_ALL TESTS/bug_1323.f)
+target_link_libraries(bug_1323 arpack ${BLAS_LIBRARIES} ${LAPACK_LIBRARIES})
+add_test(bug_1323 Tests/bug_1323)
+
+add_executable(bug_58_double EXCLUDE_FROM_ALL TESTS/bug_58_double.f)
+target_link_libraries(bug_58_double arpack ${BLAS_LIBRARIES} ${LAPACK_LIBRARIES})
+add_test(bug_58_double Tests/bug_58_double)
+
+add_dependencies(check dnsimp_test bug_1315_single bug_1315_double bug_1323 bug_58_double)
+
+if(MPI)
+  add_executable(issue46 PARPACK/TESTS/MPI/issue46.f)
+  target_link_libraries(issue46 parpack arpack ${BLAS_LIBRARIES} ${LAPACK_LIBRARIES})
+  add_test(issue46 Tests/issue46)
+endif()
+############################
+# install
+############################
+# 'make install' to the correct location
+include(GNUInstallDirs)
+
+# Convert variable names to those expected by the .pc file.
+set(prefix ${CMAKE_INSTALL_PREFIX})
+set(exec_prefix \${prefix})
+set(libdir \${exec_prefix}/${CMAKE_INSTALL_LIBDIR})
+set(PACKAGE_NAME ${PROJECT_NAME})
+# TODO: Fill these in with something appropriate.
+#set(PACKAGE_VERSION)
+#set(PACKAGE_URL)
+#set(LAPACK_LIBS)
+#set(BLAS_LIBS)
+configure_file(arpack.pc.in arpack${LIBSUFFIX}.pc @ONLY)
+
+#install(FILES ${CMAKE_CURRENT_BINARY_DIR}/arpack${LIBSUFFIX}.pc
+#    DESTINATION ${CMAKE_INSTALL_LIBDIR}/pkgconfig)
+
+install(TARGETS arpack
+    ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR}
+    LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR}
+    RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR})
+
+if (MPI)
+  install(TARGETS parpack
+      ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR}
+      LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR}
+      RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR})
+endif ()

COPYING

@@ -3,7 +3,7 @@ BSD Software License
 
 Pertains to ARPACK and P_ARPACK
 
-Copyright (c) 1996-2008 Rice University.  
+Copyright (c) 1996-2008 Rice University.
 Developed by D.C. Sorensen, R.B. Lehoucq, C. Yang, and K. Maschhoff.
 All rights reserved.
 
@@ -21,26 +21,25 @@ modification, are permitted provided that the following conditions are
 met:
 
 - Redistributions of source code must retain the above copyright
-  notice, this list of conditions and the following disclaimer. 
-  
+  notice, this list of conditions and the following disclaimer.
+
 - Redistributions in binary form must reproduce the above copyright
   notice, this list of conditions and the following disclaimer listed
   in this license in the documentation and/or other materials
   provided with the distribution.
-  
+
 - Neither the name of the copyright holders nor the names of its
   contributors may be used to endorse or promote products derived from
   this software without specific prior written permission.
-  
+
 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT  
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT  
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
-
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

DOCUMENTS/debug.doc

@@ -219,7 +219,7 @@ c     %---------------------------------%
               of the Hessenberg matrix and their the corresponding 
               error bounds, KEV, NP.
 
- mnapps > 0: *Print information about where deflation occured.
+ mnapps > 0: *Print information about where deflation occurred.
  mnapps > 1: *Print sigmak, betak, order of the final Hessenberg matrix,
               and the final compressed upper Hessenberg matrix.
  mnapps > 2: *Print implicit application of shift number, real and imaginary 
@@ -303,7 +303,7 @@ c     %---------------------------------%
               of the Hessenberg matrix and their the corresponding 
               error bounds, KEV, NP.
 
- mcapps > 0: *Print information about where deflation occured.
+ mcapps > 0: *Print information about where deflation occurred.
  mcapps > 1: *Print sigmak, betak, order of the final Hessenberg matrix,
               and the final compressed upper Hessenberg matrix.
  mcapps > 2: *Print implicit application of shift number, the shift.

EXAMPLES/BAND/Makefile.am

@@ -0,0 +1,58 @@
+LDADD = $(top_builddir)/SRC/libarpack$(LIBSUFFIX).la $(LAPACK_LIBS) $(BLAS_LIBS)
+
+SSBDR = ssbdr1 ssbdr2 ssbdr3 ssbdr4 ssbdr5 ssbdr6
+DSBDR = dsbdr1 dsbdr2 dsbdr3 dsbdr4 dsbdr5 dsbdr6
+SNBDR = snbdr1 snbdr2 snbdr3 snbdr4 snbdr5 snbdr6
+DNBDR = dnbdr1 dnbdr2 dnbdr3 dnbdr4 dnbdr5 dnbdr6
+CNBDR = cnbdr1 cnbdr2 cnbdr3 cnbdr4
+ZNBDR = znbdr1 znbdr2 znbdr3 znbdr4
+BAND = $(SSBDR) $(DSBDR) $(SNBDR) $(DNBDR) $(CNBDR) $(ZNBDR)
+
+check_PROGRAMS = $(BAND)
+TESTS = $(check_PROGRAMS)
+
+EXTRA_DIST = README
+
+# Simple symetric problem using BAND solver (single precision)
+ssbdr1_SOURCES = ssbdr1.f ssband.f
+ssbdr2_SOURCES = ssbdr2.f ssband.f
+ssbdr3_SOURCES = ssbdr3.f ssband.f
+ssbdr4_SOURCES = ssbdr4.f ssband.f
+ssbdr5_SOURCES = ssbdr5.f ssband.f
+ssbdr6_SOURCES = ssbdr6.f ssband.f
+
+# Simple symmetric problem using BAND solver (double precision)
+dsbdr1_SOURCES = dsbdr1.f dsband.f
+dsbdr2_SOURCES = dsbdr2.f dsband.f
+dsbdr3_SOURCES = dsbdr3.f dsband.f
+dsbdr4_SOURCES = dsbdr4.f dsband.f
+dsbdr5_SOURCES = dsbdr5.f dsband.f
+dsbdr6_SOURCES = dsbdr6.f dsband.f
+
+# Simple nonsymmetric problem using BAND solver (single precision)
+snbdr1_SOURCES = snbdr1.f snband.f
+snbdr2_SOURCES = snbdr2.f snband.f
+snbdr3_SOURCES = snbdr3.f snband.f
+snbdr4_SOURCES = snbdr4.f snband.f
+snbdr5_SOURCES = snbdr5.f snband.f
+snbdr6_SOURCES = snbdr6.f snband.f
+
+# Simple nonsymmetric problem using BAND solver (double precision)
+dnbdr1_SOURCES = dnbdr1.f dnband.f
+dnbdr2_SOURCES = dnbdr2.f dnband.f
+dnbdr3_SOURCES = dnbdr3.f dnband.f
+dnbdr4_SOURCES = dnbdr4.f dnband.f
+dnbdr5_SOURCES = dnbdr5.f dnband.f
+dnbdr6_SOURCES = dnbdr6.f dnband.f
+
+# Complex problem using BAND solver (single precision complex)
+cnbdr1_SOURCES = cnbdr1.f cnband.f
+cnbdr2_SOURCES = cnbdr2.f cnband.f
+cnbdr3_SOURCES = cnbdr3.f cnband.f
+cnbdr4_SOURCES = cnbdr4.f cnband.f
+
+# Complex problem using BAND solver (double precision complex)
+znbdr1_SOURCES = znbdr1.f znband.f
+znbdr2_SOURCES = znbdr2.f znband.f
+znbdr3_SOURCES = znbdr3.f znband.f
+znbdr4_SOURCES = znbdr4.f znband.f

EXAMPLES/BAND/makefile

@@ -1,158 +0,0 @@
-#
-# makefile to run simple examples of the reverse communication
-# protocol.
-#
-# Modify if ARPACK library was built somewhere else.
-#
-# If ALIBS (defined in ../../ARmake.inc) contains the BLAS and LAPACK
-# libraries installed on your system, you DO NOT need to change this
-# makefile. OTHERWISE, you may need to modify the Makefile in the top level
-# ARPACK directory tree to include sdrv, ddrv, cdrv, or zdrv in the
-# definition of the PRECISION variable, and issue 'make lib' there.
-# For example:
-#
-#         PRECISION = single double sdrv ddrv
-#
-#\SCCS Information: @(#) 
-# FILE: makefile   SID: 2.2   DATE OF SID: 9/24/96   RELEASE: 2 
-#
-include ../../ARmake.inc
-
-# Issue "make band" to make all 32 band drivers.
-# Issue "make ssbdr" to make 6 single precision symmetric band drivers.
-# Issue "make dsbdr" to make 6 double precision symmetric band drivers.
-# Issue "make snbdr" to make 6 single precision nonsymmetric band drivers.
-# Issue "make dnbdr" to make 6 double precision nonsymmetric band drivers.
-# Issue "make cnbdr" to make 4 single precision complex band drivers.
-# Issue "make znbdr" to make 4 double precision complex band drivers. 
-#
-
-band: ssbdr dsbdr snbdr dnbdr cnbdr znbdr
-
-#
-#---------------------------------------------------------------------
-# Simple symetric problem using BAND solver (single precision)
-#
-ssbdr: ssbdr1 ssbdr2 ssbdr3 ssbdr4 ssbdr5 ssbdr6
-
-ssbdr1: ssbdr1.o ssband.o
-	$(FC) $(FFLAGS) ssbdr1.o ssband.o $(ALIBS) -o ssbdr1
-#
-ssbdr2: ssbdr2.o ssband.o
-	$(FC) $(FFLAGS) ssbdr2.o ssband.o $(ALIBS) -o ssbdr2
-#
-ssbdr3: ssbdr3.o ssband.o
-	$(FC) $(FFLAGS) ssbdr3.o ssband.o $(ALIBS) -o ssbdr3
-#
-ssbdr4: ssbdr4.o ssband.o
-	$(FC) $(FFLAGS) ssbdr4.o ssband.o $(ALIBS) -o ssbdr4
-#
-ssbdr5: ssbdr5.o ssband.o
-	$(FC) $(FFLAGS) ssbdr5.o ssband.o $(ALIBS) -o ssbdr5
-#
-ssbdr6: ssbdr6.o ssband.o
-	$(FC) $(FFLAGS) ssbdr6.o ssband.o $(ALIBS) -o ssbdr6
-#
-#-------------------------------------------------------------
-#
-# Simple symmetric problem using BAND solver (double precision)
-#
-dsbdr: dsbdr1 dsbdr2 dsbdr3 dsbdr4 dsbdr5 dsbdr6
-
-dsbdr1: dsbdr1.o dsband.o
-	$(FC) $(FFLAGS) dsbdr1.o dsband.o $(ALIBS) -o dsbdr1
-#
-dsbdr2: dsbdr2.o dsband.o 
-	$(FC) $(FFLAGS) dsbdr2.o dsband.o $(ALIBS) -o dsbdr2
-#
-dsbdr3: dsbdr3.o dsband.o
-	$(FC) $(FFLAGS) dsbdr3.o dsband.o $(ALIBS) -o dsbdr3
-#
-dsbdr4: dsbdr4.o dsband.o
-	$(FC) $(FFLAGS) dsbdr4.o dsband.o $(ALIBS) -o dsbdr4
-#
-dsbdr5: dsbdr5.o dsband.o
-	$(FC) $(FFLAGS) dsbdr5.o dsband.o $(ALIBS) -o dsbdr5
-#
-dsbdr6: dsbdr6.o dsband.o
-	$(FC) $(FFLAGS) dsbdr6.o dsband.o $(ALIBS) -o dsbdr6
-#
-#----------------------------------------------------------------------
-# Simple nonsymmetric problem using BAND solver (single precision)
-#
-snbdr: snbdr1 snbdr2 snbdr3 snbdr4 snbdr5 snbdr6
-
-snbdr1: snbdr1.o snband.o 
-	$(FC) $(FFLAGS) snbdr1.o snband.o $(ALIBS) -o snbdr1
-#
-snbdr2: snbdr2.o snband.o 
-	$(FC) $(FFLAGS) snbdr2.o snband.o $(ALIBS) -o snbdr2
-#
-snbdr3: snbdr3.o snband.o 
-	$(FC) $(FFLAGS) snbdr3.o snband.o $(ALIBS) -o snbdr3
-#
-snbdr4: snbdr4.o snband.o 
-	$(FC) $(FFLAGS) snbdr4.o snband.o $(ALIBS) -o snbdr4
-#
-snbdr5: snbdr5.o snband.o 
-	$(FC) $(FFLAGS) snbdr5.o snband.o $(ALIBS) -o snbdr5
-#
-snbdr6: snbdr6.o snband.o 
-	$(FC) $(FFLAGS) snbdr6.o snband.o $(ALIBS) -o snbdr6
-#
-#-------------------------------------------------------------------------
-# Simple nonsymmetric problem using BAND solver (double precision)
-#
-dnbdr: dnbdr1 dnbdr2 dnbdr3 dnbdr4 dnbdr5 dnbdr6
-
-dnbdr1: dnbdr1.o dnband.o 
-	$(FC) $(FFLAGS) dnbdr1.o dnband.o $(ALIBS) -o dnbdr1
-#
-dnbdr2: dnbdr2.o dnband.o 
-	$(FC) $(FFLAGS) dnbdr2.o dnband.o $(ALIBS) -o dnbdr2
-#
-dnbdr3: dnbdr3.o dnband.o 
-	$(FC) $(FFLAGS) dnbdr3.o dnband.o $(ALIBS) -o dnbdr3
-#
-dnbdr4: dnbdr4.o dnband.o 
-	$(FC) $(FFLAGS) dnbdr4.o dnband.o $(ALIBS) -o dnbdr4
-#
-dnbdr5: dnbdr5.o dnband.o 
-	$(FC) $(FFLAGS) dnbdr5.o dnband.o $(ALIBS) -o dnbdr5
-#
-dnbdr6: dnbdr6.o dnband.o 
-	$(FC) $(FFLAGS) dnbdr6.o dnband.o $(ALIBS) -o dnbdr6
-#
-#-------------------------------------------------------------------------
-# Complex problem using BAND solver (single precision complex)
-#
-cnbdr:  cnbdr1 cnbdr2 cnbdr3 cnbdr4
-
-cnbdr1: cnbdr1.o cnband.o
-	$(FC) $(FFLAGS) cnbdr1.o cnband.o $(ALIBS) -o cnbdr1
-#
-cnbdr2: cnbdr2.o cnband.o
-	$(FC) $(FFLAGS) cnbdr2.o cnband.o $(ALIBS) -o cnbdr2
-#
-cnbdr3: cnbdr3.o cnband.o
-	$(FC) $(FFLAGS) cnbdr3.o cnband.o $(ALIBS) -o cnbdr3
-#
-cnbdr4: cnbdr4.o cnband.o
-	$(FC) $(FFLAGS) cnbdr4.o cnband.o $(ALIBS) -o cnbdr4
-#
-#-------------------------------------------------------------------------
-# Complex problem using BAND solver (double precision complex)
-#
-znbdr: znbdr1 znbdr2 znbdr3 znbdr4
-
-znbdr1: znbdr1.o znband.o
-	$(FC) $(FFLAGS) znbdr1.o znband.o $(ALIBS) -o znbdr1
-#
-znbdr2: znbdr2.o znband.o
-	$(FC) $(FFLAGS) znbdr2.o znband.o $(ALIBS) -o znbdr2
-#
-znbdr3: znbdr3.o znband.o
-	$(FC) $(FFLAGS) znbdr3.o znband.o $(ALIBS) -o znbdr3
-#
-znbdr4: znbdr4.o znband.o
-	$(FC) $(FFLAGS) znbdr4.o znband.o $(ALIBS) -o znbdr4

EXAMPLES/COMPLEX/Makefile.am

@@ -0,0 +1,22 @@
+LDADD = $(top_builddir)/SRC/libarpack$(LIBSUFFIX).la $(LAPACK_LIBS) $(BLAS_LIBS)
+
+CNDRV = cndrv1 cndrv2 cndrv3 cndrv4
+ZNDRV = zndrv1 zndrv2 zndrv3 zndrv4
+COMPLEX = $(CNDRV) $(ZNDRV)
+
+check_PROGRAMS = $(COMPLEX)
+TESTS = $(check_PROGRAMS)
+
+EXTRA_DIST = README
+
+# Complex problem using single complex
+cndrv1_SOURCES = cndrv1.f
+cndrv2_SOURCES = cndrv2.f
+cndrv3_SOURCES = cndrv3.f
+cndrv4_SOURCES = cndrv4.f
+
+# Complex problem using double complex
+zndrv1_SOURCES = zndrv1.f
+zndrv2_SOURCES = zndrv2.f
+zndrv3_SOURCES = zndrv3.f
+zndrv4_SOURCES = zndrv4.f

EXAMPLES/COMPLEX/makefile

@@ -1,60 +0,0 @@
-#
-# makefile to run simple examples of the reverse communication
-# protocol.
-#
-# Modify if ALIBS library was built somewhere else.
-#
-# If ALIBS (defined in ../../ARmake.inc) contains the BLAS and LAPACK
-# libraries installed on your system, you DO NOT need to change this
-# makefile. OTHERWISE, you may need to modify the Makefile in the top level
-# ARPACK directory tree to include cdrv and/or zdrv in the
-# definition of the PRECISION variable, and issue 'make lib' from there.
-# For example:
-#
-#         PRECISION = single double sdrv ddrv
-#
-#\SCCS Information: @(#) 
-# FILE: makefile   SID: 2.2   DATE OF SID: 9/24/96   RELEASE: 2 
-#
-include ../../ARmake.inc
-#
-# Issue "complex" to make all 8 complex drivers.
-# Issue "cndrv" to make 4 single precision complex drivers.
-# Issue "zndrv" to make 4 double precision complex drivers.
-#
-
-complex: cndrv zndrv 
-
-#-----------------------------------------------------------------------
-# Complex problem using single complex
-#
-cndrv: cndrv1 cndrv2 cndrv3 cndrv4
-
-cndrv1: cndrv1.o 
-	$(FC) $(FFLAGS) cndrv1.o $(ALIBS) -o cndrv1
-#
-cndrv2: cndrv2.o 
-	$(FC) $(FFLAGS) cndrv2.o $(ALIBS) -o cndrv2
-#
-cndrv3: cndrv3.o 
-	$(FC) $(FFLAGS) cndrv3.o $(ALIBS) -o cndrv3
-#
-cndrv4: cndrv4.o 
-	$(FC) $(FFLAGS) cndrv4.o $(ALIBS) -o cndrv4
-#
-#----------------------------------------------------------------------
-# Complex problem using double complex
-#
-zndrv: zndrv1 zndrv2 zndrv3 zndrv4
-
-zndrv1: zndrv1.o 
-	$(FC) $(FFLAGS) zndrv1.o $(ALIBS) -o zndrv1
-#
-zndrv2: zndrv2.o
-	$(FC) $(FFLAGS) zndrv2.o $(ALIBS) -o zndrv2
-#
-zndrv3: zndrv3.o 
-	$(FC) $(FFLAGS) zndrv3.o $(ALIBS) -o zndrv3
-#
-zndrv4: zndrv4.o 
-	$(FC) $(FFLAGS) zndrv4.o $(ALIBS) -o zndrv4

EXAMPLES/Makefile.am

@@ -0,0 +1,2 @@
+SUBDIRS = BAND COMPLEX NONSYM SIMPLE SVD SYM
+EXTRA_DIST = README

EXAMPLES/NONSYM/Makefile.am

@@ -0,0 +1,26 @@
+LDADD = $(top_builddir)/SRC/libarpack$(LIBSUFFIX).la $(LAPACK_LIBS) $(BLAS_LIBS)
+
+SNDRV = sndrv1 sndrv2 sndrv3 sndrv4 sndrv5 sndrv6
+DNDRV = dndrv1 dndrv2 dndrv3 dndrv4 dndrv5 dndrv6
+NONSYM = $(SNDRV) $(DNDRV)
+
+check_PROGRAMS = $(NONSYM)
+TESTS = $(check_PROGRAMS)
+
+EXTRA_DIST = README
+
+# Simple nonsymmetric problem using single precision
+sndrv1_SOURCES = sndrv1.f
+sndrv2_SOURCES = sndrv2.f
+sndrv3_SOURCES = sndrv3.f
+sndrv4_SOURCES = sndrv4.f
+sndrv5_SOURCES = sndrv5.f
+sndrv6_SOURCES = sndrv6.f
+
+# Simple nonsymmetric problem using double precision
+dndrv1_SOURCES = dndrv1.f
+dndrv2_SOURCES = dndrv2.f
+dndrv3_SOURCES = dndrv3.f
+dndrv4_SOURCES = dndrv4.f
+dndrv5_SOURCES = dndrv5.f
+dndrv6_SOURCES = dndrv6.f

EXAMPLES/NONSYM/makefile

@@ -1,71 +0,0 @@
-#
-# makefile to run simple examples of the reverse communication
-# protocol.
-#
-# Modify if ARPACK library was built somewhere else.
-#
-# If ALIBS (defined in ../../ARmake.inc) contains the BLAS and LAPACK
-# libraries installed on your system, you DO NOT need to change this
-# makefile. OTHERWISE, you may need to modify the Makefile in the top level
-# ARPACK directory tree to include sdrv and/or ddrv in the
-# definition of the PRECISION variable, and issue 'make lib' from there.
-# For example:
-#
-#         PRECISION = single double sdrv ddrv
-#
-#\SCCS Information: @(#) 
-# FILE: makefile   SID: 2.2   DATE OF SID: 9/24/96   RELEASE: 2
-#
-include ../../ARmake.inc
-#
-# Issue "make nonsym" to make all 12 nonsymmetric drivers.
-# Issue "make sndrv" to make 6 single precision nonsymmetric drivers.
-# Issue "make dndrv" to make 6 double precision nonsymmetric drivers.
-#
-nonsym: sndrv dndrv 
-#
-#-----------------------------------------------------------------------
-# Simple nonsymmetric problem using single precision
-#
-sndrv: sndrv1 sndrv2 sndrv3 sndrv4 sndrv5 sndrv6
-
-sndrv1: sndrv1.o  
-	$(FC) $(FFLAGS) sndrv1.o $(ALIBS)  -o sndrv1
-#
-sndrv2: sndrv2.o 
-	$(FC) $(FFLAGS) sndrv2.o $(ALIBS) -o sndrv2
-#
-sndrv3: sndrv3.o 
-	$(FC) $(FFLAGS) sndrv3.o $(ALIBS) -o sndrv3
-#
-sndrv4: sndrv4.o 
-	$(FC) $(FFLAGS) sndrv4.o $(ALIBS) -o sndrv4
-#
-sndrv5: sndrv5.o 
-	$(FC) $(FFLAGS) sndrv5.o $(ALIBS) -o sndrv5
-#
-sndrv6: sndrv6.o 
-	$(FC) $(FFLAGS) sndrv6.o $(ALIBS) -o sndrv6
-#
-#------------------------------------------------------
-# Simple nonsymmetric problem using double precision
-#
-dndrv: dndrv1 dndrv2 dndrv3 dndrv4 dndrv5 dndrv6
-
-dndrv1: dndrv1.o 
-	$(FC) $(FFLAGS) dndrv1.o $(ALIBS) -o dndrv1 
-#
-dndrv2: dndrv2.o 
-	$(FC) $(FFLAGS) dndrv2.o $(ALIBS) -o dndrv2
-#
-dndrv3: dndrv3.o 
-	$(FC) $(FFLAGS) dndrv3.o $(ALIBS) -o dndrv3
-#
-dndrv4: dndrv4.o 
-	$(FC) $(FFLAGS) dndrv4.o $(ALIBS) -o dndrv4
-#
-dndrv5: dndrv5.o 
-	$(FC) $(FFLAGS) dndrv5.o $(ALIBS) -o dndrv5
-#
-dndrv6: dndrv6.o 
-	$(FC) $(FFLAGS) dndrv6.o $(ALIBS) -o dndrv6

EXAMPLES/SIMPLE/Makefile.am

@@ -0,0 +1,15 @@
+LDADD = $(top_builddir)/SRC/libarpack$(LIBSUFFIX).la $(LAPACK_LIBS) $(BLAS_LIBS)
+
+SIMPLE = sssimp dssimp snsimp dnsimp cnsimp znsimp
+
+check_PROGRAMS = $(SIMPLE)
+TESTS = $(check_PROGRAMS)
+
+EXTRA_DIST = README debug.h
+
+sssimp_SOURCES = sssimp.f
+dssimp_SOURCES = dssimp.f
+snsimp_SOURCES = snsimp.f
+dnsimp_SOURCES = dnsimp.f
+cnsimp_SOURCES = cnsimp.f
+znsimp_SOURCES = znsimp.f

EXAMPLES/SIMPLE/makefile

@@ -1,27 +0,0 @@
-#
-# makefile to run simple examples of the reverse communication
-# protocol.
-#
-# Modify if ARPACK library was built somewhere else.
-#
-#\SCCS Information: @(#) 
-# FILE: makefile   SID: 2.2   DATE OF SID: 9/24/96   RELEASE: 2
-#
-include ../../ARmake.inc
-#
-# simple drivers
-#
-simple: sssimp dssimp snsimp dnsimp cnsimp znsimp
-#
-sssimp: sssimp.o
-	$(FC) $(FFLAGS) sssimp.o $(ALIBS) -o sssimp
-dssimp: dssimp.o
-	$(FC) $(FFLAGS) dssimp.o $(ALIBS) -o dssimp
-snsimp: snsimp.o
-	$(FC) $(FFLAGS) snsimp.o $(ALIBS) -o snsimp
-dnsimp: dnsimp.o
-	$(FC) $(FFLAGS) dnsimp.o $(ALIBS) -o dnsimp
-cnsimp: cnsimp.o
-	$(FC) $(FFLAGS) cnsimp.o $(ALIBS) -o cnsimp 
-znsimp: znsimp.o
-	$(FC) $(FFLAGS) znsimp.o $(ALIBS) -o znsimp  

EXAMPLES/SVD/Makefile.am

@@ -0,0 +1,11 @@
+LDADD = $(top_builddir)/SRC/libarpack$(LIBSUFFIX).la $(LAPACK_LIBS) $(BLAS_LIBS)
+
+SVD = ssvd dsvd
+
+check_PROGRAMS = $(SVD)
+TESTS = $(check_PROGRAMS)
+
+EXTRA_DIST = README debug.h
+
+ssvd_SOURCES = ssvd.f
+dsvd_SOURCES = dsvd.f

EXAMPLES/SVD/makefile

@@ -1,15 +0,0 @@
-#
-# makefile to run simple examples of the reverse communication
-# protocol.
-#
-# Modify if ARPACK library was built somewhere else.
-#
-#\SCCS Information: @(#) 
-# FILE: makefile   SID: 2.2   DATE OF SID: 9/24/96   RELEASE: 2
-#
-include ../../ARmake.inc
-
-ssvd: ssvd.o
-	$(FC) $(FFLAGS) ssvd.o $(ALIBS) -o ssvd
-dsvd: dsvd.o
-	$(FC) $(FFLAGS) dsvd.o $(ALIBS) -o dsvd

EXAMPLES/SYM/Makefile.am

@@ -0,0 +1,26 @@
+LDADD = $(top_builddir)/SRC/libarpack$(LIBSUFFIX).la $(LAPACK_LIBS) $(BLAS_LIBS)
+
+SSDRV = ssdrv1 ssdrv2 ssdrv3 ssdrv4 ssdrv5 ssdrv6
+DSDRV = dsdrv1 dsdrv2 dsdrv3 dsdrv4 dsdrv5 dsdrv6
+SYM = $(SSDRV) $(DSDRV)
+
+check_PROGRAMS = $(SYM)
+TESTS = $(check_PROGRAMS)
+
+EXTRA_DIST = README
+
+# simple symmetric problem using single precision
+ssdrv1_SOURCES = ssdrv1.f
+ssdrv2_SOURCES = ssdrv2.f
+ssdrv3_SOURCES = ssdrv3.f
+ssdrv4_SOURCES = ssdrv4.f
+ssdrv5_SOURCES = ssdrv5.f
+ssdrv6_SOURCES = ssdrv6.f
+
+# simple symmetric problem using double precision
+dsdrv1_SOURCES = dsdrv1.f
+dsdrv2_SOURCES = dsdrv2.f
+dsdrv3_SOURCES = dsdrv3.f
+dsdrv4_SOURCES = dsdrv4.f
+dsdrv5_SOURCES = dsdrv5.f
+dsdrv6_SOURCES = dsdrv6.f

EXAMPLES/SYM/makefile

@@ -1,64 +0,0 @@
-#
-# makefile to run simple examples of the reverse communication
-# protocol.
-#
-# Modify if ARPACK library was built somewhere else.
-# We assume that the required BLAS and LAPACK routines
-# are in the version of libarpack.a built. If not, you
-# will need to modify the link step below and link to them.
-#
-#\SCCS Information: @(#) 
-# FILE: makefile   SID: 2.1   DATE OF SID: 11/19/95   RELEASE: 2
-#
-include ../../ARmake.inc
-#
-# Issue "make sym" to make all 12 symmetric drivers
-# Issue "make ssdrv" to make 6 single precision symmetric drivers
-# Issue "make dsdrv" to make 6 double precision symmetric drivers
-#
-sym: ssdrv dsdrv 
-#
-# simple symmetric problem using single precision
-#
-ssdrv: ssdrv1 ssdrv2 ssdrv3 ssdrv4 ssdrv5 ssdrv6
-
-ssdrv1: ssdrv1.o 
-	$(FC) $(FFLAGS) ssdrv1.o $(ALIBS) -o ssdrv1
-#
-ssdrv2: ssdrv2.o 
-	$(FC) $(FFLAGS) ssdrv2.o $(ALIBS) -o ssdrv2
-#
-ssdrv3: ssdrv3.o 
-	$(FC) $(FFLAGS) ssdrv3.o $(ALIBS) -o ssdrv3
-#
-ssdrv4: ssdrv4.o 
-	$(FC) $(FFLAGS) ssdrv4.o $(ALIBS) -o ssdrv4
-#
-ssdrv5: ssdrv5.o 
-	$(FC) $(FFLAGS) ssdrv5.o $(ALIBS) -o ssdrv5
-#
-ssdrv6: ssdrv6.o
-	$(FC) $(FFLAGS) ssdrv6.o $(ALIBS) -o ssdrv6
-#
-#-----------------------------------------------------------------------
-# simple symmetric problem using double precision
-#
-dsdrv: dsdrv1 dsdrv2 dsdrv3 dsdrv4 dsdrv5 dsdrv6
-
-dsdrv1: dsdrv1.o
-	$(FC) $(FFLAGS) dsdrv1.o $(ALIBS) -o dsdrv1
-#
-dsdrv2: dsdrv2.o 
-	$(FC) $(FFLAGS) dsdrv2.o $(ALIBS) -o dsdrv2
-#
-dsdrv3: dsdrv3.o
-	$(FC) $(FFLAGS) dsdrv3.o $(ALIBS) -o dsdrv3
-#
-dsdrv4: dsdrv4.o
-	$(FC) $(FFLAGS) dsdrv4.o $(ALIBS) -o dsdrv4
-#
-dsdrv5: dsdrv5.o
-	$(FC) $(FFLAGS) dsdrv5.o $(ALIBS) -o dsdrv5
-#
-dsdrv6: dsdrv6.o
-	$(FC) $(FFLAGS) dsdrv6.o $(ALIBS) -o dsdrv6 

Makefile.am

@@ -1,26 +1,14 @@
-SUBDIRS = UTIL SRC . TESTS 
+ACLOCAL_AMFLAGS = -I m4
 
 if MPI
-SUBDIRS += PARPACK
+AM_DISTCHECK_CONFIGURE_FLAGS = --enable-mpi
 endif
 
-lib_LTLIBRARIES = libarpack.la
+SUBDIRS = UTIL SRC . TESTS EXAMPLES PARPACK
 
-ACLOCAL_AMFLAGS = -I m4/
+EXTRA_DIST = README PARPACK_CHANGES CHANGES DOCUMENTS VISUAL_STUDIO \
+detect_arpack_bug.m4 CMakeLists.txt
 
-libarpack_la_SOURCES =
+pkgconfig_DATA = arpack@LIBSUFFIX@.pc
 
-libarpack_la_LDFLAGS = -version-info 2:0
-
-libarpack_la_LIBADD = \
-	$(top_builddir)/SRC/libarpacksrc.la \
-	$(top_builddir)/UTIL/libarpackutil.la \
-	$(BLAS_LIBS) $(LAPACK_LIBS) $(FLIBS)
-
-EXTRA_DIST = README CHANGES
-
-# Pkgconfig directory
-pkgconfigdir = $(libdir)/pkgconfig
-
-# Files to install in Pkgconfig directory
-pkgconfig_DATA = arpack.pc
+DISTCLEANFILES = $(pkgconfig_DATA)

Makefile.in

@@ -1,865 +0,0 @@
-# Makefile.in generated by automake 1.11.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software
-# Foundation, Inc.
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-
-VPATH = @srcdir@
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-@MPI_TRUE@am__append_1 = PARPACK
-subdir = .
-DIST_COMMON = README $(am__configure_deps) $(srcdir)/Makefile.am \
-	$(srcdir)/Makefile.in $(top_srcdir)/configure COPYING TODO \
-	config.guess config.sub install-sh ltmain.sh missing
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_blas.m4 \
-	$(top_srcdir)/m4/ax_lapack.m4 $(top_srcdir)/m4/ax_mpi.m4 \
-	$(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
-	$(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
-	$(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
-	$(ACLOCAL_M4)
-am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \
- configure.lineno config.status.lineno
-mkinstalldirs = $(install_sh) -d
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
-    $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
-    *) f=$$p;; \
-  esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
-  srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
-  for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
-  for p in $$list; do echo "$$p $$p"; done | \
-  sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
-  $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
-    if (++n[$$2] == $(am__install_max)) \
-      { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
-    END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
-  sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
-  sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
-  test -z "$$files" \
-    || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
-    || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
-         $(am__cd) "$$dir" && rm -f $$files; }; \
-  }
-am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgconfigdir)"
-LTLIBRARIES = $(lib_LTLIBRARIES)
-am__DEPENDENCIES_1 =
-libarpack_la_DEPENDENCIES = $(top_builddir)/SRC/libarpacksrc.la \
-	$(top_builddir)/UTIL/libarpackutil.la $(am__DEPENDENCIES_1) \
-	$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1)
-am_libarpack_la_OBJECTS =
-libarpack_la_OBJECTS = $(am_libarpack_la_OBJECTS)
-libarpack_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \
-	$(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
-	$(libarpack_la_LDFLAGS) $(LDFLAGS) -o $@
-DEFAULT_INCLUDES = -I.@am__isrc@
-COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
-	$(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-	--mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
-	$(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-CCLD = $(CC)
-LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-	--mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \
-	$(LDFLAGS) -o $@
-SOURCES = $(libarpack_la_SOURCES)
-DIST_SOURCES = $(libarpack_la_SOURCES)
-RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \
-	html-recursive info-recursive install-data-recursive \
-	install-dvi-recursive install-exec-recursive \
-	install-html-recursive install-info-recursive \
-	install-pdf-recursive install-ps-recursive install-recursive \
-	installcheck-recursive installdirs-recursive pdf-recursive \
-	ps-recursive uninstall-recursive
-DATA = $(pkgconfig_DATA)
-RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive	\
-  distclean-recursive maintainer-clean-recursive
-AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \
-	$(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \
-	distdir dist dist-all distcheck
-ETAGS = etags
-CTAGS = ctags
-DIST_SUBDIRS = UTIL SRC . TESTS PARPACK
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-distdir = $(PACKAGE)-$(VERSION)
-top_distdir = $(distdir)
-am__remove_distdir = \
-  if test -d "$(distdir)"; then \
-    find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \
-      && rm -rf "$(distdir)" \
-      || { sleep 5 && rm -rf "$(distdir)"; }; \
-  else :; fi
-am__relativize = \
-  dir0=`pwd`; \
-  sed_first='s,^\([^/]*\)/.*$$,\1,'; \
-  sed_rest='s,^[^/]*/*,,'; \
-  sed_last='s,^.*/\([^/]*\)$$,\1,'; \
-  sed_butlast='s,/*[^/]*$$,,'; \
-  while test -n "$$dir1"; do \
-    first=`echo "$$dir1" | sed -e "$$sed_first"`; \
-    if test "$$first" != "."; then \
-      if test "$$first" = ".."; then \
-        dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
-        dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
-      else \
-        first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
-        if test "$$first2" = "$$first"; then \
-          dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
-        else \
-          dir2="../$$dir2"; \
-        fi; \
-        dir0="$$dir0"/"$$first"; \
-      fi; \
-    fi; \
-    dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
-  done; \
-  reldir="$$dir2"
-DIST_ARCHIVES = $(distdir).tar.gz
-GZIP_ENV = --best
-distuninstallcheck_listfiles = find . -type f -print
-am__distuninstallcheck_listfiles = $(distuninstallcheck_listfiles) \
-  | sed 's|^\./|$(prefix)/|' | grep -v '$(infodir)/dir$$'
-distcleancheck_listfiles = find . -type f -print
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AR = @AR@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BLAS_LIBS = @BLAS_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-F77 = @F77@
-FFLAGS = @FFLAGS@
-FGREP = @FGREP@
-FLIBS = @FLIBS@
-GREP = @GREP@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-LAPACK_LIBS = @LAPACK_LIBS@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBOBJS = @LTLIBOBJS@
-MAINT = @MAINT@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIF77 = @MPIF77@
-MPILIBS = @MPILIBS@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-RANLIB = @RANLIB@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-VERSION = @VERSION@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-ac_ct_F77 = @ac_ct_F77@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-SUBDIRS = UTIL SRC . TESTS $(am__append_1)
-lib_LTLIBRARIES = libarpack.la
-ACLOCAL_AMFLAGS = -I m4/
-libarpack_la_SOURCES = 
-libarpack_la_LDFLAGS = -version-info 2:0
-libarpack_la_LIBADD = \
-	$(top_builddir)/SRC/libarpacksrc.la \
-	$(top_builddir)/UTIL/libarpackutil.la \
-	$(BLAS_LIBS) $(LAPACK_LIBS) $(FLIBS)
-
-EXTRA_DIST = README CHANGES
-
-# Pkgconfig directory
-pkgconfigdir = $(libdir)/pkgconfig
-
-# Files to install in Pkgconfig directory
-pkgconfig_DATA = arpack.pc
-all: all-recursive
-
-.SUFFIXES:
-am--refresh: Makefile
-	@:
-$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am  $(am__configure_deps)
-	@for dep in $?; do \
-	  case '$(am__configure_deps)' in \
-	    *$$dep*) \
-	      echo ' cd $(srcdir) && $(AUTOMAKE) --foreign'; \
-	      $(am__cd) $(srcdir) && $(AUTOMAKE) --foreign \
-		&& exit 0; \
-	      exit 1;; \
-	  esac; \
-	done; \
-	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign Makefile'; \
-	$(am__cd) $(top_srcdir) && \
-	  $(AUTOMAKE) --foreign Makefile
-.PRECIOUS: Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
-	@case '$?' in \
-	  *config.status*) \
-	    echo ' $(SHELL) ./config.status'; \
-	    $(SHELL) ./config.status;; \
-	  *) \
-	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe)'; \
-	    cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe);; \
-	esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
-	$(SHELL) ./config.status --recheck
-
-$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps)
-	$(am__cd) $(srcdir) && $(AUTOCONF)
-$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps)
-	$(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS)
-$(am__aclocal_m4_deps):
-install-libLTLIBRARIES: $(lib_LTLIBRARIES)
-	@$(NORMAL_INSTALL)
-	test -z "$(libdir)" || $(MKDIR_P) "$(DESTDIR)$(libdir)"
-	@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
-	list2=; for p in $$list; do \
-	  if test -f $$p; then \
-	    list2="$$list2 $$p"; \
-	  else :; fi; \
-	done; \
-	test -z "$$list2" || { \
-	  echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
-	  $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
-	}
-
-uninstall-libLTLIBRARIES:
-	@$(NORMAL_UNINSTALL)
-	@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
-	for p in $$list; do \
-	  $(am__strip_dir) \
-	  echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
-	  $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
-	done
-
-clean-libLTLIBRARIES:
-	-test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
-	@list='$(lib_LTLIBRARIES)'; for p in $$list; do \
-	  dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
-	  test "$$dir" != "$$p" || dir=.; \
-	  echo "rm -f \"$${dir}/so_locations\""; \
-	  rm -f "$${dir}/so_locations"; \
-	done
-libarpack.la: $(libarpack_la_OBJECTS) $(libarpack_la_DEPENDENCIES) $(EXTRA_libarpack_la_DEPENDENCIES) 
-	$(libarpack_la_LINK) -rpath $(libdir) $(libarpack_la_OBJECTS) $(libarpack_la_LIBADD) $(LIBS)
-
-mostlyclean-compile:
-	-rm -f *.$(OBJEXT)
-
-distclean-compile:
-	-rm -f *.tab.c
-
-mostlyclean-libtool:
-	-rm -f *.lo
-
-clean-libtool:
-	-rm -rf .libs _libs
-
-distclean-libtool:
-	-rm -f libtool config.lt
-install-pkgconfigDATA: $(pkgconfig_DATA)
-	@$(NORMAL_INSTALL)
-	test -z "$(pkgconfigdir)" || $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)"
-	@list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \
-	for p in $$list; do \
-	  if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-	  echo "$$d$$p"; \
-	done | $(am__base_list) | \
-	while read files; do \
-	  echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \
-	  $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \
-	done
-
-uninstall-pkgconfigDATA:
-	@$(NORMAL_UNINSTALL)
-	@list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \
-	files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \
-	dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir)
-
-# This directory's subdirectories are mostly independent; you can cd
-# into them and run `make' without going through this Makefile.
-# To change the values of `make' variables: instead of editing Makefiles,
-# (1) if the variable is set in `config.status', edit `config.status'
-#     (which will cause the Makefiles to be regenerated when you run `make');
-# (2) otherwise, pass the desired values on the `make' command line.
-$(RECURSIVE_TARGETS):
-	@fail= failcom='exit 1'; \
-	for f in x $$MAKEFLAGS; do \
-	  case $$f in \
-	    *=* | --[!k]*);; \
-	    *k*) failcom='fail=yes';; \
-	  esac; \
-	done; \
-	dot_seen=no; \
-	target=`echo $@ | sed s/-recursive//`; \
-	list='$(SUBDIRS)'; for subdir in $$list; do \
-	  echo "Making $$target in $$subdir"; \
-	  if test "$$subdir" = "."; then \
-	    dot_seen=yes; \
-	    local_target="$$target-am"; \
-	  else \
-	    local_target="$$target"; \
-	  fi; \
-	  ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
-	  || eval $$failcom; \
-	done; \
-	if test "$$dot_seen" = "no"; then \
-	  $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
-	fi; test -z "$$fail"
-
-$(RECURSIVE_CLEAN_TARGETS):
-	@fail= failcom='exit 1'; \
-	for f in x $$MAKEFLAGS; do \
-	  case $$f in \
-	    *=* | --[!k]*);; \
-	    *k*) failcom='fail=yes';; \
-	  esac; \
-	done; \
-	dot_seen=no; \
-	case "$@" in \
-	  distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
-	  *) list='$(SUBDIRS)' ;; \
-	esac; \
-	rev=''; for subdir in $$list; do \
-	  if test "$$subdir" = "."; then :; else \
-	    rev="$$subdir $$rev"; \
-	  fi; \
-	done; \
-	rev="$$rev ."; \
-	target=`echo $@ | sed s/-recursive//`; \
-	for subdir in $$rev; do \
-	  echo "Making $$target in $$subdir"; \
-	  if test "$$subdir" = "."; then \
-	    local_target="$$target-am"; \
-	  else \
-	    local_target="$$target"; \
-	  fi; \
-	  ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
-	  || eval $$failcom; \
-	done && test -z "$$fail"
-tags-recursive:
-	list='$(SUBDIRS)'; for subdir in $$list; do \
-	  test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \
-	done
-ctags-recursive:
-	list='$(SUBDIRS)'; for subdir in $$list; do \
-	  test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \
-	done
-
-ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
-	list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
-	unique=`for i in $$list; do \
-	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-	  done | \
-	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
-	      END { if (nonempty) { for (i in files) print i; }; }'`; \
-	mkid -fID $$unique
-tags: TAGS
-
-TAGS: tags-recursive $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
-		$(TAGS_FILES) $(LISP)
-	set x; \
-	here=`pwd`; \
-	if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
-	  include_option=--etags-include; \
-	  empty_fix=.; \
-	else \
-	  include_option=--include; \
-	  empty_fix=; \
-	fi; \
-	list='$(SUBDIRS)'; for subdir in $$list; do \
-	  if test "$$subdir" = .; then :; else \
-	    test ! -f $$subdir/TAGS || \
-	      set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
-	  fi; \
-	done; \
-	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
-	unique=`for i in $$list; do \
-	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-	  done | \
-	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
-	      END { if (nonempty) { for (i in files) print i; }; }'`; \
-	shift; \
-	if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
-	  test -n "$$unique" || unique=$$empty_fix; \
-	  if test $$# -gt 0; then \
-	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
-	      "$$@" $$unique; \
-	  else \
-	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
-	      $$unique; \
-	  fi; \
-	fi
-ctags: CTAGS
-CTAGS: ctags-recursive $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
-		$(TAGS_FILES) $(LISP)
-	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
-	unique=`for i in $$list; do \
-	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-	  done | \
-	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
-	      END { if (nonempty) { for (i in files) print i; }; }'`; \
-	test -z "$(CTAGS_ARGS)$$unique" \
-	  || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
-	     $$unique
-
-GTAGS:
-	here=`$(am__cd) $(top_builddir) && pwd` \
-	  && $(am__cd) $(top_srcdir) \
-	  && gtags -i $(GTAGS_ARGS) "$$here"
-
-distclean-tags:
-	-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-
-distdir: $(DISTFILES)
-	$(am__remove_distdir)
-	test -d "$(distdir)" || mkdir "$(distdir)"
-	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-	list='$(DISTFILES)'; \
-	  dist_files=`for file in $$list; do echo $$file; done | \
-	  sed -e "s|^$$srcdirstrip/||;t" \
-	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
-	case $$dist_files in \
-	  */*) $(MKDIR_P) `echo "$$dist_files" | \
-			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
-			   sort -u` ;; \
-	esac; \
-	for file in $$dist_files; do \
-	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
-	  if test -d $$d/$$file; then \
-	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
-	    if test -d "$(distdir)/$$file"; then \
-	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
-	    fi; \
-	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
-	      cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
-	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
-	    fi; \
-	    cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
-	  else \
-	    test -f "$(distdir)/$$file" \
-	    || cp -p $$d/$$file "$(distdir)/$$file" \
-	    || exit 1; \
-	  fi; \
-	done
-	@list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
-	  if test "$$subdir" = .; then :; else \
-	    test -d "$(distdir)/$$subdir" \
-	    || $(MKDIR_P) "$(distdir)/$$subdir" \
-	    || exit 1; \
-	  fi; \
-	done
-	@list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
-	  if test "$$subdir" = .; then :; else \
-	    dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
-	    $(am__relativize); \
-	    new_distdir=$$reldir; \
-	    dir1=$$subdir; dir2="$(top_distdir)"; \
-	    $(am__relativize); \
-	    new_top_distdir=$$reldir; \
-	    echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
-	    echo "     am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
-	    ($(am__cd) $$subdir && \
-	      $(MAKE) $(AM_MAKEFLAGS) \
-	        top_distdir="$$new_top_distdir" \
-	        distdir="$$new_distdir" \
-		am__remove_distdir=: \
-		am__skip_length_check=: \
-		am__skip_mode_fix=: \
-	        distdir) \
-	      || exit 1; \
-	  fi; \
-	done
-	-test -n "$(am__skip_mode_fix)" \
-	|| find "$(distdir)" -type d ! -perm -755 \
-		-exec chmod u+rwx,go+rx {} \; -o \
-	  ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \
-	  ! -type d ! -perm -400 -exec chmod a+r {} \; -o \
-	  ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \
-	|| chmod -R a+r "$(distdir)"
-dist-gzip: distdir
-	tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz
-	$(am__remove_distdir)
-
-dist-bzip2: distdir
-	tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2
-	$(am__remove_distdir)
-
-dist-lzip: distdir
-	tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz
-	$(am__remove_distdir)
-
-dist-lzma: distdir
-	tardir=$(distdir) && $(am__tar) | lzma -9 -c >$(distdir).tar.lzma
-	$(am__remove_distdir)
-
-dist-xz: distdir
-	tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz
-	$(am__remove_distdir)
-
-dist-tarZ: distdir
-	tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z
-	$(am__remove_distdir)
-
-dist-shar: distdir
-	shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz
-	$(am__remove_distdir)
-
-dist-zip: distdir
-	-rm -f $(distdir).zip
-	zip -rq $(distdir).zip $(distdir)
-	$(am__remove_distdir)
-
-dist dist-all: distdir
-	tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz
-	$(am__remove_distdir)
-
-# This target untars the dist file and tries a VPATH configuration.  Then
-# it guarantees that the distribution is self-contained by making another
-# tarfile.
-distcheck: dist
-	case '$(DIST_ARCHIVES)' in \
-	*.tar.gz*) \
-	  GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\
-	*.tar.bz2*) \
-	  bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\
-	*.tar.lzma*) \
-	  lzma -dc $(distdir).tar.lzma | $(am__untar) ;;\
-	*.tar.lz*) \
-	  lzip -dc $(distdir).tar.lz | $(am__untar) ;;\
-	*.tar.xz*) \
-	  xz -dc $(distdir).tar.xz | $(am__untar) ;;\
-	*.tar.Z*) \
-	  uncompress -c $(distdir).tar.Z | $(am__untar) ;;\
-	*.shar.gz*) \
-	  GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\
-	*.zip*) \
-	  unzip $(distdir).zip ;;\
-	esac
-	chmod -R a-w $(distdir); chmod a+w $(distdir)
-	mkdir $(distdir)/_build
-	mkdir $(distdir)/_inst
-	chmod a-w $(distdir)
-	test -d $(distdir)/_build || exit 0; \
-	dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \
-	  && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \
-	  && am__cwd=`pwd` \
-	  && $(am__cd) $(distdir)/_build \
-	  && ../configure --srcdir=.. --prefix="$$dc_install_base" \
-	    $(AM_DISTCHECK_CONFIGURE_FLAGS) \
-	    $(DISTCHECK_CONFIGURE_FLAGS) \
-	  && $(MAKE) $(AM_MAKEFLAGS) \
-	  && $(MAKE) $(AM_MAKEFLAGS) dvi \
-	  && $(MAKE) $(AM_MAKEFLAGS) check \
-	  && $(MAKE) $(AM_MAKEFLAGS) install \
-	  && $(MAKE) $(AM_MAKEFLAGS) installcheck \
-	  && $(MAKE) $(AM_MAKEFLAGS) uninstall \
-	  && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \
-	        distuninstallcheck \
-	  && chmod -R a-w "$$dc_install_base" \
-	  && ({ \
-	       (cd ../.. && umask 077 && mkdir "$$dc_destdir") \
-	       && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \
-	       && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \
-	       && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \
-	            distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \
-	      } || { rm -rf "$$dc_destdir"; exit 1; }) \
-	  && rm -rf "$$dc_destdir" \
-	  && $(MAKE) $(AM_MAKEFLAGS) dist \
-	  && rm -rf $(DIST_ARCHIVES) \
-	  && $(MAKE) $(AM_MAKEFLAGS) distcleancheck \
-	  && cd "$$am__cwd" \
-	  || exit 1
-	$(am__remove_distdir)
-	@(echo "$(distdir) archives ready for distribution: "; \
-	  list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \
-	  sed -e 1h -e 1s/./=/g -e 1p -e 1x -e '$$p' -e '$$x'
-distuninstallcheck:
-	@test -n '$(distuninstallcheck_dir)' || { \
-	  echo 'ERROR: trying to run $@ with an empty' \
-	       '$$(distuninstallcheck_dir)' >&2; \
-	  exit 1; \
-	}; \
-	$(am__cd) '$(distuninstallcheck_dir)' || { \
-	  echo 'ERROR: cannot chdir into $(distuninstallcheck_dir)' >&2; \
-	  exit 1; \
-	}; \
-	test `$(am__distuninstallcheck_listfiles) | wc -l` -eq 0 \
-	   || { echo "ERROR: files left after uninstall:" ; \
-	        if test -n "$(DESTDIR)"; then \
-	          echo "  (check DESTDIR support)"; \
-	        fi ; \
-	        $(distuninstallcheck_listfiles) ; \
-	        exit 1; } >&2
-distcleancheck: distclean
-	@if test '$(srcdir)' = . ; then \
-	  echo "ERROR: distcleancheck can only run from a VPATH build" ; \
-	  exit 1 ; \
-	fi
-	@test `$(distcleancheck_listfiles) | wc -l` -eq 0 \
-	  || { echo "ERROR: files left in build directory after distclean:" ; \
-	       $(distcleancheck_listfiles) ; \
-	       exit 1; } >&2
-check-am: all-am
-check: check-recursive
-all-am: Makefile $(LTLIBRARIES) $(DATA)
-installdirs: installdirs-recursive
-installdirs-am:
-	for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(pkgconfigdir)"; do \
-	  test -z "$$dir" || $(MKDIR_P) "$$dir"; \
-	done
-install: install-recursive
-install-exec: install-exec-recursive
-install-data: install-data-recursive
-uninstall: uninstall-recursive
-
-install-am: all-am
-	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-recursive
-install-strip:
-	if test -z '$(STRIP)'; then \
-	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
-	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
-	      install; \
-	else \
-	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
-	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
-	    "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
-	fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
-	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-	-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
-	@echo "This command is intended for maintainers to use"
-	@echo "it deletes files that may require special tools to rebuild."
-clean: clean-recursive
-
-clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \
-	mostlyclean-am
-
-distclean: distclean-recursive
-	-rm -f $(am__CONFIG_DISTCLEAN_FILES)
-	-rm -f Makefile
-distclean-am: clean-am distclean-compile distclean-generic \
-	distclean-libtool distclean-tags
-
-dvi: dvi-recursive
-
-dvi-am:
-
-html: html-recursive
-
-html-am:
-
-info: info-recursive
-
-info-am:
-
-install-data-am: install-pkgconfigDATA
-
-install-dvi: install-dvi-recursive
-
-install-dvi-am:
-
-install-exec-am: install-libLTLIBRARIES
-
-install-html: install-html-recursive
-
-install-html-am:
-
-install-info: install-info-recursive
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-recursive
-
-install-pdf-am:
-
-install-ps: install-ps-recursive
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-recursive
-	-rm -f $(am__CONFIG_DISTCLEAN_FILES)
-	-rm -rf $(top_srcdir)/autom4te.cache
-	-rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-recursive
-
-mostlyclean-am: mostlyclean-compile mostlyclean-generic \
-	mostlyclean-libtool
-
-pdf: pdf-recursive
-
-pdf-am:
-
-ps: ps-recursive
-
-ps-am:
-
-uninstall-am: uninstall-libLTLIBRARIES uninstall-pkgconfigDATA
-
-.MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \
-	install-am install-strip tags-recursive
-
-.PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \
-	all all-am am--refresh check check-am clean clean-generic \
-	clean-libLTLIBRARIES clean-libtool ctags ctags-recursive dist \
-	dist-all dist-bzip2 dist-gzip dist-lzip dist-lzma dist-shar \
-	dist-tarZ dist-xz dist-zip distcheck distclean \
-	distclean-compile distclean-generic distclean-libtool \
-	distclean-tags distcleancheck distdir distuninstallcheck dvi \
-	dvi-am html html-am info info-am install install-am \
-	install-data install-data-am install-dvi install-dvi-am \
-	install-exec install-exec-am install-html install-html-am \
-	install-info install-info-am install-libLTLIBRARIES \
-	install-man install-pdf install-pdf-am install-pkgconfigDATA \
-	install-ps install-ps-am install-strip installcheck \
-	installcheck-am installdirs installdirs-am maintainer-clean \
-	maintainer-clean-generic mostlyclean mostlyclean-compile \
-	mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
-	tags tags-recursive uninstall uninstall-am \
-	uninstall-libLTLIBRARIES uninstall-pkgconfigDATA
-
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:

PARPACK/EXAMPLES/BLACS/Makefile.am

@@ -0,0 +1,38 @@
+LDADD = $(top_builddir)/PARPACK/SRC/BLACS/libparpack$(LIBSUFFIX).la $(LAPACK_LIBS) $(BLAS_LIBS)
+
+SNDRV = psndrv1 psndrv3
+DNDRV = pdndrv1 pdndrv3
+SSDRV = pssdrv1
+DSDRV = pdsdrv1
+CNDRV = pcndrv1
+ZNDRV = pzndrv1
+NTEST = psntest1 pdntest1
+
+check_PROGRAMS = $(SNDRV) $(DNDRV) $(SSDRV) $(DSDRV) $(CNDRV) $(ZNDRV) $(NTEST)
+TESTS = $(check_PROGRAMS)
+
+EXTRA_DIST = debug.h stat.h
+
+# Simple nonsymmetric problem using single precision
+psndrv1_SOURCES = psndrv1.f
+psndrv3_SOURCES = psndrv3.f
+
+# Simple nonsymmetric problem using double precision
+pdndrv1_SOURCES = pdndrv1.f
+pdndrv3_SOURCES = pdndrv3.f
+
+# Simple symmetric problem using single precision
+pssdrv1_SOURCES = pssdrv1.f
+
+# Simple symmetric problem using double precision
+pdsdrv1_SOURCES = pdsdrv1.f
+
+# Complex problem using single complex
+pcndrv1_SOURCES = pcndrv1.f
+
+# Complex problem using double complex
+pzndrv1_SOURCES = pzndrv1.f
+
+# Test routines for timing
+psntest1_SOURCES = psntest1.f
+pdntest1_SOURCES = pdntest1.f

PARPACK/EXAMPLES/BLACS/makefile

@@ -1,89 +0,0 @@
-#
-# makefile to run simple examples of the reverse communication
-# protocol.
-#
-# Modify if ARPACK library was built somewhere else.
-# We assume that the required BLAS and LAPACK routines
-# are in the version of libarpack.a built. If not, you
-# will need to modify the link step below and link to them.
-#
-#
-include ../../../ARmake.inc
-
-# Issue "make nonsym" to make all nonsymmetric drivers.
-# Issue "make psndrv" to make single precision nonsymmetric drivers.
-# Issue "make pdndrv" to make double precision nonsymmetric drivers.
-#
-nonsym: psndrv pdndrv 
-#
-# Issue "make sym" to make all symmetric drivers
-# Issue "make pssdrv" to make single precision symmetric drivers
-# Issue "make pdsdrv" to make double precision symmetric drivers
-#
-sym: pssdrv pdsdrv
-#
-# Issue "complex" to make all complex drivers.
-# Issue "pcndrv" to make single precision complex drivers.
-# Issue "pzndrv" to make double precision complex drivers.
-#
-complex: pcndrv pzndrv
-#
-#-----------------------------------------------------------------------
-# Simple nonsymmetric problem using single precision
-#
-psndrv: psndrv1 psndrv3 
-
-psndrv1: psndrv1.o  
-	$(PFC) $(LDFLAGS) psndrv1.o $(PLIBS) -o psndrv1_$(PLAT)
-#
-psndrv3: psndrv3.o 
-	$(PFC) $(LDFLAGS) psndrv3.o $(PLIBS) -o psndrv3_$(PLAT)
-#
-#-----------------------------------------------------------------------
-# Simple nonsymmetric problem using double precision
-#
-pdndrv: pdndrv1 pdndrv3 
-
-pdndrv1: pdndrv1.o 
-	$(PFC) $(LDFLAGS) pdndrv1.o $(PLIBS) -o pdndrv1_$(PLAT)
-#
-pdndrv3: pdndrv3.o 
-	$(PFC) $(LDFLAGS) pdndrv3.o $(PLIBS) -o pdndrv3_$(PLAT)
-#
-#-----------------------------------------------------------------------
-# Simple symmetric problem using single precision
-#
-pssdrv: pssdrv1 
-
-pssdrv1: pssdrv1.o
-	$(PFC) $(LDFLAGS) pssdrv1.o $(PLIBS) -o pssdrv1_$(PLAT)
-#
-#-----------------------------------------------------------------------
-# Simple symmetric problem using double precision
-#
-pdsdrv: pdsdrv1 
-
-pdsdrv1: pdsdrv1.o
-	$(PFC) $(LDFLAGS) pdsdrv1.o $(PLIBS) -o pdsdrv1_$(PLAT)
-
-#-----------------------------------------------------------------------
-# Complex problem using single complex
-#
-pcndrv: pcndrv1
-
-pcndrv1: pcndrv1.o
-	$(PFC) $(LDFLAGS) pcndrv1.o $(PLIBS) -o pcndrv1_$(PLAT)
-#
-#----------------------------------------------------------------------
-# Complex problem using double complex
-#
-pzndrv: pzndrv1
-
-pzndrv1: pzndrv1.o
-	$(PFC) $(LDFLAGS) pzndrv1.o $(PLIBS) -o pzndrv1_$(PLAT)
-
-#----------------------------------------------------------------------
-# Test routines for timing
-
-pdntest1: pdntest1.o
-	$(PFC) $(LDFLAGS) pdntest1.o $(PLIBS) -o pdntest1_$(PLAT)

PARPACK/EXAMPLES/MPI/Makefile.am

@@ -0,0 +1,35 @@
+F77 = $(MPIF77)
+LDADD = $(top_builddir)/PARPACK/SRC/MPI/libparpack$(LIBSUFFIX).la $(LAPACK_LIBS) $(BLAS_LIBS)
+
+SNDRV = psndrv1 psndrv3
+DNDRV = pdndrv1 pdndrv3
+SSDRV = pssdrv1
+DSDRV = pdsdrv1
+CNDRV = pcndrv1
+ZNDRV = pzndrv1
+
+check_PROGRAMS = $(SNDRV) $(DNDRV) $(SSDRV) $(DSDRV) $(CNDRV) $(ZNDRV)
+# Disable tests for now. Needs to be run using mpirun
+#TESTS = $(check_PROGRAMS)
+
+EXTRA_DIST = debug.h stat.h
+
+# Simple nonsymmetric problem using single precision
+psndrv1_SOURCES = psndrv1.f
+psndrv3_SOURCES = psndrv3.f
+
+# Simple nonsymmetric problem using double precision
+pdndrv1_SOURCES = pdndrv1.f
+pdndrv3_SOURCES = pdndrv3.f
+
+# Simple symmetric problem using single precision
+pssdrv1_SOURCES = pssdrv1.f
+
+# Simple symmetric problem using double precision
+pdsdrv1_SOURCES = pdsdrv1.f
+
+# Complex problem using single complex
+pcndrv1_SOURCES = pcndrv1.f
+
+# Complex problem using double complex
+pzndrv1_SOURCES = pzndrv1.f

PARPACK/EXAMPLES/MPI/makefile

@@ -1,83 +0,0 @@
-#
-# makefile to run simple examples of the reverse communication
-# protocol.
-#
-# Modify if ARPACK library was built somewhere else.
-# We assume that the required BLAS and LAPACK routines
-# are in the version of libarpack.a built. If not, you
-# will need to modify the link step below and link to them.
-#
-#
-include ../../../ARmake.inc
-
-# Issue "make nonsym" to make all nonsymmetric drivers.
-# Issue "make psndrv" to make single precision nonsymmetric drivers.
-# Issue "make pdndrv" to make double precision nonsymmetric drivers.
-#
-nonsym: psndrv pdndrv 
-#
-# Issue "make sym" to make all symmetric drivers
-# Issue "make pssdrv" to make single precision symmetric drivers
-# Issue "make pdsdrv" to make double precision symmetric drivers
-#
-sym: pssdrv pdsdrv
-#
-# Issue "complex" to make all complex drivers.
-# Issue "pcndrv" to make single precision complex drivers.
-# Issue "pzndrv" to make double precision complex drivers.
-#
-complex: pcndrv pzndrv
-#
-#-----------------------------------------------------------------------
-# Simple nonsymmetric problem using single precision
-#
-psndrv: psndrv1 psndrv3 
-
-psndrv1: psndrv1.o  
-	$(PFC) $(PFFLAGS) psndrv1.o $(PLIBS) -o psndrv1_$(PLAT)
-#
-psndrv3: psndrv3.o 
-	$(PFC) $(PFFLAGS) psndrv3.o $(PLIBS) -o psndrv3_$(PLAT)
-#
-#------------------------------------------------------
-# Simple nonsymmetric problem using double precision
-#
-pdndrv: pdndrv1 pdndrv3 
-
-pdndrv1: pdndrv1.o 
-	$(PFC) $(PFFLAGS) pdndrv1.o $(PLIBS) -o pdndrv1_$(PLAT)
-#
-pdndrv3: pdndrv3.o 
-	$(PFC) $(PFFLAGS) pdndrv3.o $(PLIBS) -o pdndrv3_$(PLAT)
-#
-#-----------------------------------------------------------------------
-# Simple symmetric problem using single precision
-#
-pssdrv: pssdrv1 
-
-pssdrv1: pssdrv1.o
-	$(PFC) $(PFFLAGS) pssdrv1.o $(PLIBS) -o pssdrv1_$(PLAT)
-#
-#------------------------------------------------------
-# Simple symmetric problem using double precision
-#
-pdsdrv: pdsdrv1 
-
-pdsdrv1: pdsdrv1.o
-	$(PFC) $(PFFLAGS) pdsdrv1.o $(PLIBS) -o pdsdrv1_$(PLAT)
-
-#-----------------------------------------------------------------------
-# Complex problem using single complex
-#
-pcndrv: pcndrv1
-
-pcndrv1: pcndrv1.o
-	$(PFC) $(PFFLAGS) pcndrv1.o $(PLIBS) -o pcndrv1_$(PLAT)
-#
-#----------------------------------------------------------------------
-# Complex problem using double complex
-#
-pzndrv: pzndrv1
-
-pzndrv1: pzndrv1.o
-	$(PFC) $(PFFLAGS) pzndrv1.o $(PLIBS) -o pzndrv1_$(PLAT)

PARPACK/EXAMPLES/MPI/mpif.h

@@ -1,130 +0,0 @@
-C/*
-C *  
-C *  (C) 1993 by Argonne National Laboratory and Mississipi State University.
-C *      All rights reserved.  See COPYRIGHT in top-level directory.
-C */
-C
-C/* user include file for MPI programs, with no dependencies */
-C
-C/* return codes */
-       integer MPI_SUCCESS,MPI_ERR_EXHAUSTED,MPI_ERR_TAG, 
-     $ MPI_ERR_COMM_NULL,MPI_ERR_COMM_INTER,MPI_ERR_COMM_INTRA, 
-     $ MPI_ERR_ARG,MPI_ERR_BUFFER,MPI_ERR_COUNT,MPI_ERR_TYPE, 
-     $ MPI_ERR_ROOT,MPI_ERR_OP,MPI_ERR_ERRORCODE,
-     $ MPI_ERR_GROUP,MPI_ERR_RANK,MPI_ERR_TOPOLOGY,
-     $ MPI_ERR_DIMS,MPI_ERR_NULL,MPI_ERR_UNKNOWN,
-     $ MPI_ERR_REQUEST,MPI_ERR_LIMIT,MPI_ERR_INTERN,
-     $ MPI_ERR_NOMATCH,MPI_ERR_TRUNCATE,MPI_ERR_BAD_ARGS,
-     $ MPI_ERR_INIT,MPI_ERR_PERM_KEY,MPI_ERR_BUFFER_EXISTS,
-     $ MPI_ERR_COMM,MPI_ERR_PERM_TYPE,MPI_ERR_IN_STATUS,
-     $ MPI_ERR_OTHER,MPI_ERR_LASTCODE
-       parameter (MPI_SUCCESS=0,MPI_ERR_EXHAUSTED=1,MPI_ERR_TAG=2, 
-     $ MPI_ERR_COMM_NULL=3,MPI_ERR_COMM_INTER=4,MPI_ERR_COMM_INTRA=5, 
-     $ MPI_ERR_ARG=6,MPI_ERR_BUFFER=7,MPI_ERR_COUNT=8,MPI_ERR_TYPE=9, 
-     $ MPI_ERR_ROOT=10,MPI_ERR_OP=11,MPI_ERR_ERRORCODE=12,
-     $ MPI_ERR_GROUP=13,MPI_ERR_RANK=14,MPI_ERR_TOPOLOGY=15,
-     $ MPI_ERR_DIMS=16,MPI_ERR_NULL=17,MPI_ERR_UNKNOWN=18,
-     $ MPI_ERR_REQUEST=19,MPI_ERR_LIMIT=20,MPI_ERR_INTERN=21,
-     $ MPI_ERR_NOMATCH=22,MPI_ERR_TRUNCATE=23,MPI_ERR_BAD_ARGS=24,
-     $ MPI_ERR_INIT=25,MPI_ERR_PERM_KEY=26,MPI_ERR_BUFFER_EXISTS=27,
-     $ MPI_ERR_COMM=28,MPI_ERR_PERM_TYPE=29,MPI_ERR_IN_STATUS=30,
-     $ MPI_ERR_OTHER=31,
-     $ MPI_ERR_LASTCODE=32)
-C
-       integer MPI_UNDEFINED
-       parameter (MPI_UNDEFINED = (-32766))
-C
-       INTEGER MPI_GRAPH, MPI_CART
-       PARAMETER (MPI_GRAPH = 1, MPI_CART = 2)
-       INTEGER  MPI_PROC_NULL
-       PARAMETER ( MPI_PROC_NULL = (-1) )
-C
-       INTEGER MPI_BSEND_OVERHEAD
-       PARAMETER ( MPI_BSEND_OVERHEAD = 512 )
-
-      INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR
-      PARAMETER(MPI_SOURCE=2, MPI_TAG=3, MPI_ERROR=4)
-      INTEGER MPI_STATUS_SIZE
-      PARAMETER (MPI_STATUS_SIZE=4)
-      INTEGER MPI_MAX_PROCESSOR_NAME, MPI_MAX_ERROR_STRING
-      PARAMETER (MPI_MAX_PROCESSOR_NAME=256,
-     $           MPI_MAX_ERROR_STRING=256)
-C
-      INTEGER MPI_COMM_NULL
-      PARAMETER (MPI_COMM_NULL=0)
-c
-      INTEGER MPI_DATATYPE_NULL
-      PARAMETER (MPI_DATATYPE_NULL = 0)
-      
-      INTEGER MPI_ERRHANDLER_NULL
-      PARAMETER (MPI_ERRHANDLER_NULL = 0)
-      
-      INTEGER MPI_GROUP_NULL
-      PARAMETER (MPI_GROUP_NULL = 0)
-      
-      INTEGER MPI_KEYVAL_INVALID
-      PARAMETER (MPI_KEYVAL_INVALID = 0)
-      
-      INTEGER MPI_REQUEST_NULL
-      PARAMETER (MPI_REQUEST_NULL = 0)
-C 
-      INTEGER MPI_IDENT, MPI_CONGRUENT, MPI_SIMILAR, MPI_UNEQUAL
-      PARAMETER (MPI_IDENT=0, MPI_CONGRUENT=1, MPI_SIMILAR=2,
-     $          MPI_UNEQUAL=3)
-C     
-C     We handle datatypes by putting the variables that hold them into
-C     common.  This way, a Fortran program can directly use the various
-C     datatypes and can even give them to C programs.
-C
-C     MPI_BOTTOM needs to be a known address; here we put it at the
-C     beginning of the common block.  The point-to-point and collective
-C     routines know about MPI_BOTTOM, but MPI_TYPE_STRUCT as yet does not.
-C
-C     The types MPI_INTEGER1,2,4 and MPI_REAL4,8 are OPTIONAL.
-C     Their values are zero if they are not available.  Note that
-C     using these reduces the portability of code (though may enhance
-C     portability between Crays and other systems)
-C
-      integer MPI_TAG_UB, MPI_HOST, MPI_IO
-      integer MPI_BOTTOM, MPI_INTEGER, MPI_REAL, MPI_DOUBLE_PRECISION, 
-     $        MPI_COMPLEX, MPI_DOUBLE_COMPLEX,
-     $        MPI_LOGICAL, MPI_CHARACTER, MPI_BYTE, 
-     $        MPI_2INTEGER, MPI_2REAL, MPI_2DOUBLE_PRECISION, 
-     $        MPI_2COMPLEX, MPI_2DOUBLE_COMPLEX,
-     $        MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4, 
-     $        MPI_REAL2, MPI_REAL4, MPI_REAL8, MPI_UB, MPI_LB, 
-     $        MPI_PACKED
-      integer MPI_COMM_WORLD, MPI_COMM_SELF, MPI_GROUP_EMPTY
-      integer MPI_SUM, MPI_MAX, MPI_MIN, MPI_PROD, MPI_LAND, MPI_BAND,
-     $     MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR, MPI_MINLOC, MPI_MAXLOC, 
-     $     MPI_OP_NULL
-      integer MPI_ERRORS_ARE_FATAL, MPI_ERRORS_RETURN
-      common /mpipriv/ MPI_BOTTOM, MPI_INTEGER, MPI_REAL, 
-     $     MPI_DOUBLE_PRECISION,
-     $     MPI_COMPLEX, MPI_DOUBLE_COMPLEX, 
-     $     MPI_LOGICAL, MPI_CHARACTER, MPI_BYTE,
-     $     MPI_2INTEGER, MPI_2REAL, MPI_2DOUBLE_PRECISION, 
-     $     MPI_2COMPLEX, MPI_2DOUBLE_COMPLEX, 
-     $     MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4, 
-     $     MPI_REAL2, MPI_REAL4, MPI_REAL8,
-     $     MPI_UB, MPI_LB, 
-     $     MPI_COMM_WORLD, MPI_COMM_SELF, MPI_GROUP_EMPTY,
-     $     MPI_SUM, MPI_MAX, MPI_MIN, MPI_PROD, MPI_LAND, MPI_BAND,
-     $     MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR, MPI_MINLOC, MPI_MAXLOC, 
-     $     MPI_OP_NULL, 
-     $     MPI_TAG_UB, MPI_HOST, MPI_IO, MPI_ERRORS_ARE_FATAL, 
-     $     MPI_ERRORS_RETURN, MPI_PACKED
-C
-      integer MPI_ANY_SOURCE
-      parameter (MPI_ANY_SOURCE = (-2))
-      integer MPI_ANY_TAG
-      parameter (MPI_ANY_TAG = (-1))
-C
-C     All other MPI routines are subroutines
-      double precision MPI_WTIME, MPI_WTICK
-      external MPI_WTIME, MPI_WTICK
-C
-C     The attribute copy/delete functions are symbols that can be passed
-C     to MPI routines
-      external MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, MPI_DUP_FN
-

PARPACK/Makefile.am

@@ -1,11 +1,7 @@
-SUBDIRS = UTIL SRC
+if MPI
+SUBDIRS = UTIL/MPI SRC/MPI . TESTS/MPI EXAMPLES/MPI
+endif
 
-lib_LTLIBRARIES = libparpack.la
-libparpack_la_SOURCES = 
-libparpack_la_LDFLAGS = -version-info 2:0
-libparpack_la_LIBADD = \
-	$(top_builddir)/SRC/libarpacksrc.la \
-	$(top_builddir)/UTIL/libarpackutil.la \
-	$(top_builddir)/PARPACK/SRC/MPI/libparpacksrcmpi.la \
-	$(top_builddir)/PARPACK/UTIL/MPI/libparpackutilmpi.la \
-	$(BLAS_LIBS) $(LAPACK_LIBS) $(FLIBS) $(MPILIBS)
+if BLACS
+SUBDIRS = UTIL/BLACS SRC/BLACS . EXAMPLES/BLACS
+endif

PARPACK/Makefile.in

@@ -1,678 +0,0 @@
-# Makefile.in generated by automake 1.11.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software
-# Foundation, Inc.
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-VPATH = @srcdir@
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = PARPACK
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_blas.m4 \
-	$(top_srcdir)/m4/ax_lapack.m4 $(top_srcdir)/m4/ax_mpi.m4 \
-	$(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
-	$(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
-	$(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
-	$(ACLOCAL_M4)
-mkinstalldirs = $(install_sh) -d
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
-    $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
-    *) f=$$p;; \
-  esac;
-am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`;
-am__install_max = 40
-am__nobase_strip_setup = \
-  srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'`
-am__nobase_strip = \
-  for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||"
-am__nobase_list = $(am__nobase_strip_setup); \
-  for p in $$list; do echo "$$p $$p"; done | \
-  sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \
-  $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \
-    if (++n[$$2] == $(am__install_max)) \
-      { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \
-    END { for (dir in files) print dir, files[dir] }'
-am__base_list = \
-  sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \
-  sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g'
-am__uninstall_files_from_dir = { \
-  test -z "$$files" \
-    || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \
-    || { echo " ( cd '$$dir' && rm -f" $$files ")"; \
-         $(am__cd) "$$dir" && rm -f $$files; }; \
-  }
-am__installdirs = "$(DESTDIR)$(libdir)"
-LTLIBRARIES = $(lib_LTLIBRARIES)
-am__DEPENDENCIES_1 =
-libparpack_la_DEPENDENCIES = $(top_builddir)/SRC/libarpacksrc.la \
-	$(top_builddir)/UTIL/libarpackutil.la \
-	$(top_builddir)/PARPACK/SRC/MPI/libparpacksrcmpi.la \
-	$(top_builddir)/PARPACK/UTIL/MPI/libparpackutilmpi.la \
-	$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
-	$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1)
-am_libparpack_la_OBJECTS =
-libparpack_la_OBJECTS = $(am_libparpack_la_OBJECTS)
-libparpack_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \
-	$(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
-	$(libparpack_la_LDFLAGS) $(LDFLAGS) -o $@
-DEFAULT_INCLUDES = -I.@am__isrc@
-COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
-	$(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-	--mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
-	$(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-CCLD = $(CC)
-LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-	--mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \
-	$(LDFLAGS) -o $@
-SOURCES = $(libparpack_la_SOURCES)
-DIST_SOURCES = $(libparpack_la_SOURCES)
-RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \
-	html-recursive info-recursive install-data-recursive \
-	install-dvi-recursive install-exec-recursive \
-	install-html-recursive install-info-recursive \
-	install-pdf-recursive install-ps-recursive install-recursive \
-	installcheck-recursive installdirs-recursive pdf-recursive \
-	ps-recursive uninstall-recursive
-RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive	\
-  distclean-recursive maintainer-clean-recursive
-AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \
-	$(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \
-	distdir
-ETAGS = etags
-CTAGS = ctags
-DIST_SUBDIRS = $(SUBDIRS)
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-am__relativize = \
-  dir0=`pwd`; \
-  sed_first='s,^\([^/]*\)/.*$$,\1,'; \
-  sed_rest='s,^[^/]*/*,,'; \
-  sed_last='s,^.*/\([^/]*\)$$,\1,'; \
-  sed_butlast='s,/*[^/]*$$,,'; \
-  while test -n "$$dir1"; do \
-    first=`echo "$$dir1" | sed -e "$$sed_first"`; \
-    if test "$$first" != "."; then \
-      if test "$$first" = ".."; then \
-        dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \
-        dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \
-      else \
-        first2=`echo "$$dir2" | sed -e "$$sed_first"`; \
-        if test "$$first2" = "$$first"; then \
-          dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \
-        else \
-          dir2="../$$dir2"; \
-        fi; \
-        dir0="$$dir0"/"$$first"; \
-      fi; \
-    fi; \
-    dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \
-  done; \
-  reldir="$$dir2"
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AR = @AR@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BLAS_LIBS = @BLAS_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-F77 = @F77@
-FFLAGS = @FFLAGS@
-FGREP = @FGREP@
-FLIBS = @FLIBS@
-GREP = @GREP@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-LAPACK_LIBS = @LAPACK_LIBS@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBOBJS = @LTLIBOBJS@
-MAINT = @MAINT@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIF77 = @MPIF77@
-MPILIBS = @MPILIBS@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-RANLIB = @RANLIB@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-VERSION = @VERSION@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-ac_ct_F77 = @ac_ct_F77@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-SUBDIRS = UTIL SRC
-lib_LTLIBRARIES = libparpack.la
-libparpack_la_SOURCES = 
-libparpack_la_LDFLAGS = -version-info 2:0
-libparpack_la_LIBADD = \
-	$(top_builddir)/SRC/libarpacksrc.la \
-	$(top_builddir)/UTIL/libarpackutil.la \
-	$(top_builddir)/PARPACK/SRC/MPI/libparpacksrcmpi.la \
-	$(top_builddir)/PARPACK/UTIL/MPI/libparpackutilmpi.la \
-	$(BLAS_LIBS) $(LAPACK_LIBS) $(FLIBS) $(MPILIBS)
-
-all: all-recursive
-
-.SUFFIXES:
-$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am  $(am__configure_deps)
-	@for dep in $?; do \
-	  case '$(am__configure_deps)' in \
-	    *$$dep*) \
-	      ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
-	        && { if test -f $@; then exit 0; else break; fi; }; \
-	      exit 1;; \
-	  esac; \
-	done; \
-	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign PARPACK/Makefile'; \
-	$(am__cd) $(top_srcdir) && \
-	  $(AUTOMAKE) --foreign PARPACK/Makefile
-.PRECIOUS: Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
-	@case '$?' in \
-	  *config.status*) \
-	    cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
-	  *) \
-	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
-	    cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
-	esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
-	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps)
-	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps)
-	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-install-libLTLIBRARIES: $(lib_LTLIBRARIES)
-	@$(NORMAL_INSTALL)
-	test -z "$(libdir)" || $(MKDIR_P) "$(DESTDIR)$(libdir)"
-	@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
-	list2=; for p in $$list; do \
-	  if test -f $$p; then \
-	    list2="$$list2 $$p"; \
-	  else :; fi; \
-	done; \
-	test -z "$$list2" || { \
-	  echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \
-	  $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \
-	}
-
-uninstall-libLTLIBRARIES:
-	@$(NORMAL_UNINSTALL)
-	@list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \
-	for p in $$list; do \
-	  $(am__strip_dir) \
-	  echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \
-	  $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \
-	done
-
-clean-libLTLIBRARIES:
-	-test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
-	@list='$(lib_LTLIBRARIES)'; for p in $$list; do \
-	  dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
-	  test "$$dir" != "$$p" || dir=.; \
-	  echo "rm -f \"$${dir}/so_locations\""; \
-	  rm -f "$${dir}/so_locations"; \
-	done
-libparpack.la: $(libparpack_la_OBJECTS) $(libparpack_la_DEPENDENCIES) $(EXTRA_libparpack_la_DEPENDENCIES) 
-	$(libparpack_la_LINK) -rpath $(libdir) $(libparpack_la_OBJECTS) $(libparpack_la_LIBADD) $(LIBS)
-
-mostlyclean-compile:
-	-rm -f *.$(OBJEXT)
-
-distclean-compile:
-	-rm -f *.tab.c
-
-mostlyclean-libtool:
-	-rm -f *.lo
-
-clean-libtool:
-	-rm -rf .libs _libs
-
-# This directory's subdirectories are mostly independent; you can cd
-# into them and run `make' without going through this Makefile.
-# To change the values of `make' variables: instead of editing Makefiles,
-# (1) if the variable is set in `config.status', edit `config.status'
-#     (which will cause the Makefiles to be regenerated when you run `make');
-# (2) otherwise, pass the desired values on the `make' command line.
-$(RECURSIVE_TARGETS):
-	@fail= failcom='exit 1'; \
-	for f in x $$MAKEFLAGS; do \
-	  case $$f in \
-	    *=* | --[!k]*);; \
-	    *k*) failcom='fail=yes';; \
-	  esac; \
-	done; \
-	dot_seen=no; \
-	target=`echo $@ | sed s/-recursive//`; \
-	list='$(SUBDIRS)'; for subdir in $$list; do \
-	  echo "Making $$target in $$subdir"; \
-	  if test "$$subdir" = "."; then \
-	    dot_seen=yes; \
-	    local_target="$$target-am"; \
-	  else \
-	    local_target="$$target"; \
-	  fi; \
-	  ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
-	  || eval $$failcom; \
-	done; \
-	if test "$$dot_seen" = "no"; then \
-	  $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \
-	fi; test -z "$$fail"
-
-$(RECURSIVE_CLEAN_TARGETS):
-	@fail= failcom='exit 1'; \
-	for f in x $$MAKEFLAGS; do \
-	  case $$f in \
-	    *=* | --[!k]*);; \
-	    *k*) failcom='fail=yes';; \
-	  esac; \
-	done; \
-	dot_seen=no; \
-	case "$@" in \
-	  distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \
-	  *) list='$(SUBDIRS)' ;; \
-	esac; \
-	rev=''; for subdir in $$list; do \
-	  if test "$$subdir" = "."; then :; else \
-	    rev="$$subdir $$rev"; \
-	  fi; \
-	done; \
-	rev="$$rev ."; \
-	target=`echo $@ | sed s/-recursive//`; \
-	for subdir in $$rev; do \
-	  echo "Making $$target in $$subdir"; \
-	  if test "$$subdir" = "."; then \
-	    local_target="$$target-am"; \
-	  else \
-	    local_target="$$target"; \
-	  fi; \
-	  ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \
-	  || eval $$failcom; \
-	done && test -z "$$fail"
-tags-recursive:
-	list='$(SUBDIRS)'; for subdir in $$list; do \
-	  test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \
-	done
-ctags-recursive:
-	list='$(SUBDIRS)'; for subdir in $$list; do \
-	  test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \
-	done
-
-ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
-	list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
-	unique=`for i in $$list; do \
-	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-	  done | \
-	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
-	      END { if (nonempty) { for (i in files) print i; }; }'`; \
-	mkid -fID $$unique
-tags: TAGS
-
-TAGS: tags-recursive $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
-		$(TAGS_FILES) $(LISP)
-	set x; \
-	here=`pwd`; \
-	if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \
-	  include_option=--etags-include; \
-	  empty_fix=.; \
-	else \
-	  include_option=--include; \
-	  empty_fix=; \
-	fi; \
-	list='$(SUBDIRS)'; for subdir in $$list; do \
-	  if test "$$subdir" = .; then :; else \
-	    test ! -f $$subdir/TAGS || \
-	      set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \
-	  fi; \
-	done; \
-	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
-	unique=`for i in $$list; do \
-	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-	  done | \
-	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
-	      END { if (nonempty) { for (i in files) print i; }; }'`; \
-	shift; \
-	if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
-	  test -n "$$unique" || unique=$$empty_fix; \
-	  if test $$# -gt 0; then \
-	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
-	      "$$@" $$unique; \
-	  else \
-	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
-	      $$unique; \
-	  fi; \
-	fi
-ctags: CTAGS
-CTAGS: ctags-recursive $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
-		$(TAGS_FILES) $(LISP)
-	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
-	unique=`for i in $$list; do \
-	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-	  done | \
-	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
-	      END { if (nonempty) { for (i in files) print i; }; }'`; \
-	test -z "$(CTAGS_ARGS)$$unique" \
-	  || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
-	     $$unique
-
-GTAGS:
-	here=`$(am__cd) $(top_builddir) && pwd` \
-	  && $(am__cd) $(top_srcdir) \
-	  && gtags -i $(GTAGS_ARGS) "$$here"
-
-distclean-tags:
-	-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-
-distdir: $(DISTFILES)
-	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-	list='$(DISTFILES)'; \
-	  dist_files=`for file in $$list; do echo $$file; done | \
-	  sed -e "s|^$$srcdirstrip/||;t" \
-	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
-	case $$dist_files in \
-	  */*) $(MKDIR_P) `echo "$$dist_files" | \
-			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
-			   sort -u` ;; \
-	esac; \
-	for file in $$dist_files; do \
-	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
-	  if test -d $$d/$$file; then \
-	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
-	    if test -d "$(distdir)/$$file"; then \
-	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
-	    fi; \
-	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
-	      cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
-	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
-	    fi; \
-	    cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
-	  else \
-	    test -f "$(distdir)/$$file" \
-	    || cp -p $$d/$$file "$(distdir)/$$file" \
-	    || exit 1; \
-	  fi; \
-	done
-	@list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
-	  if test "$$subdir" = .; then :; else \
-	    test -d "$(distdir)/$$subdir" \
-	    || $(MKDIR_P) "$(distdir)/$$subdir" \
-	    || exit 1; \
-	  fi; \
-	done
-	@list='$(DIST_SUBDIRS)'; for subdir in $$list; do \
-	  if test "$$subdir" = .; then :; else \
-	    dir1=$$subdir; dir2="$(distdir)/$$subdir"; \
-	    $(am__relativize); \
-	    new_distdir=$$reldir; \
-	    dir1=$$subdir; dir2="$(top_distdir)"; \
-	    $(am__relativize); \
-	    new_top_distdir=$$reldir; \
-	    echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \
-	    echo "     am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \
-	    ($(am__cd) $$subdir && \
-	      $(MAKE) $(AM_MAKEFLAGS) \
-	        top_distdir="$$new_top_distdir" \
-	        distdir="$$new_distdir" \
-		am__remove_distdir=: \
-		am__skip_length_check=: \
-		am__skip_mode_fix=: \
-	        distdir) \
-	      || exit 1; \
-	  fi; \
-	done
-check-am: all-am
-check: check-recursive
-all-am: Makefile $(LTLIBRARIES)
-installdirs: installdirs-recursive
-installdirs-am:
-	for dir in "$(DESTDIR)$(libdir)"; do \
-	  test -z "$$dir" || $(MKDIR_P) "$$dir"; \
-	done
-install: install-recursive
-install-exec: install-exec-recursive
-install-data: install-data-recursive
-uninstall: uninstall-recursive
-
-install-am: all-am
-	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-recursive
-install-strip:
-	if test -z '$(STRIP)'; then \
-	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
-	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
-	      install; \
-	else \
-	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
-	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
-	    "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
-	fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
-	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-	-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
-	@echo "This command is intended for maintainers to use"
-	@echo "it deletes files that may require special tools to rebuild."
-clean: clean-recursive
-
-clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \
-	mostlyclean-am
-
-distclean: distclean-recursive
-	-rm -f Makefile
-distclean-am: clean-am distclean-compile distclean-generic \
-	distclean-tags
-
-dvi: dvi-recursive
-
-dvi-am:
-
-html: html-recursive
-
-html-am:
-
-info: info-recursive
-
-info-am:
-
-install-data-am:
-
-install-dvi: install-dvi-recursive
-
-install-dvi-am:
-
-install-exec-am: install-libLTLIBRARIES
-
-install-html: install-html-recursive
-
-install-html-am:
-
-install-info: install-info-recursive
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-recursive
-
-install-pdf-am:
-
-install-ps: install-ps-recursive
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-recursive
-	-rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-recursive
-
-mostlyclean-am: mostlyclean-compile mostlyclean-generic \
-	mostlyclean-libtool
-
-pdf: pdf-recursive
-
-pdf-am:
-
-ps: ps-recursive
-
-ps-am:
-
-uninstall-am: uninstall-libLTLIBRARIES
-
-.MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) ctags-recursive \
-	install-am install-strip tags-recursive
-
-.PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \
-	all all-am check check-am clean clean-generic \
-	clean-libLTLIBRARIES clean-libtool ctags ctags-recursive \
-	distclean distclean-compile distclean-generic \
-	distclean-libtool distclean-tags distdir dvi dvi-am html \
-	html-am info info-am install install-am install-data \
-	install-data-am install-dvi install-dvi-am install-exec \
-	install-exec-am install-html install-html-am install-info \
-	install-info-am install-libLTLIBRARIES install-man install-pdf \
-	install-pdf-am install-ps install-ps-am install-strip \
-	installcheck installcheck-am installdirs installdirs-am \
-	maintainer-clean maintainer-clean-generic mostlyclean \
-	mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
-	pdf pdf-am ps ps-am tags tags-recursive uninstall uninstall-am \
-	uninstall-libLTLIBRARIES
-
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:

PARPACK/SRC/BLACS/Makefile

@@ -1,73 +0,0 @@
-############################################################################
-#
-#  Program:         PARPACK
-#
-#  Module:          Makefile
-#
-#  Purpose:         Sources Makefile
-#
-#  Creation date:   February 22, 1996
-#
-#  Modified:
-#
-#  Send bug reports, comments or suggestions to arpack.caam.rice.edu
-#
-############################################################################
-
-include ../../../ARmake.inc
-
-############################################################################
-#  To create or add to the library, enter make followed by one or
-#  more of the precisions desired.  Some examples:
-#       make single
-#       make single complex
-#       make single double complex complex16
-#  Alternatively, the command
-#       make
-#  without any arguments creates a library of all four precisions.
-#  The name of the library is defined by $(PARPACKLIB) in
-#  $(home)/ARmake.inc and is created in the $(home) directory.
-
-SOBJ  = psgetv0.o  \
-	psnaitr.o psnapps.o psnaup2.o psnaupd.o psneigh.o psngets.o \
-	pssaitr.o pssapps.o pssaup2.o pssaupd.o psseigt.o pssgets.o \
-	psneupd.o psseupd.o pslarnv.o pslamch.o psnorm2.o
-
-DOBJ  = pdgetv0.o \
-	pdnaitr.o pdnapps.o pdnaup2.o pdnaupd.o pdneigh.o pdngets.o \
-	pdsaitr.o pdsapps.o pdsaup2.o pdsaupd.o pdseigt.o pdsgets.o \
-	pdneupd.o pdseupd.o pdlarnv.o pdlamch.o pdnorm2.o
-
-COBJ  = pcnaitr.o pcnapps.o pcnaup2.o pcnaupd.o pcneigh.o \
-		pcneupd.o pcngets.o pcgetv0.o pscnorm2.o pclarnv.o
-
-ZOBJ  = pznaitr.o pznapps.o pznaup2.o pznaupd.o pzneigh.o \
-		pzneupd.o pzngets.o pzgetv0.o pdznorm2.o pzlarnv.o
-
-.f.o:
-	$(FC) $(FFLAGS) -c $<
-
-all: single complex double complex16
-
-single: $(SOBJ)
-	$(AR) $(ARFLAGS) $(PARPACKLIB) $(SOBJ)
-	$(RANLIB) $(PARPACKLIB)
-
-double: $(DOBJ)
-	$(AR) $(ARFLAGS) $(PARPACKLIB) $(DOBJ)
-	$(RANLIB) $(PARPACKLIB)
-
-complex: $(COBJ)
-	$(AR) $(ARFLAGS) $(PARPACKLIB) $(COBJ)
-	$(RANLIB) $(PARPACKLIB)
-
-complex16: $(ZOBJ)
-	$(AR) $(ARFLAGS) $(PARPACKLIB) $(ZOBJ)
-	$(RANLIB) $(PARPACKLIB)
-
-#
-#  clean	- remove all object files
-#
-clean:
-	rm -f *.o a.out core
-

PARPACK/SRC/BLACS/Makefile.am

@@ -0,0 +1,23 @@
+SSRC = psnaitr.f psnapps.f psnaup2.f psnaupd.f psneigh.f psneupd.f psngets.f \
+       pssaitr.f pssapps.f pssaup2.f pssaupd.f psseigt.f psseupd.f pssgets.f \
+       psgetv0.f pslamch.f pslarnv.f psnorm2.f
+
+DSRC = pdnaitr.f pdnapps.f pdnaup2.f pdnaupd.f pdneigh.f pdneupd.f pdngets.f \
+       pdsaitr.f pdsapps.f pdsaup2.f pdsaupd.f pdseigt.f pdseupd.f pdsgets.f \
+       pdgetv0.f pdlamch.f pdlarnv.f pdnorm2.f
+
+CSRC = pcnaitr.f pcnapps.f pcnaup2.f pcnaupd.f pcneigh.f pcneupd.f pcngets.f \
+       pcgetv0.f pclarnv.f pscnorm2.f
+
+ZSRC = pznaitr.f pznapps.f pznaup2.f pznaupd.f pzneigh.f pzneupd.f pzngets.f \
+       pzgetv0.f pzlarnv.f pdznorm2.f
+
+EXTRA_DIST = debug.h stat.h
+
+lib_LTLIBRARIES = libparpack@LIBSUFFIX@.la
+libparpack@LIBSUFFIX@_la_SOURCES = $(SSRC) $(DSRC) $(CSRC) $(ZSRC)
+libparpack@LIBSUFFIX@_la_LIBADD = \
+	$(top_builddir)/PARPACK/UTIL/BLACS/libparpackutil.la \
+	$(top_builddir)/SRC/libarpack@LIBSUFFIX@.la \
+	$(LAPACK_LIBS) $(BLAS_LIBS)
+libparpack@LIBSUFFIX@_la_LDFLAGS = -no-undefined -version-info 2:0

PARPACK/SRC/BLACS/pcgetv0.f

@@ -95,7 +95,7 @@ c     a k-Step Arnoldi Method", SIAM J. Matr. Anal. Apps., 13 (1992),
 c     pp 357-385.
 c
 c\Routines called:
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pcvout   Parallel ARPACK utility routine that prints vectors.
 c     pclarnv  Parallel wrapper for LAPACK routine clarnv (generates a random vector). 
 c     cgemv    Level 2 BLAS routine for matrix vector multiplication.
@@ -188,7 +188,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external    ccopy, cgemv, pclarnv, pcvout, second
+      external    ccopy, cgemv, pclarnv, pcvout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -255,7 +255,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mgetv0
 c 
          ierr   = 0
@@ -282,7 +282,7 @@ c        | Force the starting vector into the range of OP to handle |
 c        | the generalized problem when B is possibly (singular).   |
 c        %----------------------------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nopx = nopx + 1
             ipntr(1) = 1
@@ -305,7 +305,7 @@ c     %-----------------------------------------------%
 c
       if (orth)  go to 40
 c 
-      call second (t3)
+      call arscnd (t3)
       tmvopx = tmvopx + (t3 - t2)
 c 
 c     %------------------------------------------------------%
@@ -313,7 +313,7 @@ c     | Starting vector is now in the range of OP; r = OP*r; |
 c     | Compute B-norm of starting vector.                   |
 c     %------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       first = .TRUE.
       if (bmat .eq. 'G') then
          nbx = nbx + 1
@@ -329,7 +329,7 @@ c
    20 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       end if
 c 
@@ -374,7 +374,7 @@ c     %----------------------------------------------------------%
 c     | Compute the B-norm of the orthogonalized starting vector |
 c     %----------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       if (bmat .eq. 'G') then
          nbx = nbx + 1
          call ccopy (n, resid, 1, workd(n+1), 1)
@@ -389,7 +389,7 @@ c
    40 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       end if
 c 
@@ -449,7 +449,7 @@ c
       end if
       ido = 99
 c 
-      call second (t1)
+      call arscnd (t1)
       tgetv0 = tgetv0 + (t1 - t0)
 c 
  9000 continue

PARPACK/SRC/BLACS/pcnaitr.f

@@ -137,7 +137,7 @@ c
 c\Routines called:
 c     pcgetv0   Parallel ARPACK routine to generate the initial vector.
 c     pivout    Parallel ARPACK utility routine that prints integers.
-c     second    ARPACK utility routine for timing.
+c     arscnd    ARPACK utility routine for timing.
 c     pcmout    Parallel ARPACK utility routine that prints matrices
 c     pcvout    Parallel ARPACK utility routine that prints vectors.
 c     clanhs    LAPACK routine that computes various norms of a matrix.
@@ -296,7 +296,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   caxpy, ccopy, cscal, cgemv, pcgetv0, slabad, 
-     &           csscal, pcvout, pcmout, pivout, second
+     &           csscal, pcvout, pcmout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -349,7 +349,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mcaitr
 c 
 c        %------------------------------%
@@ -460,7 +460,7 @@ c              | which spans OP and exit.                       |
 c              %------------------------------------------------%
 c
                info = j - 1
-               call second (t1)
+               call arscnd (t1)
                tcaitr = tcaitr + (t1 - t0)
                ido = 99
                go to 9000
@@ -500,7 +500,7 @@ c        %------------------------------------------------------%
 c
          step3 = .true.
          nopx  = nopx + 1
-         call second (t2)
+         call arscnd (t2)
          call ccopy (n, v(1,j), 1, workd(ivj), 1)
          ipntr(1) = ivj
          ipntr(2) = irj
@@ -520,7 +520,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}   |
 c        | if step3 = .true.                |
 c        %----------------------------------%
 c
-         call second (t3)
+         call arscnd (t3)
          tmvopx = tmvopx + (t3 - t2)
  
          step3 = .false.
@@ -536,7 +536,7 @@ c        | STEP 4:  Finish extending the Arnoldi |
 c        |          factorization to length j.   |
 c        %---------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             step4 = .true.
@@ -561,7 +561,7 @@ c        | if step4 = .true.                |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -608,11 +608,11 @@ c
 c
          if (j .gt. 1) h(j,j-1) = cmplx(betaj, rzero)
 c
-         call second (t4)
+         call arscnd (t4)
 c 
          orth1 = .true.
 c 
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call ccopy (n, resid, 1, workd(irj), 1)
@@ -636,7 +636,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}.                    |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -716,7 +716,7 @@ c
          call caxpy (j, one, workl(1), 1, h(1,j), 1)
 c 
          orth2 = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call ccopy (n, resid, 1, workd(irj), 1)
@@ -740,7 +740,7 @@ c        | Back from reverse communication if ORTH2 = .true. |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if 
 c
@@ -819,7 +819,7 @@ c
          rstart = .false.
          orth2  = .false.
 c 
-         call second (t5)
+         call arscnd (t5)
          titref = titref + (t5 - t4)
 c 
 c        %------------------------------------%
@@ -828,7 +828,7 @@ c        %------------------------------------%
 c
          j = j + 1
          if (j .gt. k+np) then
-            call second (t1)
+            call arscnd (t1)
             tcaitr = tcaitr + (t1 - t0)
             ido = 99
             do 110 i = max(1,k), k+np-1

PARPACK/SRC/BLACS/pcnapps.f

@@ -96,7 +96,7 @@ c     pp 357-385.
 c
 c\Routines called:
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pcmout  Parallel ARPACK utility routine that prints matrices
 c     pcvout  Parallel ARPACK utility routine that prints vectors.
 c     clacpy  LAPACK matrix copy routine.
@@ -200,7 +200,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   caxpy, ccopy, cgemv, cscal, clacpy, clartg, 
-     &           pcvout, claset, slabad, pcmout, second, pivout
+     &           pcvout, claset, slabad, pcmout, arscnd, pivout
 c
 c     %--------------------%
 c     | External Functions |
@@ -256,7 +256,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mcapps
 c 
       kplusp = kev + np 
@@ -511,7 +511,7 @@ c
       end if
 c
  9000 continue
-      call second (t1)
+      call arscnd (t1)
       tcapps = tcapps + (t1 - t0)
 c 
       return

PARPACK/SRC/BLACS/pcnaup2.f

@@ -137,7 +137,7 @@ c     pcneigh  Parallel ARPACK compute Ritz values and error bounds routine.
 c     pcngets  Parallel ARPACK reorder Ritz values and error bounds routine.
 c     csortc   ARPACK sorting routine.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pcmout   Parallel ARPACK utility routine that prints matrices
 c     pcvout   Parallel ARPACK utility routine that prints vectors.
 c     psvout   ARPACK utility routine that prints vectors.
@@ -247,7 +247,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   ccopy, pcgetv0, pcnaitr, pcneigh, pcngets, pcnapps,
-     &           csortc, cswap, pcmout, pcvout, pivout, second
+     &           csortc, cswap, pcmout, pcvout, pivout, arscnd
 c
 c     %--------------------%
 c     | External functions |
@@ -271,7 +271,7 @@ c     %-----------------------%
 c
       if (ido .eq. 0) then
 c 
-         call second (t0)
+         call arscnd (t0)
 c 
          msglvl = mcaup2
 c 
@@ -737,7 +737,7 @@ c        | the first step of the next call to pcnaitr. |
 c        %---------------------------------------------%
 c
          cnorm = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call ccopy (n, resid, 1, workd(n+1), 1)
@@ -762,7 +762,7 @@ c        | WORKD(1:N) := B*RESID            |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -802,7 +802,7 @@ c     %------------%
 c     | Error Exit |
 c     %------------%
 c
-      call second (t1)
+      call arscnd (t1)
       tcaup2 = t1 - t0
 c     
  9000 continue

PARPACK/SRC/BLACS/pcnaupd.f

@@ -359,7 +359,7 @@ c              Arnoldi Iteration.
 c     cstatn   ARPACK routine that initializes the timing variables.
 c     pivout   Parallel ARPACK utility routine that prints integers.
 c     pcvout   Parallel ARPACK utility routine that prints vectors.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pslamch  ScaLAPACK routine that determines machine constants.
 c
 c\Author
@@ -446,7 +446,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pcnaup2, pcvout, pivout, second, cstatn
+      external   pcnaup2, pcvout, pivout, arscnd, cstatn
 c
 c     %--------------------%
 c     | External Functions |
@@ -468,7 +468,7 @@ c        | & message level for debugging |
 c        %-------------------------------%
 c
          call cstatn
-         call second (t0)
+         call arscnd (t0)
          msglvl = mcaupd
 c
 c        %----------------%
@@ -628,7 +628,7 @@ c
      &               '_naupd: Associated Ritz estimates')
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tcaupd = t1 - t0
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/pcneigh.f

@@ -68,7 +68,7 @@ c     xxxxxx  Complex
 c
 c\Routines called:
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pcmout  Parallel ARPACK utility routine that prints matrices
 c     pcvout  Parallel ARPACK utility routine that prints vectors.
 c     psvout  Parallel ARPACK utility routine that prints vectors.
@@ -168,7 +168,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   clacpy, clahqr, csscal, ctrevc, ccopy, 
-     &           pcmout, pcvout, second
+     &           pcmout, pcvout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -188,7 +188,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mceigh
 c 
       if (msglvl .gt. 2) then
@@ -261,7 +261,7 @@ c
      &              '_neigh: Ritz estimates for the eigenvalues of H')
       end if
 c
-      call second(t1)
+      call arscnd(t1)
       tceigh = tceigh + (t1 - t0)
 c
  9000 continue

PARPACK/SRC/BLACS/pcngets.f

@@ -67,7 +67,7 @@ c
 c\Routines called:
 c     csortc  ARPACK sorting routine.
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pcvout  Parallel ARPACK utility routine that prints vectors.
 c
 c\Author
@@ -142,7 +142,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pcvout,  csortc, second
+      external   pcvout,  csortc, arscnd
 c
 c     %-----------------------%
 c     | Executable Statements |
@@ -153,7 +153,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c 
-      call second (t0)
+      call arscnd (t0)
       msglvl = mcgets
 c 
       call csortc (which, .true., kev+np, ritz, bounds)
@@ -173,7 +173,7 @@ c
 c
       end if
 c     
-      call second (t1)
+      call arscnd (t1)
       tcgets = tcgets + (t1 - t0)
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/pdgetv0.f

@@ -99,7 +99,7 @@ c     Restarted Arnoldi Iteration", Rice University Technical Report
 c     TR95-13, Department of Computational and Applied Mathematics.
 c
 c\Routines called:
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdvout   Parallel ARPACK utility routine for vector output.
 c     pdlarnv  Parallel wrapper for LAPACK routine dlarnv (generates a random vector).
 c     dgemv    Level 2 BLAS routine for matrix vector multiplication.
@@ -187,7 +187,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pdlarnv, pdvout, dcopy, dgemv, second
+      external   pdlarnv, pdvout, dcopy, dgemv, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -234,7 +234,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mgetv0
 c 
          ierr   = 0
@@ -261,7 +261,7 @@ c        | Force the starting vector into the range of OP to handle |
 c        | the generalized problem when B is possibly (singular).   |
 c        %----------------------------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nopx = nopx + 1
             ipntr(1) = 1
@@ -284,7 +284,7 @@ c     %-----------------------------------------------%
 c
       if (orth)  go to 40
 c 
-      call second (t3)
+      call arscnd (t3)
       tmvopx = tmvopx + (t3 - t2)
 c 
 c     %------------------------------------------------------%
@@ -292,7 +292,7 @@ c     | Starting vector is now in the range of OP; r = OP*r; |
 c     | Compute B-norm of starting vector.                   |
 c     %------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       first = .TRUE.
       if (bmat .eq. 'G') then
          nbx = nbx + 1
@@ -308,7 +308,7 @@ c
    20 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       endif
 c 
@@ -353,7 +353,7 @@ c     %----------------------------------------------------------%
 c     | Compute the B-norm of the orthogonalized starting vector |
 c     %----------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       if (bmat .eq. 'G') then
          nbx = nbx + 1
          call dcopy (n, resid, 1, workd(n+1), 1)
@@ -368,7 +368,7 @@ c
    40 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       endif
 c
@@ -427,7 +427,7 @@ c
       end if
       ido = 99
 c 
-      call second (t1)
+      call arscnd (t1)
       tgetv0 = tgetv0 + (t1 - t0)
 c 
  9000 continue

PARPACK/SRC/BLACS/pdnaitr.f

@@ -138,7 +138,7 @@ c
 c\Routines called:
 c     pdgetv0  Parallel ARPACK routine to generate the initial vector.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdmout   Parallel ARPACK utility routine that prints matrices
 c     pdvout   Parallel ARPACK utility routine that prints vectors.
 c     dlabad   LAPACK routine that computes machine constants.
@@ -287,7 +287,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   daxpy, dcopy, dscal, dgemv, pdgetv0, dlabad, 
-     &           pdvout, pdmout, pivout, second
+     &           pdvout, pdmout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -338,7 +338,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mnaitr
 c 
 c        %------------------------------%
@@ -449,7 +449,7 @@ c              | which spans OP and exit.                       |
 c              %------------------------------------------------%
 c
                info = j - 1
-               call second (t1)
+               call arscnd (t1)
                tnaitr = tnaitr + (t1 - t0)
                ido = 99
                go to 9000
@@ -489,7 +489,7 @@ c        %------------------------------------------------------%
 c
          step3 = .true.
          nopx  = nopx + 1
-         call second (t2)
+         call arscnd (t2)
          call dcopy (n, v(1,j), 1, workd(ivj), 1)
          ipntr(1) = ivj
          ipntr(2) = irj
@@ -509,7 +509,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}   |
 c        | if step3 = .true.                |
 c        %----------------------------------%
 c
-         call second (t3)
+         call arscnd (t3)
          tmvopx = tmvopx + (t3 - t2)
  
          step3 = .false.
@@ -525,7 +525,7 @@ c        | STEP 4:  Finish extending the Arnoldi |
 c        |          factorization to length j.   |
 c        %---------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             step4 = .true.
@@ -550,7 +550,7 @@ c        | if step4 = .true.                |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -597,11 +597,11 @@ c
 c
          if (j .gt. 1) h(j,j-1) = betaj
 c
-         call second (t4)
+         call arscnd (t4)
 c 
          orth1 = .true.
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(irj), 1)
@@ -625,7 +625,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}.                    |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -704,7 +704,7 @@ c
          call daxpy (j, one, workl(1), 1, h(1,j), 1)
 c 
          orth2 = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(irj), 1)
@@ -728,7 +728,7 @@ c        | Back from reverse communication if ORTH2 = .true. |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c
@@ -807,7 +807,7 @@ c
          rstart = .false.
          orth2  = .false.
 c 
-         call second (t5)
+         call arscnd (t5)
          titref = titref + (t5 - t4)
 c 
 c        %------------------------------------%
@@ -816,7 +816,7 @@ c        %------------------------------------%
 c
          j = j + 1
          if (j .gt. k+np) then
-            call second (t1)
+            call arscnd (t1)
             tnaitr = tnaitr + (t1 - t0)
             ido = 99
             do 110 i = max(1,k), k+np-1

PARPACK/SRC/BLACS/pdnapps.f

@@ -198,7 +198,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   daxpy, dcopy, dscal, dlacpy, dlarf, dlarfg, dlartg, 
-     &           dlaset, dlabad, second, pivout, pdvout, pdmout
+     &           dlaset, dlabad, arscnd, pivout, pdvout, pdmout
 c
 c     %--------------------%
 c     | External Functions |
@@ -246,7 +246,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mnapps
 c 
       kplusp = kev + np 
@@ -645,7 +645,7 @@ c
       end if
 c 
  9000 continue
-      call second (t1)
+      call arscnd (t1)
       tnapps = tnapps + (t1 - t0)
 c 
       return

PARPACK/SRC/BLACS/pdnaup2.f

@@ -145,7 +145,7 @@ c     pdneigh   Parallel ARPACK compute Ritz values and error bounds routine.
 c     pdngets   Parallel ARPACK reorder Ritz values and error bounds routine.
 c     dsortc    ARPACK sorting routine.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdmout    Parallel ARPACK utility routine that prints matrices
 c     pdvout    ARPACK utility routine that prints vectors.
 c     pdlamch   ScaLAPACK routine that determines machine constants.
@@ -252,7 +252,7 @@ c     %----------------------%
 c
       external   dcopy , pdgetv0 , pdnaitr , dnconv , 
      &           pdneigh , pdngets , pdnapps ,
-     &           pdvout , pivout, second
+     &           pdvout , pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -274,7 +274,7 @@ c     %-----------------------%
 c
       if (ido .eq. 0) then
 c 
-         call second (t0)
+         call arscnd (t0)
 c 
          msglvl = mnaup2
 c 
@@ -776,7 +776,7 @@ c        | the first step of the next call to pdnaitr . |
 c        %---------------------------------------------%
 c
          cnorm = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy  (n, resid, 1, workd(n+1), 1)
@@ -801,7 +801,7 @@ c        | WORKD(1:N) := B*RESID            |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          endif
 c
@@ -841,7 +841,7 @@ c     %------------%
 c     | Error Exit |
 c     %------------%
 c
-      call second (t1)
+      call arscnd (t1)
       tnaup2 = t1 - t0
 c     
  9000 continue

PARPACK/SRC/BLACS/pdnaupd.f

@@ -382,7 +382,7 @@ c\Routines called:
 c     pdnaup2   Parallel ARPACK routine that implements the Implicitly Restarted
 c              Arnoldi Iteration.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdvout    Parallel ARPACK utility routine that prints vectors.
 c     pdlamch   ScaLAPACK routine that determines machine constants.
 c
@@ -468,7 +468,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pdnaup2 , pdvout , pivout, second, dstatn 
+      external   pdnaup2 , pdvout , pivout, arscnd, dstatn 
 c
 c     %--------------------%
 c     | External Functions |
@@ -490,7 +490,7 @@ c        | & message level for debugging |
 c        %-------------------------------%
 c
          call dstatn 
-         call second (t0)
+         call arscnd (t0)
          msglvl = mnaupd
 c
 c        %----------------%
@@ -654,7 +654,7 @@ c
      &               '_naupd: Associated Ritz estimates')
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tnaupd = t1 - t0
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/pdneigh.f

@@ -53,7 +53,7 @@ c          the front end.  This is needed to keep the full Schur form
 c          of H and also in the calculation of the eigenvectors of H.
 c
 c  IERR    Integer.  (OUTPUT)
-c          Error exit flag from dlaqrb or dtrevc.
+c          Error exit flag from dlahqr or dtrevc.
 c
 c\EndDoc
 c
@@ -65,9 +65,9 @@ c\Local variables:
 c     xxxxxx  real
 c
 c\Routines called:
-c     dlaqrb  ARPACK routine to compute the real Schur form of an
+c     dlahqr  ARPACK routine to compute the real Schur form of an
 c             upper Hessenberg matrix and last row of the Schur vectors.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     dmout   ARPACK utility routine that prints matrices
 c     dvout   ARPACK utility routine that prints vectors.
 c     dlacpy  LAPACK matrix copy routine.
@@ -157,7 +157,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   dcopy, dlacpy, dlaqrb, dtrevc, pdvout, second
+      external   dcopy, dlacpy, dlahqr, dtrevc, dvout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -183,7 +183,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mneigh
 c 
       if (msglvl .gt. 2) then
@@ -195,13 +195,17 @@ c     %-----------------------------------------------------------%
 c     | 1. Compute the eigenvalues, the last components of the    |
 c     |    corresponding Schur vectors and the full Schur form T  |
 c     |    of the current upper Hessenberg matrix H.              |
-c     | dlaqrb returns the full Schur form of H in WORKL(1:N**2)  |
+c     | dlahqr returns the full Schur form of H in WORKL(1:N**2)  |
 c     | and the last components of the Schur vectors in BOUNDS.   |
 c     %-----------------------------------------------------------%
 c
       call dlacpy ('All', n, n, h, ldh, workl, n)
-      call dlaqrb (.true., n, 1, n, workl, n, ritzr, ritzi, bounds,
-     &             ierr)
+      do 5 j = 1, n-1
+          bounds(j) = zero
+   5  continue
+      bounds(n) = 1
+      call dlahqr(.true., .true., n, 1, n, workl, n, ritzr, ritzi, 1, 1,
+     &            bounds, 1, ierr)
       if (ierr .ne. 0) go to 9000
 c
       if (msglvl .gt. 1) then
@@ -314,7 +318,7 @@ c
      &              '_neigh: Ritz estimates for the eigenvalues of H')
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tneigh = tneigh + (t1 - t0)
 c
  9000 continue

PARPACK/SRC/BLACS/pdngets.f

@@ -149,7 +149,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   dcopy, dsortc, second
+      external   dcopy, dsortc, arscnd
 c
 c     %----------------------%
 c     | Intrinsics Functions |
@@ -166,7 +166,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c 
-      call second (t0)
+      call arscnd (t0)
       msglvl = mngets
 c 
 c     %----------------------------------------------------%
@@ -222,7 +222,7 @@ c
          call dsortc ( 'SR', .true., np, bounds, ritzr, ritzi )
       end if
 c     
-      call second (t1)
+      call arscnd (t1)
       tngets = tngets + (t1 - t0)
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/pdsaitr.f

@@ -280,7 +280,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   daxpy, dcopy, dscal, dgemv, pdgetv0, pdvout, pdmout,
-     &           dlascl, pivout, second
+     &           dlascl, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -325,7 +325,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = msaitr
 c 
 c        %------------------------------%
@@ -445,7 +445,7 @@ c              | which spans OP and exit.                       |
 c              %------------------------------------------------%
 c
                info = j - 1
-               call second (t1)
+               call arscnd (t1)
                tsaitr = tsaitr + (t1 - t0)
                ido = 99
                go to 9000
@@ -485,7 +485,7 @@ c        %------------------------------------------------------%
 c
          step3 = .true.
          nopx  = nopx + 1
-         call second (t2)
+         call arscnd (t2)
          call dcopy (n, v(1,j), 1, workd(ivj), 1)
          ipntr(1) = ivj
          ipntr(2) = irj
@@ -504,7 +504,7 @@ c        | Back from reverse communication;  |
 c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}.   |
 c        %-----------------------------------%
 c
-         call second (t3)
+         call arscnd (t3)
          tmvopx = tmvopx + (t3 - t2)
 c 
          step3 = .false.
@@ -525,7 +525,7 @@ c        | assumed to have A*v_{j}.                  |
 c        %-------------------------------------------%
 c
          if (mode .eq. 2) go to 65
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             step4 = .true.
@@ -549,7 +549,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*OP*v_{j}. |
 c        %-----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if 
 c
@@ -621,12 +621,12 @@ c
          else
             h(j,1) = rnorm
          end if
-         call second (t4)
+         call arscnd (t4)
 c 
          orth1 = .true.
          iter  = 0
 c 
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(irj), 1)
@@ -650,7 +650,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}.                    |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -726,7 +726,7 @@ c
          h(j,2) = h(j,2) + workl(j)
 c 
          orth2 = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(irj), 1)
@@ -750,7 +750,7 @@ c        | Back from reverse communication if ORTH2 = .true. |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c
@@ -823,7 +823,7 @@ c
          rstart = .false.
          orth2  = .false.
 c 
-         call second (t5)
+         call arscnd (t5)
          titref = titref + (t5 - t4)
 c 
 c        %----------------------------------------------------------%
@@ -847,7 +847,7 @@ c        %------------------------------------%
 c
          j = j + 1
          if (j .gt. k+np) then
-            call second (t1)
+            call arscnd (t1)
             tsaitr = tsaitr + (t1 - t0)
             ido = 99
 c

PARPACK/SRC/BLACS/pdsapps.f

@@ -93,7 +93,7 @@ c     TR95-13, Department of Computational and Applied Mathematics.
 c
 c\Routines called:
 c     pivout  Parallel ARPACK utility routine that prints integers. 
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pdvout  Parallel ARPACK utility routine that prints vectors.
 c     pdlamch ScaLAPACK routine that determines machine constants.
 c     dlartg  LAPACK Givens rotation construction routine.
@@ -187,7 +187,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   daxpy, dcopy, dscal, dlacpy, dlartg, dlaset, pdvout, 
-     &           pivout, second, dgemv
+     &           pivout, arscnd, dgemv
 c
 c     %--------------------%
 c     | External Functions |
@@ -224,7 +224,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = msapps
 c 
       kplusp = kev + np 
@@ -275,7 +275,7 @@ c
                   call pivout (comm, logfil, 1, i, ndigit, 
      &                 '_sapps: deflation at row/column no.')
                   call pivout (comm, logfil, 1, jj, ndigit, 
-     &                 '_sapps: occured before shift number.')
+     &                 '_sapps: occurred before shift number.')
                   call pdvout (comm, logfil, 1, h(i+1,1), ndigit, 
      &                 '_sapps: the corresponding off diagonal element')
                end if
@@ -514,7 +514,7 @@ c
          end if
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tsapps = tsapps + (t1 - t0)
 c 
  9000 continue 

PARPACK/SRC/BLACS/pdsaup2.f

@@ -153,7 +153,7 @@ c     sstrqb   ARPACK routine that computes all eigenvalues and the
 c              last component of the eigenvectors of a symmetric
 c              tridiagonal matrix using the implicit QL or QR method.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdvout   Parallel ARPACK utility routine that prints vectors.
 c     pdlamch  ScaLAPACK routine that determines machine constants.
 c     dcopy    Level 1 BLAS that copies one vector to another.
@@ -253,7 +253,7 @@ c     %----------------------%
 c
       external   dcopy, pdgetv0, pdsaitr, dscal, dsconv, 
      &           pdseigt, pdsgets, pdsapps,
-     &           dsortr, pdvout, pivout, second
+     &           dsortr, pdvout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -280,7 +280,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = msaup2
 c
 c        %---------------------------------%
@@ -791,7 +791,7 @@ c        | the first step of the next call to pdsaitr. |
 c        %---------------------------------------------%
 c
          cnorm = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(n+1), 1)
@@ -816,7 +816,7 @@ c        | WORKD(1:N) := B*RESID            |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -859,7 +859,7 @@ c     %------------%
 c     | Error exit |
 c     %------------%
 c
-      call second (t1)
+      call arscnd (t1)
       tsaup2 = t1 - t0
 c 
  9000 continue

PARPACK/SRC/BLACS/pdsaupd.f

@@ -384,7 +384,7 @@ c              Arnoldi Iteration.
 c     dstats    ARPACK routine that initializes timing and other statistics
 c              variables.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdvout    Parallel ARPACK utility routine that prints vectors.
 c     pdlamch   ScaLAPACK routine that determines machine constants.
 c
@@ -472,7 +472,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pdsaup2 , pdvout , pivout, second, dstats 
+      external   pdsaup2 , pdvout , pivout, arscnd, dstats 
 c
 c     %--------------------%
 c     | External Functions |
@@ -494,7 +494,7 @@ c        | & message level for debugging |
 c        %-------------------------------%
 c
          call dstats 
-         call second (t0)
+         call arscnd (t0)
          msglvl = msaupd
 c
          ierr   = 0
@@ -654,7 +654,7 @@ c
      &               '_saupd: corresponding error bounds')
       end if 
 c
-      call second (t1)
+      call arscnd (t1)
       tsaupd = t1 - t0
 c 
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/pdseigt.f

@@ -63,7 +63,7 @@ c\Routines called:
 c     dstqrb  ARPACK routine that computes the eigenvalues and the
 c             last components of the eigenvectors of a symmetric
 c             and tridiagonal matrix.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pdvout  Parallel ARPACK utility routine that prints vectors.
 c     dcopy   Level 1 BLAS that copies one vector to another.
 c     dscal   Level 1 BLAS that scales a vector.
@@ -141,7 +141,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   dcopy, dstqrb, pdvout, second
+      external   dcopy, dstqrb, pdvout, arscnd
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -158,7 +158,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------% 
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mseigt
 c
       if (msglvl .gt. 0) then
@@ -190,7 +190,7 @@ c
          bounds(k) = rnorm*abs(bounds(k))
    30 continue
 c 
-      call second (t1)
+      call arscnd (t1)
       tseigt = tseigt + (t1 - t0)
 c
  9000 continue

PARPACK/SRC/BLACS/pdsgets.f

@@ -69,7 +69,7 @@ c
 c\Routines called:
 c     dsortr  ARPACK utility sorting routine.
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pdvout  Parallel ARPACK utility routine that prints vectors.
 c     dcopy   Level 1 BLAS that copies one vector to another.
 c     dswap   Level 1 BLAS that swaps the contents of two vectors.
@@ -145,7 +145,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   dswap, dcopy, dsortr, second
+      external   dswap, dcopy, dsortr, arscnd
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -162,7 +162,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = msgets
 c 
       if (which .eq. 'BE') then
@@ -212,7 +212,7 @@ c
          call dcopy (np, ritz, 1, shifts, 1)
       end if
 c 
-      call second (t1)
+      call arscnd (t1)
       tsgets = tsgets + (t1 - t0)
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/psgetv0.f

@@ -99,7 +99,7 @@ c     Restarted Arnoldi Iteration", Rice University Technical Report
 c     TR95-13, Department of Computational and Applied Mathematics.
 c
 c\Routines called:
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     psvout   Parallel ARPACK utility routine for vector output.
 c     pslarnv  Parallel wrapper for LAPACK routine slarnv (generates a random vector).
 c     sgemv    Level 2 BLAS routine for matrix vector multiplication.
@@ -187,7 +187,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pslarnv, psvout, scopy, sgemv, second
+      external   pslarnv, psvout, scopy, sgemv, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -234,7 +234,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mgetv0
 c 
          ierr   = 0
@@ -261,7 +261,7 @@ c        | Force the starting vector into the range of OP to handle |
 c        | the generalized problem when B is possibly (singular).   |
 c        %----------------------------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nopx = nopx + 1
             ipntr(1) = 1
@@ -284,7 +284,7 @@ c     %-----------------------------------------------%
 c
       if (orth)  go to 40
 c 
-      call second (t3)
+      call arscnd (t3)
       tmvopx = tmvopx + (t3 - t2)
 c 
 c     %------------------------------------------------------%
@@ -292,7 +292,7 @@ c     | Starting vector is now in the range of OP; r = OP*r; |
 c     | Compute B-norm of starting vector.                   |
 c     %------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       first = .TRUE.
       if (bmat .eq. 'G') then
          nbx = nbx + 1
@@ -308,7 +308,7 @@ c
    20 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       endif
 c 
@@ -353,7 +353,7 @@ c     %----------------------------------------------------------%
 c     | Compute the B-norm of the orthogonalized starting vector |
 c     %----------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       if (bmat .eq. 'G') then
          nbx = nbx + 1
          call scopy (n, resid, 1, workd(n+1), 1)
@@ -368,7 +368,7 @@ c
    40 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       endif
 c
@@ -427,7 +427,7 @@ c
       end if
       ido = 99
 c 
-      call second (t1)
+      call arscnd (t1)
       tgetv0 = tgetv0 + (t1 - t0)
 c 
  9000 continue

PARPACK/SRC/BLACS/psnaitr.f

@@ -138,7 +138,7 @@ c
 c\Routines called:
 c     psgetv0  Parallel ARPACK routine to generate the initial vector.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     psmout   Parallel ARPACK utility routine that prints matrices
 c     psvout   Parallel ARPACK utility routine that prints vectors.
 c     slabad   LAPACK routine that computes machine constants.
@@ -287,7 +287,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   saxpy, scopy, sscal, sgemv, psgetv0, slabad, 
-     &           psvout, psmout, pivout, second
+     &           psvout, psmout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -338,7 +338,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mnaitr
 c 
 c        %------------------------------%
@@ -449,7 +449,7 @@ c              | which spans OP and exit.                       |
 c              %------------------------------------------------%
 c
                info = j - 1
-               call second (t1)
+               call arscnd (t1)
                tnaitr = tnaitr + (t1 - t0)
                ido = 99
                go to 9000
@@ -489,7 +489,7 @@ c        %------------------------------------------------------%
 c
          step3 = .true.
          nopx  = nopx + 1
-         call second (t2)
+         call arscnd (t2)
          call scopy (n, v(1,j), 1, workd(ivj), 1)
          ipntr(1) = ivj
          ipntr(2) = irj
@@ -509,7 +509,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}   |
 c        | if step3 = .true.                |
 c        %----------------------------------%
 c
-         call second (t3)
+         call arscnd (t3)
          tmvopx = tmvopx + (t3 - t2)
  
          step3 = .false.
@@ -525,7 +525,7 @@ c        | STEP 4:  Finish extending the Arnoldi |
 c        |          factorization to length j.   |
 c        %---------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             step4 = .true.
@@ -550,7 +550,7 @@ c        | if step4 = .true.                |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -597,11 +597,11 @@ c
 c
          if (j .gt. 1) h(j,j-1) = betaj
 c
-         call second (t4)
+         call arscnd (t4)
 c 
          orth1 = .true.
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call scopy (n, resid, 1, workd(irj), 1)
@@ -625,7 +625,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}.                    |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -704,7 +704,7 @@ c
          call saxpy (j, one, workl(1), 1, h(1,j), 1)
 c 
          orth2 = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call scopy (n, resid, 1, workd(irj), 1)
@@ -728,7 +728,7 @@ c        | Back from reverse communication if ORTH2 = .true. |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c
@@ -807,7 +807,7 @@ c
          rstart = .false.
          orth2  = .false.
 c 
-         call second (t5)
+         call arscnd (t5)
          titref = titref + (t5 - t4)
 c 
 c        %------------------------------------%
@@ -816,7 +816,7 @@ c        %------------------------------------%
 c
          j = j + 1
          if (j .gt. k+np) then
-            call second (t1)
+            call arscnd (t1)
             tnaitr = tnaitr + (t1 - t0)
             ido = 99
             do 110 i = max(1,k), k+np-1

PARPACK/SRC/BLACS/psnapps.f

@@ -198,7 +198,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   saxpy, scopy, sscal, slacpy, slarf, slarfg, slartg, 
-     &           slaset, slabad, second, pivout, psvout, psmout
+     &           slaset, slabad, arscnd, pivout, psvout, psmout
 c
 c     %--------------------%
 c     | External Functions |
@@ -246,7 +246,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mnapps
 c 
       kplusp = kev + np 
@@ -645,7 +645,7 @@ c
       end if
 c 
  9000 continue
-      call second (t1)
+      call arscnd (t1)
       tnapps = tnapps + (t1 - t0)
 c 
       return

PARPACK/SRC/BLACS/psnaup2.f

@@ -145,7 +145,7 @@ c     psneigh  Parallel ARPACK compute Ritz values and error bounds routine.
 c     psngets  Parallel ARPACK reorder Ritz values and error bounds routine.
 c     ssortc   ARPACK sorting routine.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     psmout   Parallel ARPACK utility routine that prints matrices
 c     psvout   ARPACK utility routine that prints vectors.
 c     pslamch  ScaLAPACK routine that determines machine constants.
@@ -252,7 +252,7 @@ c     %----------------------%
 c
       external   scopy, psgetv0, psnaitr, snconv, 
      &           psneigh, psngets, psnapps,
-     &           psvout, pivout, second
+     &           psvout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -274,7 +274,7 @@ c     %-----------------------%
 c
       if (ido .eq. 0) then
 c 
-         call second (t0)
+         call arscnd (t0)
 c 
          msglvl = mnaup2
 c 
@@ -776,7 +776,7 @@ c        | the first step of the next call to psnaitr. |
 c        %---------------------------------------------%
 c
          cnorm = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call scopy (n, resid, 1, workd(n+1), 1)
@@ -801,7 +801,7 @@ c        | WORKD(1:N) := B*RESID            |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          endif
 c
@@ -841,7 +841,7 @@ c     %------------%
 c     | Error Exit |
 c     %------------%
 c
-      call second (t1)
+      call arscnd (t1)
       tnaup2 = t1 - t0
 c     
  9000 continue

PARPACK/SRC/BLACS/psnaupd.f

@@ -382,7 +382,7 @@ c\Routines called:
 c     psnaup2  Parallel ARPACK routine that implements the Implicitly Restarted
 c              Arnoldi Iteration.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     psvout   Parallel ARPACK utility routine that prints vectors.
 c     pslamch  ScaLAPACK routine that determines machine constants.
 c
@@ -468,7 +468,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   psnaup2, psvout, pivout, second, sstatn
+      external   psnaup2, psvout, pivout, arscnd, sstatn
 c
 c     %--------------------%
 c     | External Functions |
@@ -490,7 +490,7 @@ c        | & message level for debugging |
 c        %-------------------------------%
 c
          call sstatn
-         call second (t0)
+         call arscnd (t0)
          msglvl = mnaupd
 c
 c        %----------------%
@@ -654,7 +654,7 @@ c
      &               '_naupd: Associated Ritz estimates')
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tnaupd = t1 - t0
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/psneigh.f

@@ -53,7 +53,7 @@ c          the front end.  This is needed to keep the full Schur form
 c          of H and also in the calculation of the eigenvectors of H.
 c
 c  IERR    Integer.  (OUTPUT)
-c          Error exit flag from slaqrb or strevc.
+c          Error exit flag from slahqr or strevc.
 c
 c\EndDoc
 c
@@ -65,9 +65,9 @@ c\Local variables:
 c     xxxxxx  real
 c
 c\Routines called:
-c     slaqrb  ARPACK routine to compute the real Schur form of an
+c     slahqr  ARPACK routine to compute the real Schur form of an
 c             upper Hessenberg matrix and last row of the Schur vectors.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     smout   ARPACK utility routine that prints matrices
 c     svout   ARPACK utility routine that prints vectors.
 c     slacpy  LAPACK matrix copy routine.
@@ -157,7 +157,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   scopy, slacpy, slaqrb, strevc, psvout, second
+      external   scopy, slacpy, slahqr, strevc, svout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -183,7 +183,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mneigh
 c 
       if (msglvl .gt. 2) then
@@ -195,13 +195,17 @@ c     %-----------------------------------------------------------%
 c     | 1. Compute the eigenvalues, the last components of the    |
 c     |    corresponding Schur vectors and the full Schur form T  |
 c     |    of the current upper Hessenberg matrix H.              |
-c     | slaqrb returns the full Schur form of H in WORKL(1:N**2)  |
+c     | slahqr returns the full Schur form of H in WORKL(1:N**2)  |
 c     | and the last components of the Schur vectors in BOUNDS.   |
 c     %-----------------------------------------------------------%
 c
       call slacpy ('All', n, n, h, ldh, workl, n)
-      call slaqrb (.true., n, 1, n, workl, n, ritzr, ritzi, bounds,
-     &             ierr)
+      do 5 j = 1, n-1
+          bounds(j) = zero
+   5  continue
+      bounds(n) = one
+      call slahqr(.true., .true., n, 1, n, workl, n, ritzr, ritzi, 1, 1,
+     &            bounds, 1, ierr)
       if (ierr .ne. 0) go to 9000
 c
       if (msglvl .gt. 1) then
@@ -314,7 +318,7 @@ c
      &              '_neigh: Ritz estimates for the eigenvalues of H')
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tneigh = tneigh + (t1 - t0)
 c
  9000 continue

PARPACK/SRC/BLACS/psngets.f

@@ -149,7 +149,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   scopy, ssortc, second
+      external   scopy, ssortc, arscnd
 c
 c     %----------------------%
 c     | Intrinsics Functions |
@@ -166,7 +166,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c 
-      call second (t0)
+      call arscnd (t0)
       msglvl = mngets
 c 
 c     %----------------------------------------------------%
@@ -222,7 +222,7 @@ c
          call ssortc ( 'SR', .true., np, bounds, ritzr, ritzi )
       end if
 c     
-      call second (t1)
+      call arscnd (t1)
       tngets = tngets + (t1 - t0)
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/pssaitr.f

@@ -280,7 +280,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   saxpy, scopy, sscal, sgemv, psgetv0, psvout, psmout,
-     &           slascl, pivout, second
+     &           slascl, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -325,7 +325,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = msaitr
 c 
 c        %------------------------------%
@@ -445,7 +445,7 @@ c              | which spans OP and exit.                       |
 c              %------------------------------------------------%
 c
                info = j - 1
-               call second (t1)
+               call arscnd (t1)
                tsaitr = tsaitr + (t1 - t0)
                ido = 99
                go to 9000
@@ -485,7 +485,7 @@ c        %------------------------------------------------------%
 c
          step3 = .true.
          nopx  = nopx + 1
-         call second (t2)
+         call arscnd (t2)
          call scopy (n, v(1,j), 1, workd(ivj), 1)
          ipntr(1) = ivj
          ipntr(2) = irj
@@ -504,7 +504,7 @@ c        | Back from reverse communication;  |
 c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}.   |
 c        %-----------------------------------%
 c
-         call second (t3)
+         call arscnd (t3)
          tmvopx = tmvopx + (t3 - t2)
 c 
          step3 = .false.
@@ -525,7 +525,7 @@ c        | assumed to have A*v_{j}.                  |
 c        %-------------------------------------------%
 c
          if (mode .eq. 2) go to 65
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             step4 = .true.
@@ -549,7 +549,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*OP*v_{j}. |
 c        %-----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if 
 c
@@ -621,12 +621,12 @@ c
          else
             h(j,1) = rnorm
          end if
-         call second (t4)
+         call arscnd (t4)
 c 
          orth1 = .true.
          iter  = 0
 c 
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call scopy (n, resid, 1, workd(irj), 1)
@@ -650,7 +650,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}.                    |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -726,7 +726,7 @@ c
          h(j,2) = h(j,2) + workl(j)
 c 
          orth2 = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call scopy (n, resid, 1, workd(irj), 1)
@@ -750,7 +750,7 @@ c        | Back from reverse communication if ORTH2 = .true. |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c
@@ -823,7 +823,7 @@ c
          rstart = .false.
          orth2  = .false.
 c 
-         call second (t5)
+         call arscnd (t5)
          titref = titref + (t5 - t4)
 c 
 c        %----------------------------------------------------------%
@@ -847,7 +847,7 @@ c        %------------------------------------%
 c
          j = j + 1
          if (j .gt. k+np) then
-            call second (t1)
+            call arscnd (t1)
             tsaitr = tsaitr + (t1 - t0)
             ido = 99
 c

PARPACK/SRC/BLACS/pssapps.f

@@ -93,7 +93,7 @@ c     TR95-13, Department of Computational and Applied Mathematics.
 c
 c\Routines called:
 c     pivout  Parallel ARPACK utility routine that prints integers. 
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     psvout  Parallel ARPACK utility routine that prints vectors.
 c     pslamch ScaLAPACK routine that determines machine constants.
 c     slartg  LAPACK Givens rotation construction routine.
@@ -187,7 +187,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   saxpy, scopy, sscal, slacpy, slartg, slaset, psvout, 
-     &           pivout, second, sgemv
+     &           pivout, arscnd, sgemv
 c
 c     %--------------------%
 c     | External Functions |
@@ -224,7 +224,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = msapps
 c 
       kplusp = kev + np 
@@ -275,7 +275,7 @@ c
                   call pivout (comm, logfil, 1, i, ndigit, 
      &                 '_sapps: deflation at row/column no.')
                   call pivout (comm, logfil, 1, jj, ndigit, 
-     &                 '_sapps: occured before shift number.')
+     &                 '_sapps: occurred before shift number.')
                   call psvout (comm, logfil, 1, h(i+1,1), ndigit, 
      &                 '_sapps: the corresponding off diagonal element')
                end if
@@ -514,7 +514,7 @@ c
          end if
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tsapps = tsapps + (t1 - t0)
 c 
  9000 continue 

PARPACK/SRC/BLACS/pssaup2.f

@@ -153,7 +153,7 @@ c     sstrqb   ARPACK routine that computes all eigenvalues and the
 c              last component of the eigenvectors of a symmetric
 c              tridiagonal matrix using the implicit QL or QR method.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     psvout   Parallel ARPACK utility routine that prints vectors.
 c     pslamch  ScaLAPACK routine that determines machine constants.
 c     scopy    Level 1 BLAS that copies one vector to another.
@@ -253,7 +253,7 @@ c     %----------------------%
 c
       external   scopy, psgetv0, pssaitr, sscal, ssconv, 
      &           psseigt, pssgets, pssapps,
-     &           ssortr, psvout, pivout, second
+     &           ssortr, psvout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -280,7 +280,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = msaup2
 c
 c        %---------------------------------%
@@ -791,7 +791,7 @@ c        | the first step of the next call to pssaitr. |
 c        %---------------------------------------------%
 c
          cnorm = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call scopy (n, resid, 1, workd(n+1), 1)
@@ -816,7 +816,7 @@ c        | WORKD(1:N) := B*RESID            |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -859,7 +859,7 @@ c     %------------%
 c     | Error exit |
 c     %------------%
 c
-      call second (t1)
+      call arscnd (t1)
       tsaup2 = t1 - t0
 c 
  9000 continue

PARPACK/SRC/BLACS/pssaupd.f

@@ -384,7 +384,7 @@ c              Arnoldi Iteration.
 c     sstats   ARPACK routine that initializes timing and other statistics
 c              variables.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     psvout   Parallel ARPACK utility routine that prints vectors.
 c     pslamch  ScaLAPACK routine that determines machine constants.
 c
@@ -472,7 +472,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pssaup2, psvout, pivout, second, sstats
+      external   pssaup2, psvout, pivout, arscnd, sstats
 c
 c     %--------------------%
 c     | External Functions |
@@ -494,7 +494,7 @@ c        | & message level for debugging |
 c        %-------------------------------%
 c
          call sstats
-         call second (t0)
+         call arscnd (t0)
          msglvl = msaupd
 c
          ierr   = 0
@@ -654,7 +654,7 @@ c
      &               '_saupd: corresponding error bounds')
       end if 
 c
-      call second (t1)
+      call arscnd (t1)
       tsaupd = t1 - t0
 c 
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/psseigt.f

@@ -63,7 +63,7 @@ c\Routines called:
 c     sstqrb  ARPACK routine that computes the eigenvalues and the
 c             last components of the eigenvectors of a symmetric
 c             and tridiagonal matrix.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     psvout  Parallel ARPACK utility routine that prints vectors.
 c     scopy   Level 1 BLAS that copies one vector to another.
 c     sscal   Level 1 BLAS that scales a vector.
@@ -141,7 +141,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   scopy, sstqrb, psvout, second
+      external   scopy, sstqrb, psvout, arscnd
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -158,7 +158,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------% 
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mseigt
 c
       if (msglvl .gt. 0) then
@@ -190,7 +190,7 @@ c
          bounds(k) = rnorm*abs(bounds(k))
    30 continue
 c 
-      call second (t1)
+      call arscnd (t1)
       tseigt = tseigt + (t1 - t0)
 c
  9000 continue

PARPACK/SRC/BLACS/pssgets.f

@@ -69,7 +69,7 @@ c
 c\Routines called:
 c     ssortr  ARPACK utility sorting routine.
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     psvout  Parallel ARPACK utility routine that prints vectors.
 c     scopy   Level 1 BLAS that copies one vector to another.
 c     sswap   Level 1 BLAS that swaps the contents of two vectors.
@@ -145,7 +145,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   sswap, scopy, ssortr, second
+      external   sswap, scopy, ssortr, arscnd
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -162,7 +162,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = msgets
 c 
       if (which .eq. 'BE') then
@@ -212,7 +212,7 @@ c
          call scopy (np, ritz, 1, shifts, 1)
       end if
 c 
-      call second (t1)
+      call arscnd (t1)
       tsgets = tsgets + (t1 - t0)
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/pzgetv0.f

@@ -95,7 +95,7 @@ c     a k-Step Arnoldi Method", SIAM J. Matr. Anal. Apps., 13 (1992),
 c     pp 357-385.
 c
 c\Routines called:
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pzvout    Parallel ARPACK utility routine that prints vectors.
 c     pzlarnv   Parallel wrapper for LAPACK routine zlarnv  (generates a random vector). 
 c     zgemv     Level 2 BLAS routine for matrix vector multiplication.
@@ -188,7 +188,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external    zcopy , zgemv , pzlarnv , pzvout , second
+      external    zcopy , zgemv , pzlarnv , pzvout , arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -255,7 +255,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mgetv0
 c 
          ierr   = 0
@@ -282,7 +282,7 @@ c        | Force the starting vector into the range of OP to handle |
 c        | the generalized problem when B is possibly (singular).   |
 c        %----------------------------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nopx = nopx + 1
             ipntr(1) = 1
@@ -305,7 +305,7 @@ c     %-----------------------------------------------%
 c
       if (orth)  go to 40
 c 
-      call second (t3)
+      call arscnd (t3)
       tmvopx = tmvopx + (t3 - t2)
 c 
 c     %------------------------------------------------------%
@@ -313,7 +313,7 @@ c     | Starting vector is now in the range of OP; r = OP*r; |
 c     | Compute B-norm of starting vector.                   |
 c     %------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       first = .TRUE.
       if (bmat .eq. 'G') then
          nbx = nbx + 1
@@ -329,7 +329,7 @@ c
    20 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       end if
 c 
@@ -374,7 +374,7 @@ c     %----------------------------------------------------------%
 c     | Compute the B-norm of the orthogonalized starting vector |
 c     %----------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       if (bmat .eq. 'G') then
          nbx = nbx + 1
          call zcopy  (n, resid, 1, workd(n+1), 1)
@@ -389,7 +389,7 @@ c
    40 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       end if
 c 
@@ -449,7 +449,7 @@ c
       end if
       ido = 99
 c 
-      call second (t1)
+      call arscnd (t1)
       tgetv0 = tgetv0 + (t1 - t0)
 c 
  9000 continue

PARPACK/SRC/BLACS/pznaitr.f

@@ -137,7 +137,7 @@ c
 c\Routines called:
 c     pzgetv0   Parallel ARPACK routine to generate the initial vector.
 c     pivout    Parallel ARPACK utility routine that prints integers.
-c     second    ARPACK utility routine for timing.
+c     arscnd    ARPACK utility routine for timing.
 c     pzmout    Parallel ARPACK utility routine that prints matrices
 c     pzvout    Parallel ARPACK utility routine that prints vectors.
 c     zlanhs    LAPACK routine that computes various norms of a matrix.
@@ -296,7 +296,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   zaxpy, zcopy, zscal, zgemv, pzgetv0, dlabad, 
-     &           zdscal, pzvout, pzmout, pivout, second
+     &           zdscal, pzvout, pzmout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -349,7 +349,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mcaitr
 c 
 c        %------------------------------%
@@ -460,7 +460,7 @@ c              | which spans OP and exit.                       |
 c              %------------------------------------------------%
 c
                info = j - 1
-               call second (t1)
+               call arscnd (t1)
                tcaitr = tcaitr + (t1 - t0)
                ido = 99
                go to 9000
@@ -500,7 +500,7 @@ c        %------------------------------------------------------%
 c
          step3 = .true.
          nopx  = nopx + 1
-         call second (t2)
+         call arscnd (t2)
          call zcopy (n, v(1,j), 1, workd(ivj), 1)
          ipntr(1) = ivj
          ipntr(2) = irj
@@ -520,7 +520,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}   |
 c        | if step3 = .true.                |
 c        %----------------------------------%
 c
-         call second (t3)
+         call arscnd (t3)
          tmvopx = tmvopx + (t3 - t2)
  
          step3 = .false.
@@ -536,7 +536,7 @@ c        | STEP 4:  Finish extending the Arnoldi |
 c        |          factorization to length j.   |
 c        %---------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             step4 = .true.
@@ -561,7 +561,7 @@ c        | if step4 = .true.                |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -608,11 +608,11 @@ c
 c
          if (j .gt. 1) h(j,j-1) = dcmplx(betaj, rzero)
 c
-         call second (t4)
+         call arscnd (t4)
 c 
          orth1 = .true.
 c 
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call zcopy (n, resid, 1, workd(irj), 1)
@@ -636,7 +636,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}.                    |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -716,7 +716,7 @@ c
          call zaxpy (j, one, workl(1), 1, h(1,j), 1)
 c 
          orth2 = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call zcopy (n, resid, 1, workd(irj), 1)
@@ -740,7 +740,7 @@ c        | Back from reverse communication if ORTH2 = .true. |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if 
 c
@@ -819,7 +819,7 @@ c
          rstart = .false.
          orth2  = .false.
 c 
-         call second (t5)
+         call arscnd (t5)
          titref = titref + (t5 - t4)
 c 
 c        %------------------------------------%
@@ -828,7 +828,7 @@ c        %------------------------------------%
 c
          j = j + 1
          if (j .gt. k+np) then
-            call second (t1)
+            call arscnd (t1)
             tcaitr = tcaitr + (t1 - t0)
             ido = 99
             do 110 i = max(1,k), k+np-1

PARPACK/SRC/BLACS/pznapps.f

@@ -96,7 +96,7 @@ c     pp 357-385.
 c
 c\Routines called:
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pzmout  Parallel ARPACK utility routine that prints matrices
 c     pzvout  Parallel ARPACK utility routine that prints vectors.
 c     zlacpy  LAPACK matrix copy routine.
@@ -200,7 +200,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   zaxpy, zcopy, zgemv, zscal, zlacpy, zlartg, 
-     &           pzvout, zlaset, dlabad, pzmout, second, pivout
+     &           pzvout, zlaset, dlabad, pzmout, arscnd, pivout
 c
 c     %--------------------%
 c     | External Functions |
@@ -243,7 +243,7 @@ c        | overflow should not occur.                    |
 c        | REFERENCE: LAPACK subroutine zlahqr           |
 c        %-----------------------------------------------%
 c
-         unfl = pdlamch( 'safe minimum' )
+         unfl = pdlamch( comm, 'safe minimum' )
          ovfl = dble(one / unfl)
          call dlabad( unfl, ovfl )
          ulp = dlamch( 'precision' )
@@ -256,7 +256,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mcapps
 c 
       kplusp = kev + np 
@@ -511,7 +511,7 @@ c
       end if
 c
  9000 continue
-      call second (t1)
+      call arscnd (t1)
       tcapps = tcapps + (t1 - t0)
 c 
       return

PARPACK/SRC/BLACS/pznaup2.f

@@ -137,7 +137,7 @@ c     pzneigh  Parallel ARPACK compute Ritz values and error bounds routine.
 c     pzngets  Parallel ARPACK reorder Ritz values and error bounds routine.
 c     zsortc   ARPACK sorting routine.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pzmout   Parallel ARPACK utility routine that prints matrices
 c     pzvout   Parallel ARPACK utility routine that prints vectors.
 c     pdvout   ARPACK utility routine that prints vectors.
@@ -247,7 +247,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   zcopy, pzgetv0, pznaitr, pzneigh, pzngets, pznapps,
-     &           zsortc, zswap, pzmout, pzvout, pivout, second
+     &           zsortc, zswap, pzmout, pzvout, pivout, arscnd
 c
 c     %--------------------%
 c     | External functions |
@@ -271,7 +271,7 @@ c     %-----------------------%
 c
       if (ido .eq. 0) then
 c 
-         call second (t0)
+         call arscnd (t0)
 c 
          msglvl = mcaup2
 c 
@@ -737,7 +737,7 @@ c        | the first step of the next call to pznaitr. |
 c        %---------------------------------------------%
 c
          cnorm = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call zcopy (n, resid, 1, workd(n+1), 1)
@@ -762,7 +762,7 @@ c        | WORKD(1:N) := B*RESID            |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -802,7 +802,7 @@ c     %------------%
 c     | Error Exit |
 c     %------------%
 c
-      call second (t1)
+      call arscnd (t1)
       tcaup2 = t1 - t0
 c     
  9000 continue

PARPACK/SRC/BLACS/pznaupd.f

@@ -359,7 +359,7 @@ c              Arnoldi Iteration.
 c     zstatn    ARPACK routine that initializes the timing variables.
 c     pivout   Parallel ARPACK utility routine that prints integers.
 c     pzvout    Parallel ARPACK utility routine that prints vectors.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdlamch   ScaLAPACK routine that determines machine constants.
 c
 c\Author
@@ -446,7 +446,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pznaup2 , pzvout , pivout, second, zstatn 
+      external   pznaup2 , pzvout , pivout, arscnd, zstatn 
 c
 c     %--------------------%
 c     | External Functions |
@@ -468,7 +468,7 @@ c        | & message level for debugging |
 c        %-------------------------------%
 c
          call zstatn 
-         call second (t0)
+         call arscnd (t0)
          msglvl = mcaupd
 c
 c        %----------------%
@@ -628,7 +628,7 @@ c
      &               '_naupd: Associated Ritz estimates')
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tcaupd = t1 - t0
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/BLACS/pzneigh.f

@@ -68,7 +68,7 @@ c     xxxxxx  Complex*16
 c
 c\Routines called:
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pzmout  Parallel ARPACK utility routine that prints matrices
 c     pzvout  Parallel ARPACK utility routine that prints vectors.
 c     pdvout  Parallel ARPACK utility routine that prints vectors.
@@ -168,7 +168,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   zlacpy, zlahqr, zdscal, ztrevc, zcopy, 
-     &           pzmout, pzvout, second
+     &           pzmout, pzvout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -188,7 +188,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mceigh
 c 
       if (msglvl .gt. 2) then
@@ -261,7 +261,7 @@ c
      &              '_neigh: Ritz estimates for the eigenvalues of H')
       end if
 c
-      call second(t1)
+      call arscnd(t1)
       tceigh = tceigh + (t1 - t0)
 c
  9000 continue

PARPACK/SRC/BLACS/pzngets.f

@@ -67,7 +67,7 @@ c
 c\Routines called:
 c     zsortc  ARPACK sorting routine.
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pzvout  Parallel ARPACK utility routine that prints vectors.
 c
 c\Author
@@ -142,7 +142,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pzvout,  zsortc, second
+      external   pzvout,  zsortc, arscnd
 c
 c     %-----------------------%
 c     | Executable Statements |
@@ -153,7 +153,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c 
-      call second (t0)
+      call arscnd (t0)
       msglvl = mcgets
 c 
       call zsortc (which, .true., kev+np, ritz, bounds)
@@ -173,7 +173,7 @@ c
 c
       end if
 c     
-      call second (t1)
+      call arscnd (t1)
       tcgets = tcgets + (t1 - t0)
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/MPI/Makefile.am

@@ -1,25 +1,33 @@
 F77 = $(MPIF77)
-noinst_LTLIBRARIES = libparpack_noopt.la libparpacksrcmpi.la
-
 FFLAGS_SAV = @FFLAGS@
-FFLAGS = 
-libparpack_noopt_la_SOURCES = pslamch.f pdlamch.f
-libparpack_noopt_la_FFLAGS = -O0
+FFLAGS =
 
-libparpacksrcmpi_la_SOURCES = \
-	psgetv0.f  \
-	psnaitr.f psnapps.f psnaup2.f psnaupd.f psneigh.f psngets.f \
-	pssaitr.f pssapps.f pssaup2.f pssaupd.f psseigt.f pssgets.f \
-	psneupd.f psseupd.f pslarnv.f psnorm2.f pdgetv0.f \
-	pdnaitr.f pdnapps.f pdnaup2.f pdnaupd.f pdneigh.f pdngets.f \
-	pdsaitr.f pdsapps.f pdsaup2.f pdsaupd.f pdseigt.f pdsgets.f \
-	pdneupd.f pdseupd.f pdlarnv.f pdnorm2.f \
-	pcnaitr.f pcnapps.f pcnaup2.f pcnaupd.f pcneigh.f \
-	pcneupd.f pcngets.f pcgetv0.f pscnorm2.f pclarnv.f \
-	pznaitr.f pznapps.f pznaup2.f pznaupd.f pzneigh.f \
-	pzneupd.f pzngets.f pzgetv0.f pdznorm2.f pzlarnv.f
+PSRC = pcontext.f
+SSRC = psnaitr.f psnapps.f psnaup2.f psnaupd.f psneigh.f psneupd.f psngets.f \
+       pssaitr.f pssapps.f pssaup2.f pssaupd.f psseigt.f psseupd.f pssgets.f \
+       psgetv0.f pslarnv.f psnorm2.f
 
-libparpacksrcmpi_la_FFLAGS = $(FFLAGS_SAV)
-libparpacksrcmpi_la_LIBADD = libparpack_noopt.la
+DSRC = pdnaitr.f pdnapps.f pdnaup2.f pdnaupd.f pdneigh.f pdneupd.f pdngets.f \
+       pdsaitr.f pdsapps.f pdsaup2.f pdsaupd.f pdseigt.f pdseupd.f pdsgets.f \
+       pdgetv0.f pdlarnv.f pdnorm2.f
 
-EXTRA_DIST = debug.h stat.h mpif.h
+CSRC = pcnaitr.f pcnapps.f pcnaup2.f pcnaupd.f pcneigh.f pcneupd.f pcngets.f \
+       pcgetv0.f pclarnv.f pscnorm2.f
+
+ZSRC = pznaitr.f pznapps.f pznaup2.f pznaupd.f pzneigh.f pzneupd.f pzngets.f \
+       pzgetv0.f pzlarnv.f pdznorm2.f
+
+EXTRA_DIST = debug.h stat.h pcontext.h
+
+noinst_LTLIBRARIES = libparpack@LIBSUFFIX@_noopt.la
+libparpack@LIBSUFFIX@_noopt_la_SOURCES = pslamch.f pdlamch10.f
+libparpack@LIBSUFFIX@_noopt_la_FFLAGS = -O0
+
+lib_LTLIBRARIES = libparpack@LIBSUFFIX@.la
+libparpack@LIBSUFFIX@_la_SOURCES = $(PSRC) $(SSRC) $(DSRC) $(CSRC) $(ZSRC)
+libparpack@LIBSUFFIX@_la_FFLAGS = $(FFLAGS_SAV)
+libparpack@LIBSUFFIX@_la_LIBADD = libparpack@LIBSUFFIX@_noopt.la \
+	$(top_builddir)/PARPACK/UTIL/MPI/libparpackutil.la \
+	$(top_builddir)/SRC/libarpack@LIBSUFFIX@.la \
+	$(LAPACK_LIBS) $(BLAS_LIBS) $(MPILIBS)
+libparpack@LIBSUFFIX@_la_LDFLAGS = -no-undefined -version-info 2:0

PARPACK/SRC/MPI/Makefile.in

@@ -1,690 +0,0 @@
-# Makefile.in generated by automake 1.11.3 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software
-# Foundation, Inc.
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-VPATH = @srcdir@
-pkgdatadir = $(datadir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkglibexecdir = $(libexecdir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-subdir = PARPACK/SRC/MPI
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_blas.m4 \
-	$(top_srcdir)/m4/ax_lapack.m4 $(top_srcdir)/m4/ax_mpi.m4 \
-	$(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \
-	$(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
-	$(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
-	$(ACLOCAL_M4)
-mkinstalldirs = $(install_sh) -d
-CONFIG_CLEAN_FILES =
-CONFIG_CLEAN_VPATH_FILES =
-LTLIBRARIES = $(noinst_LTLIBRARIES)
-libparpack_noopt_la_LIBADD =
-am_libparpack_noopt_la_OBJECTS = libparpack_noopt_la-pslamch.lo \
-	libparpack_noopt_la-pdlamch.lo
-libparpack_noopt_la_OBJECTS = $(am_libparpack_noopt_la_OBJECTS)
-libparpack_noopt_la_LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) \
-	$(LIBTOOLFLAGS) --mode=link $(F77LD) \
-	$(libparpack_noopt_la_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \
-	$(LDFLAGS) -o $@
-libparpacksrcmpi_la_DEPENDENCIES = libparpack_noopt.la
-am_libparpacksrcmpi_la_OBJECTS = libparpacksrcmpi_la-psgetv0.lo \
-	libparpacksrcmpi_la-psnaitr.lo libparpacksrcmpi_la-psnapps.lo \
-	libparpacksrcmpi_la-psnaup2.lo libparpacksrcmpi_la-psnaupd.lo \
-	libparpacksrcmpi_la-psneigh.lo libparpacksrcmpi_la-psngets.lo \
-	libparpacksrcmpi_la-pssaitr.lo libparpacksrcmpi_la-pssapps.lo \
-	libparpacksrcmpi_la-pssaup2.lo libparpacksrcmpi_la-pssaupd.lo \
-	libparpacksrcmpi_la-psseigt.lo libparpacksrcmpi_la-pssgets.lo \
-	libparpacksrcmpi_la-psneupd.lo libparpacksrcmpi_la-psseupd.lo \
-	libparpacksrcmpi_la-pslarnv.lo libparpacksrcmpi_la-psnorm2.lo \
-	libparpacksrcmpi_la-pdgetv0.lo libparpacksrcmpi_la-pdnaitr.lo \
-	libparpacksrcmpi_la-pdnapps.lo libparpacksrcmpi_la-pdnaup2.lo \
-	libparpacksrcmpi_la-pdnaupd.lo libparpacksrcmpi_la-pdneigh.lo \
-	libparpacksrcmpi_la-pdngets.lo libparpacksrcmpi_la-pdsaitr.lo \
-	libparpacksrcmpi_la-pdsapps.lo libparpacksrcmpi_la-pdsaup2.lo \
-	libparpacksrcmpi_la-pdsaupd.lo libparpacksrcmpi_la-pdseigt.lo \
-	libparpacksrcmpi_la-pdsgets.lo libparpacksrcmpi_la-pdneupd.lo \
-	libparpacksrcmpi_la-pdseupd.lo libparpacksrcmpi_la-pdlarnv.lo \
-	libparpacksrcmpi_la-pdnorm2.lo libparpacksrcmpi_la-pcnaitr.lo \
-	libparpacksrcmpi_la-pcnapps.lo libparpacksrcmpi_la-pcnaup2.lo \
-	libparpacksrcmpi_la-pcnaupd.lo libparpacksrcmpi_la-pcneigh.lo \
-	libparpacksrcmpi_la-pcneupd.lo libparpacksrcmpi_la-pcngets.lo \
-	libparpacksrcmpi_la-pcgetv0.lo libparpacksrcmpi_la-pscnorm2.lo \
-	libparpacksrcmpi_la-pclarnv.lo libparpacksrcmpi_la-pznaitr.lo \
-	libparpacksrcmpi_la-pznapps.lo libparpacksrcmpi_la-pznaup2.lo \
-	libparpacksrcmpi_la-pznaupd.lo libparpacksrcmpi_la-pzneigh.lo \
-	libparpacksrcmpi_la-pzneupd.lo libparpacksrcmpi_la-pzngets.lo \
-	libparpacksrcmpi_la-pzgetv0.lo libparpacksrcmpi_la-pdznorm2.lo \
-	libparpacksrcmpi_la-pzlarnv.lo
-libparpacksrcmpi_la_OBJECTS = $(am_libparpacksrcmpi_la_OBJECTS)
-libparpacksrcmpi_la_LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) \
-	$(LIBTOOLFLAGS) --mode=link $(F77LD) \
-	$(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \
-	$(LDFLAGS) -o $@
-DEFAULT_INCLUDES = -I.@am__isrc@
-F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS)
-LTF77COMPILE = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-	--mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS)
-F77LD = $(F77)
-F77LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-	--mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \
-	$(LDFLAGS) -o $@
-SOURCES = $(libparpack_noopt_la_SOURCES) \
-	$(libparpacksrcmpi_la_SOURCES)
-DIST_SOURCES = $(libparpack_noopt_la_SOURCES) \
-	$(libparpacksrcmpi_la_SOURCES)
-ETAGS = etags
-CTAGS = ctags
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-AMTAR = @AMTAR@
-AR = @AR@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AWK = @AWK@
-BLAS_LIBS = @BLAS_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DLLTOOL = @DLLTOOL@
-DSYMUTIL = @DSYMUTIL@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-F77 = $(MPIF77)
-FFLAGS = 
-FGREP = @FGREP@
-FLIBS = @FLIBS@
-GREP = @GREP@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-LAPACK_LIBS = @LAPACK_LIBS@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LIPO = @LIPO@
-LN_S = @LN_S@
-LTLIBOBJS = @LTLIBOBJS@
-MAINT = @MAINT@
-MAKEINFO = @MAKEINFO@
-MANIFEST_TOOL = @MANIFEST_TOOL@
-MKDIR_P = @MKDIR_P@
-MPIF77 = @MPIF77@
-MPILIBS = @MPILIBS@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJDUMP = @OBJDUMP@
-OBJEXT = @OBJEXT@
-OTOOL = @OTOOL@
-OTOOL64 = @OTOOL64@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_URL = @PACKAGE_URL@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-RANLIB = @RANLIB@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SHELL = @SHELL@
-STRIP = @STRIP@
-VERSION = @VERSION@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_AR = @ac_ct_AR@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_DUMPBIN = @ac_ct_DUMPBIN@
-ac_ct_F77 = @ac_ct_F77@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-noinst_LTLIBRARIES = libparpack_noopt.la libparpacksrcmpi.la
-FFLAGS_SAV = @FFLAGS@
-libparpack_noopt_la_SOURCES = pslamch.f pdlamch.f
-libparpack_noopt_la_FFLAGS = -O0
-libparpacksrcmpi_la_SOURCES = \
-	psgetv0.f  \
-	psnaitr.f psnapps.f psnaup2.f psnaupd.f psneigh.f psngets.f \
-	pssaitr.f pssapps.f pssaup2.f pssaupd.f psseigt.f pssgets.f \
-	psneupd.f psseupd.f pslarnv.f psnorm2.f pdgetv0.f \
-	pdnaitr.f pdnapps.f pdnaup2.f pdnaupd.f pdneigh.f pdngets.f \
-	pdsaitr.f pdsapps.f pdsaup2.f pdsaupd.f pdseigt.f pdsgets.f \
-	pdneupd.f pdseupd.f pdlarnv.f pdnorm2.f \
-	pcnaitr.f pcnapps.f pcnaup2.f pcnaupd.f pcneigh.f \
-	pcneupd.f pcngets.f pcgetv0.f pscnorm2.f pclarnv.f \
-	pznaitr.f pznapps.f pznaup2.f pznaupd.f pzneigh.f \
-	pzneupd.f pzngets.f pzgetv0.f pdznorm2.f pzlarnv.f
-
-libparpacksrcmpi_la_FFLAGS = $(FFLAGS_SAV)
-libparpacksrcmpi_la_LIBADD = libparpack_noopt.la
-EXTRA_DIST = debug.h stat.h mpif.h
-all: all-am
-
-.SUFFIXES:
-.SUFFIXES: .f .lo .o .obj
-$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am  $(am__configure_deps)
-	@for dep in $?; do \
-	  case '$(am__configure_deps)' in \
-	    *$$dep*) \
-	      ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
-	        && { if test -f $@; then exit 0; else break; fi; }; \
-	      exit 1;; \
-	  esac; \
-	done; \
-	echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign PARPACK/SRC/MPI/Makefile'; \
-	$(am__cd) $(top_srcdir) && \
-	  $(AUTOMAKE) --foreign PARPACK/SRC/MPI/Makefile
-.PRECIOUS: Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
-	@case '$?' in \
-	  *config.status*) \
-	    cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
-	  *) \
-	    echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
-	    cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
-	esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
-	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps)
-	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps)
-	cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(am__aclocal_m4_deps):
-
-clean-noinstLTLIBRARIES:
-	-test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES)
-	@list='$(noinst_LTLIBRARIES)'; for p in $$list; do \
-	  dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
-	  test "$$dir" != "$$p" || dir=.; \
-	  echo "rm -f \"$${dir}/so_locations\""; \
-	  rm -f "$${dir}/so_locations"; \
-	done
-libparpack_noopt.la: $(libparpack_noopt_la_OBJECTS) $(libparpack_noopt_la_DEPENDENCIES) $(EXTRA_libparpack_noopt_la_DEPENDENCIES) 
-	$(libparpack_noopt_la_LINK)  $(libparpack_noopt_la_OBJECTS) $(libparpack_noopt_la_LIBADD) $(LIBS)
-libparpacksrcmpi.la: $(libparpacksrcmpi_la_OBJECTS) $(libparpacksrcmpi_la_DEPENDENCIES) $(EXTRA_libparpacksrcmpi_la_DEPENDENCIES) 
-	$(libparpacksrcmpi_la_LINK)  $(libparpacksrcmpi_la_OBJECTS) $(libparpacksrcmpi_la_LIBADD) $(LIBS)
-
-mostlyclean-compile:
-	-rm -f *.$(OBJEXT)
-
-distclean-compile:
-	-rm -f *.tab.c
-
-.f.o:
-	$(F77COMPILE) -c -o $@ $<
-
-.f.obj:
-	$(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
-
-.f.lo:
-	$(LTF77COMPILE) -c -o $@ $<
-
-libparpack_noopt_la-pslamch.lo: pslamch.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpack_noopt_la_FFLAGS) $(FFLAGS) -c -o libparpack_noopt_la-pslamch.lo `test -f 'pslamch.f' || echo '$(srcdir)/'`pslamch.f
-
-libparpack_noopt_la-pdlamch.lo: pdlamch.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpack_noopt_la_FFLAGS) $(FFLAGS) -c -o libparpack_noopt_la-pdlamch.lo `test -f 'pdlamch.f' || echo '$(srcdir)/'`pdlamch.f
-
-libparpacksrcmpi_la-psgetv0.lo: psgetv0.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psgetv0.lo `test -f 'psgetv0.f' || echo '$(srcdir)/'`psgetv0.f
-
-libparpacksrcmpi_la-psnaitr.lo: psnaitr.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psnaitr.lo `test -f 'psnaitr.f' || echo '$(srcdir)/'`psnaitr.f
-
-libparpacksrcmpi_la-psnapps.lo: psnapps.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psnapps.lo `test -f 'psnapps.f' || echo '$(srcdir)/'`psnapps.f
-
-libparpacksrcmpi_la-psnaup2.lo: psnaup2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psnaup2.lo `test -f 'psnaup2.f' || echo '$(srcdir)/'`psnaup2.f
-
-libparpacksrcmpi_la-psnaupd.lo: psnaupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psnaupd.lo `test -f 'psnaupd.f' || echo '$(srcdir)/'`psnaupd.f
-
-libparpacksrcmpi_la-psneigh.lo: psneigh.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psneigh.lo `test -f 'psneigh.f' || echo '$(srcdir)/'`psneigh.f
-
-libparpacksrcmpi_la-psngets.lo: psngets.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psngets.lo `test -f 'psngets.f' || echo '$(srcdir)/'`psngets.f
-
-libparpacksrcmpi_la-pssaitr.lo: pssaitr.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pssaitr.lo `test -f 'pssaitr.f' || echo '$(srcdir)/'`pssaitr.f
-
-libparpacksrcmpi_la-pssapps.lo: pssapps.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pssapps.lo `test -f 'pssapps.f' || echo '$(srcdir)/'`pssapps.f
-
-libparpacksrcmpi_la-pssaup2.lo: pssaup2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pssaup2.lo `test -f 'pssaup2.f' || echo '$(srcdir)/'`pssaup2.f
-
-libparpacksrcmpi_la-pssaupd.lo: pssaupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pssaupd.lo `test -f 'pssaupd.f' || echo '$(srcdir)/'`pssaupd.f
-
-libparpacksrcmpi_la-psseigt.lo: psseigt.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psseigt.lo `test -f 'psseigt.f' || echo '$(srcdir)/'`psseigt.f
-
-libparpacksrcmpi_la-pssgets.lo: pssgets.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pssgets.lo `test -f 'pssgets.f' || echo '$(srcdir)/'`pssgets.f
-
-libparpacksrcmpi_la-psneupd.lo: psneupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psneupd.lo `test -f 'psneupd.f' || echo '$(srcdir)/'`psneupd.f
-
-libparpacksrcmpi_la-psseupd.lo: psseupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psseupd.lo `test -f 'psseupd.f' || echo '$(srcdir)/'`psseupd.f
-
-libparpacksrcmpi_la-pslarnv.lo: pslarnv.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pslarnv.lo `test -f 'pslarnv.f' || echo '$(srcdir)/'`pslarnv.f
-
-libparpacksrcmpi_la-psnorm2.lo: psnorm2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-psnorm2.lo `test -f 'psnorm2.f' || echo '$(srcdir)/'`psnorm2.f
-
-libparpacksrcmpi_la-pdgetv0.lo: pdgetv0.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdgetv0.lo `test -f 'pdgetv0.f' || echo '$(srcdir)/'`pdgetv0.f
-
-libparpacksrcmpi_la-pdnaitr.lo: pdnaitr.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdnaitr.lo `test -f 'pdnaitr.f' || echo '$(srcdir)/'`pdnaitr.f
-
-libparpacksrcmpi_la-pdnapps.lo: pdnapps.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdnapps.lo `test -f 'pdnapps.f' || echo '$(srcdir)/'`pdnapps.f
-
-libparpacksrcmpi_la-pdnaup2.lo: pdnaup2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdnaup2.lo `test -f 'pdnaup2.f' || echo '$(srcdir)/'`pdnaup2.f
-
-libparpacksrcmpi_la-pdnaupd.lo: pdnaupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdnaupd.lo `test -f 'pdnaupd.f' || echo '$(srcdir)/'`pdnaupd.f
-
-libparpacksrcmpi_la-pdneigh.lo: pdneigh.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdneigh.lo `test -f 'pdneigh.f' || echo '$(srcdir)/'`pdneigh.f
-
-libparpacksrcmpi_la-pdngets.lo: pdngets.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdngets.lo `test -f 'pdngets.f' || echo '$(srcdir)/'`pdngets.f
-
-libparpacksrcmpi_la-pdsaitr.lo: pdsaitr.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdsaitr.lo `test -f 'pdsaitr.f' || echo '$(srcdir)/'`pdsaitr.f
-
-libparpacksrcmpi_la-pdsapps.lo: pdsapps.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdsapps.lo `test -f 'pdsapps.f' || echo '$(srcdir)/'`pdsapps.f
-
-libparpacksrcmpi_la-pdsaup2.lo: pdsaup2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdsaup2.lo `test -f 'pdsaup2.f' || echo '$(srcdir)/'`pdsaup2.f
-
-libparpacksrcmpi_la-pdsaupd.lo: pdsaupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdsaupd.lo `test -f 'pdsaupd.f' || echo '$(srcdir)/'`pdsaupd.f
-
-libparpacksrcmpi_la-pdseigt.lo: pdseigt.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdseigt.lo `test -f 'pdseigt.f' || echo '$(srcdir)/'`pdseigt.f
-
-libparpacksrcmpi_la-pdsgets.lo: pdsgets.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdsgets.lo `test -f 'pdsgets.f' || echo '$(srcdir)/'`pdsgets.f
-
-libparpacksrcmpi_la-pdneupd.lo: pdneupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdneupd.lo `test -f 'pdneupd.f' || echo '$(srcdir)/'`pdneupd.f
-
-libparpacksrcmpi_la-pdseupd.lo: pdseupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdseupd.lo `test -f 'pdseupd.f' || echo '$(srcdir)/'`pdseupd.f
-
-libparpacksrcmpi_la-pdlarnv.lo: pdlarnv.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdlarnv.lo `test -f 'pdlarnv.f' || echo '$(srcdir)/'`pdlarnv.f
-
-libparpacksrcmpi_la-pdnorm2.lo: pdnorm2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdnorm2.lo `test -f 'pdnorm2.f' || echo '$(srcdir)/'`pdnorm2.f
-
-libparpacksrcmpi_la-pcnaitr.lo: pcnaitr.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pcnaitr.lo `test -f 'pcnaitr.f' || echo '$(srcdir)/'`pcnaitr.f
-
-libparpacksrcmpi_la-pcnapps.lo: pcnapps.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pcnapps.lo `test -f 'pcnapps.f' || echo '$(srcdir)/'`pcnapps.f
-
-libparpacksrcmpi_la-pcnaup2.lo: pcnaup2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pcnaup2.lo `test -f 'pcnaup2.f' || echo '$(srcdir)/'`pcnaup2.f
-
-libparpacksrcmpi_la-pcnaupd.lo: pcnaupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pcnaupd.lo `test -f 'pcnaupd.f' || echo '$(srcdir)/'`pcnaupd.f
-
-libparpacksrcmpi_la-pcneigh.lo: pcneigh.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pcneigh.lo `test -f 'pcneigh.f' || echo '$(srcdir)/'`pcneigh.f
-
-libparpacksrcmpi_la-pcneupd.lo: pcneupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pcneupd.lo `test -f 'pcneupd.f' || echo '$(srcdir)/'`pcneupd.f
-
-libparpacksrcmpi_la-pcngets.lo: pcngets.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pcngets.lo `test -f 'pcngets.f' || echo '$(srcdir)/'`pcngets.f
-
-libparpacksrcmpi_la-pcgetv0.lo: pcgetv0.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pcgetv0.lo `test -f 'pcgetv0.f' || echo '$(srcdir)/'`pcgetv0.f
-
-libparpacksrcmpi_la-pscnorm2.lo: pscnorm2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pscnorm2.lo `test -f 'pscnorm2.f' || echo '$(srcdir)/'`pscnorm2.f
-
-libparpacksrcmpi_la-pclarnv.lo: pclarnv.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pclarnv.lo `test -f 'pclarnv.f' || echo '$(srcdir)/'`pclarnv.f
-
-libparpacksrcmpi_la-pznaitr.lo: pznaitr.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pznaitr.lo `test -f 'pznaitr.f' || echo '$(srcdir)/'`pznaitr.f
-
-libparpacksrcmpi_la-pznapps.lo: pznapps.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pznapps.lo `test -f 'pznapps.f' || echo '$(srcdir)/'`pznapps.f
-
-libparpacksrcmpi_la-pznaup2.lo: pznaup2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pznaup2.lo `test -f 'pznaup2.f' || echo '$(srcdir)/'`pznaup2.f
-
-libparpacksrcmpi_la-pznaupd.lo: pznaupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pznaupd.lo `test -f 'pznaupd.f' || echo '$(srcdir)/'`pznaupd.f
-
-libparpacksrcmpi_la-pzneigh.lo: pzneigh.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pzneigh.lo `test -f 'pzneigh.f' || echo '$(srcdir)/'`pzneigh.f
-
-libparpacksrcmpi_la-pzneupd.lo: pzneupd.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pzneupd.lo `test -f 'pzneupd.f' || echo '$(srcdir)/'`pzneupd.f
-
-libparpacksrcmpi_la-pzngets.lo: pzngets.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pzngets.lo `test -f 'pzngets.f' || echo '$(srcdir)/'`pzngets.f
-
-libparpacksrcmpi_la-pzgetv0.lo: pzgetv0.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pzgetv0.lo `test -f 'pzgetv0.f' || echo '$(srcdir)/'`pzgetv0.f
-
-libparpacksrcmpi_la-pdznorm2.lo: pdznorm2.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pdznorm2.lo `test -f 'pdznorm2.f' || echo '$(srcdir)/'`pdznorm2.f
-
-libparpacksrcmpi_la-pzlarnv.lo: pzlarnv.f
-	$(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(libparpacksrcmpi_la_FFLAGS) $(FFLAGS) -c -o libparpacksrcmpi_la-pzlarnv.lo `test -f 'pzlarnv.f' || echo '$(srcdir)/'`pzlarnv.f
-
-mostlyclean-libtool:
-	-rm -f *.lo
-
-clean-libtool:
-	-rm -rf .libs _libs
-
-ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
-	list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
-	unique=`for i in $$list; do \
-	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-	  done | \
-	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
-	      END { if (nonempty) { for (i in files) print i; }; }'`; \
-	mkid -fID $$unique
-tags: TAGS
-
-TAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
-		$(TAGS_FILES) $(LISP)
-	set x; \
-	here=`pwd`; \
-	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
-	unique=`for i in $$list; do \
-	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-	  done | \
-	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
-	      END { if (nonempty) { for (i in files) print i; }; }'`; \
-	shift; \
-	if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
-	  test -n "$$unique" || unique=$$empty_fix; \
-	  if test $$# -gt 0; then \
-	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
-	      "$$@" $$unique; \
-	  else \
-	    $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
-	      $$unique; \
-	  fi; \
-	fi
-ctags: CTAGS
-CTAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
-		$(TAGS_FILES) $(LISP)
-	list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
-	unique=`for i in $$list; do \
-	    if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-	  done | \
-	  $(AWK) '{ files[$$0] = 1; nonempty = 1; } \
-	      END { if (nonempty) { for (i in files) print i; }; }'`; \
-	test -z "$(CTAGS_ARGS)$$unique" \
-	  || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
-	     $$unique
-
-GTAGS:
-	here=`$(am__cd) $(top_builddir) && pwd` \
-	  && $(am__cd) $(top_srcdir) \
-	  && gtags -i $(GTAGS_ARGS) "$$here"
-
-distclean-tags:
-	-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-
-distdir: $(DISTFILES)
-	@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-	topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-	list='$(DISTFILES)'; \
-	  dist_files=`for file in $$list; do echo $$file; done | \
-	  sed -e "s|^$$srcdirstrip/||;t" \
-	      -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
-	case $$dist_files in \
-	  */*) $(MKDIR_P) `echo "$$dist_files" | \
-			   sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
-			   sort -u` ;; \
-	esac; \
-	for file in $$dist_files; do \
-	  if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
-	  if test -d $$d/$$file; then \
-	    dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
-	    if test -d "$(distdir)/$$file"; then \
-	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
-	    fi; \
-	    if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
-	      cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
-	      find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
-	    fi; \
-	    cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
-	  else \
-	    test -f "$(distdir)/$$file" \
-	    || cp -p $$d/$$file "$(distdir)/$$file" \
-	    || exit 1; \
-	  fi; \
-	done
-check-am: all-am
-check: check-am
-all-am: Makefile $(LTLIBRARIES)
-installdirs:
-install: install-am
-install-exec: install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
-	@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
-	if test -z '$(STRIP)'; then \
-	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
-	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
-	      install; \
-	else \
-	  $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
-	    install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
-	    "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \
-	fi
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
-	-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-	-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-
-maintainer-clean-generic:
-	@echo "This command is intended for maintainers to use"
-	@echo "it deletes files that may require special tools to rebuild."
-clean: clean-am
-
-clean-am: clean-generic clean-libtool clean-noinstLTLIBRARIES \
-	mostlyclean-am
-
-distclean: distclean-am
-	-rm -f Makefile
-distclean-am: clean-am distclean-compile distclean-generic \
-	distclean-tags
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-html-am:
-
-info: info-am
-
-info-am:
-
-install-data-am:
-
-install-dvi: install-dvi-am
-
-install-dvi-am:
-
-install-exec-am:
-
-install-html: install-html-am
-
-install-html-am:
-
-install-info: install-info-am
-
-install-info-am:
-
-install-man:
-
-install-pdf: install-pdf-am
-
-install-pdf-am:
-
-install-ps: install-ps-am
-
-install-ps-am:
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
-	-rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-compile mostlyclean-generic \
-	mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am:
-
-.MAKE: install-am install-strip
-
-.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \
-	clean-libtool clean-noinstLTLIBRARIES ctags distclean \
-	distclean-compile distclean-generic distclean-libtool \
-	distclean-tags distdir dvi dvi-am html html-am info info-am \
-	install install-am install-data install-data-am install-dvi \
-	install-dvi-am install-exec install-exec-am install-html \
-	install-html-am install-info install-info-am install-man \
-	install-pdf install-pdf-am install-ps install-ps-am \
-	install-strip installcheck installcheck-am installdirs \
-	maintainer-clean maintainer-clean-generic mostlyclean \
-	mostlyclean-compile mostlyclean-generic mostlyclean-libtool \
-	pdf pdf-am ps ps-am tags uninstall uninstall-am
-
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:

PARPACK/SRC/MPI/mpif.h

@@ -1,130 +0,0 @@
-C/*
-C *  
-C *  (C) 1993 by Argonne National Laboratory and Mississipi State University.
-C *      All rights reserved.  See COPYRIGHT in top-level directory.
-C */
-C
-C/* user include file for MPI programs, with no dependencies */
-C
-C/* return codes */
-       integer MPI_SUCCESS,MPI_ERR_EXHAUSTED,MPI_ERR_TAG, 
-     $ MPI_ERR_COMM_NULL,MPI_ERR_COMM_INTER,MPI_ERR_COMM_INTRA, 
-     $ MPI_ERR_ARG,MPI_ERR_BUFFER,MPI_ERR_COUNT,MPI_ERR_TYPE, 
-     $ MPI_ERR_ROOT,MPI_ERR_OP,MPI_ERR_ERRORCODE,
-     $ MPI_ERR_GROUP,MPI_ERR_RANK,MPI_ERR_TOPOLOGY,
-     $ MPI_ERR_DIMS,MPI_ERR_NULL,MPI_ERR_UNKNOWN,
-     $ MPI_ERR_REQUEST,MPI_ERR_LIMIT,MPI_ERR_INTERN,
-     $ MPI_ERR_NOMATCH,MPI_ERR_TRUNCATE,MPI_ERR_BAD_ARGS,
-     $ MPI_ERR_INIT,MPI_ERR_PERM_KEY,MPI_ERR_BUFFER_EXISTS,
-     $ MPI_ERR_COMM,MPI_ERR_PERM_TYPE,MPI_ERR_IN_STATUS,
-     $ MPI_ERR_OTHER,MPI_ERR_LASTCODE
-       parameter (MPI_SUCCESS=0,MPI_ERR_EXHAUSTED=1,MPI_ERR_TAG=2, 
-     $ MPI_ERR_COMM_NULL=3,MPI_ERR_COMM_INTER=4,MPI_ERR_COMM_INTRA=5, 
-     $ MPI_ERR_ARG=6,MPI_ERR_BUFFER=7,MPI_ERR_COUNT=8,MPI_ERR_TYPE=9, 
-     $ MPI_ERR_ROOT=10,MPI_ERR_OP=11,MPI_ERR_ERRORCODE=12,
-     $ MPI_ERR_GROUP=13,MPI_ERR_RANK=14,MPI_ERR_TOPOLOGY=15,
-     $ MPI_ERR_DIMS=16,MPI_ERR_NULL=17,MPI_ERR_UNKNOWN=18,
-     $ MPI_ERR_REQUEST=19,MPI_ERR_LIMIT=20,MPI_ERR_INTERN=21,
-     $ MPI_ERR_NOMATCH=22,MPI_ERR_TRUNCATE=23,MPI_ERR_BAD_ARGS=24,
-     $ MPI_ERR_INIT=25,MPI_ERR_PERM_KEY=26,MPI_ERR_BUFFER_EXISTS=27,
-     $ MPI_ERR_COMM=28,MPI_ERR_PERM_TYPE=29,MPI_ERR_IN_STATUS=30,
-     $ MPI_ERR_OTHER=31,
-     $ MPI_ERR_LASTCODE=32)
-C
-       integer MPI_UNDEFINED
-       parameter (MPI_UNDEFINED = (-32766))
-C
-       INTEGER MPI_GRAPH, MPI_CART
-       PARAMETER (MPI_GRAPH = 1, MPI_CART = 2)
-       INTEGER  MPI_PROC_NULL
-       PARAMETER ( MPI_PROC_NULL = (-1) )
-C
-       INTEGER MPI_BSEND_OVERHEAD
-       PARAMETER ( MPI_BSEND_OVERHEAD = 512 )
-
-      INTEGER MPI_SOURCE, MPI_TAG, MPI_ERROR
-      PARAMETER(MPI_SOURCE=2, MPI_TAG=3, MPI_ERROR=4)
-      INTEGER MPI_STATUS_SIZE
-      PARAMETER (MPI_STATUS_SIZE=4)
-      INTEGER MPI_MAX_PROCESSOR_NAME, MPI_MAX_ERROR_STRING
-      PARAMETER (MPI_MAX_PROCESSOR_NAME=256,
-     $           MPI_MAX_ERROR_STRING=256)
-C
-      INTEGER MPI_COMM_NULL
-      PARAMETER (MPI_COMM_NULL=0)
-c
-      INTEGER MPI_DATATYPE_NULL
-      PARAMETER (MPI_DATATYPE_NULL = 0)
-      
-      INTEGER MPI_ERRHANDLER_NULL
-      PARAMETER (MPI_ERRHANDLER_NULL = 0)
-      
-      INTEGER MPI_GROUP_NULL
-      PARAMETER (MPI_GROUP_NULL = 0)
-      
-      INTEGER MPI_KEYVAL_INVALID
-      PARAMETER (MPI_KEYVAL_INVALID = 0)
-      
-      INTEGER MPI_REQUEST_NULL
-      PARAMETER (MPI_REQUEST_NULL = 0)
-C 
-      INTEGER MPI_IDENT, MPI_CONGRUENT, MPI_SIMILAR, MPI_UNEQUAL
-      PARAMETER (MPI_IDENT=0, MPI_CONGRUENT=1, MPI_SIMILAR=2,
-     $          MPI_UNEQUAL=3)
-C     
-C     We handle datatypes by putting the variables that hold them into
-C     common.  This way, a Fortran program can directly use the various
-C     datatypes and can even give them to C programs.
-C
-C     MPI_BOTTOM needs to be a known address; here we put it at the
-C     beginning of the common block.  The point-to-point and collective
-C     routines know about MPI_BOTTOM, but MPI_TYPE_STRUCT as yet does not.
-C
-C     The types MPI_INTEGER1,2,4 and MPI_REAL4,8 are OPTIONAL.
-C     Their values are zero if they are not available.  Note that
-C     using these reduces the portability of code (though may enhance
-C     portability between Crays and other systems)
-C
-      integer MPI_TAG_UB, MPI_HOST, MPI_IO
-      integer MPI_BOTTOM, MPI_INTEGER, MPI_REAL, MPI_DOUBLE_PRECISION, 
-     $        MPI_COMPLEX, MPI_DOUBLE_COMPLEX,
-     $        MPI_LOGICAL, MPI_CHARACTER, MPI_BYTE, 
-     $        MPI_2INTEGER, MPI_2REAL, MPI_2DOUBLE_PRECISION, 
-     $        MPI_2COMPLEX, MPI_2DOUBLE_COMPLEX,
-     $        MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4, 
-     $        MPI_REAL2, MPI_REAL4, MPI_REAL8, MPI_UB, MPI_LB, 
-     $        MPI_PACKED
-      integer MPI_COMM_WORLD, MPI_COMM_SELF, MPI_GROUP_EMPTY
-      integer MPI_SUM, MPI_MAX, MPI_MIN, MPI_PROD, MPI_LAND, MPI_BAND,
-     $     MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR, MPI_MINLOC, MPI_MAXLOC, 
-     $     MPI_OP_NULL
-      integer MPI_ERRORS_ARE_FATAL, MPI_ERRORS_RETURN
-      common /mpipriv/ MPI_BOTTOM, MPI_INTEGER, MPI_REAL, 
-     $     MPI_DOUBLE_PRECISION,
-     $     MPI_COMPLEX, MPI_DOUBLE_COMPLEX, 
-     $     MPI_LOGICAL, MPI_CHARACTER, MPI_BYTE,
-     $     MPI_2INTEGER, MPI_2REAL, MPI_2DOUBLE_PRECISION, 
-     $     MPI_2COMPLEX, MPI_2DOUBLE_COMPLEX, 
-     $     MPI_INTEGER1, MPI_INTEGER2, MPI_INTEGER4, 
-     $     MPI_REAL2, MPI_REAL4, MPI_REAL8,
-     $     MPI_UB, MPI_LB, 
-     $     MPI_COMM_WORLD, MPI_COMM_SELF, MPI_GROUP_EMPTY,
-     $     MPI_SUM, MPI_MAX, MPI_MIN, MPI_PROD, MPI_LAND, MPI_BAND,
-     $     MPI_LOR, MPI_BOR, MPI_LXOR, MPI_BXOR, MPI_MINLOC, MPI_MAXLOC, 
-     $     MPI_OP_NULL, 
-     $     MPI_TAG_UB, MPI_HOST, MPI_IO, MPI_ERRORS_ARE_FATAL, 
-     $     MPI_ERRORS_RETURN, MPI_PACKED
-C
-      integer MPI_ANY_SOURCE
-      parameter (MPI_ANY_SOURCE = (-2))
-      integer MPI_ANY_TAG
-      parameter (MPI_ANY_TAG = (-1))
-C
-C     All other MPI routines are subroutines
-      double precision MPI_WTIME, MPI_WTICK
-      external MPI_WTIME, MPI_WTICK
-C
-C     The attribute copy/delete functions are symbols that can be passed
-C     to MPI routines
-      external MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, MPI_DUP_FN
-

PARPACK/SRC/MPI/pcgetv0.f

@@ -95,7 +95,7 @@ c     a k-Step Arnoldi Method", SIAM J. Matr. Anal. Apps., 13 (1992),
 c     pp 357-385.
 c
 c\Routines called:
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pcvout   Parallel ARPACK utility routine that prints vectors.
 c     pclarnv  Parallel wrapper for LAPACK routine clarnv (generates a random vector). 
 c     cgemv    Level 2 BLAS routine for matrix vector multiplication.
@@ -191,7 +191,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external    ccopy, cgemv, pclarnv, pcvout, second
+      external    ccopy, cgemv, pclarnv, pcvout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -251,7 +251,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mgetv0
 c 
          ierr   = 0
@@ -278,7 +278,7 @@ c        | Force the starting vector into the range of OP to handle |
 c        | the generalized problem when B is possibly (singular).   |
 c        %----------------------------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nopx = nopx + 1
             ipntr(1) = 1
@@ -301,7 +301,7 @@ c     %-----------------------------------------------%
 c
       if (orth)  go to 40
 c 
-      call second (t3)
+      call arscnd (t3)
       tmvopx = tmvopx + (t3 - t2)
 c 
 c     %------------------------------------------------------%
@@ -309,7 +309,7 @@ c     | Starting vector is now in the range of OP; r = OP*r; |
 c     | Compute B-norm of starting vector.                   |
 c     %------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       first = .TRUE.
       if (bmat .eq. 'G') then
          nbx = nbx + 1
@@ -325,7 +325,7 @@ c
    20 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       end if
 c 
@@ -372,7 +372,7 @@ c     %----------------------------------------------------------%
 c     | Compute the B-norm of the orthogonalized starting vector |
 c     %----------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       if (bmat .eq. 'G') then
          nbx = nbx + 1
          call ccopy (n, resid, 1, workd(n+1), 1)
@@ -387,7 +387,7 @@ c
    40 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       end if
 c 
@@ -448,7 +448,7 @@ c
       end if
       ido = 99
 c 
-      call second (t1)
+      call arscnd (t1)
       tgetv0 = tgetv0 + (t1 - t0)
 c 
  9000 continue

PARPACK/SRC/MPI/pcnaitr.f

@@ -137,7 +137,7 @@ c
 c\Routines called:
 c     pcgetv0   Parallel ARPACK routine to generate the initial vector.
 c     pivout    Parallel ARPACK utility routine that prints integers.
-c     second    ARPACK utility routine for timing.
+c     arscnd    ARPACK utility routine for timing.
 c     pcmout    Parallel ARPACK utility routine that prints matrices
 c     pcvout    Parallel ARPACK utility routine that prints vectors.
 c     clanhs    LAPACK routine that computes various norms of a matrix.
@@ -223,6 +223,7 @@ c
      &   (comm, ido, bmat, n, k, np, nb, resid, rnorm, v, ldv, h, ldh, 
      &    ipntr, workd, workl, info)
 c
+      include   'pcontext.h'
       include   'mpif.h'
 c
 c     %---------------%
@@ -278,7 +279,7 @@ c     %---------------%
 c     | Local Scalars |
 c     %---------------%
 c
-      logical    first, orth1, orth2, rstart, step3, step4
+      logical    orth1, orth2, rstart, step3, step4
       integer    ierr, i, infol, ipj, irj, ivj, iter, itry, j, msglvl,
      &           jj
       Real
@@ -287,7 +288,7 @@ c
       Complex
      &           cnorm
 c
-      save       first, orth1, orth2, rstart, step3, step4,
+      save       orth1, orth2, rstart, step3, step4,
      &           ierr, ipj, irj, ivj, iter, itry, j, msglvl, ovfl,
      &           betaj, rnorm1, smlnum, ulp, unfl, wnorm
 c
@@ -299,7 +300,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   caxpy, ccopy, cscal, cgemv, pcgetv0, slabad, 
-     &           csscal, pcvout, pcmout, pivout, second
+     &           csscal, pcvout, pcmout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -321,13 +322,12 @@ c     %-----------------%
 c     | Data statements |
 c     %-----------------%
 c
-      data       first / .true. /
 c
 c     %-----------------------%
 c     | Executable Statements |
 c     %-----------------------%
 c
-      if (first) then
+      if (aitr_first) then
 c
 c        %-----------------------------------------%
 c        | Set machine-dependent constants for the |
@@ -342,7 +342,7 @@ c
          call slabad( unfl, ovfl )
          ulp = pslamch( comm, 'precision' )
          smlnum = unfl*( n / ulp )
-         first = .false.
+         aitr_first = .false.
       end if
 c
       if (ido .eq. 0) then
@@ -352,7 +352,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mcaitr
 c 
 c        %------------------------------%
@@ -463,7 +463,7 @@ c              | which spans OP and exit.                       |
 c              %------------------------------------------------%
 c
                info = j - 1
-               call second (t1)
+               call arscnd (t1)
                tcaitr = tcaitr + (t1 - t0)
                ido = 99
                go to 9000
@@ -503,7 +503,7 @@ c        %------------------------------------------------------%
 c
          step3 = .true.
          nopx  = nopx + 1
-         call second (t2)
+         call arscnd (t2)
          call ccopy (n, v(1,j), 1, workd(ivj), 1)
          ipntr(1) = ivj
          ipntr(2) = irj
@@ -523,7 +523,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}   |
 c        | if step3 = .true.                |
 c        %----------------------------------%
 c
-         call second (t3)
+         call arscnd (t3)
          tmvopx = tmvopx + (t3 - t2)
  
          step3 = .false.
@@ -539,7 +539,7 @@ c        | STEP 4:  Finish extending the Arnoldi |
 c        |          factorization to length j.   |
 c        %---------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             step4 = .true.
@@ -564,7 +564,7 @@ c        | if step4 = .true.                |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -613,11 +613,11 @@ c
 c
          if (j .gt. 1) h(j,j-1) = cmplx(betaj, rzero)
 c
-         call second (t4)
+         call arscnd (t4)
 c 
          orth1 = .true.
 c 
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call ccopy (n, resid, 1, workd(irj), 1)
@@ -641,7 +641,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}.                    |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -723,7 +723,7 @@ c
          call caxpy (j, one, workl(1), 1, h(1,j), 1)
 c 
          orth2 = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call ccopy (n, resid, 1, workd(irj), 1)
@@ -747,7 +747,7 @@ c        | Back from reverse communication if ORTH2 = .true. |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if 
 c
@@ -827,7 +827,7 @@ c
          rstart = .false.
          orth2  = .false.
 c 
-         call second (t5)
+         call arscnd (t5)
          titref = titref + (t5 - t4)
 c 
 c        %------------------------------------%
@@ -836,7 +836,7 @@ c        %------------------------------------%
 c
          j = j + 1
          if (j .gt. k+np) then
-            call second (t1)
+            call arscnd (t1)
             tcaitr = tcaitr + (t1 - t0)
             ido = 99
             do 110 i = max(1,k), k+np-1

PARPACK/SRC/MPI/pcnapps.f

@@ -96,7 +96,7 @@ c     pp 357-385.
 c
 c\Routines called:
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pcmout  Parallel ARPACK utility routine that prints matrices
 c     pcvout  Parallel ARPACK utility routine that prints vectors.
 c     clacpy  LAPACK matrix copy routine.
@@ -149,6 +149,7 @@ c     %--------------------%
 c     | MPI Communicator |
 c     %--------------------%
 c
+      include   'pcontext.h'
       integer   comm
 c
 c     %----------------------------------------------------%
@@ -188,19 +189,18 @@ c     | Local Scalars & Arrays |
 c     %------------------------%
 c
       integer    i, iend, istart, j, jj, kplusp, msglvl
-      logical    first
       Complex
      &           cdum, f, g, h11, h21, r, s, sigma, t
       Real             
      &           c,  ovfl, smlnum, ulp, unfl, tst1
-      save       first, ovfl, smlnum, ulp, unfl 
+      save       ovfl, smlnum, ulp, unfl 
 c
 c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
       external   caxpy, ccopy, cgemv, cscal, clacpy, clartg, 
-     &           pcvout, claset, slabad, pcmout, second, pivout
+     &           pcvout, claset, slabad, pcmout, arscnd, pivout
 c
 c     %--------------------%
 c     | External Functions |
@@ -228,13 +228,12 @@ c     %----------------%
 c     | Data statments |
 c     %----------------%
 c
-      data       first / .true. /
 c
 c     %-----------------------%
 c     | Executable Statements |
 c     %-----------------------%
 c
-      if (first) then
+      if (apps_first) then
 c
 c        %-----------------------------------------------%
 c        | Set machine-dependent constants for the       |
@@ -243,12 +242,12 @@ c        | overflow should not occur.                    |
 c        | REFERENCE: LAPACK subroutine clahqr           |
 c        %-----------------------------------------------%
 c
-         unfl = pslamch( 'safe minimum' )
+         unfl = pslamch( comm, 'safe minimum' )
          ovfl = real(one / unfl)
          call slabad( unfl, ovfl )
-         ulp = slamch( 'precision' )
+         ulp = pslamch( comm,  'precision' )
          smlnum = unfl*( n / ulp )
-         first = .false.
+         apps_first = .false.
       end if
 c
 c     %-------------------------------%
@@ -256,7 +255,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mcapps
 c 
       kplusp = kev + np 
@@ -511,7 +510,7 @@ c
       end if
 c
  9000 continue
-      call second (t1)
+      call arscnd (t1)
       tcapps = tcapps + (t1 - t0)
 c 
       return

PARPACK/SRC/MPI/pcnaup2.f

@@ -137,7 +137,7 @@ c     pcneigh  Parallel ARPACK compute Ritz values and error bounds routine.
 c     pcngets  Parallel ARPACK reorder Ritz values and error bounds routine.
 c     csortc   ARPACK sorting routine.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pcmout   Parallel ARPACK utility routine that prints matrices
 c     pcvout   Parallel ARPACK utility routine that prints vectors.
 c     psvout   ARPACK utility routine that prints vectors.
@@ -250,7 +250,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   ccopy, pcgetv0, pcnaitr, pcneigh, pcngets, pcnapps,
-     &           csortc, cswap, pcmout, pcvout, pivout, second
+     &           csortc, cswap, pcmout, pcvout, pivout, arscnd
 c
 c     %--------------------%
 c     | External functions |
@@ -274,7 +274,7 @@ c     %-----------------------%
 c
       if (ido .eq. 0) then
 c 
-         call second (t0)
+         call arscnd (t0)
 c 
          msglvl = mcaup2
 c 
@@ -740,7 +740,7 @@ c        | the first step of the next call to pcnaitr. |
 c        %---------------------------------------------%
 c
          cnorm = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call ccopy (n, resid, 1, workd(n+1), 1)
@@ -765,7 +765,7 @@ c        | WORKD(1:N) := B*RESID            |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -806,7 +806,7 @@ c     %------------%
 c     | Error Exit |
 c     %------------%
 c
-      call second (t1)
+      call arscnd (t1)
       tcaup2 = t1 - t0
 c     
  9000 continue

PARPACK/SRC/MPI/pcnaupd.f

@@ -359,7 +359,7 @@ c              Arnoldi Iteration.
 c     cstatn   ARPACK routine that initializes the timing variables.
 c     pivout   Parallel ARPACK utility routine that prints integers.
 c     pcvout   Parallel ARPACK utility routine that prints vectors.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pslamch  ScaLAPACK routine that determines machine constants.
 c
 c\Author
@@ -389,6 +389,7 @@ c
      &   ( comm, ido, bmat, n, which, nev, tol, resid, ncv, v, ldv, 
      &     iparam, ipntr, workd, workl, lworkl, rwork, info )
 c
+      include   'pcontext.h'
       include  'mpif.h'
 c
 c     %------------------%
@@ -446,7 +447,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pcnaup2, pcvout, pivout, second, cstatn
+      external   pcnaup2, pcvout, pivout, arscnd, cstatn, pcontext
 c
 c     %--------------------%
 c     | External Functions |
@@ -461,6 +462,13 @@ c     | Executable Statements |
 c     %-----------------------%
 c 
       if (ido .eq. 0) then
+c
+c        %-------------------------------%
+c        | Initialize parallel execution |
+c        | context                       |
+c        %-------------------------------%
+c
+      call pcontext
 c 
 c        %-------------------------------%
 c        | Initialize timing statistics  |
@@ -468,7 +476,7 @@ c        | & message level for debugging |
 c        %-------------------------------%
 c
          call cstatn
-         call second (t0)
+         call arscnd (t0)
          msglvl = mcaupd
 c
 c        %----------------%
@@ -628,7 +636,7 @@ c
      &               '_naupd: Associated Ritz estimates')
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tcaupd = t1 - t0
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/MPI/pcneigh.f

@@ -68,7 +68,7 @@ c     xxxxxx  Complex
 c
 c\Routines called:
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pcmout  Parallel ARPACK utility routine that prints matrices
 c     pcvout  Parallel ARPACK utility routine that prints vectors.
 c     psvout  Parallel ARPACK utility routine that prints vectors.
@@ -168,7 +168,7 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   clacpy, clahqr, csscal, ctrevc, ccopy, 
-     &           pcmout, pcvout, second
+     &           pcmout, pcvout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -188,7 +188,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mceigh
 c 
       if (msglvl .gt. 2) then
@@ -261,7 +261,7 @@ c
      &              '_neigh: Ritz estimates for the eigenvalues of H')
       end if
 c
-      call second(t1)
+      call arscnd(t1)
       tceigh = tceigh + (t1 - t0)
 c
  9000 continue

PARPACK/SRC/MPI/pcngets.f

@@ -67,7 +67,7 @@ c
 c\Routines called:
 c     csortc  ARPACK sorting routine.
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pcvout  Parallel ARPACK utility routine that prints vectors.
 c
 c\Author
@@ -142,7 +142,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pcvout,  csortc, second
+      external   pcvout,  csortc, arscnd
 c
 c     %-----------------------%
 c     | Executable Statements |
@@ -153,7 +153,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c 
-      call second (t0)
+      call arscnd (t0)
       msglvl = mcgets
 c 
       call csortc (which, .true., kev+np, ritz, bounds)
@@ -173,7 +173,7 @@ c
 c
       end if
 c     
-      call second (t1)
+      call arscnd (t1)
       tcgets = tcgets + (t1 - t0)
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/MPI/pcontext.f

@@ -0,0 +1,10 @@
+c
+c   Flags for parallel execution
+c   to be cleared on each new execution of parpack
+c   
+c
+      subroutine pcontext
+      include 'pcontext.h'
+      apps_first = .true.
+      aitr_first = .true.
+      end subroutine

PARPACK/SRC/MPI/pcontext.h

@@ -0,0 +1,8 @@
+c
+c   Flags for parallel execution
+c   to be cleared on each new execution of parpack
+c   
+c
+
+      logical    apps_first, aitr_first
+      common/pcntxt/  apps_first, aitr_first

PARPACK/SRC/MPI/pdgetv0.f

@@ -99,7 +99,7 @@ c     Restarted Arnoldi Iteration", Rice University Technical Report
 c     TR95-13, Department of Computational and Applied Mathematics.
 c
 c\Routines called:
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdvout   Parallel ARPACK utility routine for vector output.
 c     pdlarnv  Parallel wrapper for LAPACK routine dlarnv (generates a random vector).
 c     dgemv    Level 2 BLAS routine for matrix vector multiplication.
@@ -190,7 +190,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pdlarnv, pdvout, dcopy, dgemv, second
+      external   pdlarnv, pdvout, dcopy, dgemv, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -237,7 +237,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mgetv0
 c 
          ierr   = 0
@@ -264,7 +264,7 @@ c        | Force the starting vector into the range of OP to handle |
 c        | the generalized problem when B is possibly (singular).   |
 c        %----------------------------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nopx = nopx + 1
             ipntr(1) = 1
@@ -287,7 +287,7 @@ c     %-----------------------------------------------%
 c
       if (orth)  go to 40
 c 
-      call second (t3)
+      call arscnd (t3)
       tmvopx = tmvopx + (t3 - t2)
 c 
 c     %------------------------------------------------------%
@@ -295,7 +295,7 @@ c     | Starting vector is now in the range of OP; r = OP*r; |
 c     | Compute B-norm of starting vector.                   |
 c     %------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       first = .TRUE.
       if (bmat .eq. 'G') then
          nbx = nbx + 1
@@ -311,7 +311,7 @@ c
    20 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       endif
 c 
@@ -358,7 +358,7 @@ c     %----------------------------------------------------------%
 c     | Compute the B-norm of the orthogonalized starting vector |
 c     %----------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       if (bmat .eq. 'G') then
          nbx = nbx + 1
          call dcopy (n, resid, 1, workd(n+1), 1)
@@ -373,7 +373,7 @@ c
    40 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       endif
 c
@@ -433,7 +433,7 @@ c
       end if
       ido = 99
 c 
-      call second (t1)
+      call arscnd (t1)
       tgetv0 = tgetv0 + (t1 - t0)
 c 
  9000 continue

PARPACK/SRC/MPI/pdlamch10.f

@@ -1,4 +1,4 @@
-      DOUBLE PRECISION   FUNCTION PDLAMCH( ICTXT, CMACH )
+      DOUBLE PRECISION   FUNCTION PDLAMCH10( ICTXT, CMACH )
       include "mpif.h"
 *
 *  -- ScaLAPACK auxilliary routine (version 1.0) --
@@ -6,6 +6,10 @@
 *     and University of California, Berkeley.
 *     February 28, 1995
 *
+*     The name has been changed in order to avoid symbol collision with
+*     the newer version of PDLAMCH in Scalapack which can not be used
+*     with MPI context.
+*
 *     .. Scalar Arguments ..
       CHARACTER          CMACH
       INTEGER            ICTXT
@@ -20,7 +24,7 @@
 *  =========
 *
 *  ICTXT   (global input) INTEGER
-*          The BLACS context handle in which the computation takes
+*          The MPI context handle in which the computation takes
 *          place.
 *
 *  CMACH   (global input) CHARACTER*1
@@ -82,8 +86,8 @@
           TEMP = TEMP1
       END IF
 *
-      PDLAMCH = TEMP
+      PDLAMCH10 = TEMP
 *
-*     End of PDLAMCH
+*     End of PDLAMCH10
 *
       END

PARPACK/SRC/MPI/pdnaitr.f

@@ -138,11 +138,11 @@ c
 c\Routines called:
 c     pdgetv0  Parallel ARPACK routine to generate the initial vector.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdmout   Parallel ARPACK utility routine that prints matrices
 c     pdvout   Parallel ARPACK utility routine that prints vectors.
 c     dlabad   LAPACK routine that computes machine constants.
-c     pdlamch  ScaLAPACK routine that determines machine constants.
+c     pdlamch10 ScaLAPACK routine that determines machine constants.
 c     dlascl   LAPACK routine for careful scaling of a matrix.
 c     dlanhs   LAPACK routine that computes various norms of a matrix.
 c     dgemv    Level 2 BLAS routine for matrix vector multiplication.
@@ -220,6 +220,7 @@ c
      &    ipntr, workd, workl, info)
 c
       include   'mpif.h'
+      include   'pcontext.h'
 c
 c     %---------------%
 c     | MPI Variables |
@@ -290,15 +291,15 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   daxpy, dcopy, dscal, dgemv, pdgetv0, dlabad, 
-     &           pdvout, pdmout, pivout, second
+     &           pdvout, pdmout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
 c     %--------------------%
 c
       Double precision
-     &           ddot, pdnorm2, dlanhs, pdlamch
-      external   ddot, pdnorm2, dlanhs, pdlamch
+     &           ddot, pdnorm2, dlanhs, pdlamch10
+      external   ddot, pdnorm2, dlanhs, pdlamch10
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -310,13 +311,12 @@ c     %-----------------%
 c     | Data statements |
 c     %-----------------%
 c
-      data      first / .true. /
 c
 c     %-----------------------%
 c     | Executable Statements |
 c     %-----------------------%
 c
-      if (first) then
+      if (aitr_first) then
 c
 c        %-----------------------------------------%
 c        | Set machine-dependent constants for the |
@@ -326,10 +326,10 @@ c        | overflow should not occur.              |
 c        | REFERENCE: LAPACK subroutine dlahqr     |
 c        %-----------------------------------------%
 c
-         unfl = pdlamch(comm, 'safe minimum' )
+         unfl = pdlamch10(comm, 'safe minimum' )
          ovfl = one / unfl
          call dlabad( unfl, ovfl )
-         ulp = pdlamch( comm, 'precision' )
+         ulp = pdlamch10( comm, 'precision' )
          smlnum = unfl*( n / ulp )
          first = .false.
       end if
@@ -341,7 +341,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mnaitr
 c 
 c        %------------------------------%
@@ -452,7 +452,7 @@ c              | which spans OP and exit.                       |
 c              %------------------------------------------------%
 c
                info = j - 1
-               call second (t1)
+               call arscnd (t1)
                tnaitr = tnaitr + (t1 - t0)
                ido = 99
                go to 9000
@@ -492,7 +492,7 @@ c        %------------------------------------------------------%
 c
          step3 = .true.
          nopx  = nopx + 1
-         call second (t2)
+         call arscnd (t2)
          call dcopy (n, v(1,j), 1, workd(ivj), 1)
          ipntr(1) = ivj
          ipntr(2) = irj
@@ -512,7 +512,7 @@ c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}   |
 c        | if step3 = .true.                |
 c        %----------------------------------%
 c
-         call second (t3)
+         call arscnd (t3)
          tmvopx = tmvopx + (t3 - t2)
  
          step3 = .false.
@@ -528,7 +528,7 @@ c        | STEP 4:  Finish extending the Arnoldi |
 c        |          factorization to length j.   |
 c        %---------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             step4 = .true.
@@ -553,7 +553,7 @@ c        | if step4 = .true.                |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -602,11 +602,11 @@ c
 c
          if (j .gt. 1) h(j,j-1) = betaj
 c
-         call second (t4)
+         call arscnd (t4)
 c 
          orth1 = .true.
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(irj), 1)
@@ -630,7 +630,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}.                    |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -711,7 +711,7 @@ c
          call daxpy (j, one, workl(1), 1, h(1,j), 1)
 c 
          orth2 = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(irj), 1)
@@ -735,7 +735,7 @@ c        | Back from reverse communication if ORTH2 = .true. |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c
@@ -815,7 +815,7 @@ c
          rstart = .false.
          orth2  = .false.
 c 
-         call second (t5)
+         call arscnd (t5)
          titref = titref + (t5 - t4)
 c 
 c        %------------------------------------%
@@ -824,7 +824,7 @@ c        %------------------------------------%
 c
          j = j + 1
          if (j .gt. k+np) then
-            call second (t1)
+            call arscnd (t1)
             tnaitr = tnaitr + (t1 - t0)
             ido = 99
             do 110 i = max(1,k), k+np-1

PARPACK/SRC/MPI/pdnapps.f

@@ -102,7 +102,7 @@ c
 c\Routines called:
 c     dlabad  LAPACK routine that computes machine constants.
 c     dlacpy  LAPACK matrix copy routine.
-c     pdlamch ScaLAPACK routine that determines machine constants.
+c     pdlamch10 ScaLAPACK routine that determines machine constants.
 c     dlanhs  LAPACK routine that computes various norms of a matrix.
 c     dlapy2  LAPACK routine to compute sqrt(x**2+y**2) carefully.
 c     dlarf   LAPACK routine that applies Householder reflection to
@@ -151,6 +151,7 @@ c     %--------------------%
 c     | MPI Communicator |
 c     %--------------------%
 c
+      include   'pcontext.h'
       integer   comm
 c
 c     %----------------------------------------------------%
@@ -187,26 +188,26 @@ c     | Local Scalars & Arrays |
 c     %------------------------%
 c
       integer    i, iend, ir, istart, j, jj, kplusp, msglvl, nr
-      logical    cconj, first
+      logical    cconj
       Double precision
      &           c, f, g, h11, h12, h21, h22, h32, ovfl, r, s, sigmai, 
      &           sigmar, smlnum, ulp, unfl, u(3), t, tau, tst1
-      save       first, ovfl, smlnum, ulp, unfl 
+      save       ovfl, smlnum, ulp, unfl 
 c
 c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
       external   daxpy, dcopy, dscal, dlacpy, dlarf, dlarfg, dlartg, 
-     &           dlaset, dlabad, second, pivout, pdvout, pdmout
+     &           dlaset, dlabad, arscnd, pivout, pdvout, pdmout
 c
 c     %--------------------%
 c     | External Functions |
 c     %--------------------%
 c
       Double precision
-     &           pdlamch, dlanhs, dlapy2
-      external   pdlamch, dlanhs, dlapy2
+     &           pdlamch10, dlanhs, dlapy2
+      external   pdlamch10, dlanhs, dlapy2
 c
 c     %----------------------%
 c     | Intrinsics Functions |
@@ -218,13 +219,12 @@ c     %----------------%
 c     | Data statments |
 c     %----------------%
 c
-      data       first / .true. /
 c
 c     %-----------------------%
 c     | Executable Statements |
 c     %-----------------------%
 c
-      if (first) then
+      if (apps_first) then
 c
 c        %-----------------------------------------------%
 c        | Set machine-dependent constants for the       |
@@ -233,12 +233,12 @@ c        | overflow should not occur.                    |
 c        | REFERENCE: LAPACK subroutine dlahqr           |
 c        %-----------------------------------------------%
 c
-         unfl = pdlamch( comm, 'safe minimum' )
+         unfl = pdlamch10( comm, 'safe minimum' )
          ovfl = one / unfl
          call dlabad( unfl, ovfl )
-         ulp = pdlamch( comm, 'precision' )
+         ulp = pdlamch10( comm, 'precision' )
          smlnum = unfl*( n / ulp )
-         first = .false.
+         apps_first = .false.
       end if
 c
 c     %-------------------------------%
@@ -246,7 +246,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mnapps
 c 
       kplusp = kev + np 
@@ -645,7 +645,7 @@ c
       end if
 c 
  9000 continue
-      call second (t1)
+      call arscnd (t1)
       tnapps = tnapps + (t1 - t0)
 c 
       return

PARPACK/SRC/MPI/pdnaup2.f

@@ -145,10 +145,10 @@ c     pdneigh   Parallel ARPACK compute Ritz values and error bounds routine.
 c     pdngets   Parallel ARPACK reorder Ritz values and error bounds routine.
 c     dsortc    ARPACK sorting routine.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdmout    Parallel ARPACK utility routine that prints matrices
 c     pdvout    ARPACK utility routine that prints vectors.
-c     pdlamch   ScaLAPACK routine that determines machine constants.
+c     pdlamch10   ScaLAPACK routine that determines machine constants.
 c     dlapy2    LAPACK routine to compute sqrt(x**2+y**2) carefully.
 c     dcopy     Level 1 BLAS that copies one vector to another .
 c     ddot      Level 1 BLAS that computes the scalar product of two vectors. 
@@ -255,15 +255,15 @@ c     %----------------------%
 c
       external   dcopy , pdgetv0 , pdnaitr , dnconv , 
      &           pdneigh , pdngets , pdnapps ,
-     &           pdvout , pivout, second
+     &           pdvout , pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
 c     %--------------------%
 c
       Double precision 
-     &           ddot , pdnorm2 , dlapy2 , pdlamch 
-      external   ddot , pdnorm2 , dlapy2 , pdlamch 
+     &           ddot , pdnorm2 , dlapy2 , pdlamch10 
+      external   ddot , pdnorm2 , dlapy2 , pdlamch10 
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -277,7 +277,7 @@ c     %-----------------------%
 c
       if (ido .eq. 0) then
 c 
-         call second (t0)
+         call arscnd (t0)
 c 
          msglvl = mnaup2
 c 
@@ -285,7 +285,7 @@ c        %-------------------------------------%
 c        | Get the machine dependent constant. |
 c        %-------------------------------------%
 c
-         eps23 = pdlamch (comm, 'Epsilon-Machine')
+         eps23 = pdlamch10 (comm, 'Epsilon-Machine')
          eps23 = eps23**(2.0  / 3.0 )
 c
          nev0   = nev
@@ -779,7 +779,7 @@ c        | the first step of the next call to pdnaitr . |
 c        %---------------------------------------------%
 c
          cnorm = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy  (n, resid, 1, workd(n+1), 1)
@@ -804,7 +804,7 @@ c        | WORKD(1:N) := B*RESID            |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          endif
 c
@@ -845,7 +845,7 @@ c     %------------%
 c     | Error Exit |
 c     %------------%
 c
-      call second (t1)
+      call arscnd (t1)
       tnaup2 = t1 - t0
 c     
  9000 continue

PARPACK/SRC/MPI/pdnaupd.f

@@ -382,9 +382,9 @@ c\Routines called:
 c     pdnaup2   Parallel ARPACK routine that implements the Implicitly Restarted
 c              Arnoldi Iteration.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdvout    Parallel ARPACK utility routine that prints vectors.
-c     pdlamch   ScaLAPACK routine that determines machine constants.
+c     pdlamch10   ScaLAPACK routine that determines machine constants.
 c
 c\Author
 c     Danny Sorensen               Phuong Vu
@@ -414,6 +414,7 @@ c
      &     iparam, ipntr, workd, workl, lworkl, info )
 c
       include  'mpif.h'
+      include   'pcontext.h'
 c
 c     %------------------%
 c     | MPI Variables    |
@@ -468,21 +469,28 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pdnaup2 , pdvout , pivout, second, dstatn 
+      external   pdnaup2 , pdvout , pivout, arscnd, dstatn, pcontext
 c
 c     %--------------------%
 c     | External Functions |
 c     %--------------------%
 c
       Double precision 
-     &           pdlamch 
-      external   pdlamch 
+     &           pdlamch10 
+      external   pdlamch10 
 c
 c     %-----------------------%
 c     | Executable Statements |
 c     %-----------------------%
 c 
       if (ido .eq. 0) then
+c
+c        %-------------------------------%
+c        | Initialize parallel execution |
+c        | context                       |
+c        %-------------------------------%
+c
+      call pcontext
 c 
 c        %-------------------------------%
 c        | Initialize timing statistics  |
@@ -490,7 +498,7 @@ c        | & message level for debugging |
 c        %-------------------------------%
 c
          call dstatn 
-         call second (t0)
+         call arscnd (t0)
          msglvl = mnaupd
 c
 c        %----------------%
@@ -553,7 +561,7 @@ c        | Set default parameters |
 c        %------------------------%
 c
          if (nb .le. 0)	nb = 1
-         if (tol .le. zero)	tol = pdlamch (comm, 'EpsMach')
+         if (tol .le. zero)	tol = pdlamch10 (comm, 'EpsMach')
 c
 c        %----------------------------------------------%
 c        | NP is the number of additional steps to      |
@@ -654,7 +662,7 @@ c
      &               '_naupd: Associated Ritz estimates')
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tnaupd = t1 - t0
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/MPI/pdneigh.f

@@ -65,9 +65,9 @@ c\Local variables:
 c     xxxxxx  real
 c
 c\Routines called:
-c     dlaqrb  ARPACK routine to compute the real Schur form of an
+c     dlahqr  ARPACK routine to compute the real Schur form of an
 c             upper Hessenberg matrix and last row of the Schur vectors.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     dmout   ARPACK utility routine that prints matrices
 c     dvout   ARPACK utility routine that prints vectors.
 c     dlacpy  LAPACK matrix copy routine.
@@ -157,7 +157,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   dcopy, dlacpy, dlaqrb, dtrevc, pdvout, second
+      external   dcopy, dlacpy, dlahqr, dtrevc, dvout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -183,7 +183,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mneigh
 c 
       if (msglvl .gt. 2) then
@@ -195,13 +195,17 @@ c     %-----------------------------------------------------------%
 c     | 1. Compute the eigenvalues, the last components of the    |
 c     |    corresponding Schur vectors and the full Schur form T  |
 c     |    of the current upper Hessenberg matrix H.              |
-c     | dlaqrb returns the full Schur form of H in WORKL(1:N**2)  |
+c     | dlahqr returns the full Schur form of H in WORKL(1:N**2)  |
 c     | and the last components of the Schur vectors in BOUNDS.   |
 c     %-----------------------------------------------------------%
 c
       call dlacpy ('All', n, n, h, ldh, workl, n)
-      call dlaqrb (.true., n, 1, n, workl, n, ritzr, ritzi, bounds,
-     &             ierr)
+      do 5 j = 1, n-1
+          bounds(j) = zero
+   5  continue
+      bounds(n) = 1
+      call dlahqr(.true., .true., n, 1, n, workl, n, ritzr, ritzi, 1, 1,
+     &            bounds, 1, ierr)
       if (ierr .ne. 0) go to 9000
 c
       if (msglvl .gt. 1) then
@@ -314,7 +318,7 @@ c
      &              '_neigh: Ritz estimates for the eigenvalues of H')
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tneigh = tneigh + (t1 - t0)
 c
  9000 continue

PARPACK/SRC/MPI/pdneupd.f

@@ -238,7 +238,7 @@ c             a matrix.
 c     dlacpy   LAPACK matrix copy routine.
 c     dlahqr   LAPACK routine to compute the real Schur form of an
 c             upper Hessenberg matrix.
-c     pdlamch  ScaLAPACK routine that determines machine constants.
+c     pdlamch10  ScaLAPACK routine that determines machine constants.
 c     dlapy2   LAPACK routine to compute sqrt(x**2+y**2) carefully.
 c     dlaset   LAPACK matrix initialization routine.
 c     dorm2r   LAPACK routine that applies an orthogonal matrix in 
@@ -388,8 +388,8 @@ c     | External Functions |
 c     %--------------------%
 c
       Double precision 
-     &           dlapy2 , dnrm2 , pdlamch 
-      external   dlapy2 , dnrm2 , pdlamch 
+     &           dlapy2 , dnrm2 , pdlamch10 
+      external   dlapy2 , dnrm2 , pdlamch10 
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -414,7 +414,7 @@ c     %---------------------------------%
 c     | Get machine dependent constant. |
 c     %---------------------------------%
 c
-      eps23 = pdlamch (comm, 'Epsilon-Machine')
+      eps23 = pdlamch10 (comm, 'Epsilon-Machine')
       eps23 = eps23**(2.0  / 3.0 )
 c
 c     %--------------%

PARPACK/SRC/MPI/pdngets.f

@@ -149,7 +149,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   dcopy, dsortc, second
+      external   dcopy, dsortc, arscnd
 c
 c     %----------------------%
 c     | Intrinsics Functions |
@@ -166,7 +166,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c 
-      call second (t0)
+      call arscnd (t0)
       msglvl = mngets
 c 
 c     %----------------------------------------------------%
@@ -222,7 +222,7 @@ c
          call dsortc ( 'SR', .true., np, bounds, ritzr, ritzi )
       end if
 c     
-      call second (t1)
+      call arscnd (t1)
       tngets = tngets + (t1 - t0)
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/MPI/pdsaitr.f

@@ -139,7 +139,7 @@ c     pdgetv0  Parallel ARPACK routine to generate the initial vector.
 c     pivout   Parallel ARPACK utility routine that prints integers.
 c     pdmout   Parallel ARPACK utility routine that prints matrices.
 c     pdvout   Parallel ARPACK utility routine that prints vectors.
-c     pdlamch  ScaLAPACK routine that determines machine constants.
+c     pdlamch10  ScaLAPACK routine that determines machine constants.
 c     dlascl   LAPACK routine for careful scaling of a matrix.
 c     dgemv    Level 2 BLAS routine for matrix vector multiplication.
 c     daxpy    Level 1 BLAS that computes a vector triad.
@@ -215,6 +215,7 @@ c
      &    ipntr, workd, workl, info)
 c
       include   'mpif.h'
+      include   'pcontext.h'
 c
 c     %---------------%
 c     | MPI Variables |
@@ -259,7 +260,7 @@ c     %---------------%
 c     | Local Scalars |
 c     %---------------%
 c
-      logical    first, orth1, orth2, rstart, step3, step4
+      logical    orth1, orth2, rstart, step3, step4
       integer    i, ierr, ipj, irj, ivj, iter, itry, j, msglvl, infol,
      &           jj
       Double precision
@@ -283,21 +284,20 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   daxpy, dcopy, dscal, dgemv, pdgetv0, pdvout, pdmout,
-     &           dlascl, pivout, second
+     &           dlascl, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
 c     %--------------------%
 c
       Double precision
-     &           ddot, pdnorm2, pdlamch
-      external   ddot, pdnorm2, pdlamch
+     &           ddot, pdnorm2, pdlamch10
+      external   ddot, pdnorm2, pdlamch10
 c
 c     %-----------------%
 c     | Data statements |
 c     %-----------------%
 c
-      data      first / .true. /
 c
 c
 c     %---------------------%
@@ -310,15 +310,15 @@ c     %-----------------------%
 c     | Executable Statements |
 c     %-----------------------%
 c
-      if (first) then
-         first = .false.
+      if (aitr_first) then
+         aitr_first = .false.
 c
 c        %--------------------------------%
 c        | safmin = safe minimum is such  |
 c        | that 1/sfmin does not overflow |
 c        %--------------------------------%
 c
-         safmin = pdlamch(comm,'safmin')
+         safmin = pdlamch10(comm,'safmin')
       end if
 c
       if (ido .eq. 0) then
@@ -328,7 +328,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = msaitr
 c 
 c        %------------------------------%
@@ -448,7 +448,7 @@ c              | which spans OP and exit.                       |
 c              %------------------------------------------------%
 c
                info = j - 1
-               call second (t1)
+               call arscnd (t1)
                tsaitr = tsaitr + (t1 - t0)
                ido = 99
                go to 9000
@@ -488,7 +488,7 @@ c        %------------------------------------------------------%
 c
          step3 = .true.
          nopx  = nopx + 1
-         call second (t2)
+         call arscnd (t2)
          call dcopy (n, v(1,j), 1, workd(ivj), 1)
          ipntr(1) = ivj
          ipntr(2) = irj
@@ -507,7 +507,7 @@ c        | Back from reverse communication;  |
 c        | WORKD(IRJ:IRJ+N-1) := OP*v_{j}.   |
 c        %-----------------------------------%
 c
-         call second (t3)
+         call arscnd (t3)
          tmvopx = tmvopx + (t3 - t2)
 c 
          step3 = .false.
@@ -528,7 +528,7 @@ c        | assumed to have A*v_{j}.                  |
 c        %-------------------------------------------%
 c
          if (mode .eq. 2) go to 65
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             step4 = .true.
@@ -552,7 +552,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*OP*v_{j}. |
 c        %-----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if 
 c
@@ -628,12 +628,12 @@ c
          else
             h(j,1) = rnorm
          end if
-         call second (t4)
+         call arscnd (t4)
 c 
          orth1 = .true.
          iter  = 0
 c 
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(irj), 1)
@@ -657,7 +657,7 @@ c        | WORKD(IPJ:IPJ+N-1) := B*r_{j}.                    |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -735,7 +735,7 @@ c
          h(j,2) = h(j,2) + workl(j)
 c 
          orth2 = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(irj), 1)
@@ -759,7 +759,7 @@ c        | Back from reverse communication if ORTH2 = .true. |
 c        %---------------------------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c
@@ -833,7 +833,7 @@ c
          rstart = .false.
          orth2  = .false.
 c 
-         call second (t5)
+         call arscnd (t5)
          titref = titref + (t5 - t4)
 c 
 c        %----------------------------------------------------------%
@@ -857,7 +857,7 @@ c        %------------------------------------%
 c
          j = j + 1
          if (j .gt. k+np) then
-            call second (t1)
+            call arscnd (t1)
             tsaitr = tsaitr + (t1 - t0)
             ido = 99
 c

PARPACK/SRC/MPI/pdsapps.f

@@ -93,9 +93,9 @@ c     TR95-13, Department of Computational and Applied Mathematics.
 c
 c\Routines called:
 c     pivout  Parallel ARPACK utility routine that prints integers. 
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pdvout  Parallel ARPACK utility routine that prints vectors.
-c     pdlamch ScaLAPACK routine that determines machine constants.
+c     pdlamch10 ScaLAPACK routine that determines machine constants.
 c     dlartg  LAPACK Givens rotation construction routine.
 c     dlacpy  LAPACK matrix copy routine.
 c     dlaset  LAPACK matrix initialization routine.
@@ -140,6 +140,8 @@ c     %--------------------%
 c     | MPI Communicator |
 c     %--------------------%
 c
+      include  'mpif.h'
+      include  'pcontext.h'
       integer   comm
 c
 c     %----------------------------------------------------%
@@ -176,7 +178,6 @@ c     | Local Scalars |
 c     %---------------%
 c
       integer    i, iend, istart, itop, j, jj, kplusp, msglvl
-      logical    first
       Double precision
      &           a1, a2, a3, a4, big, c, epsmch, f, g, r, s
       save       epsmch, first
@@ -187,15 +188,15 @@ c     | External Subroutines |
 c     %----------------------%
 c
       external   daxpy, dcopy, dscal, dlacpy, dlartg, dlaset, pdvout, 
-     &           pivout, second, dgemv
+     &           pivout, arscnd, dgemv
 c
 c     %--------------------%
 c     | External Functions |
 c     %--------------------%
 c
       Double precision
-     &           pdlamch
-      external   pdlamch
+     &           pdlamch10
+      external   pdlamch10
 c
 c     %----------------------%
 c     | Intrinsics Functions |
@@ -207,15 +208,14 @@ c     %----------------%
 c     | Data statments |
 c     %----------------%
 c
-      data       first / .true. /
 c
 c     %-----------------------%
 c     | Executable Statements |
 c     %-----------------------%
 c
-      if (first) then
-         epsmch = pdlamch(comm, 'Epsilon-Machine')
-         first = .false.
+      if (apps_first) then
+         epsmch = pdlamch10(comm, 'Epsilon-Machine')
+         apps_first = .false.
       end if
       itop = 1
 c
@@ -224,7 +224,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = msapps
 c 
       kplusp = kev + np 
@@ -275,7 +275,7 @@ c
                   call pivout (comm, logfil, 1, i, ndigit, 
      &                 '_sapps: deflation at row/column no.')
                   call pivout (comm, logfil, 1, jj, ndigit, 
-     &                 '_sapps: occured before shift number.')
+     &                 '_sapps: occurred before shift number.')
                   call pdvout (comm, logfil, 1, h(i+1,1), ndigit, 
      &                 '_sapps: the corresponding off diagonal element')
                end if
@@ -514,7 +514,7 @@ c
          end if
       end if
 c
-      call second (t1)
+      call arscnd (t1)
       tsapps = tsapps + (t1 - t0)
 c 
  9000 continue 

PARPACK/SRC/MPI/pdsaup2.f

@@ -153,9 +153,9 @@ c     sstrqb   ARPACK routine that computes all eigenvalues and the
 c              last component of the eigenvectors of a symmetric
 c              tridiagonal matrix using the implicit QL or QR method.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdvout   Parallel ARPACK utility routine that prints vectors.
-c     pdlamch  ScaLAPACK routine that determines machine constants.
+c     pdlamch10  ScaLAPACK routine that determines machine constants.
 c     dcopy    Level 1 BLAS that copies one vector to another.
 c     ddot     Level 1 BLAS that computes the scalar product of two vectors.
 c     pdnorm2  Parallel version of Level 1 BLAS that computes the norm of a vector.
@@ -256,15 +256,15 @@ c     %----------------------%
 c
       external   dcopy, pdgetv0, pdsaitr, dscal, dsconv, 
      &           pdseigt, pdsgets, pdsapps,
-     &           dsortr, pdvout, pivout, second
+     &           dsortr, pdvout, pivout, arscnd
 c
 c     %--------------------%
 c     | External Functions |
 c     %--------------------%
 c
       Double precision
-     &           ddot, pdnorm2, pdlamch
-      external   ddot, pdnorm2, pdlamch
+     &           ddot, pdnorm2, pdlamch10
+      external   ddot, pdnorm2, pdlamch10
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -283,14 +283,14 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = msaup2
 c
 c        %---------------------------------%
 c        | Set machine dependent constant. |
 c        %---------------------------------%
 c
-         eps23 = pdlamch(comm, 'Epsilon-Machine')
+         eps23 = pdlamch10(comm, 'Epsilon-Machine')
          eps23 = eps23**(2.0/3.0)
 c
 c        %-------------------------------------%
@@ -794,7 +794,7 @@ c        | the first step of the next call to pdsaitr. |
 c        %---------------------------------------------%
 c
          cnorm = .true.
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nbx = nbx + 1
             call dcopy (n, resid, 1, workd(n+1), 1)
@@ -819,7 +819,7 @@ c        | WORKD(1:N) := B*RESID            |
 c        %----------------------------------%
 c
          if (bmat .eq. 'G') then
-            call second (t3)
+            call arscnd (t3)
             tmvbx = tmvbx + (t3 - t2)
          end if
 c 
@@ -863,7 +863,7 @@ c     %------------%
 c     | Error exit |
 c     %------------%
 c
-      call second (t1)
+      call arscnd (t1)
       tsaup2 = t1 - t0
 c 
  9000 continue

PARPACK/SRC/MPI/pdsaupd.f

@@ -384,9 +384,9 @@ c              Arnoldi Iteration.
 c     dstats    ARPACK routine that initializes timing and other statistics
 c              variables.
 c     pivout   Parallel ARPACK utility routine that prints integers.
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     pdvout    Parallel ARPACK utility routine that prints vectors.
-c     pdlamch   ScaLAPACK routine that determines machine constants.
+c     pdlamch10   ScaLAPACK routine that determines machine constants.
 c
 c\Authors
 c     Kristi Maschhoff ( Parallel Code )
@@ -418,6 +418,7 @@ c
      &     iparam, ipntr, workd, workl, lworkl, info )
 c
       include  'mpif.h'
+      include  'pcontext.h'
 c
 c     %------------------%
 c     | MPI Variables    |
@@ -472,15 +473,15 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pdsaup2 , pdvout , pivout, second, dstats 
+      external   pdsaup2 , pdvout , pivout, arscnd, dstats, pcontext
 c
 c     %--------------------%
 c     | External Functions |
 c     %--------------------%
 c
       Double precision 
-     &           pdlamch 
-      external   pdlamch 
+     &           pdlamch10 
+      external   pdlamch10 
 c
 c     %-----------------------%
 c     | Executable Statements |
@@ -489,12 +490,19 @@ c
       if (ido .eq. 0) then
 c
 c        %-------------------------------%
+c        | Initialize parallel execution |
+c        | context                       |
+c        %-------------------------------%
+c
+      call pcontext
+c
+c        %-------------------------------%
 c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
          call dstats 
-         call second (t0)
+         call arscnd (t0)
          msglvl = msaupd
 c
          ierr   = 0
@@ -563,7 +571,7 @@ c        | Set default parameters |
 c        %------------------------%
 c
          if (nb .le. 0) nb = 1
-         if (tol .le. zero) tol = pdlamch (comm, 'EpsMach')
+         if (tol .le. zero) tol = pdlamch10 (comm, 'EpsMach')
 c
 c        %----------------------------------------------%
 c        | NP is the number of additional steps to      |
@@ -654,7 +662,7 @@ c
      &               '_saupd: corresponding error bounds')
       end if 
 c
-      call second (t1)
+      call arscnd (t1)
       tsaupd = t1 - t0
 c 
       if (msglvl .gt. 0) then

PARPACK/SRC/MPI/pdseigt.f

@@ -63,7 +63,7 @@ c\Routines called:
 c     dstqrb  ARPACK routine that computes the eigenvalues and the
 c             last components of the eigenvectors of a symmetric
 c             and tridiagonal matrix.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pdvout  Parallel ARPACK utility routine that prints vectors.
 c     dcopy   Level 1 BLAS that copies one vector to another.
 c     dscal   Level 1 BLAS that scales a vector.
@@ -141,7 +141,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   dcopy, dstqrb, pdvout, second
+      external   dcopy, dstqrb, pdvout, arscnd
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -158,7 +158,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------% 
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = mseigt
 c
       if (msglvl .gt. 0) then
@@ -190,7 +190,7 @@ c
          bounds(k) = rnorm*abs(bounds(k))
    30 continue
 c 
-      call second (t1)
+      call arscnd (t1)
       tseigt = tseigt + (t1 - t0)
 c
  9000 continue

PARPACK/SRC/MPI/pdseupd.f

@@ -191,7 +191,7 @@ c     pdvout  Parallel ARPACK utility routine that prints vectors.
 c     dgeqr2  LAPACK routine that computes the QR factorization of
 c             a matrix.
 c     dlacpy  LAPACK matrix copy routine.
-c     pdlamch ScaLAPACK routine that determines machine constants.
+c     pdlamch10 ScaLAPACK routine that determines machine constants.
 c     dorm2r  LAPACK routine that applies an orthogonal matrix in
 c             factored form.
 c     dsteqr  LAPACK routine that computes eigenvalues and eigenvectors
@@ -295,8 +295,8 @@ c     | External Functions |
 c     %--------------------%
 c
       Double precision
-     &           pdnorm2, pdlamch
-      external   pdnorm2, pdlamch
+     &           pdnorm2, pdlamch10
+      external   pdnorm2, pdlamch10
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -439,7 +439,7 @@ c     %---------------------------------%
 c     | Set machine dependent constant. |
 c     %---------------------------------%
 c
-      eps23 = pdlamch(comm, 'Epsilon-Machine') 
+      eps23 = pdlamch10(comm, 'Epsilon-Machine') 
       eps23 = eps23**(2.0 / 3.0)
 c
 c     %---------------------------------------%

PARPACK/SRC/MPI/pdsgets.f

@@ -69,7 +69,7 @@ c
 c\Routines called:
 c     dsortr  ARPACK utility sorting routine.
 c     pivout  Parallel ARPACK utility routine that prints integers.
-c     second  ARPACK utility routine for timing.
+c     arscnd  ARPACK utility routine for timing.
 c     pdvout  Parallel ARPACK utility routine that prints vectors.
 c     dcopy   Level 1 BLAS that copies one vector to another.
 c     dswap   Level 1 BLAS that swaps the contents of two vectors.
@@ -145,7 +145,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   dswap, dcopy, dsortr, second
+      external   dswap, dcopy, dsortr, arscnd
 c
 c     %---------------------%
 c     | Intrinsic Functions |
@@ -162,7 +162,7 @@ c     | Initialize timing statistics  |
 c     | & message level for debugging |
 c     %-------------------------------%
 c
-      call second (t0)
+      call arscnd (t0)
       msglvl = msgets
 c 
       if (which .eq. 'BE') then
@@ -212,7 +212,7 @@ c
          call dcopy (np, ritz, 1, shifts, 1)
       end if
 c 
-      call second (t1)
+      call arscnd (t1)
       tsgets = tsgets + (t1 - t0)
 c
       if (msglvl .gt. 0) then

PARPACK/SRC/MPI/psgetv0.f

@@ -99,7 +99,7 @@ c     Restarted Arnoldi Iteration", Rice University Technical Report
 c     TR95-13, Department of Computational and Applied Mathematics.
 c
 c\Routines called:
-c     second   ARPACK utility routine for timing.
+c     arscnd   ARPACK utility routine for timing.
 c     psvout   Parallel ARPACK utility routine for vector output.
 c     pslarnv  Parallel wrapper for LAPACK routine slarnv (generates a random vector).
 c     sgemv    Level 2 BLAS routine for matrix vector multiplication.
@@ -190,7 +190,7 @@ c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
 c
-      external   pslarnv, psvout, scopy, sgemv, second
+      external   pslarnv, psvout, scopy, sgemv, arscnd
 c
 c     %--------------------%
 c     | External Functions |
@@ -237,7 +237,7 @@ c        | Initialize timing statistics  |
 c        | & message level for debugging |
 c        %-------------------------------%
 c
-         call second (t0)
+         call arscnd (t0)
          msglvl = mgetv0
 c 
          ierr   = 0
@@ -264,7 +264,7 @@ c        | Force the starting vector into the range of OP to handle |
 c        | the generalized problem when B is possibly (singular).   |
 c        %----------------------------------------------------------%
 c
-         call second (t2)
+         call arscnd (t2)
          if (bmat .eq. 'G') then
             nopx = nopx + 1
             ipntr(1) = 1
@@ -287,7 +287,7 @@ c     %-----------------------------------------------%
 c
       if (orth)  go to 40
 c 
-      call second (t3)
+      call arscnd (t3)
       tmvopx = tmvopx + (t3 - t2)
 c 
 c     %------------------------------------------------------%
@@ -295,7 +295,7 @@ c     | Starting vector is now in the range of OP; r = OP*r; |
 c     | Compute B-norm of starting vector.                   |
 c     %------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       first = .TRUE.
       if (bmat .eq. 'G') then
          nbx = nbx + 1
@@ -311,7 +311,7 @@ c
    20 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       endif
 c 
@@ -358,7 +358,7 @@ c     %----------------------------------------------------------%
 c     | Compute the B-norm of the orthogonalized starting vector |
 c     %----------------------------------------------------------%
 c
-      call second (t2)
+      call arscnd (t2)
       if (bmat .eq. 'G') then
          nbx = nbx + 1
          call scopy (n, resid, 1, workd(n+1), 1)
@@ -373,7 +373,7 @@ c
    40 continue
 c
       if (bmat .eq. 'G') then
-         call second (t3)
+         call arscnd (t3)
          tmvbx = tmvbx + (t3 - t2)
       endif
 c
@@ -433,7 +433,7 @@ c
       end if
       ido = 99
 c 
-      call second (t1)
+      call arscnd (t1)
       tgetv0 = tgetv0 + (t1 - t0)
 c 
  9000 continue