46       INTEGER            NIN, NOUT  variable
47       PARAMETER          ( NIN = 5, NOUT = 6 )
97       NOUTC = NOUT
124          WRITE( NOUT, FMT = 9997 )'N', NIDMAX
130             WRITE( NOUT, FMT = 9996 )NMAX
137          WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
144          WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
151       WRITE( NOUT, FMT = 9995 )
152       WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
153       WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
154       WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
156          WRITE( NOUT, FMT = * )
157          WRITE( NOUT, FMT = 9984 )
159       WRITE( NOUT, FMT = * )
160       WRITE( NOUT, FMT = 9999 )THRESH
161       WRITE( NOUT, FMT = * )
190       WRITE( NOUT, FMT = 9990 )SNAMET
208       WRITE( NOUT, FMT = 9998 )EPS
230      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
233          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
239      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
242          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
257      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
260          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
266      $            NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
269          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
276          WRITE( NOUT, FMT = * )
279             WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
285                WRITE( NOUT, FMT = * )
294             CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
300             CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308             CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
314             CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322             CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
328             CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336             CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
342             CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
350             CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
356             CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
367       WRITE( NOUT, FMT = 9986 )
371       WRITE( NOUT, FMT = 9985 )
375       WRITE( NOUT, FMT = 9991 )
380       CLOSE ( NOUT )
416       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
436       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
596                               WRITE( NOUT, FMT = 9994 )
629      $                           WRITE( NOUT, FMT = 9998 )I+1
643      $                                    ERR, FATAL, NOUT, .TRUE. )
668          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
669          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
671          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
672          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
677       WRITE( NOUT, FMT = 9996 )SNAME
678       CALL SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, 
709       SUBROUTINE SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,  argument
711       INTEGER          NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC  local
736       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
737       WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
744       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
764       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
909                            WRITE( NOUT, FMT = 9994 )
941      $                        WRITE( NOUT, FMT = 9998 )I+1
956      $                                    FATAL, NOUT, .TRUE. )
961      $                                    FATAL, NOUT, .TRUE. )
985          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
986          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
988          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
989          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
994       WRITE( NOUT, FMT = 9996 )SNAME
995       CALL SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1024       SUBROUTINE SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,  argument
1026       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB, LDC  local
1047       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1048       WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1055       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1074       INTEGER            NALF, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1224                               WRITE( NOUT, FMT = 9994 )
1255      $                           WRITE( NOUT, FMT = 9998 )I+1
1272      $                                          FATAL, NOUT, .TRUE. )
1278      $                                          FATAL, NOUT, .TRUE. )
1299      $                                          FATAL, NOUT, .FALSE. )
1305      $                                          FATAL, NOUT, .FALSE. )
1332          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1333          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1335          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1336          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1341       WRITE( NOUT, FMT = 9996 )SNAME
1370       SUBROUTINE SPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,  argument
1372       INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB  local
1405       WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1406       WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1413       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1433       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1561                            WRITE( NOUT, FMT = 9993 )
1591      $                        WRITE( NOUT, FMT = 9998 )I+1
1617      $                                       FATAL, NOUT, .TRUE. )
1624      $                                       FATAL, NOUT, .TRUE. )
1654          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1655          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1657          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1658          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1664      $   WRITE( NOUT, FMT = 9995 )J
1667       WRITE( NOUT, FMT = 9996 )SNAME
1668       CALL SPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1697       SUBROUTINE SPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
1699       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDC  local
1722       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1723       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1730       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,  argument
1750       INTEGER            NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER  local
1899                            WRITE( NOUT, FMT = 9993 )
1931      $                        WRITE( NOUT, FMT = 9998 )I+1
1964      $                                       FATAL, NOUT, .TRUE. )
1976      $                                       EPS, ERR, FATAL, NOUT,
2009          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2010          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2012          IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2013          IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2019      $   WRITE( NOUT, FMT = 9995 )J
2022       WRITE( NOUT, FMT = 9996 )SNAME
2023       CALL SPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
2053       SUBROUTINE SPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,  argument
2055       INTEGER          NOUT, NC, IORDER, N, K, LDA, LDB, LDC  local
2078       WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2079       WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2201      $                  NOUT, MV )  argument
2218       INTEGER            KK, LDA, LDB, LDC, LDCC, M, N, NOUT  local
2298       WRITE( NOUT, FMT = 9999 )
2301             WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2303             WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2307      $   WRITE( NOUT, FMT = 9997 )J