Home
last modified time | relevance | path

Searched refs:JCOUNT (Results 1 – 25 of 147) sorted by relevance

123456

/dports/science/grib_api/grib_api-1.28.0-Source/tests/
H A Dreadvalues.F14 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 Dgribex_demo.F118 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 Dxgrdemo.F111 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 Ddlattr.f160 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 Dslattr.f160 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 Ddlattr.f157 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 Dslattr.f157 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 Dzlattr.f163 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 Dzlattb.f166 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 Dslattr.f157 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 Ddlattr.f157 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 Ddlattr.f157 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 Dslattr.f157 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 Dslattr.f157 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 Ddlattr.f157 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 Ddlattr.f160 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 Dslattr.f160 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 Dslattr.f160 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 Ddlattr.f160 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 Dslattr.f160 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 Ddlattr.f160 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 Dslattr.f160 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 Ddlattr.f160 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 Ddlattr.f157 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 Dslattr.f157 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 …]

123456