--- rpl/lapack/lapack/dlasyf_rook.f	2018/05/29 07:18:01	1.5
+++ rpl/lapack/lapack/dlasyf_rook.f	2020/05/21 21:46:00	1.6
@@ -21,7 +21,7 @@
 *       SUBROUTINE DLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO )
 *
 *       .. Scalar Arguments ..
-*       CHARADLATER          UPLO
+*       CHARACTER          UPLO
 *       INTEGER            INFO, KB, LDA, LDW, N, NB
 *       ..
 *       .. Array Arguments ..