/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | sggbal.f | 201 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 451 KOUNT = 0 456 KOUNT = KOUNT + 1 461 KOUNT = KOUNT + 1 464 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 468 KOUNT = 0 473 KOUNT = KOUNT + 1 478 KOUNT = KOUNT + 1 481 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | sggbal.f | 201 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 451 KOUNT = 0 456 KOUNT = KOUNT + 1 461 KOUNT = KOUNT + 1 464 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 468 KOUNT = 0 473 KOUNT = KOUNT + 1 478 KOUNT = KOUNT + 1 481 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
H A D | dggbal.f | 201 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 451 KOUNT = 0 456 KOUNT = KOUNT + 1 461 KOUNT = KOUNT + 1 464 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 468 KOUNT = 0 473 KOUNT = KOUNT + 1 478 KOUNT = KOUNT + 1 481 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
H A D | cggbal.f | 203 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 464 KOUNT = 0 469 KOUNT = KOUNT + 1 474 KOUNT = KOUNT + 1 477 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 481 KOUNT = 0 486 KOUNT = KOUNT + 1 491 KOUNT = KOUNT + 1 494 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
H A D | zggbal.f | 203 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 464 KOUNT = 0 469 KOUNT = KOUNT + 1 474 KOUNT = KOUNT + 1 477 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 481 KOUNT = 0 486 KOUNT = KOUNT + 1 491 KOUNT = KOUNT + 1 494 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | zggbal.f | 115 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, local 369 KOUNT = 0 374 KOUNT = KOUNT + 1 379 KOUNT = KOUNT + 1 382 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 386 KOUNT = 0 391 KOUNT = KOUNT + 1 396 KOUNT = KOUNT + 1 399 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
H A D | cggbal.f | 115 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 369 KOUNT = 0 374 KOUNT = KOUNT + 1 379 KOUNT = KOUNT + 1 382 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 386 KOUNT = 0 391 KOUNT = KOUNT + 1 396 KOUNT = KOUNT + 1 399 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dggbal.f | 201 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 451 KOUNT = 0 456 KOUNT = KOUNT + 1 461 KOUNT = KOUNT + 1 464 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 468 KOUNT = 0 473 KOUNT = KOUNT + 1 478 KOUNT = KOUNT + 1 481 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
H A D | cggbal.f | 203 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 464 KOUNT = 0 469 KOUNT = KOUNT + 1 474 KOUNT = KOUNT + 1 477 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 481 KOUNT = 0 486 KOUNT = KOUNT + 1 491 KOUNT = KOUNT + 1 494 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
H A D | zggbal.f | 203 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 464 KOUNT = 0 469 KOUNT = KOUNT + 1 474 KOUNT = KOUNT + 1 477 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 481 KOUNT = 0 486 KOUNT = KOUNT + 1 491 KOUNT = KOUNT + 1 494 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
H A D | sggbal.f | 201 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 451 KOUNT = 0 456 KOUNT = KOUNT + 1 461 KOUNT = KOUNT + 1 464 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 468 KOUNT = 0 473 KOUNT = KOUNT + 1 478 KOUNT = KOUNT + 1 481 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
/dports/math/algae/algae-4.3.6/lapack/ |
H A D | zggbal.f | 115 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 369 KOUNT = 0 374 KOUNT = KOUNT + 1 379 KOUNT = KOUNT + 1 382 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 386 KOUNT = 0 391 KOUNT = KOUNT + 1 396 KOUNT = KOUNT + 1 399 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dggbal.f | 204 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, local 454 KOUNT = 0 459 KOUNT = KOUNT + 1 464 KOUNT = KOUNT + 1 467 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 471 KOUNT = 0 476 KOUNT = KOUNT + 1 481 KOUNT = KOUNT + 1 484 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
H A D | cggbal.f | 206 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, local 467 KOUNT = 0 472 KOUNT = KOUNT + 1 477 KOUNT = KOUNT + 1 480 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 484 KOUNT = 0 489 KOUNT = KOUNT + 1 494 KOUNT = KOUNT + 1 497 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
H A D | zggbal.f | 206 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, local 467 KOUNT = 0 472 KOUNT = KOUNT + 1 477 KOUNT = KOUNT + 1 480 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 484 KOUNT = 0 489 KOUNT = KOUNT + 1 494 KOUNT = KOUNT + 1 497 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
H A D | sggbal.f | 204 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, local 454 KOUNT = 0 459 KOUNT = KOUNT + 1 464 KOUNT = KOUNT + 1 467 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 471 KOUNT = 0 476 KOUNT = KOUNT + 1 481 KOUNT = KOUNT + 1 484 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | cggbal.f | 115 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 369 KOUNT = 0 374 KOUNT = KOUNT + 1 379 KOUNT = KOUNT + 1 382 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 386 KOUNT = 0 391 KOUNT = KOUNT + 1 396 KOUNT = KOUNT + 1 399 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
H A D | zggbal.f | 115 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 369 KOUNT = 0 374 KOUNT = KOUNT + 1 379 KOUNT = KOUNT + 1 382 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 386 KOUNT = 0 391 KOUNT = KOUNT + 1 396 KOUNT = KOUNT + 1 399 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | sggbal.f | 201 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 451 KOUNT = 0 456 KOUNT = KOUNT + 1 461 KOUNT = KOUNT + 1 464 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 468 KOUNT = 0 473 KOUNT = KOUNT + 1 478 KOUNT = KOUNT + 1 481 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
H A D | dggbal.f | 201 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 451 KOUNT = 0 456 KOUNT = KOUNT + 1 461 KOUNT = KOUNT + 1 464 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 468 KOUNT = 0 473 KOUNT = KOUNT + 1 478 KOUNT = KOUNT + 1 481 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
H A D | zggbal.f | 203 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 464 KOUNT = 0 469 KOUNT = KOUNT + 1 474 KOUNT = KOUNT + 1 477 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 481 KOUNT = 0 486 KOUNT = KOUNT + 1 491 KOUNT = KOUNT + 1 494 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
H A D | cggbal.f | 203 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 464 KOUNT = 0 469 KOUNT = KOUNT + 1 474 KOUNT = KOUNT + 1 477 WORK( I+2*N ) = REAL( KOUNT )*WORK( I+N ) + SUM 481 KOUNT = 0 486 KOUNT = KOUNT + 1 491 KOUNT = KOUNT + 1 494 WORK( J+3*N ) = REAL( KOUNT )*WORK( J ) + SUM
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/complex16/ |
H A D | zggbal.f | 117 $ K, KOUNT, L, LCAB, LM1, LRAB, LSFMAX, LSFMIN, 378 KOUNT = 0 383 KOUNT = KOUNT + 1 388 KOUNT = KOUNT + 1 391 WORK( I+2*N ) = DBLE( KOUNT )*WORK( I+N ) + SUM 395 KOUNT = 0 400 KOUNT = KOUNT + 1 405 KOUNT = KOUNT + 1 408 WORK( J+3*N ) = DBLE( KOUNT )*WORK( J ) + SUM
|
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | simul2.f | 30 KOUNT=0 43 IF(KOUNT.GT.100)GO TO 1020 44 KOUNT=KOUNT+1
|
/dports/math/cmlib/cmlib-3.0_8/test/ |
H A D | bvsup.f | 184 KOUNT = 1 193 KOUNT = 2 203 KOUNT = 3 214 KOUNT = 4 226 KOUNT = 5 237 KOUNT = 6 247 KOUNT = 7 264 GO TO (80,90,100,110,120,130,140), KOUNT
|