/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/LIN/LINSRC/ |
H A D | dopla2.f | 68 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 D | sopla2.f | 68 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 D | dopla2.f | 68 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 D | sopla2.f | 68 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 D | sopla2.f | 68 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 D | dopla2.f | 68 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 D | sopla2.f | 68 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 D | dopla2.f | 68 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 D | cc_solrsp.F | 362 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 D | cc_trdrv.F | 161 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 D | cc_choio.F | 724 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 D | zzaxyy.f | 4 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 D | zzaxxx.f | 6 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 D | ctimbr.f | 354 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 D | dtimbr.f | 355 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 D | stimbr.f | 355 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 D | ztimbr.f | 354 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 D | stimb3.f | 101 $ 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 D | ctimb3.f | 244 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 D | ztimb3.f | 244 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 D | dtimbr.f | 355 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 D | ctimbr.f | 354 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 D | ztimbr.f | 354 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 D | stimbr.f | 355 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 D | stimb3.f | 101 $ 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 …]
|