Lines Matching defs:CPPT01

96       SUBROUTINE CPPT01( UPLO, N, A, AFAC, RWORK, RESID )  subroutine
104       CHARACTER          UPLO
105       INTEGER            N
106       REAL               RESID
109       REAL               RWORK( * )
110       COMPLEX            A( * ), AFAC( * )
116       REAL               ZERO, ONE
120       INTEGER            I, K, KC
121       REAL               ANORM, EPS, TR
122       COMPLEX            TC
125       LOGICAL            LSAME
126       REAL               CLANHP, SLAMCH
127       COMPLEX            CDOTC
165    10    CONTINUE
173    20    CONTINUE
194    30    CONTINUE
202    40       CONTINUE
205    50    CONTINUE
248 *     End of CPPT01  argument