| @@ -2307,9 +2307,7 @@ L120: | |||||
| if (*trace) { | if (*trace) { | ||||
| zprcn3_(ntra, &nc, sname, iorder, | zprcn3_(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; | ||||
| @@ -2324,9 +2322,7 @@ L120: | |||||
| if (*trace) { | if (*trace) { | ||||
| zprcn3_(ntra, &nc, sname, iorder, | zprcn3_(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; | ||||