Skip to content

Commit f6a3b18

Browse files
jipjip
committed
code formatted: spacing removed between subroutine's name and parentheses around arguments
1 parent 1480bec commit f6a3b18

13 files changed

+36
-36
lines changed

‎SRC/cla_gbrfsx_extended.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@
1818
* Definition:
1919
* ===========
2020
*
21-
* SUBROUTINE CLA_GBRFSX_EXTENDED ( PREC_TYPE, TRANS_TYPE, N, KL, KU,
21+
* SUBROUTINE CLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU,
2222
* NRHS, AB, LDAB, AFB, LDAFB, IPIV,
2323
* COLEQU, C, B, LDB, Y, LDY,
2424
* BERR_OUT, N_NORMS, ERR_BNDS_NORM,
@@ -402,7 +402,7 @@
402402
*> \ingroup complexGBcomputational
403403
*
404404
* =====================================================================
405-
SUBROUTINE CLA_GBRFSX_EXTENDED ( PREC_TYPE, TRANS_TYPE, N, KL, KU,
405+
SUBROUTINE CLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU,
406406
$ NRHS, AB, LDAB, AFB, LDAFB, IPIV,
407407
$ COLEQU, C, B, LDB, Y, LDY,
408408
$ BERR_OUT, N_NORMS, ERR_BNDS_NORM,

‎SRC/cla_geamv.f

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -18,8 +18,8 @@
1818
* Definition:
1919
* ===========
2020
*
21-
* SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
22-
* Y, INCY )
21+
* SUBROUTINE CLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
22+
* Y, INCY )
2323
*
2424
* .. Scalar Arguments ..
2525
* REAL ALPHA, BETA
@@ -172,8 +172,8 @@
172172
*> \ingroup complexGEcomputational
173173
*
174174
* =====================================================================
175-
SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
176-
$ Y, INCY )
175+
SUBROUTINE CLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
176+
$ Y, INCY )
177177
*
178178
* -- LAPACK computational routine (version 3.7.0) --
179179
* -- LAPACK is a software package provided by Univ. of Tennessee, --

‎SRC/cla_lin_berr.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@
1818
* Definition:
1919
* ===========
2020
*
21-
* SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR )
21+
* SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR )
2222
*
2323
* .. Scalar Arguments ..
2424
* INTEGER N, NZ, NRHS
@@ -99,7 +99,7 @@
9999
*> \ingroup complexOTHERcomputational
100100
*
101101
* =====================================================================
102-
SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR )
102+
SUBROUTINE CLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR )
103103
*
104104
* -- LAPACK computational routine (version 3.7.0) --
105105
* -- LAPACK is a software package provided by Univ. of Tennessee, --

‎SRC/dla_geamv.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -18,8 +18,8 @@
1818
* Definition:
1919
* ===========
2020
*
21-
* SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
22-
* Y, INCY )
21+
* SUBROUTINE DLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
22+
* Y, INCY )
2323
*
2424
* .. Scalar Arguments ..
2525
* DOUBLE PRECISION ALPHA, BETA

‎SRC/dla_gercond.f

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -18,9 +18,9 @@
1818
* Definition:
1919
* ===========
2020
*
21-
* DOUBLE PRECISION FUNCTION DLA_GERCOND ( TRANS, N, A, LDA, AF,
22-
* LDAF, IPIV, CMODE, C,
23-
* INFO, WORK, IWORK )
21+
* DOUBLE PRECISION FUNCTION DLA_GERCOND( TRANS, N, A, LDA, AF,
22+
* LDAF, IPIV, CMODE, C,
23+
* INFO, WORK, IWORK )
2424
*
2525
* .. Scalar Arguments ..
2626
* CHARACTER TRANS
@@ -148,9 +148,9 @@
148148
*> \ingroup doubleGEcomputational
149149
*
150150
* =====================================================================
151-
DOUBLE PRECISION FUNCTION DLA_GERCOND ( TRANS, N, A, LDA, AF,
152-
$ LDAF, IPIV, CMODE, C,
153-
$ INFO, WORK, IWORK )
151+
DOUBLE PRECISION FUNCTION DLA_GERCOND( TRANS, N, A, LDA, AF,
152+
$ LDAF, IPIV, CMODE, C,
153+
$ INFO, WORK, IWORK )
154154
*
155155
* -- LAPACK computational routine (version 3.7.0) --
156156
* -- LAPACK is a software package provided by Univ. of Tennessee, --

‎SRC/dla_gerpvgrw.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,7 @@
1919
* ===========
2020
*
2121
* DOUBLE PRECISION FUNCTION DLA_GERPVGRW( N, NCOLS, A, LDA, AF,
22-
* LDAF )
22+
* LDAF )
2323
*
2424
* .. Scalar Arguments ..
2525
* INTEGER N, NCOLS, LDA, LDAF

‎SRC/dla_lin_berr.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@
1818
* Definition:
1919
* ===========
2020
*
21-
* SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR )
21+
* SUBROUTINE DLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR )
2222
*
2323
* .. Scalar Arguments ..
2424
* INTEGER N, NZ, NRHS

‎SRC/sla_geamv.f

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -18,8 +18,8 @@
1818
* Definition:
1919
* ===========
2020
*
21-
* SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
22-
* Y, INCY )
21+
* SUBROUTINE SLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
22+
* Y, INCY )
2323
*
2424
* .. Scalar Arguments ..
2525
* REAL ALPHA, BETA
@@ -171,8 +171,8 @@
171171
*> \ingroup realGEcomputational
172172
*
173173
* =====================================================================
174-
SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
175-
$ Y, INCY )
174+
SUBROUTINE SLA_GEAMV( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA,
175+
$ Y, INCY )
176176
*
177177
* -- LAPACK computational routine (version 3.7.1) --
178178
* -- LAPACK is a software package provided by Univ. of Tennessee, --

‎SRC/sla_gercond.f

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -18,8 +18,8 @@
1818
* Definition:
1919
* ===========
2020
*
21-
* REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV,
22-
* CMODE, C, INFO, WORK, IWORK )
21+
* REAL FUNCTION SLA_GERCOND( TRANS, N, A, LDA, AF, LDAF, IPIV,
22+
* CMODE, C, INFO, WORK, IWORK )
2323
*
2424
* .. Scalar Arguments ..
2525
* CHARACTER TRANS
@@ -147,8 +147,8 @@
147147
*> \ingroup realGEcomputational
148148
*
149149
* =====================================================================
150-
REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV,
151-
$ CMODE, C, INFO, WORK, IWORK )
150+
REAL FUNCTION SLA_GERCOND( TRANS, N, A, LDA, AF, LDAF, IPIV,
151+
$ CMODE, C, INFO, WORK, IWORK )
152152
*
153153
* -- LAPACK computational routine (version 3.7.0) --
154154
* -- LAPACK is a software package provided by Univ. of Tennessee, --

‎SRC/sla_lin_berr.f

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@
1818
* Definition:
1919
* ===========
2020
*
21-
* SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR )
21+
* SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR )
2222
*
2323
* .. Scalar Arguments ..
2424
* INTEGER N, NZ, NRHS
@@ -99,7 +99,7 @@
9999
*> \ingroup realOTHERcomputational
100100
*
101101
* =====================================================================
102-
SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR )
102+
SUBROUTINE SLA_LIN_BERR( N, NZ, NRHS, RES, AYB, BERR )
103103
*
104104
* -- LAPACK computational routine (version 3.7.0) --
105105
* -- LAPACK is a software package provided by Univ. of Tennessee, --

0 commit comments

Comments
 (0)