| @@ -2234,9 +2234,7 @@ L120: | |||||
| if (*trace) { | if (*trace) { | ||||
| dprcn3_(ntra, &nc, sname, iorder, | dprcn3_(ntra, &nc, sname, iorder, | ||||
| side, uplo, transa, diag, &m, | side, uplo, transa, diag, &m, | ||||
| &n, &alpha, &lda, &ldb, ( | |||||
| ftnlen)13, (ftnlen)1, (ftnlen) | |||||
| 1, (ftnlen)1, (ftnlen)1); | |||||
| &n, &alpha, &lda, &ldb); | |||||
| } | } | ||||
| if (*rewi) { | if (*rewi) { | ||||
| al__1.aerr = 0; | al__1.aerr = 0; | ||||
| @@ -2251,9 +2249,7 @@ L120: | |||||
| if (*trace) { | if (*trace) { | ||||
| dprcn3_(ntra, &nc, sname, iorder, | dprcn3_(ntra, &nc, sname, iorder, | ||||
| side, uplo, transa, diag, &m, | side, uplo, transa, diag, &m, | ||||
| &n, &alpha, &lda, &ldb, ( | |||||
| ftnlen)13, (ftnlen)1, (ftnlen) | |||||
| 1, (ftnlen)1, (ftnlen)1); | |||||
| &n, &alpha, &lda, &ldb); | |||||
| } | } | ||||
| if (*rewi) { | if (*rewi) { | ||||
| al__1.aerr = 0; | al__1.aerr = 0; | ||||