/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dsytri2x.f | 257 NNB=NB 267 IF (MOD(COUNT,2) .EQ. 1) NNB=NNB+1 338 CALL DTRMM('L','U','T','U',NNB, NNB, 349 CALL DGEMM('T','N',NNB,NNB,CUT,ONE,A(1,CUT+1),LDA, 435 NNB=NB 445 IF (MOD(COUNT,2) .EQ. 1) NNB=NNB+1 488 I=NNB 510 CALL DTRMM('L',UPLO,'T','U',NNB, NNB, 524 CALL DGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) 538 CALL DTRMM('L',UPLO,'T','U', N-NNB-CUT, NNB, [all …]
|
H A D | ssytri2x.f | 257 NNB=NB 267 IF (MOD(COUNT,2) .EQ. 1) NNB=NNB+1 338 CALL STRMM('L','U','T','U',NNB, NNB, 349 CALL SGEMM('T','N',NNB,NNB,CUT,ONE,A(1,CUT+1),LDA, 434 NNB=NB 444 IF (MOD(COUNT,2) .EQ. 1) NNB=NNB+1 487 I=NNB 509 CALL STRMM('L',UPLO,'T','U',NNB, NNB, 523 CALL SGEMM('T','N',NNB,NNB,N-NNB-CUT,ONE,A(CUT+NNB+1,CUT+1) 537 CALL STRMM('L',UPLO,'T','U', N-NNB-CUT, NNB, [all …]
|
H A D | ssytri_3x.f | 297 NNB = NB 307 IF( MOD( ICOUNT, 2 ).EQ.1 ) NNB = NNB + 1 378 CALL STRMM( 'L', 'U', 'T', 'U', NNB, NNB, 390 CALL SGEMM( 'T', 'N', NNB, NNB, CUT, ONE, A( 1, CUT+1 ), 477 NNB = NB 487 IF( MOD( ICOUNT, 2 ).EQ.1 ) NNB = NNB + 1 534 I = NNB 557 CALL STRMM( 'L', UPLO, 'T', 'U', NNB, NNB, ONE, 572 CALL SGEMM( 'T', 'N', NNB, NNB, N-NNB-CUT, ONE, 587 CALL STRMM( 'L', UPLO, 'T', 'U', N-NNB-CUT, NNB, ONE, [all …]
|
H A D | zsytri_3x.f | 298 NNB = NB 308 IF( MOD( ICOUNT, 2 ).EQ.1 ) NNB = NNB + 1 379 CALL ZTRMM( 'L', 'U', 'T', 'U', NNB, NNB, 391 CALL ZGEMM( 'T', 'N', NNB, NNB, CUT, CONE, A( 1, CUT+1 ), 479 NNB = NB 489 IF( MOD( ICOUNT, 2 ).EQ.1 ) NNB = NNB + 1 536 I = NNB 559 CALL ZTRMM( 'L', UPLO, 'T', 'U', NNB, NNB, CONE, 574 CALL ZGEMM( 'T', 'N', NNB, NNB, N-NNB-CUT, CONE, 589 CALL ZTRMM( 'L', UPLO, 'T', 'U', N-NNB-CUT, NNB, CONE, [all …]
|
H A D | zhetri2x.f | 260 NNB=NB 270 IF (MOD(COUNT,2) .EQ. 1) NNB=NNB+1 341 CALL ZTRMM('L','U','C','U',NNB, NNB, 352 CALL ZGEMM('C','N',NNB,NNB,CUT,CONE,A(1,CUT+1),LDA, 437 NNB=NB 447 IF (MOD(COUNT,2) .EQ. 1) NNB=NNB+1 490 I=NNB 512 CALL ZTRMM('L',UPLO,'C','U',NNB, NNB, 525 CALL ZGEMM('C','N',NNB,NNB,N-NNB-CUT,CONE,A(CUT+NNB+1,CUT+1) 539 CALL ZTRMM('L',UPLO,'C','U', N-NNB-CUT, NNB, [all …]
|
H A D | zhetri_3x.f | 301 NNB = NB 311 IF( MOD( ICOUNT, 2 ).EQ.1 ) NNB = NNB + 1 382 CALL ZTRMM( 'L', 'U', 'C', 'U', NNB, NNB, 394 CALL ZGEMM( 'C', 'N', NNB, NNB, CUT, CONE, A( 1, CUT+1 ), 482 NNB = NB 492 IF( MOD( ICOUNT, 2 ).EQ.1 ) NNB = NNB + 1 539 I = NNB 562 CALL ZTRMM( 'L', UPLO, 'C', 'U', NNB, NNB, CONE, 577 CALL ZGEMM( 'C', 'N', NNB, NNB, N-NNB-CUT, CONE, 592 CALL ZTRMM( 'L', UPLO, 'C', 'U', N-NNB-CUT, NNB, CONE, [all …]
|
/dports/games/polyglot/polyglot-1.4.70b/ |
H A D | option.c | 31 { "SettingsDir", "path","0","0", "<empty>" , NULL,0,NNB, PG}, 33 { "OnlyWbOptions", "check","0","0", "true" , NULL,0,NNB, PG|XBOARD}, 35 { "EngineName", "string","0","0", "<empty>" , NULL,0,NNB, PG}, 36 { "EngineDir", "path","0","0", "." , NULL,0,NNB, PG}, 37 { "EngineCommand", "string","0","0", "<empty>" , NULL,0,NNB, PG}, 42 { "UCI", "check","0","0", "false" , NULL,0,NNB, PG}, 78 { "Affinity", "spin","-1","32", "-1" , NULL,0,NNB, PG}, 84 { "Chess960", "check","0","0", "false" , NULL,0,NNB, PG}, 90 { "WbWorkArounds", "check","0","0", "true" , NULL,0,NNB, PG}, 91 { "WbWorkArounds2", "check","0","0", "false" , NULL,0,NNB, PG}, [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
H A D | pcqrinfo.f | 217 READ( NIN, FMT = * ) NNB 218 IF( NNB.LT.1 .OR. NNB.GT.LDMBVAL ) THEN 221 ELSE IF( NNB.GT.LDNBVAL ) THEN 277 WORK( 2 ) = NNB 310 I = I + NNB 312 I = I + NNB 394 IF( NNB.GT.10 ) 398 IF( NNB.GT.10 ) 432 NNB = WORK( 2 ) 461 I = I + NNB [all …]
|
H A D | pzqrinfo.f | 217 READ( NIN, FMT = * ) NNB 218 IF( NNB.LT.1 .OR. NNB.GT.LDMBVAL ) THEN 221 ELSE IF( NNB.GT.LDNBVAL ) THEN 277 WORK( 2 ) = NNB 310 I = I + NNB 312 I = I + NNB 394 IF( NNB.GT.10 ) 398 IF( NNB.GT.10 ) 432 NNB = WORK( 2 ) 461 I = I + NNB [all …]
|
H A D | pdqrinfo.f | 217 READ( NIN, FMT = * ) NNB 218 IF( NNB.LT.1 .OR. NNB.GT.LDMBVAL ) THEN 221 ELSE IF( NNB.GT.LDNBVAL ) THEN 277 WORK( 2 ) = NNB 310 I = I + NNB 312 I = I + NNB 394 IF( NNB.GT.10 ) 398 IF( NNB.GT.10 ) 432 NNB = WORK( 2 ) 461 I = I + NNB [all …]
|
H A D | psqrinfo.f | 217 READ( NIN, FMT = * ) NNB 218 IF( NNB.LT.1 .OR. NNB.GT.LDMBVAL ) THEN 221 ELSE IF( NNB.GT.LDNBVAL ) THEN 277 WORK( 2 ) = NNB 310 I = I + NNB 312 I = I + NNB 394 IF( NNB.GT.10 ) 398 IF( NNB.GT.10 ) 432 NNB = WORK( 2 ) 461 I = I + NNB [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/ |
H A D | pcevcinfo.f | 1 SUBROUTINE PCEVCINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, argument 13 $ NMAT, NNB, NOUT, NPROCS local 164 READ( NIN, FMT = * )NNB 165 IF( NNB.GT.LDNBVAL ) THEN 171 DO 10 I = 1, NNB 228 WORK( 2 ) = NNB 236 I = I + NNB 292 IF( NNB.GT.10 ) 326 NNB = WORK( 2 ) 329 I = NMAT + NNB + 2*NGRIDS [all …]
|
H A D | pcnepinfo.f | 1 SUBROUTINE PCNEPINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, argument 13 $ NMAT, NNB, NOUT, NPROCS local 164 READ( NIN, FMT = * )NNB 165 IF( NNB.GT.LDNBVAL ) THEN 171 DO 10 I = 1, NNB 228 WORK( 2 ) = NNB 236 I = I + NNB 291 IF( NNB.GT.10 ) 325 NNB = WORK( 2 ) 328 I = NMAT + NNB + 2*NGRIDS [all …]
|
H A D | pctrdinfo.f | 13 $ NGRIDS, NMAT, NNB, NPROCS, NOUT 176 READ( NIN, FMT = * ) NNB 177 IF( NNB.LT.1 .OR. NNB.GT.LDNBVAL ) THEN 233 WORK( 2 ) = NNB 245 CALL ICOPY( NNB, NBVAL, 1, WORK( I ), 1 ) 246 I = I + NNB 313 IF( NNB.GT.10 ) 347 NNB = WORK( 2 ) 355 I = NMAT + NNB + 2*NGRIDS 360 CALL ICOPY( NNB, WORK( I ), 1, NBVAL, 1 ) [all …]
|
H A D | pdnepinfo.f | 1 SUBROUTINE PDNEPINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, argument 13 $ NMAT, NNB, NOUT, NPROCS local 162 READ( NIN, FMT = * )NNB 163 IF( NNB.GT.LDNBVAL ) THEN 169 DO 10 I = 1, NNB 226 WORK( 2 ) = NNB 234 I = I + NNB 289 IF( NNB.GT.10 ) 323 NNB = WORK( 2 ) 326 I = NMAT + NNB + 2*NGRIDS [all …]
|
H A D | pstrdinfo.f | 13 $ NGRIDS, NMAT, NNB, NPROCS, NOUT 176 READ( NIN, FMT = * ) NNB 177 IF( NNB.LT.1 .OR. NNB.GT.LDNBVAL ) THEN 233 WORK( 2 ) = NNB 245 CALL ICOPY( NNB, NBVAL, 1, WORK( I ), 1 ) 246 I = I + NNB 313 IF( NNB.GT.10 ) 347 NNB = WORK( 2 ) 355 I = NMAT + NNB + 2*NGRIDS 360 CALL ICOPY( NNB, WORK( I ), 1, NBVAL, 1 ) [all …]
|
H A D | pznepinfo.f | 1 SUBROUTINE PZNEPINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, argument 13 $ NMAT, NNB, NOUT, NPROCS local 164 READ( NIN, FMT = * )NNB 165 IF( NNB.GT.LDNBVAL ) THEN 171 DO 10 I = 1, NNB 228 WORK( 2 ) = NNB 236 I = I + NNB 291 IF( NNB.GT.10 ) 325 NNB = WORK( 2 ) 328 I = NMAT + NNB + 2*NGRIDS [all …]
|
H A D | pdtrdinfo.f | 13 $ NGRIDS, NMAT, NNB, NPROCS, NOUT local 176 READ( NIN, FMT = * ) NNB 177 IF( NNB.LT.1 .OR. NNB.GT.LDNBVAL ) THEN 233 WORK( 2 ) = NNB 245 CALL ICOPY( NNB, NBVAL, 1, WORK( I ), 1 ) 246 I = I + NNB 313 IF( NNB.GT.10 ) 347 NNB = WORK( 2 ) 355 I = NMAT + NNB + 2*NGRIDS 360 CALL ICOPY( NNB, WORK( I ), 1, NBVAL, 1 ) [all …]
|
H A D | pzevcinfo.f | 1 SUBROUTINE PZEVCINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, argument 13 $ NMAT, NNB, NOUT, NPROCS local 164 READ( NIN, FMT = * )NNB 165 IF( NNB.GT.LDNBVAL ) THEN 171 DO 10 I = 1, NNB 228 WORK( 2 ) = NNB 236 I = I + NNB 292 IF( NNB.GT.10 ) 326 NNB = WORK( 2 ) 329 I = NMAT + NNB + 2*NGRIDS [all …]
|
H A D | pztrdinfo.f | 13 $ NGRIDS, NMAT, NNB, NPROCS, NOUT local 176 READ( NIN, FMT = * ) NNB 177 IF( NNB.LT.1 .OR. NNB.GT.LDNBVAL ) THEN 233 WORK( 2 ) = NNB 245 CALL ICOPY( NNB, NBVAL, 1, WORK( I ), 1 ) 246 I = I + NNB 313 IF( NNB.GT.10 ) 347 NNB = WORK( 2 ) 355 I = NMAT + NNB + 2*NGRIDS 360 CALL ICOPY( NNB, WORK( I ), 1, NBVAL, 1 ) [all …]
|
H A D | psnepinfo.f | 1 SUBROUTINE PSNEPINFO( SUMMRY, NOUT, NMAT, NVAL, LDNVAL, NNB, argument 13 $ NMAT, NNB, NOUT, NPROCS local 162 READ( NIN, FMT = * )NNB 163 IF( NNB.GT.LDNBVAL ) THEN 169 DO 10 I = 1, NNB 226 WORK( 2 ) = NNB 234 I = I + NNB 289 IF( NNB.GT.10 ) 323 NNB = WORK( 2 ) 326 I = NMAT + NNB + 2*NGRIDS [all …]
|
H A D | pcbrdinfo.f | 175 READ( NIN, FMT = * ) NNB 176 IF( NNB.LT.1 .OR. NNB.GT.LDNBVAL ) THEN 180 READ( NIN, FMT = * ) ( NBVAL( I ), I = 1, NNB ) 232 WORK( 2 ) = NNB 241 CALL ICOPY( NNB, NBVAL, 1, WORK( I ), 1 ) 242 I = I + NNB 309 IF( NNB.GT.10 ) 343 NNB = WORK( 2 ) 346 I = 2*NMAT + NNB + 2*NGRIDS 353 CALL ICOPY( NNB, WORK( I ), 1, NBVAL, 1 ) [all …]
|
H A D | pzbrdinfo.f | 175 READ( NIN, FMT = * ) NNB 176 IF( NNB.LT.1 .OR. NNB.GT.LDNBVAL ) THEN 180 READ( NIN, FMT = * ) ( NBVAL( I ), I = 1, NNB ) 232 WORK( 2 ) = NNB 241 CALL ICOPY( NNB, NBVAL, 1, WORK( I ), 1 ) 242 I = I + NNB 309 IF( NNB.GT.10 ) 343 NNB = WORK( 2 ) 346 I = 2*NMAT + NNB + 2*NGRIDS 353 CALL ICOPY( NNB, WORK( I ), 1, NBVAL, 1 ) [all …]
|
H A D | pdbrdinfo.f | 175 READ( NIN, FMT = * ) NNB 176 IF( NNB.LT.1 .OR. NNB.GT.LDNBVAL ) THEN 180 READ( NIN, FMT = * ) ( NBVAL( I ), I = 1, NNB ) 232 WORK( 2 ) = NNB 241 CALL ICOPY( NNB, NBVAL, 1, WORK( I ), 1 ) 242 I = I + NNB 309 IF( NNB.GT.10 ) 343 NNB = WORK( 2 ) 346 I = 2*NMAT + NNB + 2*NGRIDS 353 CALL ICOPY( NNB, WORK( I ), 1, NBVAL, 1 ) [all …]
|
H A D | psbrdinfo.f | 175 READ( NIN, FMT = * ) NNB 176 IF( NNB.LT.1 .OR. NNB.GT.LDNBVAL ) THEN 180 READ( NIN, FMT = * ) ( NBVAL( I ), I = 1, NNB ) 232 WORK( 2 ) = NNB 241 CALL ICOPY( NNB, NBVAL, 1, WORK( I ), 1 ) 242 I = I + NNB 309 IF( NNB.GT.10 ) 343 NNB = WORK( 2 ) 346 I = 2*NMAT + NNB + 2*NGRIDS 353 CALL ICOPY( NNB, WORK( I ), 1, NBVAL, 1 ) [all …]
|