Update c_dblat3c.c

Author: martin-frbg

ctest/c_dblat3c.c

@@ -2234,9 +2234,7 @@ static logical c_false = FALSE_;
 				    if (*trace) {
 					dprcn3_(ntra, &nc, sname, iorder, 
 						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) {
 					al__1.aerr = 0;
@@ -2251,9 +2249,7 @@ static logical c_false = FALSE_;
 				    if (*trace) {
 					dprcn3_(ntra, &nc, sname, iorder, 
 						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) {
 					al__1.aerr = 0;