Home
last modified time | relevance | path

Searched refs:ISIDE (Results 1 – 25 of 393) sorted by relevance

12345678910>>...16

/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/LIN/LINSRC/
H A Ddopla2.f68 INTEGER IHI, ILO, ISIDE, MI, NI, NQ
126 ISIDE = 0
129 ISIDE = 1
134 DOPLA2 = DOPLA( SUB2, M, N, K, ISIDE, NB )
135 ELSE IF( ISIDE.EQ.0 ) THEN
143 DOPLA2 = DOPLA( SUB2, M, N, K, ISIDE, NB )
144 ELSE IF( ISIDE.EQ.0 ) THEN
170 ISIDE = -1
174 ISIDE = 1
202 ISIDE = -1
[all …]
H A Dsopla2.f68 INTEGER IHI, ILO, ISIDE, MI, NI, NQ
126 ISIDE = 0
129 ISIDE = 1
134 SOPLA2 = SOPLA( SUB2, M, N, K, ISIDE, NB )
135 ELSE IF( ISIDE.EQ.0 ) THEN
143 SOPLA2 = SOPLA( SUB2, M, N, K, ISIDE, NB )
144 ELSE IF( ISIDE.EQ.0 ) THEN
170 ISIDE = -1
174 ISIDE = 1
202 ISIDE = -1
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/
H A Ddopla2.f68 INTEGER IHI, ILO, ISIDE, MI, NI, NQ
126 ISIDE = 0
129 ISIDE = 1
134 DOPLA2 = DOPLA( SUB2, M, N, K, ISIDE, NB )
135 ELSE IF( ISIDE.EQ.0 ) THEN
143 DOPLA2 = DOPLA( SUB2, M, N, K, ISIDE, NB )
144 ELSE IF( ISIDE.EQ.0 ) THEN
170 ISIDE = -1
174 ISIDE = 1
202 ISIDE = -1
[all …]
H A Dsopla2.f68 INTEGER IHI, ILO, ISIDE, MI, NI, NQ local
126 ISIDE = 0
129 ISIDE = 1
134 SOPLA2 = SOPLA( SUB2, M, N, K, ISIDE, NB )
135 ELSE IF( ISIDE.EQ.0 ) THEN
143 SOPLA2 = SOPLA( SUB2, M, N, K, ISIDE, NB )
144 ELSE IF( ISIDE.EQ.0 ) THEN
170 ISIDE = -1
174 ISIDE = 1
202 ISIDE = -1
[all …]
/dports/math/openblas/TIMING/LIN/LINSRC/
H A Dsopla2.f68 INTEGER IHI, ILO, ISIDE, MI, NI, NQ
126 ISIDE = 0
129 ISIDE = 1
134 SOPLA2 = SOPLA( SUB2, M, N, K, ISIDE, NB )
135 ELSE IF( ISIDE.EQ.0 ) THEN
143 SOPLA2 = SOPLA( SUB2, M, N, K, ISIDE, NB )
144 ELSE IF( ISIDE.EQ.0 ) THEN
170 ISIDE = -1
174 ISIDE = 1
202 ISIDE = -1
[all …]
H A Ddopla2.f68 INTEGER IHI, ILO, ISIDE, MI, NI, NQ local
126 ISIDE = 0
129 ISIDE = 1
134 DOPLA2 = DOPLA( SUB2, M, N, K, ISIDE, NB )
135 ELSE IF( ISIDE.EQ.0 ) THEN
143 DOPLA2 = DOPLA( SUB2, M, N, K, ISIDE, NB )
144 ELSE IF( ISIDE.EQ.0 ) THEN
170 ISIDE = -1
174 ISIDE = 1
202 ISIDE = -1
[all …]
/dports/math/openblas/TIMING/EIG/
H A Dsopla2.f68 INTEGER IHI, ILO, ISIDE, MI, NI, NQ
126 ISIDE = 0
129 ISIDE = 1
134 SOPLA2 = SOPLA( SUB2, M, N, K, ISIDE, NB )
135 ELSE IF( ISIDE.EQ.0 ) THEN
143 SOPLA2 = SOPLA( SUB2, M, N, K, ISIDE, NB )
144 ELSE IF( ISIDE.EQ.0 ) THEN
170 ISIDE = -1
174 ISIDE = 1
202 ISIDE = -1
[all …]
H A Ddopla2.f68 INTEGER IHI, ILO, ISIDE, MI, NI, NQ
126 ISIDE = 0
129 ISIDE = 1
134 DOPLA2 = DOPLA( SUB2, M, N, K, ISIDE, NB )
135 ELSE IF( ISIDE.EQ.0 ) THEN
143 DOPLA2 = DOPLA( SUB2, M, N, K, ISIDE, NB )
144 ELSE IF( ISIDE.EQ.0 ) THEN
170 ISIDE = -1
174 ISIDE = 1
202 ISIDE = -1
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dcc_solrsp.F362 ISIDE = +1
390 ISIDE = +1
466 ISIDE = -1
604 ISIDE = -1
632 ISIDE = +1
681 ISIDE = -1
708 ISIDE = -1
785 ISIDE = -1
813 ISIDE = -1
860 ISIDE = -1
[all …]
H A Dcc_trdrv.F161 IF (CC2 .AND.(ISIDE .EQ. 2)) T2TCOR = T2TSAV
202 NSIDSA = ISIDE
203 IF ((ISIDE .EQ. -1 ) .AND. CCS ) ISIDE = 1
484 IF ( ISIDE .GE. 1) THEN
537 IF (ISIDE .EQ. -1) THEN
560 IF (ISIDE .EQ.-1) THEN
628 IF (ISIDE .EQ. 1) THEN
633 ELSE IF (ISIDE .EQ. -1) THEN
646 IF (ISIDE .EQ. 1) THEN
667 ELSE IF (ISIDE .EQ. -1) THEN
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/choles/
H A Dcc_choio.F724 JSIDE = ISIDE
726 IF (ISIDE .EQ. -3) THEN
728 ELSE IF (ISIDE .EQ. -2) THEN
730 ELSE IF (ISIDE .EQ. 3) THEN
732 ELSE IF (ISIDE .EQ. 33) THEN
765 CALL CC_CYITRNSL(JSIDE,ISIDE)
870 CALL CC_CYITRNSL(JSIDE,ISIDE)
933 CALL CC_CYITRNSL(JSIDE,ISIDE)
1016 CALL CC_CYITRNSL(JSIDE,ISIDE)
1059 & ISIDE
[all …]
/dports/science/afni/afni-AFNI_21.3.16/src/coxplot/
H A Dzzaxyy.f4 SUBROUTINE ZZAXYY( X , Y1 , Y2 , ISIDE , ILAB ) argument
46 CALL ZZLINY( XX , YY1,YY2 , MAJRY , ISIDE*TMAJY ,
47 X MINRY , ISIDE*TMINY )
49 CALL ZZLOGY( XX , YY1,YY2 , NDEC , ISIDE*TMAJY , ISIDE*TMINY )
87 XLAB = XX - CSIZE * ISIDE * NSHIFT
116 CALL PWRITF( XLAB , YY , BUF , -NCHAR , ISIZY , 0 , -ISIDE )
H A Dzzaxxx.f6 SUBROUTINE ZZAXXX( X1 , X2 , Y , ISIDE , ILAB ) argument
48 CALL ZZLINX( XX1,XX2 , YY , MAJRX , ISIDE*TMAJX ,
49 X MINRX , ISIDE*TMINX )
51 CALL ZZLOGX( XX1,XX2 , YY , NDEC , ISIDE*TMAJX , ISIDE*TMINX )
65 YLAB = YY - ISIDE * 0.0011 * ISIZX * ( XPGMAX - XPGMIN )
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/LIN/
H A Dctimbr.f354 DO 100 ISIDE = 1, 2
355 SIDE = SIDES( ISIDE )
358 IF( ISIDE.EQ.1 ) THEN
405 $ ISIDE-1, NB )
406 ELSE IF( ISIDE.EQ.1 ) THEN
408 $ NQ-1, ISIDE-1, NB )
419 $ ISIDE-1, NB )
420 ELSE IF( ISIDE.EQ.1 ) THEN
481 DO 190 ISIDE = 1, 2
482 IF( ISIDE.EQ.1 ) THEN
[all …]
H A Ddtimbr.f355 DO 100 ISIDE = 1, 2
356 SIDE = SIDES( ISIDE )
359 IF( ISIDE.EQ.1 ) THEN
406 $ ISIDE-1, NB )
407 ELSE IF( ISIDE.EQ.1 ) THEN
409 $ NQ-1, ISIDE-1, NB )
420 $ ISIDE-1, NB )
421 ELSE IF( ISIDE.EQ.1 ) THEN
482 DO 190 ISIDE = 1, 2
483 IF( ISIDE.EQ.1 ) THEN
[all …]
H A Dstimbr.f355 DO 100 ISIDE = 1, 2
356 SIDE = SIDES( ISIDE )
359 IF( ISIDE.EQ.1 ) THEN
406 $ ISIDE-1, NB )
407 ELSE IF( ISIDE.EQ.1 ) THEN
409 $ NQ-1, ISIDE-1, NB )
420 $ ISIDE-1, NB )
421 ELSE IF( ISIDE.EQ.1 ) THEN
482 DO 190 ISIDE = 1, 2
483 IF( ISIDE.EQ.1 ) THEN
[all …]
H A Dztimbr.f354 DO 100 ISIDE = 1, 2
355 SIDE = SIDES( ISIDE )
358 IF( ISIDE.EQ.1 ) THEN
405 $ ISIDE-1, NB )
406 ELSE IF( ISIDE.EQ.1 ) THEN
408 $ NQ-1, ISIDE-1, NB )
419 $ ISIDE-1, NB )
420 ELSE IF( ISIDE.EQ.1 ) THEN
481 DO 190 ISIDE = 1, 2
482 IF( ISIDE.EQ.1 ) THEN
[all …]
H A Dstimb3.f101 $ ISIDE, ISUB, ITA, ITB, IUPLO, K, LDA, M, N
239 DO 160 ISIDE = 1, NSIDES
240 SIDE = SIDES( ISIDE )
254 IF( ISIDE.EQ.1 ) THEN
289 OPS = SOPBL3( CNAME, M, N, ISIDE-1 )
435 DO 380 ISIDE = 1, NSIDES
436 SIDE = SIDES( ISIDE )
452 IF( ISIDE.EQ.1 ) THEN
503 DO 460 ISIDE = 1, NSIDES
504 SIDE = SIDES( ISIDE )
[all …]
H A Dctimb3.f244 DO 160 ISIDE = 1, NSIDES
245 SIDE = SIDES( ISIDE )
259 IF( ISIDE.EQ.1 ) THEN
309 DO 230 ISIDE = 1, NSIDES
310 SIDE = SIDES( ISIDE )
324 IF( ISIDE.EQ.1 ) THEN
638 DO 590 ISIDE = 1, NSIDES
639 SIDE = SIDES( ISIDE )
655 IF( ISIDE.EQ.1 ) THEN
705 DO 670 ISIDE = 1, NSIDES
[all …]
H A Dztimb3.f244 DO 160 ISIDE = 1, NSIDES
245 SIDE = SIDES( ISIDE )
259 IF( ISIDE.EQ.1 ) THEN
309 DO 230 ISIDE = 1, NSIDES
310 SIDE = SIDES( ISIDE )
324 IF( ISIDE.EQ.1 ) THEN
638 DO 590 ISIDE = 1, NSIDES
639 SIDE = SIDES( ISIDE )
655 IF( ISIDE.EQ.1 ) THEN
705 DO 670 ISIDE = 1, NSIDES
[all …]
/dports/math/openblas/TIMING/LIN/
H A Ddtimbr.f355 DO 100 ISIDE = 1, 2
356 SIDE = SIDES( ISIDE )
359 IF( ISIDE.EQ.1 ) THEN
406 $ ISIDE-1, NB )
407 ELSE IF( ISIDE.EQ.1 ) THEN
409 $ NQ-1, ISIDE-1, NB )
420 $ ISIDE-1, NB )
421 ELSE IF( ISIDE.EQ.1 ) THEN
482 DO 190 ISIDE = 1, 2
483 IF( ISIDE.EQ.1 ) THEN
[all …]
H A Dctimbr.f354 DO 100 ISIDE = 1, 2
355 SIDE = SIDES( ISIDE )
358 IF( ISIDE.EQ.1 ) THEN
405 $ ISIDE-1, NB )
406 ELSE IF( ISIDE.EQ.1 ) THEN
408 $ NQ-1, ISIDE-1, NB )
419 $ ISIDE-1, NB )
420 ELSE IF( ISIDE.EQ.1 ) THEN
481 DO 190 ISIDE = 1, 2
482 IF( ISIDE.EQ.1 ) THEN
[all …]
H A Dztimbr.f354 DO 100 ISIDE = 1, 2
355 SIDE = SIDES( ISIDE )
358 IF( ISIDE.EQ.1 ) THEN
405 $ ISIDE-1, NB )
406 ELSE IF( ISIDE.EQ.1 ) THEN
408 $ NQ-1, ISIDE-1, NB )
419 $ ISIDE-1, NB )
420 ELSE IF( ISIDE.EQ.1 ) THEN
481 DO 190 ISIDE = 1, 2
482 IF( ISIDE.EQ.1 ) THEN
[all …]
H A Dstimbr.f355 DO 100 ISIDE = 1, 2
356 SIDE = SIDES( ISIDE )
359 IF( ISIDE.EQ.1 ) THEN
406 $ ISIDE-1, NB )
407 ELSE IF( ISIDE.EQ.1 ) THEN
409 $ NQ-1, ISIDE-1, NB )
420 $ ISIDE-1, NB )
421 ELSE IF( ISIDE.EQ.1 ) THEN
482 DO 190 ISIDE = 1, 2
483 IF( ISIDE.EQ.1 ) THEN
[all …]
H A Dstimb3.f101 $ ISIDE, ISUB, ITA, ITB, IUPLO, K, LDA, M, N local
239 DO 160 ISIDE = 1, NSIDES
240 SIDE = SIDES( ISIDE )
254 IF( ISIDE.EQ.1 ) THEN
289 OPS = SOPBL3( CNAME, M, N, ISIDE-1 )
435 DO 380 ISIDE = 1, NSIDES
436 SIDE = SIDES( ISIDE )
452 IF( ISIDE.EQ.1 ) THEN
503 DO 460 ISIDE = 1, NSIDES
504 SIDE = SIDES( ISIDE )
[all …]

12345678910>>...16