/dports/science/berkeleygw/BGW-2.0.0/Common/ |
H A D | sort_inc.f90 | 68 do ii = 2, NVAL 90 integer :: GK(NVAL) 121 integer :: JT(NVAL) 129 Do IIND = 2, NVAL, 2 141 ord (NVAL) = NVAL 145 if (NVAL<16) then 164 If (NVAL <= 2) Exit 168 Do ID = 0, NVAL - 1, 4 274 IWRKF = NVAL 334 integer :: GK(NVAL) [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/LIN/ |
H A D | atimck.f | 1 SUBROUTINE ATIMCK( ICHK, SUBNAM, NN, NVAL, NLDA, LDAVAL, NOUT, argument 14 INTEGER LDAVAL( * ), NVAL( * ) 81 IF( NVAL( I ).GT.LDA ) THEN 102 N = NVAL( I ) 119 IF( 2*NVAL( I )+1.GT.LDA ) THEN 122 $ WRITE( NOUT, FMT = 9994 )SUBNAM, NVAL( I ), 123 $ LDA, 2*NVAL( I ) + 1 131 IF( 3*NVAL( I )+1.GT.LDA ) THEN 135 $ LDA, 3*NVAL( I ) + 1 149 IF( NVAL( I )+1.GT.LDA ) THEN [all …]
|
H A D | dtimaa.f | 148 $ NBVAL( MAXVAL ), NVAL( MAXVAL ), 236 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 237 WRITE( NOUT, FMT = 9991 )'N: ', ( NVAL( I ), I = 1, NN ) 244 MAXN = MAX( NVAL( I ), MAXN ) 245 IF( NVAL( I ).GT.NMAXB ) THEN 246 WRITE( NOUT, FMT = 9997 )'N', NVAL( I ), NMAXB 493 CALL DTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN, 536 CALL DTIMGE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 565 CALL DTIMPO( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 607 CALL DTIMSY( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, [all …]
|
H A D | stimaa.f | 148 $ NBVAL( MAXVAL ), NVAL( MAXVAL ), 236 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 237 WRITE( NOUT, FMT = 9991 )'N: ', ( NVAL( I ), I = 1, NN ) 244 MAXN = MAX( NVAL( I ), MAXN ) 245 IF( NVAL( I ).GT.NMAXB ) THEN 246 WRITE( NOUT, FMT = 9997 )'N', NVAL( I ), NMAXB 493 CALL STIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN, 536 CALL STIMGE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 565 CALL STIMPO( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 607 CALL STIMSY( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, [all …]
|
H A D | ctimaa.f | 150 $ NBVAL( MAXVAL ), NVAL( MAXVAL ), 240 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 241 WRITE( NOUT, FMT = 9991 )'N: ', ( NVAL( I ), I = 1, NN ) 248 MAXN = MAX( NVAL( I ), MAXN ) 249 IF( NVAL( I ).GT.NMAXB ) THEN 250 WRITE( NOUT, FMT = 9997 )'N', NVAL( I ), NMAXB 497 CALL CTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN, 538 CALL CTIMGE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 567 CALL CTIMPO( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 609 CALL CTIMHE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, [all …]
|
H A D | ztimaa.f | 150 $ NBVAL( MAXVAL ), NVAL( MAXVAL ), 240 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 241 WRITE( NOUT, FMT = 9991 )'N: ', ( NVAL( I ), I = 1, NN ) 248 MAXN = MAX( NVAL( I ), MAXN ) 249 IF( NVAL( I ).GT.NMAXB ) THEN 250 WRITE( NOUT, FMT = 9997 )'N', NVAL( I ), NMAXB 497 CALL ZTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN, 538 CALL ZTIMGE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 567 CALL ZTIMPO( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 609 CALL ZTIMHE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, [all …]
|
/dports/math/openblas/TIMING/LIN/ |
H A D | atimck.f | 1 SUBROUTINE ATIMCK( ICHK, SUBNAM, NN, NVAL, NLDA, LDAVAL, NOUT, argument 14 INTEGER LDAVAL( * ), NVAL( * ) 81 IF( NVAL( I ).GT.LDA ) THEN 102 N = NVAL( I ) 119 IF( 2*NVAL( I )+1.GT.LDA ) THEN 122 $ WRITE( NOUT, FMT = 9994 )SUBNAM, NVAL( I ), 123 $ LDA, 2*NVAL( I ) + 1 131 IF( 3*NVAL( I )+1.GT.LDA ) THEN 135 $ LDA, 3*NVAL( I ) + 1 149 IF( NVAL( I )+1.GT.LDA ) THEN [all …]
|
H A D | stimaa.f | 148 $ NBVAL( MAXVAL ), NVAL( MAXVAL ), variable 236 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 237 WRITE( NOUT, FMT = 9991 )'N: ', ( NVAL( I ), I = 1, NN ) 244 MAXN = MAX( NVAL( I ), MAXN ) 245 IF( NVAL( I ).GT.NMAXB ) THEN 246 WRITE( NOUT, FMT = 9997 )'N', NVAL( I ), NMAXB 493 CALL STIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN, 536 CALL STIMGE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 565 CALL STIMPO( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 607 CALL STIMSY( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, [all …]
|
H A D | dtimaa.f | 148 $ NBVAL( MAXVAL ), NVAL( MAXVAL ), variable 236 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 237 WRITE( NOUT, FMT = 9991 )'N: ', ( NVAL( I ), I = 1, NN ) 244 MAXN = MAX( NVAL( I ), MAXN ) 245 IF( NVAL( I ).GT.NMAXB ) THEN 246 WRITE( NOUT, FMT = 9997 )'N', NVAL( I ), NMAXB 493 CALL DTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN, 536 CALL DTIMGE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 565 CALL DTIMPO( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 607 CALL DTIMSY( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, [all …]
|
H A D | ctimaa.f | 150 $ NBVAL( MAXVAL ), NVAL( MAXVAL ), 240 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 241 WRITE( NOUT, FMT = 9991 )'N: ', ( NVAL( I ), I = 1, NN ) 248 MAXN = MAX( NVAL( I ), MAXN ) 249 IF( NVAL( I ).GT.NMAXB ) THEN 250 WRITE( NOUT, FMT = 9997 )'N', NVAL( I ), NMAXB 497 CALL CTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN, 538 CALL CTIMGE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 567 CALL CTIMPO( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 609 CALL CTIMHE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, [all …]
|
H A D | ztimaa.f | 150 $ NBVAL( MAXVAL ), NVAL( MAXVAL ), variable 240 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 241 WRITE( NOUT, FMT = 9991 )'N: ', ( NVAL( I ), I = 1, NN ) 248 MAXN = MAX( NVAL( I ), MAXN ) 249 IF( NVAL( I ).GT.NMAXB ) THEN 250 WRITE( NOUT, FMT = 9997 )'N', NVAL( I ), NMAXB 497 CALL ZTIMQP( LINE, NM, MVAL, NVAL, NLDA, LDAVAL, TIMMIN, 538 CALL ZTIMGE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 567 CALL ZTIMPO( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, 609 CALL ZTIMHE( LINE, NN, NVAL, NK, KVAL, NNB, NBVAL, NLDA, [all …]
|
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | zchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL ZCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
H A D | cchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL CCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
/dports/math/blas/lapack-3.10.0/TESTING/LIN/ |
H A D | zchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL ZCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
H A D | cchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL CCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/ |
H A D | zchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL ZCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
H A D | cchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL CCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/ |
H A D | zchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL ZCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
H A D | cchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL CCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/ |
H A D | zchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL ZCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
H A D | cchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL CCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
/dports/math/cblas/lapack-3.10.0/TESTING/LIN/ |
H A D | zchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL ZCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
H A D | cchkaa.F | 261 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 263 IF( NVAL( I ).LT.0 ) THEN 264 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 266 ELSE IF( NVAL( I ).GT.NMAX ) THEN 267 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 272 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 494 CALL CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 518 CALL CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 559 CALL CCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, 633 CALL CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/LIN/ |
H A D | zchkaa.f | 241 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 243 IF( NVAL( I ).LT.0 ) THEN 244 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 246 ELSE IF( NVAL( I ).GT.NMAX ) THEN 247 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 252 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 474 CALL ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 498 CALL ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 513 CALL ZCHKPO( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS, NSVAL, 539 CALL ZCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, [all …]
|
H A D | cchkaa.f | 242 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 244 IF( NVAL( I ).LT.0 ) THEN 245 WRITE( NOUT, FMT = 9996 )' N ', NVAL( I ), 0 247 ELSE IF( NVAL( I ).GT.NMAX ) THEN 248 WRITE( NOUT, FMT = 9995 )' N ', NVAL( I ), NMAX 253 $ WRITE( NOUT, FMT = 9993 )'N ', ( NVAL( I ), I = 1, NN ) 475 CALL CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 499 CALL CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, 514 CALL CCHKPO( DOTYPE, NN, NVAL, NNB2, NBVAL2, NNS, NSVAL, 540 CALL CCHKPS( DOTYPE, NN, NVAL, NNB2, NBVAL2, NRANK, [all …]
|