/dports/science/grib_api/grib_api-1.28.0-Source/tests/ |
H A D | readvalues.F | 14 INTEGER JCOUNT variable 81 JCOUNT = 0 88 JCOUNT = 0 91 JCOUNT = JCOUNT + 1 98 WRITE (*, *) 'total ', JCOUNT ,' ret = ', IRET 102 IF ( JCOUNT .GT. 1 ) THEN 103 WRITE (*, *) 'total ', JCOUNT ,' ret = ', IRET
|
/dports/misc/libemos/libemos-4.5.9-Source/tests/ |
H A D | gribex_demo.F | 118 INTEGER JCOUNT, LENOUT 160 JCOUNT = 0 163 JCOUNT = JCOUNT + 1 171 WRITE (*, *) ' End of file. Number of products =', (JCOUNT-1) 176 WRITE (*, *) ' kret = ',IRET,' after ', JCOUNT,' products.'
|
/dports/misc/libemos/libemos-4.5.9-Source/gribex/ |
H A D | xgrdemo.F | 111 INTEGER FILE, JCOUNT, NUMERR, IRET, IPUNP, IWORD 117 JCOUNT = 0 134 JCOUNT = JCOUNT + 1 146 WRITE(*, *) 'End of file. Number of products = ',(JCOUNT-1) 152 X 'Return code = ',IRET,' after ',JCOUNT,' products.'
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/LIN/ |
H A D | dlattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
H A D | slattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | dlattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|
H A D | slattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|
H A D | zlattr.f | 163 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 510 JCOUNT = 1 515 IF( JCOUNT.LE.2 ) THEN 520 JCOUNT = JCOUNT + 1 521 IF( JCOUNT.GT.4 ) 522 $ JCOUNT = 1 525 JCOUNT = 1 530 IF( JCOUNT.LE.2 ) THEN 535 JCOUNT = JCOUNT + 1 536 IF( JCOUNT.GT.4 ) [all …]
|
H A D | zlattb.f | 166 INTEGER I, IOFF, IY, J, JCOUNT, KL, KU, LENJ, MODE 448 JCOUNT = 1 453 IF( JCOUNT.LE.2 ) THEN 458 JCOUNT = JCOUNT + 1 459 IF( JCOUNT.GT.4 ) 460 $ JCOUNT = 1 463 JCOUNT = 1 468 IF( JCOUNT.LE.2 ) THEN 473 JCOUNT = JCOUNT + 1 474 IF( JCOUNT.GT.4 ) [all …]
|
/dports/math/blas/lapack-3.10.0/TESTING/LIN/ |
H A D | slattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE local 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|
H A D | dlattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE local 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/ |
H A D | dlattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|
H A D | slattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/ |
H A D | slattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE local 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|
H A D | dlattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/LIN/ |
H A D | dlattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE local 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
H A D | slattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE local 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/ |
H A D | slattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE local 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
H A D | dlattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE local 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/LIN/ |
H A D | slattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
H A D | dlattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/ |
H A D | slattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
H A D | dlattr.f | 160 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 502 JCOUNT = 1 507 IF( JCOUNT.LE.2 ) THEN 512 JCOUNT = JCOUNT + 1 513 IF( JCOUNT.GT.4 ) 514 $ JCOUNT = 1 517 JCOUNT = 1 522 IF( JCOUNT.LE.2 ) THEN 527 JCOUNT = JCOUNT + 1 528 IF( JCOUNT.GT.4 ) [all …]
|
/dports/math/cblas/lapack-3.10.0/TESTING/LIN/ |
H A D | dlattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|
H A D | slattr.f | 157 INTEGER I, IY, J, JCOUNT, KL, KU, MODE 499 JCOUNT = 1 504 IF( JCOUNT.LE.2 ) THEN 509 JCOUNT = JCOUNT + 1 510 IF( JCOUNT.GT.4 ) 511 $ JCOUNT = 1 514 JCOUNT = 1 519 IF( JCOUNT.LE.2 ) THEN 524 JCOUNT = JCOUNT + 1 525 IF( JCOUNT.GT.4 ) [all …]
|