pkgsrc-WIP-changes archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index][Old Index]
scalapack: version 2.2.0, patch changes
Module Name: pkgsrc-wip
Committed By: Dr. Thomas Orgis <thomas.orgis%uni-hamburg.de@localhost>
Pushed By: thor
Date: Wed Jul 27 11:41:42 2022 +0200
Changeset: 46279cd9c65216d26cb2c0a18997fe58c70603ed
Modified Files:
scalapack/Makefile
scalapack/PLIST
scalapack/distinfo
scalapack/patches/patch-scalapack.pc.in
Added Files:
scalapack/patches/patch-PR67-MPI-linking
scalapack/patches/patch-SRC_pdtrord.f
scalapack/patches/patch-SRC_pstrord.f
scalapack/patches/patch-SRC_pstrsen.f
Removed Files:
scalapack/patches/patch-CMakeLists.txt
scalapack/patches/patch-gcc10fixfromgit
Log Message:
scalapack: version 2.2.0, patch changes
This updates to upstream 2.2.0 and as a notable local change does not hack
both shared and static libs into the build anymore. This is an unloved
endeavour and if we insist on static libs, we'd need to builds. But do we?
Tests are enabled now.
Upstream changes since 2.1.0:
New features:
Allow compilation in ILP64 mode, PR #19
Major bug fixes:
Use pointer macro to prevent integer overflow, PR #16
Fix argument mismatches for implicitly defined functions (for gcc-10+ compatibility), PR #26
No memory leaks on blacs_exit, PR #37
To see a diff of this commit:
https://wip.pkgsrc.org/cgi-bin/gitweb.cgi?p=pkgsrc-wip.git;a=commitdiff;h=46279cd9c65216d26cb2c0a18997fe58c70603ed
Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.
diffstat:
scalapack/Makefile | 15 +-
scalapack/PLIST | 1 -
scalapack/distinfo | 14 +-
scalapack/patches/patch-CMakeLists.txt | 18 -
scalapack/patches/patch-PR67-MPI-linking | 418 +++
scalapack/patches/patch-SRC_pdtrord.f | 19 +
scalapack/patches/patch-SRC_pstrord.f | 19 +
scalapack/patches/patch-SRC_pstrsen.f | 22 +
scalapack/patches/patch-gcc10fixfromgit | 5685 ------------------------------
scalapack/patches/patch-scalapack.pc.in | 12 +-
10 files changed, 502 insertions(+), 5721 deletions(-)
diffs:
diff --git a/scalapack/Makefile b/scalapack/Makefile
index dde731b2a0..b507949638 100644
--- a/scalapack/Makefile
+++ b/scalapack/Makefile
@@ -1,11 +1,11 @@
# $NetBSD$
-DISTNAME= scalapack-2.1.0
+DISTNAME= scalapack-2.2.0
CATEGORIES= math
MASTER_SITES= http://www.netlib.org/scalapack/
EXTRACT_SUFX= .tgz
-MAINTAINER= thomas.orgis%uni-hamburg.de@localhost
+MAINTAINER= thor%NetBSD.org@localhost
HOMEPAGE= http://www.netlib.org/scalapack/
COMMENT= Scalable Linear Algebra PACKage
LICENSE= modified-bsd
@@ -14,10 +14,13 @@ USE_CMAKE= yes
USE_TOOLS+= pkg-config
USE_LANGUAGES= c fortran
-CMAKE_ARGS= -DLAPACK_LIBRARIES=${LAPACK_LIBS:Q} \
- -DBLAS_LIBRARIES=${BLAS_LIBS:Q} \
- -DBUILD_SHARED_LIBS=ON \
- -DBUILD_STATIC_LIBS=ON \
+CMAKE_ARGS= -DBLA_PREFER_PKGCONFIG=on \
+ -DBLA_PKGCONFIG_LAPACK=${LAPACK_PC:Q} \
+ -DBLA_PKGCONFIG_BLAS=${BLAS_PC:Q} \
+ -DBUILD_SHARED_LIBS=ON
+
+TEST_TARGET= test
+TEST_ENV+= LD_LIBRARY_PATH=${WRKSRC}/lib
PKGCONFIG_OVERRIDE+= scalapack.pc.in
diff --git a/scalapack/PLIST b/scalapack/PLIST
index 44e5dde3ce..0e648d6f49 100644
--- a/scalapack/PLIST
+++ b/scalapack/PLIST
@@ -3,6 +3,5 @@ lib/cmake/${PKGNAME}/scalapack-config-version.cmake
lib/cmake/${PKGNAME}/scalapack-config.cmake
lib/cmake/${PKGNAME}/scalapack-targets-noconfig.cmake
lib/cmake/${PKGNAME}/scalapack-targets.cmake
-lib/libscalapack.a
lib/libscalapack.so
lib/pkgconfig/scalapack.pc
diff --git a/scalapack/distinfo b/scalapack/distinfo
index c41581d562..ff43946473 100644
--- a/scalapack/distinfo
+++ b/scalapack/distinfo
@@ -1,8 +1,10 @@
$NetBSD$
-RMD160 (scalapack-2.1.0.tgz) = 4eee240e39bcfaad1c2a38657014e1a51b778340
-SHA512 (scalapack-2.1.0.tgz) = 0e77fb535ebcc28e2d97499ef4bd5161f76ca0ba4a3e308c26ce5071cfc4be4f3814262f3fb38f378ce0b5b31c0913432fea00a1e9e3f7717b853d1182bdf5b4
-Size (scalapack-2.1.0.tgz) = 5307441 bytes
-SHA1 (patch-CMakeLists.txt) = a826593cfbc0fe2cfbb87d4dfc2b342c1a45d0d6
-SHA1 (patch-gcc10fixfromgit) = a6ac951efdf93bfde597cf83ef75de8afb615d8c
-SHA1 (patch-scalapack.pc.in) = 53dd2eeba58462e8788e92f4684d943357799361
+BLAKE2s (scalapack-2.2.0.tgz) = deff6c2cbd5993fa07333191f223995bfcdf55d65d30089970b976a97b2d9ccf
+SHA512 (scalapack-2.2.0.tgz) = 1e6c69a4faab8165c273479ff8b63e98df6a7253cffc524b5700d0344c3f89c52c5bccc5d3a9a9bded4d9da50080123abd8340b75e1f92317e471c4375704999
+Size (scalapack-2.2.0.tgz) = 4769286 bytes
+SHA1 (patch-PR67-MPI-linking) = 704d77790bcf5d73203a8d7a86161230d650e23c
+SHA1 (patch-SRC_pdtrord.f) = 7c51c59c4f570020595904e964901e27ec45e2c4
+SHA1 (patch-SRC_pstrord.f) = 1ca9fd5d3520b5ecb030f3e07fc0f13f1bbc8a2d
+SHA1 (patch-SRC_pstrsen.f) = 5956f03bae7ad44861a9b7776a1cb7a8438483fb
+SHA1 (patch-scalapack.pc.in) = c6a2b9068b89ecdf2b26263117b37761fdf14808
diff --git a/scalapack/patches/patch-CMakeLists.txt b/scalapack/patches/patch-CMakeLists.txt
deleted file mode 100644
index 39eb964397..0000000000
--- a/scalapack/patches/patch-CMakeLists.txt
+++ /dev/null
@@ -1,18 +0,0 @@
-$NetBSD$
-
-This enables building both shared and static libs.
-
---- CMakeLists.txt.orig 2020-06-09 19:05:01.803103294 +0200
-+++ CMakeLists.txt 2020-06-09 19:09:46.581054808 +0200
-@@ -234,6 +234,11 @@
- add_library(scalapack ${blacs} ${tools} ${tools-C} ${extra_lapack} ${pblas} ${pblas-F} ${ptzblas} ${ptools} ${pbblas} ${redist} ${src} ${src-C})
- target_link_libraries( scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
- scalapack_install_library(scalapack)
-+ if(BUILD_SHARED_LIBS AND BUILD_STATIC_LIBS)
-+ add_library(scalapack_static STATIC ${blacs} ${tools} ${tools-C} ${extra_lapack} ${pblas} ${pblas-F} ${ptzblas} ${ptools} ${pbblas} ${redist} ${src} ${src-C})
-+ set_target_properties(scalapack_static PROPERTIES OUTPUT_NAME scalapack)
-+ scalapack_install_library(scalapack_static)
-+ endif()
- else (UNIX) # Need to separate Fortran and C Code
- OPTION(BUILD_SHARED_LIBS "Build shared libraries" ON )
- add_library(scalapack ${blacs} ${tools-C} ${pblas} ${ptools} ${redist} ${src-C})
diff --git a/scalapack/patches/patch-PR67-MPI-linking b/scalapack/patches/patch-PR67-MPI-linking
new file mode 100644
index 0000000000..dc6c9db4dc
--- /dev/null
+++ b/scalapack/patches/patch-PR67-MPI-linking
@@ -0,0 +1,418 @@
+$NetBSD$
+
+This includes upstream PR67 and the version fix, to be removed
+on update to next upstream release after 2.2.0. It modifies several
+files, as it would not make sense to have lots of separate patches
+for this one thing.
+
+diff -ru ../scalapack-2.2.0/BLACS/CMakeLists.txt ./BLACS/CMakeLists.txt
+--- ../scalapack-2.2.0/BLACS/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./BLACS/CMakeLists.txt 2022-07-19 10:33:55.051376486 +0200
+@@ -1,4 +1,4 @@
+ add_subdirectory(SRC)
+-if(${SCALAPACK_BUILD_TESTING})
++if(${SCALAPACK_BUILD_TESTS})
+ add_subdirectory(TESTING)
+ endif()
+diff -ru ../scalapack-2.2.0/BLACS/TESTING/CMakeLists.txt ./BLACS/TESTING/CMakeLists.txt
+--- ../scalapack-2.2.0/BLACS/TESTING/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./BLACS/TESTING/CMakeLists.txt 2022-07-19 16:20:28.028299214 +0200
+@@ -6,7 +6,7 @@
+ endif()
+
+ add_executable(xFbtest ${FTestObj})
+-target_link_libraries(xFbtest scalapack)
++target_link_libraries(xFbtest scalapack MPI::MPI_Fortran)
+
+ set(CTestObj
+ Cbt.c)
+@@ -17,7 +17,7 @@
+ )
+
+ add_executable(xCbtest ${CTestObj} ${FTestObj})
+-target_link_libraries(xCbtest scalapack)
++target_link_libraries(xCbtest scalapack MPI::MPI_Fortran)
+
+ file(COPY bsbr.dat DESTINATION ${SCALAPACK_BINARY_DIR}/BLACS/TESTING)
+ file(COPY bt.dat DESTINATION ${SCALAPACK_BINARY_DIR}/BLACS/TESTING)
+Only in ./BLACS/TESTING: CMakeLists.txt.orig
+diff -ru ../scalapack-2.2.0/CMakeLists.txt ./CMakeLists.txt
+--- ../scalapack-2.2.0/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./CMakeLists.txt 2022-07-20 16:30:35.443344793 +0200
+@@ -1,4 +1,4 @@
+-cmake_minimum_required(VERSION 3.2)
++cmake_minimum_required(VERSION 3.9)
+ project(SCALAPACK C Fortran)
+ # Configure the warning and code coverage suppression file
+ configure_file(
+@@ -27,8 +27,7 @@
+ find_package(MPI)
+ if (MPI_FOUND)
+ message(STATUS "Found MPI_LIBRARY : ${MPI_FOUND} ")
+- INCLUDE_DIRECTORIES(${MPI_INCLUDE_PATH})
+-
++
+ find_program(MPI_C_COMPILER
+ NAMES mpicc
+ HINTS "${MPI_BASE_DIR}"
+@@ -232,14 +231,14 @@
+
+ if (UNIX)
+ add_library(scalapack ${blacs} ${tools} ${tools-C} ${extra_lapack} ${pblas} ${pblas-F} ${ptzblas} ${ptools} ${pbblas} ${redist} ${src} ${src-C})
+- target_link_libraries( scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++ target_link_libraries( scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_C)
+ scalapack_install_library(scalapack)
+ else (UNIX) # Need to separate Fortran and C Code
+ OPTION(BUILD_SHARED_LIBS "Build shared libraries" ON )
+ add_library(scalapack ${blacs} ${tools-C} ${pblas} ${ptools} ${redist} ${src-C})
+- target_link_libraries( scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++ target_link_libraries( scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_C)
+ add_library(scalapack-F ${pblas-F} ${pbblas} ${ptzblas} ${tools} ${src} ${extra_lapack} )
+- target_link_libraries( scalapack-F ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++ target_link_libraries( scalapack-F ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+ scalapack_install_library(scalapack)
+ scalapack_install_library(scalapack-F)
+ endif (UNIX)
+@@ -255,9 +254,9 @@
+ SET(CPACK_PACKAGE_NAME "ScaLAPACK")
+ SET(CPACK_PACKAGE_VENDOR "University of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd")
+ SET(CPACK_PACKAGE_DESCRIPTION_SUMMARY "ScaLAPACK- Linear Algebra Package")
+-set(SCALAPACK_VERSION 2.1.0)
++set(SCALAPACK_VERSION 2.2.0)
+ set(CPACK_PACKAGE_VERSION_MAJOR 2)
+-set(CPACK_PACKAGE_VERSION_MINOR 1)
++set(CPACK_PACKAGE_VERSION_MINOR 2)
+ set(CPACK_PACKAGE_VERSION_PATCH 0)
+ set(CPACK_RESOURCE_FILE_LICENSE "${CMAKE_CURRENT_SOURCE_DIR}/LICENSE")
+ SET(CPACK_PACKAGE_INSTALL_DIRECTORY "SCALAPACK")
+Only in .: CMakeLists.txt.orig
+diff -ru ../scalapack-2.2.0/PBLAS/CMakeLists.txt ./PBLAS/CMakeLists.txt
+--- ../scalapack-2.2.0/PBLAS/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./PBLAS/CMakeLists.txt 2022-07-19 10:33:55.052376486 +0200
+@@ -1,5 +1,5 @@
+ add_subdirectory(SRC)
+-if(${SCALAPACK_BUILD_TESTING})
++if(${SCALAPACK_BUILD_TESTS})
+ add_subdirectory(TESTING)
+ add_subdirectory(TIMING)
+ endif()
+diff -ru ../scalapack-2.2.0/PBLAS/TESTING/CMakeLists.txt ./PBLAS/TESTING/CMakeLists.txt
+--- ../scalapack-2.2.0/PBLAS/TESTING/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./PBLAS/TESTING/CMakeLists.txt 2022-07-19 16:21:42.412306092 +0200
+@@ -44,20 +44,20 @@
+ add_executable(cpb3tst pcblas3tst.f ${cpbtcom})
+ add_executable(zpb3tst pzblas3tst.f ${zpbtcom})
+
+-target_link_libraries(spb1tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(dpb1tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(cpb1tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(zpb1tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++target_link_libraries(spb1tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(dpb1tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(cpb1tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(zpb1tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+
+-target_link_libraries(spb2tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(dpb2tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(cpb2tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(zpb2tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++target_link_libraries(spb2tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(dpb2tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(cpb2tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(zpb2tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+
+-target_link_libraries(spb3tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(dpb3tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(cpb3tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(zpb3tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++target_link_libraries(spb3tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(dpb3tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(cpb3tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(zpb3tst scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+
+ add_test(spb1tst ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./spb1tst)
+ add_test(dpb1tst ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./dpb1tst)
+Only in ./PBLAS/TESTING: CMakeLists.txt.orig
+diff -ru ../scalapack-2.2.0/PBLAS/TIMING/CMakeLists.txt ./PBLAS/TIMING/CMakeLists.txt
+--- ../scalapack-2.2.0/PBLAS/TIMING/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./PBLAS/TIMING/CMakeLists.txt 2022-07-19 16:22:31.291310612 +0200
+@@ -44,20 +44,20 @@
+ add_executable(cpb3tim pcblas3tim.f ${cpbtcom})
+ add_executable(zpb3tim pzblas3tim.f ${zpbtcom})
+
+-target_link_libraries(spb1tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(dpb1tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(cpb1tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(zpb1tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++target_link_libraries(spb1tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(dpb1tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(cpb1tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(zpb1tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+
+-target_link_libraries(spb2tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(dpb2tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(cpb2tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(zpb2tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++target_link_libraries(spb2tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(dpb2tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(cpb2tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(zpb2tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+
+-target_link_libraries(spb3tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(dpb3tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(cpb3tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(zpb3tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++target_link_libraries(spb3tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(dpb3tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(cpb3tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(zpb3tim scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+
+ add_test(spb1tim ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./spb1tim)
+ add_test(dpb1tim ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./dpb1tim)
+Only in ./PBLAS/TIMING: CMakeLists.txt.orig
+diff -ru ../scalapack-2.2.0/REDIST/CMakeLists.txt ./REDIST/CMakeLists.txt
+--- ../scalapack-2.2.0/REDIST/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./REDIST/CMakeLists.txt 2022-07-19 10:33:55.052376486 +0200
+@@ -1,4 +1,4 @@
+ add_subdirectory(SRC)
+-if(${SCALAPACK_BUILD_TESTING})
++if(${SCALAPACK_BUILD_TESTS})
+ add_subdirectory(TESTING)
+ endif()
+diff -ru ../scalapack-2.2.0/REDIST/TESTING/CMakeLists.txt ./REDIST/TESTING/CMakeLists.txt
+--- ../scalapack-2.2.0/REDIST/TESTING/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./REDIST/TESTING/CMakeLists.txt 2022-07-19 16:14:17.879264986 +0200
+@@ -15,17 +15,17 @@
+ add_executable(xctrmr pctrmrdrv.c)
+ add_executable(xztrmr pztrmrdrv.c)
+
+-target_link_libraries(xigemr scalapack )
+-target_link_libraries(xsgemr scalapack )
+-target_link_libraries(xdgemr scalapack )
+-target_link_libraries(xcgemr scalapack )
+-target_link_libraries(xzgemr scalapack )
++target_link_libraries(xigemr scalapack MPI::MPI_Fortran )
++target_link_libraries(xsgemr scalapack MPI::MPI_Fortran )
++target_link_libraries(xdgemr scalapack MPI::MPI_Fortran )
++target_link_libraries(xcgemr scalapack MPI::MPI_Fortran )
++target_link_libraries(xzgemr scalapack MPI::MPI_Fortran )
+
+-target_link_libraries(xitrmr scalapack )
+-target_link_libraries(xstrmr scalapack )
+-target_link_libraries(xdtrmr scalapack )
+-target_link_libraries(xctrmr scalapack )
+-target_link_libraries(xztrmr scalapack )
++target_link_libraries(xitrmr scalapack MPI::MPI_Fortran )
++target_link_libraries(xstrmr scalapack MPI::MPI_Fortran )
++target_link_libraries(xdtrmr scalapack MPI::MPI_Fortran )
++target_link_libraries(xctrmr scalapack MPI::MPI_Fortran )
++target_link_libraries(xztrmr scalapack MPI::MPI_Fortran )
+
+ #add_test(xigemr ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./xigemr)
+ #add_test(xsgemr ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./xsgemr)
+Only in ./REDIST/TESTING: CMakeLists.txt.orig
+diff -ru ../scalapack-2.2.0/TESTING/EIG/CMakeLists.txt ./TESTING/EIG/CMakeLists.txt
+--- ../scalapack-2.2.0/TESTING/EIG/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./TESTING/EIG/CMakeLists.txt 2022-07-19 16:19:40.461294815 +0200
+@@ -53,49 +53,49 @@
+ add_executable(xshseqr pshseqrdriver.f psmatgen2.f ${cmatgen})
+ add_executable(xdhseqr pdhseqrdriver.f pdmatgen2.f ${cmatgen})
+
+-target_link_libraries(xsbrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdbrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcbrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzbrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xshrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdhrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xchrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzhrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xstrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdtrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xctrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xztrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xssvd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdsvd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xssep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsgsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdgsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcgsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzgsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsnep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdnep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcnep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xznep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xcevc scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzevc scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xssyevr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdsyevr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcheevr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzheevr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++target_link_libraries(xsbrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdbrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcbrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzbrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xshrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdhrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xchrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzhrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xstrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdtrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xctrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xztrd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xssvd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdsvd scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xssep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsgsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdgsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcgsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzgsep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsnep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdnep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcnep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xznep scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xcevc scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzevc scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xssyevr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdsyevr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcheevr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzheevr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+
+-target_link_libraries(xshseqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdhseqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++target_link_libraries(xshseqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdhseqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+
+ if ("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "GNU" AND CMAKE_Fortran_COMPILER_VERSION VERSION_GREATER_EQUAL 10)
+ set( CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -std=legacy" ) # local to this directory
+Only in ./TESTING/EIG: CMakeLists.txt.orig
+diff -ru ../scalapack-2.2.0/TESTING/LIN/CMakeLists.txt ./TESTING/LIN/CMakeLists.txt
+--- ../scalapack-2.2.0/TESTING/LIN/CMakeLists.txt 2021-10-12 21:09:12.000000000 +0200
++++ ./TESTING/LIN/CMakeLists.txt 2022-07-19 16:16:53.702279395 +0200
+@@ -61,55 +61,55 @@
+ add_executable(xzls pzlsdriver.f pzlsinfo.f pzqrt13.f pzqrt14.f pzqrt16.f pzqrt17.f ${zmatgen})
+
+
+-target_link_libraries(xslu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xclu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsdblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xddblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcdblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzdblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsdtlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xddtlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcdtlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzdtlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsgblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdgblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcgblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzgblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xspbllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdpbllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcpbllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzpbllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsptllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdptllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcptllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzptllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsinv scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdinv scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcinv scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzinv scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-
+-target_link_libraries(xsls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xdls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xcls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+-target_link_libraries(xzls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
++target_link_libraries(xslu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xclu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsdblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xddblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcdblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzdblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsdtlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xddtlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcdtlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzdtlu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsgblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdgblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcgblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzgblu scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xspbllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdpbllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcpbllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzpbllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsptllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdptllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcptllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzptllt scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsinv scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdinv scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcinv scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzinv scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++
++target_link_libraries(xsls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xdls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xcls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
++target_link_libraries(xzls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES} MPI::MPI_Fortran)
+
+ if ("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "GNU" AND CMAKE_Fortran_COMPILER_VERSION VERSION_GREATER_EQUAL 10)
+ set( CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -std=legacy" ) # local to this directory
+Only in ./TESTING/LIN: CMakeLists.txt.orig
diff --git a/scalapack/patches/patch-SRC_pdtrord.f b/scalapack/patches/patch-SRC_pdtrord.f
new file mode 100644
index 0000000000..872b0b5aac
--- /dev/null
+++ b/scalapack/patches/patch-SRC_pdtrord.f
@@ -0,0 +1,19 @@
+$NetBSD$
+
+upstream gcc10 build fix, commit a0f76fc0c1c16646875b454b7d6f8d9d17726b5a
+
+--- SRC/pdtrord.f.orig 2021-10-12 19:09:12.000000000 +0000
++++ SRC/pdtrord.f
+@@ -487,10 +487,10 @@
+ MMAX( 1 ) = M
+ MMIN( 1 ) = M
+ IF( NPROCS.GT.1 )
+- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX, 1, -1,
++ $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX( 1 ), 1, -1,
+ $ -1, -1, -1, -1 )
+ IF( NPROCS.GT.1 )
+- $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN, 1, -1,
++ $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN( 1 ), 1, -1,
+ $ -1, -1, -1, -1 )
+ IF( MMAX( 1 ).GT.MMIN( 1 ) ) THEN
+ M = MMAX( 1 )
diff --git a/scalapack/patches/patch-SRC_pstrord.f b/scalapack/patches/patch-SRC_pstrord.f
new file mode 100644
index 0000000000..1a86d3e60f
--- /dev/null
+++ b/scalapack/patches/patch-SRC_pstrord.f
@@ -0,0 +1,19 @@
+$NetBSD$
+
+upstream gcc10 build fix, commit a0f76fc0c1c16646875b454b7d6f8d9d17726b5a
+
+--- SRC/pstrord.f.orig 2021-10-12 19:09:12.000000000 +0000
++++ SRC/pstrord.f
+@@ -487,10 +487,10 @@
+ MMAX( 1 ) = M
+ MMIN( 1 ) = M
+ IF( NPROCS.GT.1 )
+- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX, 1, -1,
++ $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX( 1 ), 1, -1,
+ $ -1, -1, -1, -1 )
+ IF( NPROCS.GT.1 )
+- $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN, 1, -1,
++ $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN( 1 ), 1, -1,
+ $ -1, -1, -1, -1 )
+ IF( MMAX( 1 ).GT.MMIN( 1 ) ) THEN
+ M = MMAX( 1 )
diff --git a/scalapack/patches/patch-SRC_pstrsen.f b/scalapack/patches/patch-SRC_pstrsen.f
new file mode 100644
index 0000000000..784f16745c
--- /dev/null
+++ b/scalapack/patches/patch-SRC_pstrsen.f
@@ -0,0 +1,22 @@
+$NetBSD$
+
+upstream gcc10 build fix, commit a0f76fc0c1c16646875b454b7d6f8d9d17726b5a
+
+--- SRC/pstrsen.f.orig 2021-10-12 19:09:12.000000000 +0000
++++ SRC/pstrsen.f
+@@ -526,11 +526,11 @@
+ MMAX( 1 ) = M
+ MMIN( 1 ) = M
+ IF( NPROCS.GT.1 )
+- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX, 1, -1,
+- $ -1, -1, -1, -1 )
++ $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX( 1 ), 1, -1,
++ $ -1, -1, -1, -1 )
+ IF( NPROCS.GT.1 )
+- $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN, 1, -1,
+- $ -1, -1, -1, -1 )
++ $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN( 1 ), 1, -1,
++ $ -1, -1, -1, -1 )
+ IF( MMAX( 1 ).GT.MMIN( 1 ) ) THEN
+ M = MMAX( 1 )
+ IF( NPROCS.GT.1 )
diff --git a/scalapack/patches/patch-gcc10fixfromgit b/scalapack/patches/patch-gcc10fixfromgit
deleted file mode 100644
index 6d422dea0d..0000000000
--- a/scalapack/patches/patch-gcc10fixfromgit
+++ /dev/null
@@ -1,5685 +0,0 @@
-$NetBSD$
-
-Fix build with GCC 10, according to upstream commit. A release
-after 2.1.0 should contain this.
-
-From 9c909f06cf51a3d00252323ce52aba46cc64ab41 Mon Sep 17 00:00:00 2001
-From: =?UTF-8?q?Tiziano=20M=C3=BCller?= <tiziano.mueller%chem.uzh.ch@localhost>
-Date: Thu, 25 Jun 2020 18:36:46 +0200
-Subject: [PATCH 1/2] fix argument mismatches in the SRC
-
----
- SRC/pclarf.f | 80 +++++++++++++++++-----------------
- SRC/pclarfc.f | 88 ++++++++++++++++++-------------------
- SRC/pclarz.f | 111 ++++++++++++++++++++++++-----------------------
- SRC/pclarzc.f | 115 +++++++++++++++++++++++++------------------------
- SRC/pclattrs.f | 55 +++++++++++------------
- SRC/pclawil.f | 53 +++++++++++------------
- SRC/pctrevc.f | 20 +++++----
- SRC/pdhseqr.f | 36 ++++++++--------
- SRC/pdlacon.f | 36 ++++++++--------
- SRC/pdlarf.f | 80 +++++++++++++++++-----------------
- SRC/pdlarz.f | 100 +++++++++++++++++++++---------------------
- SRC/pdlawil.f | 48 ++++++++++-----------
- SRC/pdstebz.f | 20 ++++-----
- SRC/pdtrord.f | 43 +++++++++++-------
- SRC/pdtrsen.f | 24 ++++++-----
- SRC/pshseqr.f | 36 ++++++++--------
- SRC/pslacon.f | 36 +++++++++-------
- SRC/pslarf.f | 80 +++++++++++++++++-----------------
- SRC/pslarz.f | 100 +++++++++++++++++++++---------------------
- SRC/pslawil.f | 50 +++++++++++----------
- SRC/psstebz.f | 20 ++++-----
- SRC/pstrord.f | 45 +++++++++++--------
- SRC/pstrsen.f | 22 ++++++----
- SRC/pzlarf.f | 80 +++++++++++++++++-----------------
- SRC/pzlarfc.f | 88 ++++++++++++++++++-------------------
- SRC/pzlarz.f | 103 +++++++++++++++++++++----------------------
- SRC/pzlarzc.f | 111 ++++++++++++++++++++++++-----------------------
- SRC/pzlattrs.f | 55 +++++++++++------------
- SRC/pzlawil.f | 49 +++++++++++----------
- SRC/pztrevc.f | 20 +++++----
- 30 files changed, 927 insertions(+), 877 deletions(-)
-
-diff --git a/SRC/pclarf.f b/SRC/pclarf.f
-index f941e46..371f710 100644
---- SRC/pclarf.f
-+++ SRC/pclarf.f
-@@ -242,7 +242,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- $ IOFFV, IPW, IROFF, IVCOL, IVROW, JJC, JJV, LDC,
- $ LDV, MYCOL, MYROW, MP, NCC, NCV, NPCOL, NPROW,
- $ NQ, RDEST
-- COMPLEX TAULOC
-+ COMPLEX TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, CCOPY, CGEBR2D, CGEBS2D,
-@@ -336,7 +336,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL CGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -345,7 +345,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -363,8 +363,8 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -379,9 +379,9 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYCOL.EQ.ICCOL ) THEN
- *
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -398,7 +398,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL CGERC( MP, NQ, -TAULOC, V( IOFFV ), 1,
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), V( IOFFV ), 1,
- $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -421,9 +421,9 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = MP+1
- CALL CGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -441,7 +441,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK, 1,
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -471,7 +471,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL CGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -480,7 +480,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -500,8 +500,8 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( IOFFC.GT.0 )
-- $ CALL CGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -516,18 +516,18 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( JJV )
- CALL CGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
- IPW = MP+1
- CALL CGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -547,8 +547,8 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( IOFFC.GT.0 )
-- $ CALL CGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -577,9 +577,9 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYROW.EQ.ICROW ) THEN
- *
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -597,7 +597,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - w * v'
- *
- IF( IOFFV.GT.0 .AND. IOFFC.GT.0 )
-- $ CALL CGERC( MP, NQ, -TAULOC, WORK, 1,
-+ $ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC ),
- $ LDC )
- END IF
-@@ -621,9 +621,9 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = NQ+1
- CALL CGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -641,8 +641,8 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -667,7 +667,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL CGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -676,7 +676,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -694,8 +694,8 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -720,18 +720,18 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( IIV )
- CALL CGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
- IPW = NQ+1
- CALL CGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -750,8 +750,8 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - w * v'
- *
- IF( IOFFC.GT.0 )
-- $ CALL CGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -770,7 +770,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL CGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -779,7 +779,7 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -797,8 +797,8 @@ SUBROUTINE PCLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK, 1,
-- $ C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pclarfc.f b/SRC/pclarfc.f
-index d6a2d3b..f84c493 100644
---- SRC/pclarfc.f
-+++ SRC/pclarfc.f
-@@ -242,7 +242,7 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- $ IOFFV, IPW, IROFF, IVCOL, IVROW, JJC, JJV, LDC,
- $ LDV, MYCOL, MYROW, MP, NCC, NCV, NPCOL, NPROW,
- $ NQ, RDEST
-- COMPLEX TAULOC
-+ COMPLEX TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, CCOPY, CGEBR2D, CGEBS2D,
-@@ -336,17 +336,17 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL CGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = CONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = CONJG( TAU( IIV ) )
- *
- ELSE
- *
- CALL CGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAULOC, 1, IVROW, MYCOL )
-- TAULOC = CONJG( TAULOC )
-+ TAULOC( 1 ) = CONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -364,8 +364,8 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -380,9 +380,9 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYCOL.EQ.ICCOL ) THEN
- *
-- TAULOC = CONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = CONJG( TAU( JJV ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -399,7 +399,7 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL CGERC( MP, NQ, -TAULOC, V( IOFFV ), 1,
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), V( IOFFV ), 1,
- $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -422,9 +422,9 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = MP+1
- CALL CGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = CONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = CONJG( WORK( IPW ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -442,7 +442,7 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK, 1,
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -472,17 +472,17 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL CGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = CONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = CONJG( TAU( IIV ) )
- *
- ELSE
- *
- CALL CGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, TAULOC,
- $ 1, IVROW, MYCOL )
-- TAULOC = CONJG( TAULOC )
-+ TAULOC( 1 ) = CONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -500,8 +500,8 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ), 1,
-- $ C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -516,18 +516,18 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( JJV )
- CALL CGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = CONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = CONJG( TAU( JJV ) )
- *
- ELSE
- *
- IPW = MP+1
- CALL CGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = CONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = CONJG( WORK( IPW ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -545,8 +545,8 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ), 1,
-- $ C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -575,9 +575,9 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYROW.EQ.ICROW ) THEN
- *
-- TAULOC = CONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = CONJG( TAU( IIV ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -594,7 +594,7 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK, 1,
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC ), LDC )
- END IF
- *
-@@ -617,9 +617,9 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = NQ+1
- CALL CGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = CONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = CONJG( WORK( IPW ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -637,8 +637,8 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -663,17 +663,17 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL CGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = CONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = CONJG( TAU( JJV ) )
- *
- ELSE
- *
- CALL CGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1, TAULOC,
- $ 1, MYROW, IVCOL )
-- TAULOC = CONJG( TAULOC )
-+ TAULOC( 1 ) = CONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -691,8 +691,8 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -716,18 +716,18 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( IIV )
- CALL CGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = CONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = CONJG( TAU( IIV ) )
- *
- ELSE
- *
- IPW = NQ+1
- CALL CGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = CONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = CONJG( WORK( IPW ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -745,8 +745,8 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK, 1,
-- $ C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -765,17 +765,17 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL CGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = CONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = CONJG( TAU( JJV ) )
- *
- ELSE
- *
- CALL CGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1, TAULOC, 1,
- $ MYROW, IVCOL )
-- TAULOC = CONJG( TAULOC )
-+ TAULOC( 1 ) = CONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -793,8 +793,8 @@ SUBROUTINE PCLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK, 1,
-- $ C( IOFFC ), LDC )
-+ CALL CGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pclarz.f b/SRC/pclarz.f
-index 9ba730c..673860a 100644
---- SRC/pclarz.f
-+++ SRC/pclarz.f
-@@ -251,7 +251,7 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ IVCOL, IVROW, JJC1, JJC2, JJV, LDC, LDV, MPC2,
- $ MPV, MYCOL, MYROW, NCC, NCV, NPCOL, NPROW,
- $ NQC2, NQV, RDEST
-- COMPLEX TAULOC
-+ COMPLEX TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, CAXPY, CCOPY, CGEBR2D,
-@@ -370,7 +370,7 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL CGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -379,7 +379,7 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -402,9 +402,9 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -420,9 +420,9 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYCOL.EQ.ICCOL2 ) THEN
- *
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -445,11 +445,11 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK,
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK,
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, V( IOFFV ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), V( IOFFV ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -471,9 +471,9 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = MPV+1
- CALL CGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -496,10 +496,10 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -530,16 +530,16 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL CGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-- CALL CGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, TAULOC,
-- $ 1, IVROW, MYCOL )
-+ CALL CGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1,
-+ $ TAULOC( 1 ), 1, IVROW, MYCOL )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -562,10 +562,10 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -580,18 +580,18 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( JJV )
- CALL CGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
- IPW = MPV+1
- CALL CGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -614,10 +614,10 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -646,9 +646,9 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYROW.EQ.ICROW2 ) THEN
- *
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -669,13 +669,13 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ ICCOL2 )
- *
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK, 1,
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK, 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
- IF( MPC2.GT.0 .AND. NQV.GT.0 )
-- $ CALL CGERC( MPC2, NQV, -TAULOC, WORK, 1,
-+ $ CALL CGERC( MPC2, NQV, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC2 ),
- $ LDC )
- END IF
-@@ -699,9 +699,9 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = NQV+1
- CALL CGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -720,13 +720,14 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ),
- $ RDEST, ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-- $ C( IOFFC1 ), 1 )
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPC2, NQV, -TAULOC( 1 ),
-+ $ WORK( IPW ), 1, WORK, 1,
-+ $ C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -751,16 +752,16 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL CGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-- CALL CGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1, TAULOC,
-- $ 1, MYROW, IVCOL )
-+ CALL CGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1,
-+ $ TAULOC( 1 ), 1, MYROW, IVCOL )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -779,13 +780,13 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -809,18 +810,18 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( IIV )
- CALL CGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
- IPW = NQV+1
- CALL CGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -840,13 +841,13 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -865,7 +866,7 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL CGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -874,7 +875,7 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -893,13 +894,13 @@ SUBROUTINE PCLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pclarzc.f b/SRC/pclarzc.f
-index f1bc21e..b6d3b6d 100644
---- SRC/pclarzc.f
-+++ SRC/pclarzc.f
-@@ -251,7 +251,7 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ IVCOL, IVROW, JJC1, JJC2, JJV, LDC, LDV, MPC2,
- $ MPV, MYCOL, MYROW, NCC, NCV, NPCOL, NPROW,
- $ NQC2, NQV, RDEST
-- COMPLEX TAULOC
-+ COMPLEX TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, CAXPY, CCOPY, CGEBR2D,
-@@ -370,17 +370,17 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL CGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = CONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = CONJG( TAU( IIV ) )
- *
- ELSE
- *
- CALL CGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAULOC, 1, IVROW, MYCOL )
-- TAULOC = CONJG( TAULOC )
-+ TAULOC( 1 ) = CONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -403,9 +403,9 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -421,9 +421,9 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYCOL.EQ.ICCOL2 ) THEN
- *
-- TAULOC = CONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = CONJG( TAU( JJV ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -446,11 +446,11 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK,
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK,
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, V( IOFFV ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), V( IOFFV ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -472,9 +472,9 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = MPV+1
- CALL CGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = CONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = CONJG( WORK( IPW ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -497,10 +497,10 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -531,17 +531,17 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL CGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = CONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = CONJG( TAU( IIV ) )
- *
- ELSE
- *
- CALL CGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, TAULOC,
- $ 1, IVROW, MYCOL )
-- TAULOC = CONJG( TAULOC )
-+ TAULOC( 1 ) = CONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -564,10 +564,10 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -582,18 +582,18 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( JJV )
- CALL CGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = CONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = CONJG( TAU( JJV ) )
- *
- ELSE
- *
- IPW = MPV+1
- CALL CGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = CONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = CONJG( WORK( IPW ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -616,10 +616,10 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL CAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL CAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL CGERC( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -648,9 +648,9 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYROW.EQ.ICROW2 ) THEN
- *
-- TAULOC = CONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = CONJG( TAU( IIV ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -671,12 +671,12 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ ICCOL2 )
- *
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK, 1,
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK, 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MPC2, NQV, -TAULOC, WORK, 1,
-+ CALL CGERC( MPC2, NQV, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -699,9 +699,9 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = NQV+1
- CALL CGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = CONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = CONJG( WORK( IPW ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -720,13 +720,14 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ),
- $ RDEST, ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-- $ C( IOFFC1 ), 1 )
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPC2, NQV, -TAULOC( 1 ),
-+ $ WORK( IPW ), 1, WORK, 1,
-+ $ C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -751,17 +752,17 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL CGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = CONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = CONJG( TAU( JJV ) )
- *
- ELSE
- *
- CALL CGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1, TAULOC,
- $ 1, MYROW, IVCOL )
-- TAULOC = CONJG( TAULOC )
-+ TAULOC( 1 ) = CONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -780,13 +781,13 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -810,18 +811,18 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( IIV )
- CALL CGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = CONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = CONJG( TAU( IIV ) )
- *
- ELSE
- *
- IPW = NQV+1
- CALL CGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = CONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = CONJG( WORK( IPW ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -841,13 +842,13 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -866,17 +867,17 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL CGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = CONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = CONJG( TAU( JJV ) )
- *
- ELSE
- *
-- CALL CGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1, TAULOC, 1,
-- $ MYROW, IVCOL )
-- TAULOC = CONJG( TAULOC )
-+ CALL CGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1,
-+ $ TAULOC( 1 ), 1, MYROW, IVCOL )
-+ TAULOC( 1 ) = CONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -895,13 +896,13 @@ SUBROUTINE PCLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL CAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL CAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL CGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL CGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pclattrs.f b/SRC/pclattrs.f
-index c744aea..0d12a8b 100644
---- SRC/pclattrs.f
-+++ SRC/pclattrs.f
-@@ -271,7 +271,8 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- $ JINC, JLAST, LDA, LDX, MB, MYCOL, MYROW, NB,
- $ NPCOL, NPROW, RSRC
- REAL BIGNUM, GROW, REC, SMLNUM, TJJ, TMAX, TSCAL,
-- $ XBND, XJ, XMAX
-+ $ XBND, XJ
-+ REAL XMAX( 1 )
- COMPLEX CSUMJ, TJJS, USCAL, XJTMP, ZDUM
- * ..
- * .. External Functions ..
-@@ -391,11 +392,11 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- * Compute a bound on the computed solution vector to see if the
- * Level 2 PBLAS routine PCTRSV can be used.
- *
-- XMAX = ZERO
-+ XMAX( 1 ) = ZERO
- CALL PCAMAX( N, ZDUM, IMAX, X, IX, JX, DESCX, 1 )
-- XMAX = CABS2( ZDUM )
-+ XMAX( 1 ) = CABS2( ZDUM )
- CALL SGSUM2D( CONTXT, 'Row', ' ', 1, 1, XMAX, 1, -1, -1 )
-- XBND = XMAX
-+ XBND = XMAX( 1 )
- *
- IF( NOTRAN ) THEN
- *
-@@ -590,16 +591,16 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- *
- * Use a Level 1 PBLAS solve, scaling intermediate results.
- *
-- IF( XMAX.GT.BIGNUM*HALF ) THEN
-+ IF( XMAX( 1 ).GT.BIGNUM*HALF ) THEN
- *
- * Scale X so that its components are less than or equal to
- * BIGNUM in absolute value.
- *
-- SCALE = ( BIGNUM*HALF ) / XMAX
-+ SCALE = ( BIGNUM*HALF ) / XMAX( 1 )
- CALL PCSSCAL( N, SCALE, X, IX, JX, DESCX, 1 )
-- XMAX = BIGNUM
-+ XMAX( 1 ) = BIGNUM
- ELSE
-- XMAX = XMAX*TWO
-+ XMAX( 1 ) = XMAX( 1 )*TWO
- END IF
- *
- IF( NOTRAN ) THEN
-@@ -651,7 +652,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCSSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- * X( J ) = CLADIV( X( J ), TJJS )
-@@ -682,7 +683,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCSSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- * X( J ) = CLADIV( X( J ), TJJS )
- * XJ = CABS1( X( J ) )
-@@ -706,7 +707,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- XJTMP = CONE
- XJ = ONE
- SCALE = ZERO
-- XMAX = ZERO
-+ XMAX( 1 ) = ZERO
- END IF
- 90 CONTINUE
- *
-@@ -715,7 +716,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- *
- IF( XJ.GT.ONE ) THEN
- REC = ONE / XJ
-- IF( CNORM( J ).GT.( BIGNUM-XMAX )*REC ) THEN
-+ IF( CNORM( J ).GT.( BIGNUM-XMAX( 1 ) )*REC ) THEN
- *
- * Scale x by 1/(2*abs(x(j))).
- *
-@@ -724,7 +725,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
- END IF
-- ELSE IF( XJ*CNORM( J ).GT.( BIGNUM-XMAX ) ) THEN
-+ ELSE IF( XJ*CNORM( J ).GT.( BIGNUM-XMAX( 1 ) ) ) THEN
- *
- * Scale x by 1/2.
- *
-@@ -743,7 +744,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCAXPY( J-1, ZDUM, A, IA, JA+J-1, DESCA, 1, X,
- $ IX, JX, DESCX, 1 )
- CALL PCAMAX( J-1, ZDUM, IMAX, X, IX, JX, DESCX, 1 )
-- XMAX = CABS1( ZDUM )
-+ XMAX( 1 ) = CABS1( ZDUM )
- CALL SGSUM2D( CONTXT, 'Row', ' ', 1, 1, XMAX, 1,
- $ -1, -1 )
- END IF
-@@ -757,7 +758,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCAXPY( N-J, ZDUM, A, IA+J, JA+J-1, DESCA, 1,
- $ X, IX+J, JX, DESCX, 1 )
- CALL PCAMAX( N-J, ZDUM, I, X, IX+J, JX, DESCX, 1 )
-- XMAX = CABS1( ZDUM )
-+ XMAX( 1 ) = CABS1( ZDUM )
- CALL SGSUM2D( CONTXT, 'Row', ' ', 1, 1, XMAX, 1,
- $ -1, -1 )
- END IF
-@@ -785,7 +786,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- END IF
- XJ = CABS1( XJTMP )
- USCAL = CMPLX( TSCAL )
-- REC = ONE / MAX( XMAX, ONE )
-+ REC = ONE / MAX( XMAX( 1 ), ONE )
- IF( CNORM( J ).GT.( BIGNUM-XJ )*REC ) THEN
- *
- * If x(j) could overflow, scale x by 1/(2*XMAX).
-@@ -820,7 +821,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCSSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- *
-@@ -924,7 +925,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCSSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- * X( J ) = CLADIV( X( J ), TJJS )
-@@ -945,7 +946,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCSSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- * X( J ) = CLADIV( X( J ), TJJS )
- XJTMP = CLADIV( XJTMP, TJJS )
-@@ -966,7 +967,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- END IF
- XJTMP = CONE
- SCALE = ZERO
-- XMAX = ZERO
-+ XMAX( 1 ) = ZERO
- END IF
- 110 CONTINUE
- ELSE
-@@ -981,7 +982,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- X( IROWX ) = XJTMP
- END IF
- END IF
-- XMAX = MAX( XMAX, CABS1( XJTMP ) )
-+ XMAX( 1 ) = MAX( XMAX( 1 ), CABS1( XJTMP ) )
- 120 CONTINUE
- *
- ELSE
-@@ -1004,7 +1005,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- END IF
- XJ = CABS1( XJTMP )
- USCAL = TSCAL
-- REC = ONE / MAX( XMAX, ONE )
-+ REC = ONE / MAX( XMAX( 1 ), ONE )
- IF( CNORM( J ).GT.( BIGNUM-XJ )*REC ) THEN
- *
- * If x(j) could overflow, scale x by 1/(2*XMAX).
-@@ -1039,7 +1040,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCSSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- *
-@@ -1145,7 +1146,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCSSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- * X( J ) = CLADIV( X( J ), TJJS )
-@@ -1164,7 +1165,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PCSSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- * X( J ) = CLADIV( X( J ), TJJS )
- XJTMP = CLADIV( XJTMP, TJJS )
-@@ -1181,7 +1182,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- $ X( IROWX ) = CONE
- XJTMP = CONE
- SCALE = ZERO
-- XMAX = ZERO
-+ XMAX( 1 ) = ZERO
- END IF
- 130 CONTINUE
- ELSE
-@@ -1194,7 +1195,7 @@ SUBROUTINE PCLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- IF( ( MYROW.EQ.ITMP1X ) .AND. ( MYCOL.EQ.ITMP2X ) )
- $ X( IROWX ) = XJTMP
- END IF
-- XMAX = MAX( XMAX, CABS1( XJTMP ) )
-+ XMAX( 1 ) = MAX( XMAX( 1 ), CABS1( XJTMP ) )
- 140 CONTINUE
- END IF
- SCALE = SCALE / TSCAL
-diff --git a/SRC/pclawil.f b/SRC/pclawil.f
-index 24a49b9..b33b3b1 100644
---- SRC/pclawil.f
-+++ SRC/pclawil.f
-@@ -124,11 +124,10 @@ SUBROUTINE PCLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- $ MODKM1, MYCOL, MYROW, NPCOL, NPROW, NUM, RIGHT,
- $ RSRC, UP
- REAL S
-- COMPLEX CDUM, H11, H12, H21, H22, H33S, H44S, V1, V2,
-- $ V3
-+ COMPLEX CDUM, H22, H33S, H44S, V1, V2
- * ..
- * .. Local Arrays ..
-- COMPLEX BUF( 4 )
-+ COMPLEX BUF( 4 ), V3( 1 ), H11( 1 ), H12( 1 ), H21( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, INFOG2L, CGERV2D, CGESD2D
-@@ -181,18 +180,18 @@ SUBROUTINE PCLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( NPCOL.GT.1 ) THEN
- CALL CGERV2D( CONTXT, 1, 1, V3, 1, MYROW, LEFT )
- ELSE
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- IF( NUM.GT.1 ) THEN
- CALL CGERV2D( CONTXT, 4, 1, BUF, 4, UP, LEFT )
-- H11 = BUF( 1 )
-- H21 = BUF( 2 )
-- H12 = BUF( 3 )
-+ H11( 1 ) = BUF( 1 )
-+ H21( 1 ) = BUF( 2 )
-+ H12( 1 ) = BUF( 3 )
- H22 = BUF( 4 )
- ELSE
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
- END IF
- END IF
-@@ -223,22 +222,22 @@ SUBROUTINE PCLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- CALL INFOG2L( M+2, M+2, DESCA, NPROW, NPCOL, MYROW, MYCOL,
- $ IROW, ICOL, RSRC, JSRC )
- IF( NUM.GT.1 ) THEN
-- CALL CGERV2D( CONTXT, 1, 1, H11, 1, UP, LEFT )
-+ CALL CGERV2D( CONTXT, 1, 1, H11( 1 ), 1, UP, LEFT )
- ELSE
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
- END IF
- IF( NPROW.GT.1 ) THEN
- CALL CGERV2D( CONTXT, 1, 1, H12, 1, UP, MYCOL )
- ELSE
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- END IF
- IF( NPCOL.GT.1 ) THEN
-- CALL CGERV2D( CONTXT, 1, 1, H21, 1, MYROW, LEFT )
-+ CALL CGERV2D( CONTXT, 1, 1, H21( 1 ), 1, MYROW, LEFT )
- ELSE
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
- END IF
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- END IF
- IF( ( MYROW.NE.II ) .OR. ( MYCOL.NE.JJ ) )
-@@ -247,24 +246,24 @@ SUBROUTINE PCLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( MODKM1.GT.1 ) THEN
- CALL INFOG2L( M+2, M+2, DESCA, NPROW, NPCOL, MYROW, MYCOL,
- $ IROW, ICOL, RSRC, JSRC )
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- *
-- H44S = H44 - H11
-- H33S = H33 - H11
-- V1 = ( H33S*H44S-H43H34 ) / H21 + H12
-- V2 = H22 - H11 - H33S - H44S
-- S = CABS1( V1 ) + CABS1( V2 ) + CABS1( V3 )
-+ H44S = H44 - H11( 1 )
-+ H33S = H33 - H11( 1 )
-+ V1 = ( H33S*H44S-H43H34 ) / H21( 1 ) + H12( 1 )
-+ V2 = H22 - H11( 1 ) - H33S - H44S
-+ S = CABS1( V1 ) + CABS1( V2 ) + CABS1( V3( 1 ) )
- V1 = V1 / S
- V2 = V2 / S
-- V3 = V3 / S
-+ V3( 1 ) = V3( 1 ) / S
- V( 1 ) = V1
- V( 2 ) = V2
-- V( 3 ) = V3
-+ V( 3 ) = V3( 1 )
- *
- RETURN
- *
-diff --git a/SRC/pctrevc.f b/SRC/pctrevc.f
-index d0a3043..bf6c52b 100644
---- SRC/pctrevc.f
-+++ SRC/pctrevc.f
-@@ -218,11 +218,12 @@ SUBROUTINE PCTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- $ ITMP2, J, K, KI, LDT, LDVL, LDVR, LDW, MB,
- $ MYCOL, MYROW, NB, NPCOL, NPROW, RSRC
- REAL SELF
-- REAL OVFL, REMAXD, SCALE, SMIN, SMLNUM, ULP, UNFL
-+ REAL OVFL, REMAXD, SCALE, SMLNUM, ULP, UNFL
- COMPLEX CDUM, REMAXC, SHIFT
- * ..
- * .. Local Arrays ..
- INTEGER DESCW( DLEN_ )
-+ REAL SMIN( 1 )
- * ..
- * .. External Functions ..
- LOGICAL LSAME
-@@ -355,13 +356,13 @@ SUBROUTINE PCTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- $ GO TO 70
- END IF
- *
-- SMIN = ZERO
-+ SMIN( 1 ) = ZERO
- SHIFT = CZERO
- CALL INFOG2L( KI, KI, DESCT, NPROW, NPCOL, MYROW, MYCOL,
- $ IROW, ICOL, ITMP1, ITMP2 )
- IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
- SHIFT = T( ( ICOL-1 )*LDT+IROW )
-- SMIN = MAX( ULP*( CABS1( SHIFT ) ), SMLNUM )
-+ SMIN( 1 ) = MAX( ULP*( CABS1( SHIFT ) ), SMLNUM )
- END IF
- CALL SGSUM2D( CONTXT, 'ALL', ' ', 1, 1, SMIN, 1, -1, -1 )
- CALL CGSUM2D( CONTXT, 'ALL', ' ', 1, 1, SHIFT, 1, -1, -1 )
-@@ -396,8 +397,9 @@ SUBROUTINE PCTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
- T( ( ICOL-1 )*LDT+IROW ) = T( ( ICOL-1 )*LDT+IROW ) -
- $ SHIFT
-- IF( CABS1( T( ( ICOL-1 )*LDT+IROW ) ).LT.SMIN ) THEN
-- T( ( ICOL-1 )*LDT+IROW ) = CMPLX( SMIN )
-+ IF( CABS1( T( ( ICOL-1 )*LDT+IROW ) ).LT.SMIN( 1 ) )
-+ $ THEN
-+ T( ( ICOL-1 )*LDT+IROW ) = CMPLX( SMIN( 1 ) )
- END IF
- END IF
- 50 CONTINUE
-@@ -467,13 +469,13 @@ SUBROUTINE PCTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- $ GO TO 110
- END IF
- *
-- SMIN = ZERO
-+ SMIN( 1 ) = ZERO
- SHIFT = CZERO
- CALL INFOG2L( KI, KI, DESCT, NPROW, NPCOL, MYROW, MYCOL,
- $ IROW, ICOL, ITMP1, ITMP2 )
- IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
- SHIFT = T( ( ICOL-1 )*LDT+IROW )
-- SMIN = MAX( ULP*( CABS1( SHIFT ) ), SMLNUM )
-+ SMIN( 1 ) = MAX( ULP*( CABS1( SHIFT ) ), SMLNUM )
- END IF
- CALL SGSUM2D( CONTXT, 'ALL', ' ', 1, 1, SMIN, 1, -1, -1 )
- CALL CGSUM2D( CONTXT, 'ALL', ' ', 1, 1, SHIFT, 1, -1, -1 )
-@@ -507,8 +509,8 @@ SUBROUTINE PCTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
- T( ( ICOL-1 )*LDT+IROW ) = T( ( ICOL-1 )*LDT+IROW ) -
- $ SHIFT
-- IF( CABS1( T( ( ICOL-1 )*LDT+IROW ) ).LT.SMIN )
-- $ T( ( ICOL-1 )*LDT+IROW ) = CMPLX( SMIN )
-+ IF( CABS1( T( ( ICOL-1 )*LDT+IROW ) ).LT.SMIN( 1 ) )
-+ $ T( ( ICOL-1 )*LDT+IROW ) = CMPLX( SMIN( 1 ) )
- END IF
- 90 CONTINUE
- *
-diff --git a/SRC/pdhseqr.f b/SRC/pdhseqr.f
-index ffc3652..6e0f751 100644
---- SRC/pdhseqr.f
-+++ SRC/pdhseqr.f
-@@ -259,11 +259,12 @@ SUBROUTINE PDHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
- $ HRSRC4, HCSRC4, LIWKOPT
- LOGICAL INITZ, LQUERY, WANTT, WANTZ, PAIR, BORDER
- DOUBLE PRECISION TMP1, TMP2, TMP3, TMP4, DUM1, DUM2, DUM3,
-- $ DUM4, ELEM1, ELEM2, ELEM3, ELEM4,
-+ $ DUM4, ELEM1, ELEM4,
- $ CS, SN, ELEM5, TMP, LWKOPT
- * ..
- * .. Local Arrays ..
- INTEGER DESCH2( DLEN_ )
-+ DOUBLE PRECISION ELEM2( 1 ), ELEM3( 1 )
- * ..
- * .. External Functions ..
- INTEGER PILAENVX, NUMROC, ICEIL
-@@ -566,28 +567,28 @@ SUBROUTINE PDHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
- IF( MYROW.EQ.HRSRC1 .AND. MYCOL.EQ.HCSRC1 ) THEN
- ELEM1 = H((JLOC1-1)*LLDH+ILOC1)
- IF( K.LT.N ) THEN
-- ELEM3 = H((JLOC1-1)*LLDH+ILOC1+1)
-+ ELEM3( 1 ) = H((JLOC1-1)*LLDH+ILOC1+1)
- ELSE
-- ELEM3 = ZERO
-+ ELEM3( 1 ) = ZERO
- END IF
-- IF( ELEM3.NE.ZERO ) THEN
-- ELEM2 = H((JLOC1)*LLDH+ILOC1)
-+ IF( ELEM3( 1 ).NE.ZERO ) THEN
-+ ELEM2( 1 ) = H((JLOC1)*LLDH+ILOC1)
- ELEM4 = H((JLOC1)*LLDH+ILOC1+1)
-- CALL DLANV2( ELEM1, ELEM2, ELEM3, ELEM4,
-- $ WR( K ), WI( K ), WR( K+1 ), WI( K+1 ),
-- $ SN, CS )
-+ CALL DLANV2( ELEM1, ELEM2( 1 ), ELEM3( 1 ),
-+ $ ELEM4, WR( K ), WI( K ), WR( K+1 ),
-+ $ WI( K+1 ), SN, CS )
- PAIR = .TRUE.
- ELSE
- IF( K.GT.1 ) THEN
- TMP = H((JLOC1-2)*LLDH+ILOC1)
- IF( TMP.NE.ZERO ) THEN
- ELEM1 = H((JLOC1-2)*LLDH+ILOC1-1)
-- ELEM2 = H((JLOC1-1)*LLDH+ILOC1-1)
-- ELEM3 = H((JLOC1-2)*LLDH+ILOC1)
-+ ELEM2( 1 ) = H((JLOC1-1)*LLDH+ILOC1-1)
-+ ELEM3( 1 ) = H((JLOC1-2)*LLDH+ILOC1)
- ELEM4 = H((JLOC1-1)*LLDH+ILOC1)
-- CALL DLANV2( ELEM1, ELEM2, ELEM3,
-- $ ELEM4, WR( K-1 ), WI( K-1 ),
-- $ WR( K ), WI( K ), SN, CS )
-+ CALL DLANV2( ELEM1, ELEM2( 1 ),
-+ $ ELEM3( 1 ), ELEM4, WR( K-1 ),
-+ $ WI( K-1 ), WR( K ), WI( K ), SN, CS )
- ELSE
- WR( K ) = ELEM1
- END IF
-@@ -620,12 +621,12 @@ SUBROUTINE PDHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
- CALL INFOG2L( K+1, K+1, DESCH, NPROW, NPCOL, MYROW, MYCOL,
- $ ILOC4, JLOC4, HRSRC4, HCSRC4 )
- IF( MYROW.EQ.HRSRC2 .AND. MYCOL.EQ.HCSRC2 ) THEN
-- ELEM2 = H((JLOC2-1)*LLDH+ILOC2)
-+ ELEM2( 1 ) = H((JLOC2-1)*LLDH+ILOC2)
- IF( HRSRC1.NE.HRSRC2 .OR. HCSRC1.NE.HCSRC2 )
- $ CALL DGESD2D( ICTXT, 1, 1, ELEM2, 1, HRSRC1, HCSRC1)
- END IF
- IF( MYROW.EQ.HRSRC3 .AND. MYCOL.EQ.HCSRC3 ) THEN
-- ELEM3 = H((JLOC3-1)*LLDH+ILOC3)
-+ ELEM3( 1 ) = H((JLOC3-1)*LLDH+ILOC3)
- IF( HRSRC1.NE.HRSRC3 .OR. HCSRC1.NE.HCSRC3 )
- $ CALL DGESD2D( ICTXT, 1, 1, ELEM3, 1, HRSRC1, HCSRC1)
- END IF
-@@ -651,8 +652,9 @@ SUBROUTINE PDHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
- ELEM5 = WORK(2)
- IF( ELEM5.EQ.ZERO ) THEN
- IF( WR( K ).EQ.ZERO .AND. WI( K ).EQ.ZERO ) THEN
-- CALL DLANV2( ELEM1, ELEM2, ELEM3, ELEM4, WR( K ),
-- $ WI( K ), WR( K+1 ), WI( K+1 ), SN, CS )
-+ CALL DLANV2( ELEM1, ELEM2( 1 ), ELEM3( 1 ), ELEM4,
-+ $ WR( K ), WI( K ), WR( K+1 ), WI( K+1 ), SN,
-+ $ CS )
- ELSEIF( WR( K+1 ).EQ.ZERO .AND. WI( K+1 ).EQ.ZERO )
- $ THEN
- WR( K+1 ) = ELEM4
-diff --git a/SRC/pdlacon.f b/SRC/pdlacon.f
-index b625d97..74b9eab 100644
---- SRC/pdlacon.f
-+++ SRC/pdlacon.f
-@@ -160,10 +160,10 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- INTEGER I, ICTXT, IFLAG, IIVX, IMAXROW, IOFFVX, IROFF,
- $ ITER, IVXCOL, IVXROW, J, JLAST, JJVX, JUMP,
- $ K, MYCOL, MYROW, NP, NPCOL, NPROW
-- DOUBLE PRECISION ALTSGN, ESTOLD, JLMAX, TEMP, XMAX
-+ DOUBLE PRECISION ALTSGN, ESTOLD, JLMAX, XMAX
- * ..
- * .. Local Arrays ..
-- DOUBLE PRECISION WORK( 2 )
-+ DOUBLE PRECISION ESTWORK( 1 ), TEMP( 1 ), WORK( 2 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, DCOPY, DGEBR2D, DGEBS2D,
-@@ -184,6 +184,7 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- *
- * Get grid parameters.
- *
-+ ESTWORK( 1 ) = EST
- ICTXT = DESCX( CTXT_ )
- CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
- *
-@@ -215,21 +216,21 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- IF( N.EQ.1 ) THEN
- IF( MYROW.EQ.IVXROW ) THEN
- V( IOFFVX ) = X( IOFFVX )
-- EST = ABS( V( IOFFVX ) )
-- CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1 )
-+ ESTWORK( 1 ) = ABS( V( IOFFVX ) )
-+ CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1 )
- ELSE
-- CALL DGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1,
-+ CALL DGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1,
- $ IVXROW, MYCOL )
- END IF
- * ... QUIT
- GO TO 150
- END IF
-- CALL PDASUM( N, EST, X, IX, JX, DESCX, 1 )
-+ CALL PDASUM( N, ESTWORK( 1 ), X, IX, JX, DESCX, 1 )
- IF( DESCX( M_ ).EQ.1 .AND. N.EQ.1 ) THEN
- IF( MYROW.EQ.IVXROW ) THEN
-- CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1 )
-+ CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1 )
- ELSE
-- CALL DGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1,
-+ CALL DGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1,
- $ IVXROW, MYCOL )
- END IF
- END IF
-@@ -281,13 +282,13 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- *
- 70 CONTINUE
- CALL DCOPY( NP, X( IOFFVX ), 1, V( IOFFVX ), 1 )
-- ESTOLD = EST
-- CALL PDASUM( N, EST, V, IV, JV, DESCV, 1 )
-+ ESTOLD = ESTWORK( 1 )
-+ CALL PDASUM( N, ESTWORK( 1 ), V, IV, JV, DESCV, 1 )
- IF( DESCV( M_ ).EQ.1 .AND. N.EQ.1 ) THEN
- IF( MYROW.EQ.IVXROW ) THEN
-- CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1 )
-+ CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1 )
- ELSE
-- CALL DGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1,
-+ CALL DGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1,
- $ IVXROW, MYCOL )
- END IF
- END IF
-@@ -305,7 +306,7 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- * REPEATED SIGN VECTOR DETECTED, HENCE ALGORITHM HAS CONVERGED.
- * ALONG WITH IT, TEST FOR CYCLING.
- *
-- IF( IFLAG.EQ.0 .OR. EST.LE.ESTOLD )
-+ IF( IFLAG.EQ.0 .OR. ESTWORK( 1 ).LE.ESTOLD )
- $ GO TO 120
- *
- DO 100 I = IOFFVX, IOFFVX+NP-1
-@@ -361,7 +362,7 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- * X HAS BEEN OVERWRITTEN BY A*X
- *
- 140 CONTINUE
-- CALL PDASUM( N, TEMP, X, IX, JX, DESCX, 1 )
-+ CALL PDASUM( N, TEMP( 1 ), X, IX, JX, DESCX, 1 )
- IF( DESCX( M_ ).EQ.1 .AND. N.EQ.1 ) THEN
- IF( MYROW.EQ.IVXROW ) THEN
- CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, TEMP, 1 )
-@@ -370,15 +371,16 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- $ IVXROW, MYCOL )
- END IF
- END IF
-- TEMP = TWO*( TEMP / DBLE( 3*N ) )
-- IF( TEMP.GT.EST ) THEN
-+ TEMP( 1 ) = TWO*( TEMP( 1 ) / DBLE( 3*N ) )
-+ IF( TEMP( 1 ).GT.ESTWORK( 1 ) ) THEN
- CALL DCOPY( NP, X( IOFFVX ), 1, V( IOFFVX ), 1 )
-- EST = TEMP
-+ ESTWORK( 1 ) = TEMP( 1 )
- END IF
- *
- 150 CONTINUE
- KASE = 0
- *
-+ EST = ESTWORK( 1 )
- RETURN
- *
- * End of PDLACON
-diff --git a/SRC/pdlarf.f b/SRC/pdlarf.f
-index 29da1ac..41368d6 100644
---- SRC/pdlarf.f
-+++ SRC/pdlarf.f
-@@ -241,7 +241,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- $ IOFFV, IPW, IROFF, IVCOL, IVROW, JJC, JJV, LDC,
- $ LDV, MYCOL, MYROW, MP, NCC, NCV, NPCOL, NPROW,
- $ NQ, RDEST
-- DOUBLE PRECISION TAULOC
-+ DOUBLE PRECISION TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, DCOPY, DGEBR2D, DGEBS2D,
-@@ -335,7 +335,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -344,7 +344,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -362,8 +362,8 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL DGER( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ CALL DGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -378,9 +378,9 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYCOL.EQ.ICCOL ) THEN
- *
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -397,8 +397,8 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL DGER( MP, NQ, -TAULOC, V( IOFFV ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ CALL DGER( MP, NQ, -TAULOC( 1 ), V( IOFFV ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -420,9 +420,9 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = MP+1
- CALL DGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -440,7 +440,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL DGER( MP, NQ, -TAULOC, WORK, 1,
-+ CALL DGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -470,7 +470,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -479,7 +479,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -499,8 +499,8 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( IOFFC.GT.0 )
-- $ CALL DGER( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL DGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -515,18 +515,18 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( JJV )
- CALL DGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
- IPW = MP+1
- CALL DGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -546,8 +546,8 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( IOFFC.GT.0 )
-- $ CALL DGER( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL DGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -576,9 +576,9 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYROW.EQ.ICROW ) THEN
- *
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -596,7 +596,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - w * v'
- *
- IF( IOFFV.GT.0 .AND. IOFFC.GT.0 )
-- $ CALL DGER( MP, NQ, -TAULOC, WORK, 1,
-+ $ CALL DGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC ), LDC )
- END IF
- *
-@@ -619,9 +619,9 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = NQ+1
- CALL DGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -639,7 +639,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL DGER( MP, NQ, -TAULOC, WORK( IPW ), 1,
-+ CALL DGER( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
- $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -665,7 +665,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL DGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -674,7 +674,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -692,8 +692,8 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL DGER( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ CALL DGER( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -718,18 +718,18 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( IIV )
- CALL DGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
- IPW = NQ+1
- CALL DGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -748,8 +748,8 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - w * v'
- *
- IF( IOFFC.GT.0 )
-- $ CALL DGER( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL DGER( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -768,7 +768,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL DGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -777,7 +777,7 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -795,8 +795,8 @@ SUBROUTINE PDLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL DGER( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK, 1,
-- $ C( IOFFC ), LDC )
-+ CALL DGER( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1, WORK,
-+ $ 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pdlarz.f b/SRC/pdlarz.f
-index b91282c..f45c137 100644
---- SRC/pdlarz.f
-+++ SRC/pdlarz.f
-@@ -250,7 +250,7 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ IVCOL, IVROW, JJC1, JJC2, JJV, LDC, LDV, MPC2,
- $ MPV, MYCOL, MYROW, NCC, NCV, NPCOL, NPROW,
- $ NQC2, NQV, RDEST
-- DOUBLE PRECISION TAULOC
-+ DOUBLE PRECISION TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, DAXPY, DCOPY, DGEBR2D,
-@@ -369,7 +369,7 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -378,7 +378,7 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -401,9 +401,9 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL DAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL DAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL DGER( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL DGER( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -419,9 +419,9 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYCOL.EQ.ICCOL2 ) THEN
- *
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -444,11 +444,11 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL DAXPY( NQC2, -TAULOC, WORK,
-+ $ CALL DAXPY( NQC2, -TAULOC( 1 ), WORK,
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL DGER( MPV, NQC2, -TAULOC, V( IOFFV ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL DGER( MPV, NQC2, -TAULOC( 1 ), V( IOFFV ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -470,9 +470,9 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = MPV+1
- CALL DGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -495,10 +495,10 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL DAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL DAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL DGER( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL DGER( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -529,7 +529,7 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL DGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -538,7 +538,7 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -561,10 +561,10 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL DAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL DAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL DGER( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL DGER( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -579,18 +579,18 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( JJV )
- CALL DGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
- IPW = MPV+1
- CALL DGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -613,10 +613,10 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL DAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL DAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL DGER( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL DGER( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -645,9 +645,9 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYROW.EQ.ICROW2 ) THEN
- *
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -668,13 +668,13 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ ICCOL2 )
- *
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL DAXPY( MPC2, -TAULOC, WORK, 1,
-+ $ CALL DAXPY( MPC2, -TAULOC( 1 ), WORK, 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
- IF( MPC2.GT.0 .AND. NQV.GT.0 )
-- $ CALL DGER( MPC2, NQV, -TAULOC, WORK, 1,
-+ $ CALL DGER( MPC2, NQV, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC2 ),
- $ LDC )
- END IF
-@@ -698,9 +698,9 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = NQV+1
- CALL DGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -719,13 +719,13 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ),
- $ RDEST, ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL DAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-- $ C( IOFFC1 ), 1 )
-+ $ CALL DAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL DGER( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL DGER( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -750,7 +750,7 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL DGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -759,7 +759,7 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -778,12 +778,12 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL DAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL DAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL DGER( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-+ CALL DGER( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
- $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -808,18 +808,18 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( IIV )
- CALL DGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
- IPW = NQV+1
- CALL DGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -839,13 +839,13 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL DAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL DAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL DGER( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL DGER( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -864,7 +864,7 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL DGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -873,7 +873,7 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -892,13 +892,13 @@ SUBROUTINE PDLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL DAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL DAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL DGER( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL DGER( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pdlawil.f b/SRC/pdlawil.f
-index 90a4d74..e8bc3a0 100644
---- SRC/pdlawil.f
-+++ SRC/pdlawil.f
-@@ -120,10 +120,10 @@ SUBROUTINE PDLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- INTEGER CONTXT, DOWN, HBL, ICOL, IROW, JSRC, LDA, LEFT,
- $ MODKM1, MYCOL, MYROW, NPCOL, NPROW, NUM, RIGHT,
- $ RSRC, UP
-- DOUBLE PRECISION H11, H12, H21, H22, H33S, H44S, S, V1, V2, V3
-+ DOUBLE PRECISION H22, H33S, H44S, S, V1, V2
- * ..
- * .. Local Arrays ..
-- DOUBLE PRECISION BUF( 4 )
-+ DOUBLE PRECISION BUF( 4 ), H11( 1 ), H12( 1 ), H21( 1 ), V3( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, DGERV2D, DGESD2D, INFOG2L
-@@ -170,18 +170,18 @@ SUBROUTINE PDLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( NPCOL.GT.1 ) THEN
- CALL DGERV2D( CONTXT, 1, 1, V3, 1, MYROW, LEFT )
- ELSE
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- IF( NUM.GT.1 ) THEN
- CALL DGERV2D( CONTXT, 4, 1, BUF, 4, UP, LEFT )
-- H11 = BUF( 1 )
-- H21 = BUF( 2 )
-- H12 = BUF( 3 )
-+ H11( 1 ) = BUF( 1 )
-+ H21( 1 ) = BUF( 2 )
-+ H12( 1 ) = BUF( 3 )
- H22 = BUF( 4 )
- ELSE
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
- END IF
- END IF
-@@ -214,20 +214,20 @@ SUBROUTINE PDLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( NUM.GT.1 ) THEN
- CALL DGERV2D( CONTXT, 1, 1, H11, 1, UP, LEFT )
- ELSE
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
- END IF
- IF( NPROW.GT.1 ) THEN
- CALL DGERV2D( CONTXT, 1, 1, H12, 1, UP, MYCOL )
- ELSE
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- END IF
- IF( NPCOL.GT.1 ) THEN
- CALL DGERV2D( CONTXT, 1, 1, H21, 1, MYROW, LEFT )
- ELSE
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
- END IF
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- END IF
- IF( ( MYROW.NE.II ) .OR. ( MYCOL.NE.JJ ) )
-@@ -236,24 +236,24 @@ SUBROUTINE PDLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( MODKM1.GT.1 ) THEN
- CALL INFOG2L( M+2, M+2, DESCA, NPROW, NPCOL, MYROW, MYCOL,
- $ IROW, ICOL, RSRC, JSRC )
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- *
-- H44S = H44 - H11
-- H33S = H33 - H11
-- V1 = ( H33S*H44S-H43H34 ) / H21 + H12
-- V2 = H22 - H11 - H33S - H44S
-- S = ABS( V1 ) + ABS( V2 ) + ABS( V3 )
-+ H44S = H44 - H11( 1 )
-+ H33S = H33 - H11( 1 )
-+ V1 = ( H33S*H44S-H43H34 ) / H21( 1 ) + H12( 1 )
-+ V2 = H22 - H11( 1 ) - H33S - H44S
-+ S = ABS( V1 ) + ABS( V2 ) + ABS( V3( 1 ) )
- V1 = V1 / S
- V2 = V2 / S
-- V3 = V3 / S
-+ V3( 1 ) = V3( 1 ) / S
- V( 1 ) = V1
- V( 2 ) = V2
-- V( 3 ) = V3
-+ V( 3 ) = V3( 1 )
- *
- RETURN
- *
-diff --git a/SRC/pdstebz.f b/SRC/pdstebz.f
-index e7006f9..bf4dacc 100644
---- SRC/pdstebz.f
-+++ SRC/pdstebz.f
-@@ -246,14 +246,14 @@ SUBROUTINE PDSTEBZ( ICTXT, RANGE, ORDER, N, VL, VU, IL, IU,
- $ ITMP2, J, JB, K, LAST, LEXTRA, LREQ, MYCOL,
- $ MYROW, NALPHA, NBETA, NCMP, NEIGINT, NEXT, NGL,
- $ NGLOB, NGU, NINT, NPCOL, NPROW, OFFSET,
-- $ ONEDCONTEXT, P, PREV, REXTRA, RREQ, SELF,
-- $ TORECV
-+ $ ONEDCONTEXT, P, PREV, REXTRA, RREQ, SELF
- DOUBLE PRECISION ALPHA, ATOLI, BETA, BNORM, DRECV, DSEND, GL,
- $ GU, INITVL, INITVU, LSAVE, MID, PIVMIN, RELTOL,
- $ SAFEMN, TMP1, TMP2, TNORM, ULP
- * ..
- * .. Local Arrays ..
- INTEGER IDUM( 5, 2 )
-+ INTEGER TORECV( 1, 1 )
- * ..
- * .. Executable Statements ..
- * This is just to keep ftnchek happy
-@@ -784,14 +784,14 @@ SUBROUTINE PDSTEBZ( ICTXT, RANGE, ORDER, N, VL, VU, IL, IU,
- ELSE
- CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', 1, 1, TORECV, 1, 0,
- $ I-1 )
-- IF( TORECV.NE.0 ) THEN
-- CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV, 1, IWORK,
-- $ TORECV, 0, I-1 )
-- CALL DGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV, 1, WORK,
-- $ TORECV, 0, I-1 )
-- CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV, 1,
-- $ IWORK( N+1 ), TORECV, 0, I-1 )
-- DO 120 J = 1, TORECV
-+ IF( TORECV( 1, 1 ).NE.0 ) THEN
-+ CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV( 1, 1 ), 1,
-+ $ IWORK, TORECV( 1, 1 ), 0, I-1 )
-+ CALL DGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV( 1, 1 ), 1,
-+ $ WORK, TORECV( 1, 1 ), 0, I-1 )
-+ CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV( 1, 1 ), 1,
-+ $ IWORK( N+1 ), TORECV( 1, 1 ), 0, I-1 )
-+ DO 120 J = 1, TORECV( 1, 1 )
- W( IWORK( J ) ) = WORK( J )
- IBLOCK( IWORK( J ) ) = IWORK( N+J )
- 120 CONTINUE
-diff --git a/SRC/pdtrord.f b/SRC/pdtrord.f
-index 1f37d8e..3870574 100644
---- SRC/pdtrord.f
-+++ SRC/pdtrord.f
-@@ -328,12 +328,13 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- $ EAST, WEST, ILOC4, SOUTH, NORTH, INDXS,
- $ ITT, JTT, ILEN, DLEN, INDXE, TRSRC1, TCSRC1,
- $ TRSRC2, TCSRC2, ILOS, DIR, TLIHI, TLILO, TLSEL,
-- $ ROUND, LAST, WIN0S, WIN0E, WINE, MMAX, MMIN
-+ $ ROUND, LAST, WIN0S, WIN0E, WINE
- DOUBLE PRECISION ELEM, ELEM1, ELEM2, ELEM3, ELEM4, SN, CS, TMP,
- $ ELEM5
- * ..
- * .. Local Arrays ..
-- INTEGER IBUFF( 8 ), IDUM1( 1 ), IDUM2( 1 )
-+ INTEGER IBUFF( 8 ), IDUM1( 1 ), IDUM2( 1 ), MMAX( 1 ),
-+ $ MMIN( 1 ), INFODUM( 1 )
- * ..
- * .. External Functions ..
- LOGICAL LSAME
-@@ -483,16 +484,16 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- END IF
- IF( SELECT(K).NE.0 ) M = M + 1
- 10 CONTINUE
-- MMAX = M
-- MMIN = M
-+ MMAX( 1 ) = M
-+ MMIN( 1 ) = M
- IF( NPROCS.GT.1 )
- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX, 1, -1,
- $ -1, -1, -1, -1 )
- IF( NPROCS.GT.1 )
- $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN, 1, -1,
- $ -1, -1, -1, -1 )
-- IF( MMAX.GT.MMIN ) THEN
-- M = MMAX
-+ IF( MMAX( 1 ).GT.MMIN( 1 ) ) THEN
-+ M = MMAX( 1 )
- IF( NPROCS.GT.1 )
- $ CALL IGAMX2D( ICTXT, 'All', TOP, N, 1, SELECT, N,
- $ -1, -1, -1, -1, -1 )
-@@ -520,9 +521,11 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- *
- * Global maximum on info.
- *
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1, -1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1, -1, -1,
- $ -1, -1 )
-+ INFO = INFODUM( 1 )
-+ END IF
- *
- * Return if some argument is incorrect.
- *
-@@ -1576,9 +1579,11 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- * experienced a failure in the reordering.
- *
- MYIERR = IERR
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
- $ -1, -1, -1, -1 )
-+ IERR = INFODUM( 1 )
-+ END IF
- *
- IF( IERR.NE.0 ) THEN
- *
-@@ -1586,9 +1591,11 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- * to swap.
- *
- IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
- $ -1, -1, -1, -1 )
-+ INFO = INFODUM( 1 )
-+ END IF
- GO TO 300
- END IF
- *
-@@ -3245,9 +3252,11 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- * experienced a failure in the reordering.
- *
- MYIERR = IERR
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
- $ -1, -1, -1, -1 )
-+ IERR = INFODUM( 1 )
-+ END IF
- *
- IF( IERR.NE.0 ) THEN
- *
-@@ -3255,9 +3264,11 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- * to swap.
- *
- IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
- $ -1, -1, -1, -1 )
-+ IERR = INFODUM( 1 )
-+ END IF
- GO TO 300
- END IF
- *
-diff --git a/SRC/pdtrsen.f b/SRC/pdtrsen.f
-index 78c5599..c65ea91 100644
---- SRC/pdtrsen.f
-+++ SRC/pdtrsen.f
-@@ -354,13 +354,15 @@ SUBROUTINE PDTRSEN( JOB, COMPQ, SELECT, PARA, N, T, IT, JT,
- LOGICAL LQUERY, WANTBH, WANTQ, WANTS, WANTSP
- INTEGER ICOFFT12, ICTXT, IDUM1, IDUM2, IERR, ILOC1,
- $ IPW1, ITER, ITT, JLOC1, JTT, K, LIWMIN, LLDT,
-- $ LLDQ, LWMIN, MMAX, MMIN, MYROW, MYCOL, N1, N2,
-+ $ LLDQ, LWMIN, MYROW, MYCOL, N1, N2,
- $ NB, NOEXSY, NPCOL, NPROCS, NPROW, SPACE,
- $ T12ROWS, T12COLS, TCOLS, TCSRC, TROWS, TRSRC,
- $ WRK1, IWRK1, WRK2, IWRK2, WRK3, IWRK3
-- DOUBLE PRECISION DPDUM1, ELEM, EST, SCALE, RNORM
-+ DOUBLE PRECISION ELEM, EST, SCALE, RNORM
- * .. Local Arrays ..
-- INTEGER DESCT12( DLEN_ ), MBNB2( 2 )
-+ INTEGER DESCT12( DLEN_ ), MBNB2( 2 ), MMAX( 1 ),
-+ $ MMIN( 1 )
-+ DOUBLE PRECISION DPDUM1( 1 )
- * ..
- * .. External Functions ..
- LOGICAL LSAME
-@@ -521,16 +523,16 @@ SUBROUTINE PDTRSEN( JOB, COMPQ, SELECT, PARA, N, T, IT, JT,
- END IF
- IF( SELECT(K) ) M = M + 1
- 10 CONTINUE
-- MMAX = M
-- MMIN = M
-+ MMAX( 1 ) = M
-+ MMIN( 1 ) = M
- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX, 1, -1,
-- $ -1, -1, -1, -1 )
-+ $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX( 1 ), 1,
-+ $ -1, -1, -1, -1, -1 )
- IF( NPROCS.GT.1 )
-- $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN, 1, -1,
-- $ -1, -1, -1, -1 )
-- IF( MMAX.GT.MMIN ) THEN
-- M = MMAX
-+ $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN( 1 ), 1,
-+ $ -1, -1, -1, -1, -1 )
-+ IF( MMAX( 1 ).GT.MMIN( 1 ) ) THEN
-+ M = MMAX( 1 )
- IF( NPROCS.GT.1 )
- $ CALL IGAMX2D( ICTXT, 'All', TOP, N, 1, IWORK, N,
- $ -1, -1, -1, -1, -1 )
-diff --git a/SRC/pshseqr.f b/SRC/pshseqr.f
-index 10eb24a..e8ecea9 100644
---- SRC/pshseqr.f
-+++ SRC/pshseqr.f
-@@ -259,11 +259,12 @@ SUBROUTINE PSHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
- $ HRSRC4, HCSRC4, LIWKOPT
- LOGICAL INITZ, LQUERY, WANTT, WANTZ, PAIR, BORDER
- REAL TMP1, TMP2, TMP3, TMP4, DUM1, DUM2, DUM3,
-- $ DUM4, ELEM1, ELEM2, ELEM3, ELEM4,
-+ $ DUM4, ELEM1, ELEM4,
- $ CS, SN, ELEM5, TMP, LWKOPT
- * ..
- * .. Local Arrays ..
- INTEGER DESCH2( DLEN_ )
-+ REAL ELEM2( 1 ), ELEM3( 1 )
- * ..
- * .. External Functions ..
- INTEGER PILAENVX, NUMROC, ICEIL
-@@ -566,28 +567,28 @@ SUBROUTINE PSHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
- IF( MYROW.EQ.HRSRC1 .AND. MYCOL.EQ.HCSRC1 ) THEN
- ELEM1 = H((JLOC1-1)*LLDH+ILOC1)
- IF( K.LT.N ) THEN
-- ELEM3 = H((JLOC1-1)*LLDH+ILOC1+1)
-+ ELEM3( 1 ) = H((JLOC1-1)*LLDH+ILOC1+1)
- ELSE
-- ELEM3 = ZERO
-+ ELEM3( 1 ) = ZERO
- END IF
-- IF( ELEM3.NE.ZERO ) THEN
-- ELEM2 = H((JLOC1)*LLDH+ILOC1)
-+ IF( ELEM3( 1 ).NE.ZERO ) THEN
-+ ELEM2( 1 ) = H((JLOC1)*LLDH+ILOC1)
- ELEM4 = H((JLOC1)*LLDH+ILOC1+1)
-- CALL SLANV2( ELEM1, ELEM2, ELEM3, ELEM4,
-- $ WR( K ), WI( K ), WR( K+1 ), WI( K+1 ),
-- $ SN, CS )
-+ CALL SLANV2( ELEM1, ELEM2( 1 ), ELEM3( 1 ),
-+ $ ELEM4, WR( K ), WI( K ), WR( K+1 ),
-+ $ WI( K+1 ), SN, CS )
- PAIR = .TRUE.
- ELSE
- IF( K.GT.1 ) THEN
- TMP = H((JLOC1-2)*LLDH+ILOC1)
- IF( TMP.NE.ZERO ) THEN
- ELEM1 = H((JLOC1-2)*LLDH+ILOC1-1)
-- ELEM2 = H((JLOC1-1)*LLDH+ILOC1-1)
-- ELEM3 = H((JLOC1-2)*LLDH+ILOC1)
-+ ELEM2( 1 ) = H((JLOC1-1)*LLDH+ILOC1-1)
-+ ELEM3( 1 ) = H((JLOC1-2)*LLDH+ILOC1)
- ELEM4 = H((JLOC1-1)*LLDH+ILOC1)
-- CALL SLANV2( ELEM1, ELEM2, ELEM3,
-- $ ELEM4, WR( K-1 ), WI( K-1 ),
-- $ WR( K ), WI( K ), SN, CS )
-+ CALL SLANV2( ELEM1, ELEM2( 1 ),
-+ $ ELEM3( 1 ), ELEM4, WR( K-1 ),
-+ $ WI( K-1 ), WR( K ), WI( K ), SN, CS )
- ELSE
- WR( K ) = ELEM1
- END IF
-@@ -620,12 +621,12 @@ SUBROUTINE PSHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
- CALL INFOG2L( K+1, K+1, DESCH, NPROW, NPCOL, MYROW, MYCOL,
- $ ILOC4, JLOC4, HRSRC4, HCSRC4 )
- IF( MYROW.EQ.HRSRC2 .AND. MYCOL.EQ.HCSRC2 ) THEN
-- ELEM2 = H((JLOC2-1)*LLDH+ILOC2)
-+ ELEM2( 1 ) = H((JLOC2-1)*LLDH+ILOC2)
- IF( HRSRC1.NE.HRSRC2 .OR. HCSRC1.NE.HCSRC2 )
- $ CALL SGESD2D( ICTXT, 1, 1, ELEM2, 1, HRSRC1, HCSRC1)
- END IF
- IF( MYROW.EQ.HRSRC3 .AND. MYCOL.EQ.HCSRC3 ) THEN
-- ELEM3 = H((JLOC3-1)*LLDH+ILOC3)
-+ ELEM3( 1 ) = H((JLOC3-1)*LLDH+ILOC3)
- IF( HRSRC1.NE.HRSRC3 .OR. HCSRC1.NE.HCSRC3 )
- $ CALL SGESD2D( ICTXT, 1, 1, ELEM3, 1, HRSRC1, HCSRC1)
- END IF
-@@ -651,8 +652,9 @@ SUBROUTINE PSHSEQR( JOB, COMPZ, N, ILO, IHI, H, DESCH, WR, WI, Z,
- ELEM5 = WORK(2)
- IF( ELEM5.EQ.ZERO ) THEN
- IF( WR( K ).EQ.ZERO .AND. WI( K ).EQ.ZERO ) THEN
-- CALL SLANV2( ELEM1, ELEM2, ELEM3, ELEM4, WR( K ),
-- $ WI( K ), WR( K+1 ), WI( K+1 ), SN, CS )
-+ CALL SLANV2( ELEM1, ELEM2( 1 ), ELEM3( 1 ), ELEM4,
-+ $ WR( K ), WI( K ), WR( K+1 ), WI( K+1 ), SN,
-+ $ CS )
- ELSEIF( WR( K+1 ).EQ.ZERO .AND. WI( K+1 ).EQ.ZERO )
- $ THEN
- WR( K+1 ) = ELEM4
-diff --git a/SRC/pslacon.f b/SRC/pslacon.f
-index 20d27ff..673bf1a 100644
---- SRC/pslacon.f
-+++ SRC/pslacon.f
-@@ -160,10 +160,12 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- INTEGER I, ICTXT, IFLAG, IIVX, IMAXROW, IOFFVX, IROFF,
- $ ITER, IVXCOL, IVXROW, J, JLAST, JJVX, JUMP,
- $ K, MYCOL, MYROW, NP, NPCOL, NPROW
-- REAL ALTSGN, ESTOLD, JLMAX, TEMP, XMAX
-+ REAL ALTSGN, ESTOLD, JLMAX, XMAX
- * ..
- * .. Local Arrays ..
- REAL WORK( 2 )
-+ REAL ESTWORK( 1 )
-+ REAL TEMP( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, IGSUM2D, INFOG2L, PSAMAX,
-@@ -184,6 +186,7 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- *
- * Get grid parameters.
- *
-+ ESTWORK( 1 ) = EST
- ICTXT = DESCX( CTXT_ )
- CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
- *
-@@ -215,21 +218,21 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- IF( N.EQ.1 ) THEN
- IF( MYROW.EQ.IVXROW ) THEN
- V( IOFFVX ) = X( IOFFVX )
-- EST = ABS( V( IOFFVX ) )
-- CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1 )
-+ ESTWORK( 1 ) = ABS( V( IOFFVX ) )
-+ CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1 )
- ELSE
-- CALL SGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1,
-+ CALL SGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1,
- $ IVXROW, MYCOL )
- END IF
- * ... QUIT
- GO TO 150
- END IF
-- CALL PSASUM( N, EST, X, IX, JX, DESCX, 1 )
-+ CALL PSASUM( N, ESTWORK( 1 ), X, IX, JX, DESCX, 1 )
- IF( DESCX( M_ ).EQ.1 .AND. N.EQ.1 ) THEN
- IF( MYROW.EQ.IVXROW ) THEN
-- CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1 )
-+ CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1 )
- ELSE
-- CALL SGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1,
-+ CALL SGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1,
- $ IVXROW, MYCOL )
- END IF
- END IF
-@@ -281,13 +284,13 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- *
- 70 CONTINUE
- CALL SCOPY( NP, X( IOFFVX ), 1, V( IOFFVX ), 1 )
-- ESTOLD = EST
-- CALL PSASUM( N, EST, V, IV, JV, DESCV, 1 )
-+ ESTOLD = ESTWORK( 1 )
-+ CALL PSASUM( N, ESTWORK( 1 ), V, IV, JV, DESCV, 1 )
- IF( DESCV( M_ ).EQ.1 .AND. N.EQ.1 ) THEN
- IF( MYROW.EQ.IVXROW ) THEN
-- CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1 )
-+ CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1 )
- ELSE
-- CALL SGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, EST, 1,
-+ CALL SGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, ESTWORK, 1,
- $ IVXROW, MYCOL )
- END IF
- END IF
-@@ -305,7 +308,7 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- * REPEATED SIGN VECTOR DETECTED, HENCE ALGORITHM HAS CONVERGED.
- * ALONG WITH IT, TEST FOR CYCLING.
- *
-- IF( IFLAG.EQ.0 .OR. EST.LE.ESTOLD )
-+ IF( IFLAG.EQ.0 .OR. ESTWORK( 1 ).LE.ESTOLD )
- $ GO TO 120
- *
- DO 100 I = IOFFVX, IOFFVX+NP-1
-@@ -361,7 +364,7 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- * X HAS BEEN OVERWRITTEN BY A*X
- *
- 140 CONTINUE
-- CALL PSASUM( N, TEMP, X, IX, JX, DESCX, 1 )
-+ CALL PSASUM( N, TEMP( 1 ), X, IX, JX, DESCX, 1 )
- IF( DESCX( M_ ).EQ.1 .AND. N.EQ.1 ) THEN
- IF( MYROW.EQ.IVXROW ) THEN
- CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1, TEMP, 1 )
-@@ -370,15 +373,16 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
- $ IVXROW, MYCOL )
- END IF
- END IF
-- TEMP = TWO*( TEMP / REAL( 3*N ) )
-- IF( TEMP.GT.EST ) THEN
-+ TEMP( 1 ) = TWO*( TEMP( 1 ) / REAL( 3*N ) )
-+ IF( TEMP( 1 ).GT.ESTWORK( 1 ) ) THEN
- CALL SCOPY( NP, X( IOFFVX ), 1, V( IOFFVX ), 1 )
-- EST = TEMP
-+ ESTWORK( 1 ) = TEMP( 1 )
- END IF
- *
- 150 CONTINUE
- KASE = 0
- *
-+ EST = ESTWORK( 1 )
- RETURN
- *
- * End of PSLACON
-diff --git a/SRC/pslarf.f b/SRC/pslarf.f
-index c1d3a15..39de0ed 100644
---- SRC/pslarf.f
-+++ SRC/pslarf.f
-@@ -241,7 +241,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- $ IOFFV, IPW, IROFF, IVCOL, IVROW, JJC, JJV, LDC,
- $ LDV, MYCOL, MYROW, MP, NCC, NCV, NPCOL, NPROW,
- $ NQ, RDEST
-- REAL TAULOC
-+ REAL TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, INFOG2L, PB_TOPGET, PBSTRNV,
-@@ -335,7 +335,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -344,7 +344,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -362,8 +362,8 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL SGER( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ CALL SGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -378,9 +378,9 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYCOL.EQ.ICCOL ) THEN
- *
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -397,8 +397,8 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL SGER( MP, NQ, -TAULOC, V( IOFFV ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ CALL SGER( MP, NQ, -TAULOC( 1 ), V( IOFFV ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -420,9 +420,9 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = MP+1
- CALL SGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -440,7 +440,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL SGER( MP, NQ, -TAULOC, WORK, 1,
-+ CALL SGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -470,7 +470,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -479,7 +479,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -499,8 +499,8 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( IOFFC.GT.0 )
-- $ CALL SGER( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL SGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -515,18 +515,18 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( JJV )
- CALL SGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
- IPW = MP+1
- CALL SGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -546,8 +546,8 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( IOFFC.GT.0 )
-- $ CALL SGER( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL SGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -576,9 +576,9 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYROW.EQ.ICROW ) THEN
- *
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -596,7 +596,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - w * v'
- *
- IF( IOFFV.GT.0 .AND. IOFFC.GT.0 )
-- $ CALL SGER( MP, NQ, -TAULOC, WORK, 1,
-+ $ CALL SGER( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC ), LDC )
- END IF
- *
-@@ -619,9 +619,9 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = NQ+1
- CALL SGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -639,7 +639,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL SGER( MP, NQ, -TAULOC, WORK( IPW ), 1,
-+ CALL SGER( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
- $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -665,7 +665,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL SGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -674,7 +674,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -692,8 +692,8 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL SGER( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ CALL SGER( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1
-+ $ , WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -718,18 +718,18 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( IIV )
- CALL SGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
- IPW = NQ+1
- CALL SGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -748,8 +748,8 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - w * v'
- *
- IF( IOFFC.GT.0 )
-- $ CALL SGER( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL SGER( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -768,7 +768,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL SGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -777,7 +777,7 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -795,8 +795,8 @@ SUBROUTINE PSLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL SGER( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK, 1,
-- $ C( IOFFC ), LDC )
-+ CALL SGER( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1, WORK,
-+ $ 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pslarz.f b/SRC/pslarz.f
-index aa70db7..8901530 100644
---- SRC/pslarz.f
-+++ SRC/pslarz.f
-@@ -250,7 +250,7 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ IVCOL, IVROW, JJC1, JJC2, JJV, LDC, LDV, MPC2,
- $ MPV, MYCOL, MYROW, NCC, NCV, NPCOL, NPROW,
- $ NQC2, NQV, RDEST
-- REAL TAULOC
-+ REAL TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, INFOG2L, PB_TOPGET, PBSTRNV,
-@@ -369,7 +369,7 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -378,7 +378,7 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -401,9 +401,9 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL SAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL SAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL SGER( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL SGER( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -419,9 +419,9 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYCOL.EQ.ICCOL2 ) THEN
- *
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -444,11 +444,11 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL SAXPY( NQC2, -TAULOC, WORK,
-+ $ CALL SAXPY( NQC2, -TAULOC( 1 ), WORK,
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL SGER( MPV, NQC2, -TAULOC, V( IOFFV ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL SGER( MPV, NQC2, -TAULOC( 1 ), V( IOFFV ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -470,9 +470,9 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = MPV+1
- CALL SGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -495,10 +495,10 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL SAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL SAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL SGER( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL SGER( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -529,7 +529,7 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL SGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -538,7 +538,7 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -561,10 +561,10 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL SAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL SAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL SGER( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL SGER( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -579,18 +579,18 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( JJV )
- CALL SGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
- IPW = MPV+1
- CALL SGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -613,10 +613,10 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL SAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL SAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL SGER( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL SGER( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -645,9 +645,9 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYROW.EQ.ICROW2 ) THEN
- *
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -668,13 +668,13 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ ICCOL2 )
- *
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL SAXPY( MPC2, -TAULOC, WORK, 1,
-+ $ CALL SAXPY( MPC2, -TAULOC( 1 ), WORK, 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
- IF( MPC2.GT.0 .AND. NQV.GT.0 )
-- $ CALL SGER( MPC2, NQV, -TAULOC, WORK, 1,
-+ $ CALL SGER( MPC2, NQV, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC2 ),
- $ LDC )
- END IF
-@@ -698,9 +698,9 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = NQV+1
- CALL SGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -719,13 +719,13 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ),
- $ RDEST, ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL SAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-- $ C( IOFFC1 ), 1 )
-+ $ CALL SAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL SGER( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL SGER( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -750,7 +750,7 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL SGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -759,7 +759,7 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -778,12 +778,12 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL SAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL SAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL SGER( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-+ CALL SGER( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
- $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -808,18 +808,18 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( IIV )
- CALL SGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
- IPW = NQV+1
- CALL SGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -839,13 +839,13 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL SAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL SAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL SGER( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL SGER( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -864,7 +864,7 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL SGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -873,7 +873,7 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -892,13 +892,13 @@ SUBROUTINE PSLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL SAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL SAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL SGER( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL SGER( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pslawil.f b/SRC/pslawil.f
-index e04c16b..671e08e 100644
---- SRC/pslawil.f
-+++ SRC/pslawil.f
-@@ -120,10 +120,14 @@ SUBROUTINE PSLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- INTEGER CONTXT, DOWN, HBL, ICOL, IROW, JSRC, LDA, LEFT,
- $ MODKM1, MYCOL, MYROW, NPCOL, NPROW, NUM, RIGHT,
- $ RSRC, UP
-- REAL H11, H12, H21, H22, H33S, H44S, S, V1, V2, V3
-+ REAL H22, H33S, H44S, S, V1, V2
- * ..
- * .. Local Arrays ..
- REAL BUF( 4 )
-+ REAL H11( 1 )
-+ REAL H12( 1 )
-+ REAL H21( 1 )
-+ REAL V3( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, SGERV2D, SGESD2D, INFOG2L
-@@ -170,18 +174,18 @@ SUBROUTINE PSLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( NPCOL.GT.1 ) THEN
- CALL SGERV2D( CONTXT, 1, 1, V3, 1, MYROW, LEFT )
- ELSE
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- IF( NUM.GT.1 ) THEN
- CALL SGERV2D( CONTXT, 4, 1, BUF, 4, UP, LEFT )
-- H11 = BUF( 1 )
-- H21 = BUF( 2 )
-- H12 = BUF( 3 )
-+ H11( 1 ) = BUF( 1 )
-+ H21( 1 ) = BUF( 2 )
-+ H12( 1 ) = BUF( 3 )
- H22 = BUF( 4 )
- ELSE
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
- END IF
- END IF
-@@ -214,20 +218,20 @@ SUBROUTINE PSLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( NUM.GT.1 ) THEN
- CALL SGERV2D( CONTXT, 1, 1, H11, 1, UP, LEFT )
- ELSE
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
- END IF
- IF( NPROW.GT.1 ) THEN
- CALL SGERV2D( CONTXT, 1, 1, H12, 1, UP, MYCOL )
- ELSE
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- END IF
- IF( NPCOL.GT.1 ) THEN
- CALL SGERV2D( CONTXT, 1, 1, H21, 1, MYROW, LEFT )
- ELSE
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
- END IF
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- END IF
- IF( ( MYROW.NE.II ) .OR. ( MYCOL.NE.JJ ) )
-@@ -236,24 +240,24 @@ SUBROUTINE PSLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( MODKM1.GT.1 ) THEN
- CALL INFOG2L( M+2, M+2, DESCA, NPROW, NPCOL, MYROW, MYCOL,
- $ IROW, ICOL, RSRC, JSRC )
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- *
-- H44S = H44 - H11
-- H33S = H33 - H11
-- V1 = ( H33S*H44S-H43H34 ) / H21 + H12
-- V2 = H22 - H11 - H33S - H44S
-- S = ABS( V1 ) + ABS( V2 ) + ABS( V3 )
-+ H44S = H44 - H11( 1 )
-+ H33S = H33 - H11( 1 )
-+ V1 = ( H33S*H44S-H43H34 ) / H21( 1 ) + H12( 1 )
-+ V2 = H22 - H11( 1 ) - H33S - H44S
-+ S = ABS( V1 ) + ABS( V2 ) + ABS( V3( 1 ) )
- V1 = V1 / S
- V2 = V2 / S
-- V3 = V3 / S
-+ V3( 1 ) = V3( 1 ) / S
- V( 1 ) = V1
- V( 2 ) = V2
-- V( 3 ) = V3
-+ V( 3 ) = V3( 1 )
- *
- RETURN
- *
-diff --git a/SRC/psstebz.f b/SRC/psstebz.f
-index a8a2496..7e588a9 100644
---- SRC/psstebz.f
-+++ SRC/psstebz.f
-@@ -244,14 +244,14 @@ SUBROUTINE PSSTEBZ( ICTXT, RANGE, ORDER, N, VL, VU, IL, IU,
- $ ITMP2, J, JB, K, LAST, LEXTRA, LREQ, MYCOL,
- $ MYROW, NALPHA, NBETA, NCMP, NEIGINT, NEXT, NGL,
- $ NGLOB, NGU, NINT, NPCOL, NPROW, OFFSET,
-- $ ONEDCONTEXT, P, PREV, REXTRA, RREQ, SELF,
-- $ TORECV
-+ $ ONEDCONTEXT, P, PREV, REXTRA, RREQ, SELF
- REAL ALPHA, ATOLI, BETA, BNORM, DRECV, DSEND, GL,
- $ GU, INITVL, INITVU, LSAVE, MID, PIVMIN, RELTOL,
- $ SAFEMN, TMP1, TMP2, TNORM, ULP
- * ..
- * .. Local Arrays ..
- INTEGER IDUM( 5, 2 )
-+ INTEGER TORECV( 1, 1 )
- * ..
- * .. Executable Statements ..
- * This is just to keep ftnchek happy
-@@ -774,14 +774,14 @@ SUBROUTINE PSSTEBZ( ICTXT, RANGE, ORDER, N, VL, VU, IL, IU,
- ELSE
- CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', 1, 1, TORECV, 1, 0,
- $ I-1 )
-- IF( TORECV.NE.0 ) THEN
-- CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV, 1, IWORK,
-- $ TORECV, 0, I-1 )
-- CALL SGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV, 1, WORK,
-- $ TORECV, 0, I-1 )
-- CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV, 1,
-- $ IWORK( N+1 ), TORECV, 0, I-1 )
-- DO 120 J = 1, TORECV
-+ IF( TORECV( 1, 1 ).NE.0 ) THEN
-+ CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV( 1, 1 ), 1,
-+ $ IWORK, TORECV( 1, 1 ), 0, I-1 )
-+ CALL SGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV( 1, 1 ), 1,
-+ $ WORK, TORECV( 1, 1 ), 0, I-1 )
-+ CALL IGEBR2D( ONEDCONTEXT, 'ALL', ' ', TORECV( 1, 1 ), 1,
-+ $ IWORK( N+1 ), TORECV( 1, 1 ), 0, I-1 )
-+ DO 120 J = 1, TORECV( 1, 1 )
- W( IWORK( J ) ) = WORK( J )
- IBLOCK( IWORK( J ) ) = IWORK( N+J )
- 120 CONTINUE
-diff --git a/SRC/pstrord.f b/SRC/pstrord.f
-index 3562242..5cdb549 100644
---- SRC/pstrord.f
-+++ SRC/pstrord.f
-@@ -328,12 +328,13 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- $ EAST, WEST, ILOC4, SOUTH, NORTH, INDXS,
- $ ITT, JTT, ILEN, DLEN, INDXE, TRSRC1, TCSRC1,
- $ TRSRC2, TCSRC2, ILOS, DIR, TLIHI, TLILO, TLSEL,
-- $ ROUND, LAST, WIN0S, WIN0E, WINE, MMAX, MMIN
-+ $ ROUND, LAST, WIN0S, WIN0E, WINE
- REAL ELEM, ELEM1, ELEM2, ELEM3, ELEM4, SN, CS, TMP,
- $ ELEM5
- * ..
- * .. Local Arrays ..
-- INTEGER IBUFF( 8 ), IDUM1( 1 ), IDUM2( 1 )
-+ INTEGER IBUFF( 8 ), IDUM1( 1 ), IDUM2( 1 ), MMAX( 1 ),
-+ $ MMIN( 1 ), INFODUM( 1 )
- * ..
- * .. External Functions ..
- LOGICAL LSAME
-@@ -483,16 +484,16 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- END IF
- IF( SELECT(K).NE.0 ) M = M + 1
- 10 CONTINUE
-- MMAX = M
-- MMIN = M
-+ MMAX( 1 ) = M
-+ MMIN( 1 ) = M
- IF( NPROCS.GT.1 )
- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX, 1, -1,
- $ -1, -1, -1, -1 )
- IF( NPROCS.GT.1 )
- $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN, 1, -1,
- $ -1, -1, -1, -1 )
-- IF( MMAX.GT.MMIN ) THEN
-- M = MMAX
-+ IF( MMAX( 1 ).GT.MMIN( 1 ) ) THEN
-+ M = MMAX( 1 )
- IF( NPROCS.GT.1 )
- $ CALL IGAMX2D( ICTXT, 'All', TOP, N, 1, SELECT, N,
- $ -1, -1, -1, -1, -1 )
-@@ -520,9 +521,11 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- *
- * Global maximum on info.
- *
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1, -1, -1,
-- $ -1, -1 )
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1, -1,
-+ $ -1, -1, -1 )
-+ INFO = INFODUM( 1 )
-+ END IF
- *
- * Return if some argument is incorrect.
- *
-@@ -1576,9 +1579,11 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- * experienced a failure in the reordering.
- *
- MYIERR = IERR
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
- $ -1, -1, -1, -1 )
-+ IERR = INFODUM( 1 )
-+ END IF
- *
- IF( IERR.NE.0 ) THEN
- *
-@@ -1586,9 +1591,11 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- * to swap.
- *
- IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
- $ -1, -1, -1, -1 )
-+ INFO = INFODUM( 1 )
-+ END IF
- GO TO 300
- END IF
- *
-@@ -3245,9 +3252,11 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- * experienced a failure in the reordering.
- *
- MYIERR = IERR
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
- $ -1, -1, -1, -1 )
-+ IERR = INFODUM( 1 )
-+ END IF
- *
- IF( IERR.NE.0 ) THEN
- *
-@@ -3255,9 +3264,11 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
- * to swap.
- *
- IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
- $ -1, -1, -1, -1 )
-+ INFO = INFODUM( 1 )
-+ END IF
- GO TO 300
- END IF
- *
-diff --git a/SRC/pstrsen.f b/SRC/pstrsen.f
-index 6219bdb..1922e8f 100644
---- SRC/pstrsen.f
-+++ SRC/pstrsen.f
-@@ -354,13 +354,15 @@ SUBROUTINE PSTRSEN( JOB, COMPQ, SELECT, PARA, N, T, IT, JT,
- LOGICAL LQUERY, WANTBH, WANTQ, WANTS, WANTSP
- INTEGER ICOFFT12, ICTXT, IDUM1, IDUM2, IERR, ILOC1,
- $ IPW1, ITER, ITT, JLOC1, JTT, K, LIWMIN, LLDT,
-- $ LLDQ, LWMIN, MMAX, MMIN, MYROW, MYCOL, N1, N2,
-+ $ LLDQ, LWMIN, MYROW, MYCOL, N1, N2,
- $ NB, NOEXSY, NPCOL, NPROCS, NPROW, SPACE,
- $ T12ROWS, T12COLS, TCOLS, TCSRC, TROWS, TRSRC,
- $ WRK1, IWRK1, WRK2, IWRK2, WRK3, IWRK3
-- REAL DPDUM1, ELEM, EST, SCALE, RNORM
-+ REAL ELEM, EST, SCALE, RNORM
- * .. Local Arrays ..
-- INTEGER DESCT12( DLEN_ ), MBNB2( 2 )
-+ INTEGER DESCT12( DLEN_ ), MBNB2( 2 ), MMAX( 1 ),
-+ $ MMIN( 1 ), INFODUM( 1 )
-+ REAL DPDUM1( 1 )
- * ..
- * .. External Functions ..
- LOGICAL LSAME
-@@ -521,16 +523,16 @@ SUBROUTINE PSTRSEN( JOB, COMPQ, SELECT, PARA, N, T, IT, JT,
- END IF
- IF( SELECT(K) ) M = M + 1
- 10 CONTINUE
-- MMAX = M
-- MMIN = M
-+ MMAX( 1 ) = M
-+ MMIN( 1 ) = M
- IF( NPROCS.GT.1 )
- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, MMAX, 1, -1,
- $ -1, -1, -1, -1 )
- IF( NPROCS.GT.1 )
- $ CALL IGAMN2D( ICTXT, 'All', TOP, 1, 1, MMIN, 1, -1,
- $ -1, -1, -1, -1 )
-- IF( MMAX.GT.MMIN ) THEN
-- M = MMAX
-+ IF( MMAX( 1 ).GT.MMIN( 1 ) ) THEN
-+ M = MMAX( 1 )
- IF( NPROCS.GT.1 )
- $ CALL IGAMX2D( ICTXT, 'All', TOP, N, 1, IWORK, N,
- $ -1, -1, -1, -1, -1 )
-@@ -602,9 +604,11 @@ SUBROUTINE PSTRSEN( JOB, COMPQ, SELECT, PARA, N, T, IT, JT,
- *
- * Global maximum on info
- *
-- IF( NPROCS.GT.1 )
-- $ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1, -1, -1,
-+ IF( NPROCS.GT.1 ) THEN
-+ CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1, -1, -1,
- $ -1, -1 )
-+ INFO = INFODUM( 1 )
-+ END IF
- *
- * Return if some argument is incorrect
- *
-diff --git a/SRC/pzlarf.f b/SRC/pzlarf.f
-index df65912..7bff287 100644
---- SRC/pzlarf.f
-+++ SRC/pzlarf.f
-@@ -242,7 +242,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- $ IOFFV, IPW, IROFF, IVCOL, IVROW, JJC, JJV, LDC,
- $ LDV, MYCOL, MYROW, MP, NCC, NCV, NPCOL, NPROW,
- $ NQ, RDEST
-- COMPLEX*16 TAULOC
-+ COMPLEX*16 TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, INFOG2L, PB_TOPGET, PBZTRNV,
-@@ -336,7 +336,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL ZGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -345,7 +345,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -363,8 +363,8 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -379,9 +379,9 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYCOL.EQ.ICCOL ) THEN
- *
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -398,7 +398,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, V( IOFFV ), 1,
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), V( IOFFV ), 1,
- $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -421,9 +421,9 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = MP+1
- CALL ZGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -441,7 +441,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK, 1,
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -471,7 +471,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL ZGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -480,7 +480,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -500,8 +500,8 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( IOFFC.GT.0 )
-- $ CALL ZGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -516,18 +516,18 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( JJV )
- CALL ZGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
- IPW = MP+1
- CALL ZGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -547,8 +547,8 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( IOFFC.GT.0 )
-- $ CALL ZGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -577,9 +577,9 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYROW.EQ.ICROW ) THEN
- *
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -597,7 +597,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - w * v'
- *
- IF( IOFFV.GT.0 .AND. IOFFC.GT.0 )
-- $ CALL ZGERC( MP, NQ, -TAULOC, WORK, 1,
-+ $ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC ),
- $ LDC )
- END IF
-@@ -621,9 +621,9 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = NQ+1
- CALL ZGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -641,8 +641,8 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -667,7 +667,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL ZGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -676,7 +676,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -694,8 +694,8 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -720,18 +720,18 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( IIV )
- CALL ZGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
- IPW = NQ+1
- CALL ZGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -750,8 +750,8 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- * sub( C ) := sub( C ) - w * v'
- *
- IF( IOFFC.GT.0 )
-- $ CALL ZGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ $ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -770,7 +770,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL ZGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -779,7 +779,7 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -797,8 +797,8 @@ SUBROUTINE PZLARF( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK, 1,
-- $ C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pzlarfc.f b/SRC/pzlarfc.f
-index eb469fc..ddd7ec6 100644
---- SRC/pzlarfc.f
-+++ SRC/pzlarfc.f
-@@ -242,7 +242,7 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- $ IOFFV, IPW, IROFF, IVCOL, IVROW, JJC, JJV, LDC,
- $ LDV, MYCOL, MYROW, MP, NCC, NCV, NPCOL, NPROW,
- $ NQ, RDEST
-- COMPLEX*16 TAULOC
-+ COMPLEX*16 TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, INFOG2L, PB_TOPGET, PBZTRNV,
-@@ -336,17 +336,17 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL ZGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = DCONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( IIV ) )
- *
- ELSE
- *
- CALL ZGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAULOC, 1, IVROW, MYCOL )
-- TAULOC = DCONJG( TAULOC )
-+ TAULOC( 1 ) = DCONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -364,8 +364,8 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -380,9 +380,9 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYCOL.EQ.ICCOL ) THEN
- *
-- TAULOC = DCONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( JJV ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -399,7 +399,7 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, V( IOFFV ), 1,
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), V( IOFFV ), 1,
- $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -422,9 +422,9 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = MP+1
- CALL ZGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = DCONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = DCONJG( WORK( IPW ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -442,7 +442,7 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK, 1,
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
-@@ -472,17 +472,17 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL ZGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = DCONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( IIV ) )
- *
- ELSE
- *
- CALL ZGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, TAULOC,
- $ 1, IVROW, MYCOL )
-- TAULOC = DCONJG( TAULOC )
-+ TAULOC( 1 ) = DCONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -500,8 +500,8 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ), 1,
-- $ C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -516,18 +516,18 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( JJV )
- CALL ZGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = DCONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( JJV ) )
- *
- ELSE
- *
- IPW = MP+1
- CALL ZGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = DCONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = DCONJG( WORK( IPW ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -545,8 +545,8 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - v * w'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK, 1, WORK( IPW ), 1,
-- $ C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -575,9 +575,9 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- IF( MYROW.EQ.ICROW ) THEN
- *
-- TAULOC = DCONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( IIV ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -594,7 +594,7 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK, 1,
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC ), LDC )
- END IF
- *
-@@ -617,9 +617,9 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- IPW = NQ+1
- CALL ZGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = DCONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = DCONJG( WORK( IPW ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -637,8 +637,8 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -663,17 +663,17 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL ZGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = DCONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( JJV ) )
- *
- ELSE
- *
- CALL ZGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1, TAULOC,
- $ 1, MYROW, IVCOL )
-- TAULOC = DCONJG( TAULOC )
-+ TAULOC( 1 ) = DCONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -691,8 +691,8 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-@@ -716,18 +716,18 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- WORK(IPW) = TAU( IIV )
- CALL ZGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = DCONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( IIV ) )
- *
- ELSE
- *
- IPW = NQ+1
- CALL ZGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = DCONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = DCONJG( WORK( IPW ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -745,8 +745,8 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK, 1,
-- $ C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- ELSE
-@@ -765,17 +765,17 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- CALL ZGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = DCONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( JJV ) )
- *
- ELSE
- *
- CALL ZGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1, TAULOC, 1,
- $ MYROW, IVCOL )
-- TAULOC = DCONJG( TAULOC )
-+ TAULOC( 1 ) = DCONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -793,8 +793,8 @@ SUBROUTINE PZLARFC( SIDE, M, N, V, IV, JV, DESCV, INCV, TAU,
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MP, NQ, -TAULOC, WORK( IPW ), 1, WORK, 1,
-- $ C( IOFFC ), LDC )
-+ CALL ZGERC( MP, NQ, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pzlarz.f b/SRC/pzlarz.f
-index fefc133..abf6288 100644
---- SRC/pzlarz.f
-+++ SRC/pzlarz.f
-@@ -251,7 +251,7 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ IVCOL, IVROW, JJC1, JJC2, JJV, LDC, LDV, MPC2,
- $ MPV, MYCOL, MYROW, NCC, NCV, NPCOL, NPROW,
- $ NQC2, NQV, RDEST
-- COMPLEX*16 TAULOC
-+ COMPLEX*16 TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, INFOG2L, PB_TOPGET, PBZTRNV,
-@@ -370,7 +370,7 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL ZGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -379,7 +379,7 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -402,9 +402,9 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -420,9 +420,9 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYCOL.EQ.ICCOL2 ) THEN
- *
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -445,11 +445,11 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK,
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK,
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, V( IOFFV ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), V( IOFFV ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -471,9 +471,9 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = MPV+1
- CALL ZGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -496,10 +496,10 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -530,7 +530,7 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL ZGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
-@@ -539,7 +539,7 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -562,10 +562,10 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -580,18 +580,18 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( JJV )
- CALL ZGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
- IPW = MPV+1
- CALL ZGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -614,10 +614,10 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -646,9 +646,9 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYROW.EQ.ICROW2 ) THEN
- *
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -669,13 +669,13 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ ICCOL2 )
- *
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK, 1,
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK, 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
- IF( MPC2.GT.0 .AND. NQV.GT.0 )
-- $ CALL ZGERC( MPC2, NQV, -TAULOC, WORK, 1,
-+ $ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC2 ),
- $ LDC )
- END IF
-@@ -699,9 +699,9 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = NQV+1
- CALL ZGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -720,13 +720,14 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ),
- $ RDEST, ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-- $ C( IOFFC1 ), 1 )
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ),
-+ $ WORK( IPW ), 1, WORK, 1,
-+ $ C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -751,7 +752,7 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL ZGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -760,7 +761,7 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -779,13 +780,13 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -809,18 +810,18 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( IIV )
- CALL ZGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = TAU( IIV )
-+ TAULOC( 1 ) = TAU( IIV )
- *
- ELSE
- *
- IPW = NQV+1
- CALL ZGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = WORK( IPW )
-+ TAULOC( 1 ) = WORK( IPW )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -840,13 +841,13 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -865,7 +866,7 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL ZGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = TAU( JJV )
-+ TAULOC( 1 ) = TAU( JJV )
- *
- ELSE
- *
-@@ -874,7 +875,7 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -893,13 +894,13 @@ SUBROUTINE PZLARZ( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pzlarzc.f b/SRC/pzlarzc.f
-index 936caec..2c574ff 100644
---- SRC/pzlarzc.f
-+++ SRC/pzlarzc.f
-@@ -251,7 +251,7 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ IVCOL, IVROW, JJC1, JJC2, JJV, LDC, LDV, MPC2,
- $ MPV, MYCOL, MYROW, NCC, NCV, NPCOL, NPROW,
- $ NQC2, NQV, RDEST
-- COMPLEX*16 TAULOC
-+ COMPLEX*16 TAULOC( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, INFOG2L, PB_TOPGET, PBZTRNV,
-@@ -370,17 +370,17 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL ZGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = DCONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( IIV ) )
- *
- ELSE
- *
- CALL ZGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAULOC, 1, IVROW, MYCOL )
-- TAULOC = DCONJG( TAULOC )
-+ TAULOC( 1 ) = DCONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -403,9 +403,9 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -421,9 +421,9 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYCOL.EQ.ICCOL2 ) THEN
- *
-- TAULOC = DCONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( JJV ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -446,11 +446,11 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK,
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK,
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, V( IOFFV ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), V( IOFFV ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -472,9 +472,9 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = MPV+1
- CALL ZGERV2D( ICTXT, IPW, 1, WORK, IPW, MYROW,
- $ IVCOL )
-- TAULOC = DCONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = DCONJG( WORK( IPW ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -497,10 +497,10 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ),
- $ LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, WORK, 1,
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
- $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -531,17 +531,17 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL ZGEBS2D( ICTXT, 'Columnwise', ' ', 1, 1,
- $ TAU( IIV ), 1 )
-- TAULOC = DCONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( IIV ) )
- *
- ELSE
- *
- CALL ZGEBR2D( ICTXT, 'Columnwise', ' ', 1, 1, TAULOC,
- $ 1, IVROW, MYCOL )
-- TAULOC = DCONJG( TAULOC )
-+ TAULOC( 1 ) = DCONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -564,10 +564,10 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -582,18 +582,18 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( JJV )
- CALL ZGEBS2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = DCONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( JJV ) )
- *
- ELSE
- *
- IPW = MPV+1
- CALL ZGEBR2D( ICTXT, 'Rowwise', ROWBTOP, IPW, 1, WORK,
- $ IPW, MYROW, IVCOL )
-- TAULOC = DCONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = DCONJG( WORK( IPW ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C )' * v
- *
-@@ -616,10 +616,10 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- * sub( C ) := sub( C ) - v * w'
- *
- IF( MYROW.EQ.ICROW1 )
-- $ CALL ZAXPY( NQC2, -TAULOC, WORK( IPW ),
-+ $ CALL ZAXPY( NQC2, -TAULOC( 1 ), WORK( IPW ),
- $ MAX( 1, NQC2 ), C( IOFFC1 ), LDC )
-- CALL ZGERC( MPV, NQC2, -TAULOC, WORK, 1, WORK( IPW ),
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPV, NQC2, -TAULOC( 1 ), WORK, 1,
-+ $ WORK( IPW ), 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -648,9 +648,9 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- IF( MYROW.EQ.ICROW2 ) THEN
- *
-- TAULOC = DCONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( IIV ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -671,12 +671,12 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ ICCOL2 )
- *
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK, 1,
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK, 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MPC2, NQV, -TAULOC, WORK, 1,
-+ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ), WORK, 1,
- $ V( IOFFV ), LDV, C( IOFFC2 ), LDC )
- END IF
- *
-@@ -699,9 +699,9 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- IPW = NQV+1
- CALL ZGERV2D( ICTXT, IPW, 1, WORK, IPW, IVROW,
- $ MYCOL )
-- TAULOC = DCONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = DCONJG( WORK( IPW ) )
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -720,13 +720,14 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ),
- $ RDEST, ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-- $ C( IOFFC1 ), 1 )
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ),
-+ $ WORK( IPW ), 1, WORK, 1,
-+ $ C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -751,17 +752,17 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL ZGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1,
- $ TAU( JJV ), 1 )
-- TAULOC = DCONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( JJV ) )
- *
- ELSE
- *
- CALL ZGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1, TAULOC,
- $ 1, MYROW, IVCOL )
-- TAULOC = DCONJG( TAULOC )
-+ TAULOC( 1 ) = DCONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -780,13 +781,13 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1,
-- $ WORK, 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ),
-+ $ 1, WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-@@ -810,18 +811,18 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- WORK( IPW ) = TAU( IIV )
- CALL ZGEBS2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW )
-- TAULOC = DCONJG( TAU( IIV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( IIV ) )
- *
- ELSE
- *
- IPW = NQV+1
- CALL ZGEBR2D( ICTXT, 'Columnwise', COLBTOP, IPW, 1,
- $ WORK, IPW, IVROW, MYCOL )
-- TAULOC = DCONJG( WORK( IPW ) )
-+ TAULOC( 1 ) = DCONJG( WORK( IPW ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -841,13 +842,13 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- ELSE
-@@ -866,17 +867,17 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- *
- CALL ZGEBS2D( ICTXT, 'Rowwise', ' ', 1, 1, TAU( JJV ),
- $ 1 )
-- TAULOC = DCONJG( TAU( JJV ) )
-+ TAULOC( 1 ) = DCONJG( TAU( JJV ) )
- *
- ELSE
- *
- CALL ZGEBR2D( ICTXT, 'Rowwise', ' ', 1, 1, TAULOC, 1,
- $ MYROW, IVCOL )
-- TAULOC = DCONJG( TAULOC )
-+ TAULOC( 1 ) = DCONJG( TAULOC( 1 ) )
- *
- END IF
- *
-- IF( TAULOC.NE.ZERO ) THEN
-+ IF( TAULOC( 1 ).NE.ZERO ) THEN
- *
- * w := sub( C ) * v
- *
-@@ -895,13 +896,13 @@ SUBROUTINE PZLARZC( SIDE, M, N, L, V, IV, JV, DESCV, INCV, TAU, C,
- $ WORK( IPW ), MAX( 1, MPC2 ), RDEST,
- $ ICCOL2 )
- IF( MYCOL.EQ.ICCOL1 )
-- $ CALL ZAXPY( MPC2, -TAULOC, WORK( IPW ), 1,
-+ $ CALL ZAXPY( MPC2, -TAULOC( 1 ), WORK( IPW ), 1,
- $ C( IOFFC1 ), 1 )
- *
- * sub( C ) := sub( C ) - w * v'
- *
-- CALL ZGERC( MPC2, NQV, -TAULOC, WORK( IPW ), 1, WORK,
-- $ 1, C( IOFFC2 ), LDC )
-+ CALL ZGERC( MPC2, NQV, -TAULOC( 1 ), WORK( IPW ), 1,
-+ $ WORK, 1, C( IOFFC2 ), LDC )
- END IF
- *
- END IF
-diff --git a/SRC/pzlattrs.f b/SRC/pzlattrs.f
-index 819e476..5a54209 100644
---- SRC/pzlattrs.f
-+++ SRC/pzlattrs.f
-@@ -271,8 +271,9 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- $ JINC, JLAST, LDA, LDX, MB, MYCOL, MYROW, NB,
- $ NPCOL, NPROW, RSRC
- DOUBLE PRECISION BIGNUM, GROW, REC, SMLNUM, TJJ, TMAX, TSCAL,
-- $ XBND, XJ, XMAX
-+ $ XBND, XJ
- COMPLEX*16 CSUMJ, TJJS, USCAL, XJTMP, ZDUM
-+ DOUBLE PRECISION XMAX( 1 )
- * ..
- * .. External Functions ..
- LOGICAL LSAME
-@@ -391,11 +392,11 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- * Compute a bound on the computed solution vector to see if the
- * Level 2 PBLAS routine PZTRSV can be used.
- *
-- XMAX = ZERO
-+ XMAX( 1 ) = ZERO
- CALL PZAMAX( N, ZDUM, IMAX, X, IX, JX, DESCX, 1 )
-- XMAX = CABS2( ZDUM )
-+ XMAX( 1 ) = CABS2( ZDUM )
- CALL DGSUM2D( CONTXT, 'Row', ' ', 1, 1, XMAX, 1, -1, -1 )
-- XBND = XMAX
-+ XBND = XMAX( 1 )
- *
- IF( NOTRAN ) THEN
- *
-@@ -590,16 +591,16 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- *
- * Use a Level 1 PBLAS solve, scaling intermediate results.
- *
-- IF( XMAX.GT.BIGNUM*HALF ) THEN
-+ IF( XMAX( 1 ).GT.BIGNUM*HALF ) THEN
- *
- * Scale X so that its components are less than or equal to
- * BIGNUM in absolute value.
- *
-- SCALE = ( BIGNUM*HALF ) / XMAX
-+ SCALE = ( BIGNUM*HALF ) / XMAX( 1 )
- CALL PZDSCAL( N, SCALE, X, IX, JX, DESCX, 1 )
-- XMAX = BIGNUM
-+ XMAX( 1 ) = BIGNUM
- ELSE
-- XMAX = XMAX*TWO
-+ XMAX( 1 ) = XMAX( 1 )*TWO
- END IF
- *
- IF( NOTRAN ) THEN
-@@ -651,7 +652,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZDSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- * X( J ) = ZLADIV( X( J ), TJJS )
-@@ -682,7 +683,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZDSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- * X( J ) = ZLADIV( X( J ), TJJS )
- * XJ = CABS1( X( J ) )
-@@ -706,7 +707,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- XJTMP = CONE
- XJ = ONE
- SCALE = ZERO
-- XMAX = ZERO
-+ XMAX( 1 ) = ZERO
- END IF
- 90 CONTINUE
- *
-@@ -715,7 +716,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- *
- IF( XJ.GT.ONE ) THEN
- REC = ONE / XJ
-- IF( CNORM( J ).GT.( BIGNUM-XMAX )*REC ) THEN
-+ IF( CNORM( J ).GT.( BIGNUM-XMAX( 1 ) )*REC ) THEN
- *
- * Scale x by 1/(2*abs(x(j))).
- *
-@@ -724,7 +725,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
- END IF
-- ELSE IF( XJ*CNORM( J ).GT.( BIGNUM-XMAX ) ) THEN
-+ ELSE IF( XJ*CNORM( J ).GT.( BIGNUM-XMAX( 1 ) ) ) THEN
- *
- * Scale x by 1/2.
- *
-@@ -743,7 +744,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZAXPY( J-1, ZDUM, A, IA, JA+J-1, DESCA, 1, X,
- $ IX, JX, DESCX, 1 )
- CALL PZAMAX( J-1, ZDUM, IMAX, X, IX, JX, DESCX, 1 )
-- XMAX = CABS1( ZDUM )
-+ XMAX( 1 ) = CABS1( ZDUM )
- CALL DGSUM2D( CONTXT, 'Row', ' ', 1, 1, XMAX, 1,
- $ -1, -1 )
- END IF
-@@ -757,7 +758,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZAXPY( N-J, ZDUM, A, IA+J, JA+J-1, DESCA, 1,
- $ X, IX+J, JX, DESCX, 1 )
- CALL PZAMAX( N-J, ZDUM, I, X, IX+J, JX, DESCX, 1 )
-- XMAX = CABS1( ZDUM )
-+ XMAX( 1 ) = CABS1( ZDUM )
- CALL DGSUM2D( CONTXT, 'Row', ' ', 1, 1, XMAX, 1,
- $ -1, -1 )
- END IF
-@@ -785,7 +786,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- END IF
- XJ = CABS1( XJTMP )
- USCAL = DCMPLX( TSCAL )
-- REC = ONE / MAX( XMAX, ONE )
-+ REC = ONE / MAX( XMAX( 1 ), ONE )
- IF( CNORM( J ).GT.( BIGNUM-XJ )*REC ) THEN
- *
- * If x(j) could overflow, scale x by 1/(2*XMAX).
-@@ -820,7 +821,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZDSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- *
-@@ -924,7 +925,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZDSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- * X( J ) = ZLADIV( X( J ), TJJS )
-@@ -945,7 +946,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZDSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- * X( J ) = ZLADIV( X( J ), TJJS )
- XJTMP = ZLADIV( XJTMP, TJJS )
-@@ -966,7 +967,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- END IF
- XJTMP = CONE
- SCALE = ZERO
-- XMAX = ZERO
-+ XMAX( 1 ) = ZERO
- END IF
- 110 CONTINUE
- ELSE
-@@ -981,7 +982,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- X( IROWX ) = XJTMP
- END IF
- END IF
-- XMAX = MAX( XMAX, CABS1( XJTMP ) )
-+ XMAX( 1 ) = MAX( XMAX( 1 ), CABS1( XJTMP ) )
- 120 CONTINUE
- *
- ELSE
-@@ -1004,7 +1005,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- END IF
- XJ = CABS1( XJTMP )
- USCAL = TSCAL
-- REC = ONE / MAX( XMAX, ONE )
-+ REC = ONE / MAX( XMAX( 1 ), ONE )
- IF( CNORM( J ).GT.( BIGNUM-XJ )*REC ) THEN
- *
- * If x(j) could overflow, scale x by 1/(2*XMAX).
-@@ -1039,7 +1040,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZDSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- *
-@@ -1145,7 +1146,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZDSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- END IF
- * X( J ) = ZLADIV( X( J ), TJJS )
-@@ -1164,7 +1165,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- CALL PZDSCAL( N, REC, X, IX, JX, DESCX, 1 )
- XJTMP = XJTMP*REC
- SCALE = SCALE*REC
-- XMAX = XMAX*REC
-+ XMAX( 1 ) = XMAX( 1 )*REC
- END IF
- * X( J ) = ZLADIV( X( J ), TJJS )
- XJTMP = ZLADIV( XJTMP, TJJS )
-@@ -1181,7 +1182,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- $ X( IROWX ) = CONE
- XJTMP = CONE
- SCALE = ZERO
-- XMAX = ZERO
-+ XMAX( 1 ) = ZERO
- END IF
- 130 CONTINUE
- ELSE
-@@ -1194,7 +1195,7 @@ SUBROUTINE PZLATTRS( UPLO, TRANS, DIAG, NORMIN, N, A, IA, JA,
- IF( ( MYROW.EQ.ITMP1X ) .AND. ( MYCOL.EQ.ITMP2X ) )
- $ X( IROWX ) = XJTMP
- END IF
-- XMAX = MAX( XMAX, CABS1( XJTMP ) )
-+ XMAX( 1 ) = MAX( XMAX( 1 ), CABS1( XJTMP ) )
- 140 CONTINUE
- END IF
- SCALE = SCALE / TSCAL
-diff --git a/SRC/pzlawil.f b/SRC/pzlawil.f
-index e89a9a3..7e502ef 100644
---- SRC/pzlawil.f
-+++ SRC/pzlawil.f
-@@ -124,11 +124,10 @@ SUBROUTINE PZLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- $ MODKM1, MYCOL, MYROW, NPCOL, NPROW, NUM, RIGHT,
- $ RSRC, UP
- DOUBLE PRECISION S
-- COMPLEX*16 CDUM, H11, H12, H21, H22, H33S, H44S, V1, V2,
-- $ V3
-+ COMPLEX*16 CDUM, H22, H33S, H44S, V1, V2
- * ..
- * .. Local Arrays ..
-- COMPLEX*16 BUF( 4 )
-+ COMPLEX*16 BUF( 4 ), H11( 1 ), H12( 1 ), H21( 1 ), V3( 1 )
- * ..
- * .. External Subroutines ..
- EXTERNAL BLACS_GRIDINFO, INFOG2L, ZGERV2D, ZGESD2D
-@@ -181,18 +180,18 @@ SUBROUTINE PZLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( NPCOL.GT.1 ) THEN
- CALL ZGERV2D( CONTXT, 1, 1, V3, 1, MYROW, LEFT )
- ELSE
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- IF( NUM.GT.1 ) THEN
- CALL ZGERV2D( CONTXT, 4, 1, BUF, 4, UP, LEFT )
-- H11 = BUF( 1 )
-- H21 = BUF( 2 )
-- H12 = BUF( 3 )
-+ H11( 1 ) = BUF( 1 )
-+ H21( 1 ) = BUF( 2 )
-+ H12( 1 ) = BUF( 3 )
- H22 = BUF( 4 )
- ELSE
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
- END IF
- END IF
-@@ -225,20 +224,20 @@ SUBROUTINE PZLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( NUM.GT.1 ) THEN
- CALL ZGERV2D( CONTXT, 1, 1, H11, 1, UP, LEFT )
- ELSE
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
- END IF
- IF( NPROW.GT.1 ) THEN
- CALL ZGERV2D( CONTXT, 1, 1, H12, 1, UP, MYCOL )
- ELSE
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- END IF
- IF( NPCOL.GT.1 ) THEN
- CALL ZGERV2D( CONTXT, 1, 1, H21, 1, MYROW, LEFT )
- ELSE
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
- END IF
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- END IF
- IF( ( MYROW.NE.II ) .OR. ( MYCOL.NE.JJ ) )
-@@ -247,24 +246,24 @@ SUBROUTINE PZLAWIL( II, JJ, M, A, DESCA, H44, H33, H43H34, V )
- IF( MODKM1.GT.1 ) THEN
- CALL INFOG2L( M+2, M+2, DESCA, NPROW, NPCOL, MYROW, MYCOL,
- $ IROW, ICOL, RSRC, JSRC )
-- H11 = A( ( ICOL-3 )*LDA+IROW-2 )
-- H21 = A( ( ICOL-3 )*LDA+IROW-1 )
-- H12 = A( ( ICOL-2 )*LDA+IROW-2 )
-+ H11( 1 ) = A( ( ICOL-3 )*LDA+IROW-2 )
-+ H21( 1 ) = A( ( ICOL-3 )*LDA+IROW-1 )
-+ H12( 1 ) = A( ( ICOL-2 )*LDA+IROW-2 )
- H22 = A( ( ICOL-2 )*LDA+IROW-1 )
-- V3 = A( ( ICOL-2 )*LDA+IROW )
-+ V3( 1 ) = A( ( ICOL-2 )*LDA+IROW )
- END IF
- *
-- H44S = H44 - H11
-- H33S = H33 - H11
-- V1 = ( H33S*H44S-H43H34 ) / H21 + H12
-- V2 = H22 - H11 - H33S - H44S
-- S = CABS1( V1 ) + CABS1( V2 ) + CABS1( V3 )
-+ H44S = H44 - H11( 1 )
-+ H33S = H33 - H11( 1 )
-+ V1 = ( H33S*H44S-H43H34 ) / H21( 1 ) + H12( 1 )
-+ V2 = H22 - H11( 1 ) - H33S - H44S
-+ S = CABS1( V1 ) + CABS1( V2 ) + CABS1( V3( 1 ) )
- V1 = V1 / S
- V2 = V2 / S
-- V3 = V3 / S
-+ V3( 1 ) = V3( 1 ) / S
- V( 1 ) = V1
- V( 2 ) = V2
-- V( 3 ) = V3
-+ V( 3 ) = V3( 1 )
- *
- RETURN
- *
-diff --git a/SRC/pztrevc.f b/SRC/pztrevc.f
-index 0536475..3b27286 100644
---- SRC/pztrevc.f
-+++ SRC/pztrevc.f
-@@ -218,11 +218,12 @@ SUBROUTINE PZTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- $ ITMP2, J, K, KI, LDT, LDVL, LDVR, LDW, MB,
- $ MYCOL, MYROW, NB, NPCOL, NPROW, RSRC
- REAL SELF
-- DOUBLE PRECISION OVFL, REMAXD, SCALE, SMIN, SMLNUM, ULP, UNFL
-+ DOUBLE PRECISION OVFL, REMAXD, SCALE, SMLNUM, ULP, UNFL
- COMPLEX*16 CDUM, REMAXC, SHIFT
- * ..
- * .. Local Arrays ..
- INTEGER DESCW( DLEN_ )
-+ DOUBLE PRECISION SMIN( 1 )
- * ..
- * .. External Functions ..
- LOGICAL LSAME
-@@ -355,13 +356,13 @@ SUBROUTINE PZTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- $ GO TO 70
- END IF
- *
-- SMIN = ZERO
-+ SMIN( 1 ) = ZERO
- SHIFT = CZERO
- CALL INFOG2L( KI, KI, DESCT, NPROW, NPCOL, MYROW, MYCOL,
- $ IROW, ICOL, ITMP1, ITMP2 )
- IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
- SHIFT = T( ( ICOL-1 )*LDT+IROW )
-- SMIN = MAX( ULP*( CABS1( SHIFT ) ), SMLNUM )
-+ SMIN( 1 ) = MAX( ULP*( CABS1( SHIFT ) ), SMLNUM )
- END IF
- CALL DGSUM2D( CONTXT, 'ALL', ' ', 1, 1, SMIN, 1, -1, -1 )
- CALL ZGSUM2D( CONTXT, 'ALL', ' ', 1, 1, SHIFT, 1, -1, -1 )
-@@ -396,8 +397,9 @@ SUBROUTINE PZTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
- T( ( ICOL-1 )*LDT+IROW ) = T( ( ICOL-1 )*LDT+IROW ) -
- $ SHIFT
-- IF( CABS1( T( ( ICOL-1 )*LDT+IROW ) ).LT.SMIN ) THEN
-- T( ( ICOL-1 )*LDT+IROW ) = DCMPLX( SMIN )
-+ IF( CABS1( T( ( ICOL-1 )*LDT+IROW ) ).LT.SMIN( 1 ) )
-+ $ THEN
-+ T( ( ICOL-1 )*LDT+IROW ) = DCMPLX( SMIN( 1 ) )
- END IF
- END IF
- 50 CONTINUE
-@@ -467,13 +469,13 @@ SUBROUTINE PZTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- $ GO TO 110
- END IF
- *
-- SMIN = ZERO
-+ SMIN( 1 ) = ZERO
- SHIFT = CZERO
- CALL INFOG2L( KI, KI, DESCT, NPROW, NPCOL, MYROW, MYCOL,
- $ IROW, ICOL, ITMP1, ITMP2 )
- IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
- SHIFT = T( ( ICOL-1 )*LDT+IROW )
-- SMIN = MAX( ULP*( CABS1( SHIFT ) ), SMLNUM )
-+ SMIN( 1 ) = MAX( ULP*( CABS1( SHIFT ) ), SMLNUM )
- END IF
- CALL DGSUM2D( CONTXT, 'ALL', ' ', 1, 1, SMIN, 1, -1, -1 )
- CALL ZGSUM2D( CONTXT, 'ALL', ' ', 1, 1, SHIFT, 1, -1, -1 )
-@@ -507,8 +509,8 @@ SUBROUTINE PZTREVC( SIDE, HOWMNY, SELECT, N, T, DESCT, VL, DESCVL,
- IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
- T( ( ICOL-1 )*LDT+IROW ) = T( ( ICOL-1 )*LDT+IROW ) -
- $ SHIFT
-- IF( CABS1( T( ( ICOL-1 )*LDT+IROW ) ).LT.SMIN )
-- $ T( ( ICOL-1 )*LDT+IROW ) = DCMPLX( SMIN )
-+ IF( CABS1( T( ( ICOL-1 )*LDT+IROW ) ).LT.SMIN( 1 ) )
-+ $ T( ( ICOL-1 )*LDT+IROW ) = DCMPLX( SMIN( 1 ) )
- END IF
- 90 CONTINUE
- *
-
-From 189c84001bcd564296a475c5c757afc9f337e828 Mon Sep 17 00:00:00 2001
-From: =?UTF-8?q?Tiziano=20M=C3=BCller?= <tiziano.mueller%chem.uzh.ch@localhost>
-Date: Thu, 25 Jun 2020 18:37:34 +0200
-Subject: [PATCH 2/2] use -std=legacy for tests with GCC-10+
-
----
- BLACS/TESTING/CMakeLists.txt | 10 +++++++---
- PBLAS/TESTING/CMakeLists.txt | 7 ++++---
- PBLAS/TIMING/CMakeLists.txt | 5 +++--
- TESTING/EIG/CMakeLists.txt | 3 +++
- TESTING/LIN/CMakeLists.txt | 4 ++++
- 5 files changed, 21 insertions(+), 8 deletions(-)
-
-diff --git a/BLACS/TESTING/CMakeLists.txt b/BLACS/TESTING/CMakeLists.txt
-index d8846b5..4e91ac2 100644
---- BLACS/TESTING/CMakeLists.txt
-+++ BLACS/TESTING/CMakeLists.txt
-@@ -1,10 +1,14 @@
--set(FTestObj
-+set(FTestObj
- blacstest.f btprim.f tools.f)
-
-+if ("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "GNU" AND CMAKE_Fortran_COMPILER_VERSION VERSION_GREATER_EQUAL 10)
-+ set_source_files_properties(blacstest.f PROPERTIES COMPILE_FLAGS "-std=legacy")
-+endif()
-+
- add_executable(xFbtest ${FTestObj})
- target_link_libraries(xFbtest scalapack)
-
--set(CTestObj
-+set(CTestObj
- Cbt.c)
-
- set_property(
-@@ -46,4 +50,4 @@ add_test(xFbtest
- -DRUNTIMEDIR=${CMAKE_RUNTIME_OUTPUT_DIRECTORY}
- -DSOURCEDIR=${CMAKE_CURRENT_SOURCE_DIR}
- -P ${CMAKE_CURRENT_SOURCE_DIR}/runtest.cmake
-- )
-\ No newline at end of file
-+ )
-diff --git a/PBLAS/TESTING/CMakeLists.txt b/PBLAS/TESTING/CMakeLists.txt
-index e60f5e4..ee77091 100644
---- PBLAS/TESTING/CMakeLists.txt
-+++ PBLAS/TESTING/CMakeLists.txt
-@@ -10,7 +10,7 @@ set (zpbtcom pzblastst.f dlamch.f ${pbtcom})
-
- set_property(
- SOURCE ${PblasErrorHandler}
-- APPEND PROPERTY COMPILE_DEFINITIONS TestingPblas
-+ APPEND PROPERTY COMPILE_DEFINITIONS TestingPblas
- )
-
- set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${SCALAPACK_BINARY_DIR}/PBLAS/TESTING)
-@@ -74,5 +74,6 @@ add_test(dpb3tst ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./dpb3tst)
- add_test(cpb3tst ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./cpb3tst)
- add_test(zpb3tst ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./zpb3tst)
-
--
--
-+if ("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "GNU" AND CMAKE_Fortran_COMPILER_VERSION VERSION_GREATER_EQUAL 10)
-+ set( CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -std=legacy" ) # local to this directory
-+endif()
-diff --git a/PBLAS/TIMING/CMakeLists.txt b/PBLAS/TIMING/CMakeLists.txt
-index 763330f..208bbc3 100644
---- PBLAS/TIMING/CMakeLists.txt
-+++ PBLAS/TIMING/CMakeLists.txt
-@@ -74,5 +74,6 @@ add_test(dpb3tim ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./dpb3tim)
- add_test(cpb3tim ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./cpb3tim)
- add_test(zpb3tim ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} 4 ./zpb3tim)
-
--
--
-+if ("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "GNU" AND CMAKE_Fortran_COMPILER_VERSION VERSION_GREATER_EQUAL 10)
-+ set( CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -std=legacy" ) # local to this directory
-+endif()
-diff --git a/TESTING/EIG/CMakeLists.txt b/TESTING/EIG/CMakeLists.txt
-index 97c7036..19a1f34 100644
---- TESTING/EIG/CMakeLists.txt
-+++ TESTING/EIG/CMakeLists.txt
-@@ -97,3 +97,6 @@ target_link_libraries(xzheevr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
- target_link_libraries(xshseqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
- target_link_libraries(xdhseqr scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
-
-+if ("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "GNU" AND CMAKE_Fortran_COMPILER_VERSION VERSION_GREATER_EQUAL 10)
-+ set( CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -std=legacy" ) # local to this directory
-+endif()
-diff --git a/TESTING/LIN/CMakeLists.txt b/TESTING/LIN/CMakeLists.txt
-index 55a53e9..65f169b 100644
---- TESTING/LIN/CMakeLists.txt
-+++ TESTING/LIN/CMakeLists.txt
-@@ -110,3 +110,7 @@ target_link_libraries(xsls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
- target_link_libraries(xdls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
- target_link_libraries(xcls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
- target_link_libraries(xzls scalapack ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
-+
-+if ("${CMAKE_Fortran_COMPILER_ID}" STREQUAL "GNU" AND CMAKE_Fortran_COMPILER_VERSION VERSION_GREATER_EQUAL 10)
-+ set( CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -std=legacy" ) # local to this directory
-+endif()
diff --git a/scalapack/patches/patch-scalapack.pc.in b/scalapack/patches/patch-scalapack.pc.in
index ca321a2010..85d58ee2f0 100644
--- a/scalapack/patches/patch-scalapack.pc.in
+++ b/scalapack/patches/patch-scalapack.pc.in
@@ -1,13 +1,15 @@
$NetBSD$
Do not assume fixed names for MPI and BLAS dependency pkg-config
-packages. They can vary. Rather use provided libraries directly.
+packages. They can vary.
---- scalapack.pc.in.orig 2020-06-09 07:23:53.989672521 +0200
-+++ scalapack.pc.in 2020-06-09 07:24:47.789286720 +0200
-@@ -6,4 +6,4 @@
+--- scalapack.pc.in.orig 2021-10-12 19:09:12.000000000 +0000
++++ scalapack.pc.in
+@@ -5,5 +5,5 @@ Name: scalapack
+ Description: SCALAPACK reference implementation
Version: @SCALAPACK_VERSION@
URL: http://www.netlib.org/scalapack/
Libs: -L${libdir} -lscalapack
-Requires: mpi lapack blas
-+Libs.private: @MPI_LIBRARIES@ @BLAS_LIBRARIES@ @LAPACK_LIBRARIES@
++Requires: @BLA_PKGCONFIG_LAPACK@ @BLA_PKGCONFIG_BLAS@
++Libs.private: @MPI_LIBRARIES@
Home |
Main Index |
Thread Index |
Old Index