function call change from DSYTRS to DSYTRS_ROOK in DSYCON_ROOK

diff --git a/SRC/dsycon_rook.f b/SRC/dsycon_rook.f
index 35098df..b4e59a8 100644 (file)
--- a/SRC/dsycon_rook.f
+++ b/SRC/dsycon_rook.f
@@ -238,7 +238,7 @@
 *
 *        Multiply by inv(L*D*L**T) or inv(U*D*U**T).
 *
-         CALL DSYTRS( UPLO, N, 1, A, LDA, IPIV, WORK, N, INFO )
+         CALL DSYTRS_ROOK( UPLO, N, 1, A, LDA, IPIV, WORK, N, INFO )
          GO TO 30
       END IF
 *