From aa2ae6b705480ed91cf8357e24314c763e341d39 Mon Sep 17 00:00:00 2001 From: Igor Zhuravlov Date: Tue, 2 Jun 2020 00:14:16 +1000 Subject: [PATCH] code formatted: spacing removed between subroutine's name and parentheses around arguments --- SRC/cla_gbrfsx_extended.f | 4 ++-- SRC/cla_geamv.f | 8 ++++---- SRC/cla_lin_berr.f | 4 ++-- SRC/dla_geamv.f | 4 ++-- SRC/dla_gercond.f | 12 ++++++------ SRC/dla_gerpvgrw.f | 2 +- SRC/dla_lin_berr.f | 2 +- SRC/sla_geamv.f | 8 ++++---- SRC/sla_gercond.f | 8 ++++---- SRC/sla_lin_berr.f | 4 ++-- SRC/zla_geamv.f | 8 ++++---- SRC/zla_gerpvgrw.f | 4 ++-- SRC/zla_lin_berr.f | 4 ++-- 13 files changed, 36 insertions(+), 36 deletions(-) diff --git a/SRC/cla_gbrfsx_extended.f b/SRC/cla_gbrfsx_extended.f index f41f117b24..612598eb1c 100644 --- a/SRC/cla_gbrfsx_extended.f +++ b/SRC/cla_gbrfsx_extended.f @@ -18,7 +18,7 @@ * Definition: * =========== * -* SUBROUTINE CLA_GBRFSX_EXTENDED ( PREC_TYPE, TRANS_TYPE, N, KL, KU, +* SUBROUTINE CLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU, * NRHS, AB, LDAB, AFB, LDAFB, IPIV, * COLEQU, C, B, LDB, Y, LDY, * BERR_OUT, N_NORMS, ERR_BNDS_NORM, @@ -400,7 +400,7 @@ *> \ingroup complexGBcomputational * * ===================================================================== - SUBROUTINE CLA_GBRFSX_EXTENDED ( PREC_TYPE, TRANS_TYPE, N, KL, KU, + SUBROUTINE CLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU, $ NRHS, AB, LDAB, AFB, LDAFB, IPIV, $ COLEQU, C, B, LDB, Y, LDY, $ BERR_OUT, N_NORMS, ERR_BNDS_NORM, diff --git a/SRC/cla_geamv.f b/SRC/cla_geamv.f index 62d861791d..22ba240aac 100644 --- a/SRC/cla_geamv.f +++ b/SRC/cla_geamv.f @@ -18,8 +18,8 @@ * Definition: * =========== * -* SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, -* Y, INCY ) +* SUBROUTINE CLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, +* Y, INCY ) * * .. Scalar Arguments .. * REAL ALPHA, BETA @@ -170,8 +170,8 @@ *> \ingroup complexGEcomputational * * ===================================================================== - SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, - $ Y, INCY ) + SUBROUTINE CLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, + $ Y, INCY ) * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/cla_lin_berr.f b/SRC/cla_lin_berr.f index d589b3dcc5..a46c998ba3 100644 --- a/SRC/cla_lin_berr.f +++ b/SRC/cla_lin_berr.f @@ -18,7 +18,7 @@ * Definition: * =========== * -* SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) +* SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) * * .. Scalar Arguments .. * INTEGER N, NZ, NRHS @@ -97,7 +97,7 @@ *> \ingroup complexOTHERcomputational * * ===================================================================== - SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) + SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_geamv.f b/SRC/dla_geamv.f index c2d672ba1a..8e962b459f 100644 --- a/SRC/dla_geamv.f +++ b/SRC/dla_geamv.f @@ -18,8 +18,8 @@ * Definition: * =========== * -* SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, -* Y, INCY ) +* SUBROUTINE DLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, +* Y, INCY ) * * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/dla_gercond.f b/SRC/dla_gercond.f index 9e48ba3db6..07597c0f7e 100644 --- a/SRC/dla_gercond.f +++ b/SRC/dla_gercond.f @@ -18,9 +18,9 @@ * Definition: * =========== * -* DOUBLE PRECISION FUNCTION DLA_GERCOND ( TRANS, N, A, LDA, AF, -* LDAF, IPIV, CMODE, C, -* INFO, WORK, IWORK ) +* DOUBLE PRECISION FUNCTION DLA_GERCOND( TRANS, N, A, LDA, AF, +* LDAF, IPIV, CMODE, C, +* INFO, WORK, IWORK ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -146,9 +146,9 @@ *> \ingroup doubleGEcomputational * * ===================================================================== - DOUBLE PRECISION FUNCTION DLA_GERCOND ( TRANS, N, A, LDA, AF, - $ LDAF, IPIV, CMODE, C, - $ INFO, WORK, IWORK ) + DOUBLE PRECISION FUNCTION DLA_GERCOND( TRANS, N, A, LDA, AF, + $ LDAF, IPIV, CMODE, C, + $ INFO, WORK, IWORK ) * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/dla_gerpvgrw.f b/SRC/dla_gerpvgrw.f index 17bf211048..d4d668245c 100644 --- a/SRC/dla_gerpvgrw.f +++ b/SRC/dla_gerpvgrw.f @@ -19,7 +19,7 @@ * =========== * * DOUBLE PRECISION FUNCTION DLA_GERPVGRW( N, NCOLS, A, LDA, AF, -* LDAF ) +* LDAF ) * * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF diff --git a/SRC/dla_lin_berr.f b/SRC/dla_lin_berr.f index 370781ae31..c3fab85636 100644 --- a/SRC/dla_lin_berr.f +++ b/SRC/dla_lin_berr.f @@ -18,7 +18,7 @@ * Definition: * =========== * -* SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) +* SUBROUTINE DLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) * * .. Scalar Arguments .. * INTEGER N, NZ, NRHS diff --git a/SRC/sla_geamv.f b/SRC/sla_geamv.f index 7fe467985f..0fcb80241d 100644 --- a/SRC/sla_geamv.f +++ b/SRC/sla_geamv.f @@ -18,8 +18,8 @@ * Definition: * =========== * -* SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, -* Y, INCY ) +* SUBROUTINE SLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, +* Y, INCY ) * * .. Scalar Arguments .. * REAL ALPHA, BETA @@ -169,8 +169,8 @@ *> \ingroup realGEcomputational * * ===================================================================== - SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, - $ Y, INCY ) + SUBROUTINE SLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, + $ Y, INCY ) * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_gercond.f b/SRC/sla_gercond.f index 8f7dc2490a..44dba01c60 100644 --- a/SRC/sla_gercond.f +++ b/SRC/sla_gercond.f @@ -18,8 +18,8 @@ * Definition: * =========== * -* REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV, -* CMODE, C, INFO, WORK, IWORK ) +* REAL FUNCTION SLA_GERCOND( TRANS, N, A, LDA, AF, LDAF, IPIV, +* CMODE, C, INFO, WORK, IWORK ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -145,8 +145,8 @@ *> \ingroup realGEcomputational * * ===================================================================== - REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV, - $ CMODE, C, INFO, WORK, IWORK ) + REAL FUNCTION SLA_GERCOND( TRANS, N, A, LDA, AF, LDAF, IPIV, + $ CMODE, C, INFO, WORK, IWORK ) * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/sla_lin_berr.f b/SRC/sla_lin_berr.f index e4cbb65be1..befc1fc143 100644 --- a/SRC/sla_lin_berr.f +++ b/SRC/sla_lin_berr.f @@ -18,7 +18,7 @@ * Definition: * =========== * -* SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) +* SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) * * .. Scalar Arguments .. * INTEGER N, NZ, NRHS @@ -97,7 +97,7 @@ *> \ingroup realOTHERcomputational * * ===================================================================== - SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) + SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_geamv.f b/SRC/zla_geamv.f index 728b27a68d..bcdc5f1283 100644 --- a/SRC/zla_geamv.f +++ b/SRC/zla_geamv.f @@ -18,8 +18,8 @@ * Definition: * =========== * -* SUBROUTINE ZLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, -* Y, INCY ) +* SUBROUTINE ZLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, +* Y, INCY ) * * .. Scalar Arguments .. * DOUBLE PRECISION ALPHA, BETA @@ -170,8 +170,8 @@ *> \ingroup complex16GEcomputational * * ===================================================================== - SUBROUTINE ZLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, - $ Y, INCY ) + SUBROUTINE ZLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, + $ Y, INCY ) * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_gerpvgrw.f b/SRC/zla_gerpvgrw.f index e0d93486a1..64da5a1ff6 100644 --- a/SRC/zla_gerpvgrw.f +++ b/SRC/zla_gerpvgrw.f @@ -19,7 +19,7 @@ * =========== * * DOUBLE PRECISION FUNCTION ZLA_GERPVGRW( N, NCOLS, A, LDA, AF, -* LDAF ) +* LDAF ) * * .. Scalar Arguments .. * INTEGER N, NCOLS, LDA, LDAF @@ -96,7 +96,7 @@ * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_GERPVGRW( N, NCOLS, A, LDA, AF, - $ LDAF ) + $ LDAF ) * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- diff --git a/SRC/zla_lin_berr.f b/SRC/zla_lin_berr.f index 8da3550d9c..5ca205b98b 100644 --- a/SRC/zla_lin_berr.f +++ b/SRC/zla_lin_berr.f @@ -18,7 +18,7 @@ * Definition: * =========== * -* SUBROUTINE ZLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) +* SUBROUTINE ZLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) * * .. Scalar Arguments .. * INTEGER N, NZ, NRHS @@ -97,7 +97,7 @@ *> \ingroup complex16OTHERcomputational * * ===================================================================== - SUBROUTINE ZLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) + SUBROUTINE ZLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR ) * * -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, --