/dports/math/blas/lapack-3.10.0/TESTING/LIN/ |
H A D | schkrfp.f | 85 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 189 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 191 IF( NTVAL( I ).LT.0 ) THEN 192 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 194 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 195 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 200 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | zchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 191 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 193 IF( NTVAL( I ).LT.0 ) THEN 194 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 196 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 197 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 202 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 236 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | dchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 190 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 192 IF( NTVAL( I ).LT.0 ) THEN 193 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 195 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 196 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 201 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 235 CALL DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | cchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 191 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 193 IF( NTVAL( I ).LT.0 ) THEN 194 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 196 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 197 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 202 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 236 CALL CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/ |
H A D | schkrfp.f | 85 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 189 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 191 IF( NTVAL( I ).LT.0 ) THEN 192 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 194 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 195 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 200 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | cchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 191 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 193 IF( NTVAL( I ).LT.0 ) THEN 194 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 196 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 197 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 202 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 236 CALL CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | zchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 191 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 193 IF( NTVAL( I ).LT.0 ) THEN 194 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 196 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 197 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 202 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 236 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | dchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 190 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 192 IF( NTVAL( I ).LT.0 ) THEN 193 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 195 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 196 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 201 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 235 CALL DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/ |
H A D | schkrfp.f | 85 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 189 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 191 IF( NTVAL( I ).LT.0 ) THEN 192 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 194 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 195 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 200 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | dchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 190 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 192 IF( NTVAL( I ).LT.0 ) THEN 193 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 195 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 196 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 201 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 235 CALL DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | zchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 191 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 193 IF( NTVAL( I ).LT.0 ) THEN 194 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 196 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 197 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 202 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 236 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | cchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 191 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 193 IF( NTVAL( I ).LT.0 ) THEN 194 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 196 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 197 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 202 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 236 CALL CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/ |
H A D | schkrfp.f | 88 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 192 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 194 IF( NTVAL( I ).LT.0 ) THEN 195 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 197 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 198 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 203 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 237 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
/dports/math/cblas/lapack-3.10.0/TESTING/LIN/ |
H A D | schkrfp.f | 85 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 189 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 191 IF( NTVAL( I ).LT.0 ) THEN 192 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 194 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 195 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 200 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | schkrfp.f | 85 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 189 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 191 IF( NTVAL( I ).LT.0 ) THEN 192 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 194 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 195 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 200 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 234 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | zchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 191 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 193 IF( NTVAL( I ).LT.0 ) THEN 194 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 196 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 197 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 202 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 236 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | dchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 190 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 192 IF( NTVAL( I ).LT.0 ) THEN 193 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 195 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 196 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 201 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 235 CALL DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | cchkrfp.f | 86 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 191 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 193 IF( NTVAL( I ).LT.0 ) THEN 194 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 196 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 197 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 202 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 236 CALL CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/LIN/ |
H A D | dchkrfp.f | 89 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 193 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 195 IF( NTVAL( I ).LT.0 ) THEN 196 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 198 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 199 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 204 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 243 CALL DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/LIN/ |
H A D | zchkrfp.f | 89 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 194 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 196 IF( NTVAL( I ).LT.0 ) THEN 197 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 199 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 200 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 205 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 244 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | dchkrfp.f | 89 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 193 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 195 IF( NTVAL( I ).LT.0 ) THEN 196 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 198 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 199 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 204 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 243 CALL DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/ |
H A D | zchkrfp.f | 89 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 197 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 199 IF( NTVAL( I ).LT.0 ) THEN 200 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 202 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 203 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 208 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 247 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | schkrfp.f | 88 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 195 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 197 IF( NTVAL( I ).LT.0 ) THEN 198 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 200 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 201 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 206 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 245 CALL SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
H A D | dchkrfp.f | 89 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) variable 196 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 198 IF( NTVAL( I ).LT.0 ) THEN 199 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 201 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 202 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 207 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 246 CALL DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/LIN/ |
H A D | zchkrfp.f | 89 INTEGER NVAL( MAXIN ), NSVAL( MAXIN ), NTVAL( NTYPES ) 197 READ( NIN, FMT = * )( NTVAL( I ), I = 1, NNT ) 199 IF( NTVAL( I ).LT.0 ) THEN 200 WRITE( NOUT, FMT = 9996 )'TYPE', NTVAL( I ), 0 202 ELSE IF( NTVAL( I ).GT.NTYPES ) THEN 203 WRITE( NOUT, FMT = 9995 )'TYPE', NTVAL( I ), NTYPES 208 $ WRITE( NOUT, FMT = 9993 )'TYPE', ( NTVAL( I ), I = 1, NNT ) 247 CALL ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, THRESH,
|