/dports/math/xlapack/lapack-3.10.0/BLAS/SRC/ |
H A D | srotmg.f | 96 REAL SD1,SD2,SX1,SY1 126 SD2 = ZERO 130 SP2 = SD2*SY1 150 SD2 = SD2/SU 163 SD2 = ZERO 177 SD2 = ZERO 184 STEMP = SD2/SU 185 SD2 = SD1/SU 218 DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) 229 SD2 = SD2*GAM**2 [all …]
|
/dports/math/blas/lapack-3.10.0/BLAS/SRC/ |
H A D | srotmg.f | 96 REAL SD1,SD2,SX1,SY1 126 SD2 = ZERO 130 SP2 = SD2*SY1 150 SD2 = SD2/SU 163 SD2 = ZERO 177 SD2 = ZERO 184 STEMP = SD2/SU 185 SD2 = SD1/SU 218 DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) 229 SD2 = SD2*GAM**2 [all …]
|
/dports/math/lapacke/lapack-3.10.0/BLAS/SRC/ |
H A D | srotmg.f | 96 REAL SD1,SD2,SX1,SY1 126 SD2 = ZERO 130 SP2 = SD2*SY1 150 SD2 = SD2/SU 163 SD2 = ZERO 177 SD2 = ZERO 184 STEMP = SD2/SU 185 SD2 = SD1/SU 218 DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) 229 SD2 = SD2*GAM**2 [all …]
|
/dports/math/lapack/lapack-3.10.0/BLAS/SRC/ |
H A D | srotmg.f | 96 REAL SD1,SD2,SX1,SY1 126 SD2 = ZERO 130 SP2 = SD2*SY1 150 SD2 = SD2/SU 163 SD2 = ZERO 177 SD2 = ZERO 184 STEMP = SD2/SU 185 SD2 = SD1/SU 218 DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) 229 SD2 = SD2*GAM**2 [all …]
|
/dports/math/cblas/lapack-3.10.0/BLAS/SRC/ |
H A D | srotmg.f | 96 REAL SD1,SD2,SX1,SY1 126 SD2 = ZERO 130 SP2 = SD2*SY1 150 SD2 = SD2/SU 163 SD2 = ZERO 177 SD2 = ZERO 184 STEMP = SD2/SU 185 SD2 = SD1/SU 218 DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) 229 SD2 = SD2*GAM**2 [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/BLAS/SRC/ |
H A D | srotmg.f | 99 REAL SD1,SD2,SX1,SY1 129 SD2 = ZERO 133 SP2 = SD2*SY1 153 SD2 = SD2/SU 167 SD2 = ZERO 174 STEMP = SD2/SU 175 SD2 = SD1/SU 207 IF (SD2.NE.ZERO) THEN 208 DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) 219 SD2 = SD2*GAM**2 [all …]
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/BLAS/SRC/ |
H A D | srotmg.f | 99 REAL SD1,SD2,SX1,SY1 129 SD2 = ZERO 133 SP2 = SD2*SY1 153 SD2 = SD2/SU 167 SD2 = ZERO 174 STEMP = SD2/SU 175 SD2 = SD1/SU 207 IF (SD2.NE.ZERO) THEN 208 DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) 219 SD2 = SD2*GAM**2 [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/BLAS/SRC/ |
H A D | srotmg.f | 99 REAL SD1,SD2,SX1,SY1 129 SD2 = ZERO 133 SP2 = SD2*SY1 153 SD2 = SD2/SU 167 SD2 = ZERO 174 STEMP = SD2/SU 175 SD2 = SD1/SU 207 IF (SD2.NE.ZERO) THEN 208 DO WHILE ( (ABS(SD2).LE.RGAMSQ) .OR. (ABS(SD2).GE.GAMSQ) ) 219 SD2 = SD2*GAM**2 [all …]
|
/dports/math/libmesh/libmesh-1.6.2/contrib/eigen/3.2.9/blas/ |
H A D | srotmg.f | 1 SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) argument 3 REAL SD1,SD2,SX1,SY1 72 SP2 = SD2*SY1 94 SD2 = SD2/SU 107 STEMP = SD2/SU 108 SD2 = SD1/SU 122 SD2 = ZERO 170 IF (SD2.EQ.ZERO) GO TO 220 175 SD2 = SD2*GAM**2 181 IF (.NOT.ABS(SD2).GE.GAMSQ) GO TO 220 [all …]
|
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/reference/ |
H A D | srotmgf.f | 1 SUBROUTINE SROTMGF (SD1,SD2,SX1,SY1,SPARAM) argument 30 SP2=SD2*SY1 52 SD2=SD2/SU 65 STEMP=SD2/SU 66 SD2=SD1/SU 80 SD2=ZERO 127 IF(.NOT. ABS(SD2) .LE. RGAMSQ) GO TO 190 128 IF(SD2 .EQ. ZERO) GO TO 220 133 SD2=SD2*GAM**2 139 IF(.NOT. ABS(SD2) .GE. GAMSQ) GO TO 220 [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/blas/src_f77/ |
H A D | srotmg.f | 1 SUBROUTINE SROTMG (SD1,SD2,SX1,SY1,SPARAM) argument 30 SP2=SD2*SY1 52 SD2=SD2/SU 65 STEMP=SD2/SU 66 SD2=SD1/SU 80 SD2=ZERO 127 IF(.NOT. ABS(SD2) .LE. RGAMSQ) GO TO 190 128 IF(SD2 .EQ. ZERO) GO TO 220 133 SD2=SD2*GAM**2 139 IF(.NOT. ABS(SD2) .GE. GAMSQ) GO TO 220 [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/blas/ |
H A D | srotmg.f | 1 SUBROUTINE SROTMG(SD1,SD2,SX1,SY1,SPARAM) argument 61 SP2=SD2*SY1 83 SD2=SD2/SU 96 STEMP=SD2/SU 97 SD2=SD1/SU 111 SD2=ZERO 158 IF(.NOT. ABS(SD2) .LE. RGAMSQ) GO TO 190 159 IF(SD2 .EQ. ZERO) GO TO 220 164 SD2=SD2*GAM**2 170 IF(.NOT. ABS(SD2) .GE. GAMSQ) GO TO 220 [all …]
|
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/GotoBLAS2/reference/ |
H A D | srotmgf.f | 1 SUBROUTINE SROTMGF (SD1,SD2,SX1,SY1,SPARAM) argument 30 SP2=SD2*SY1 52 SD2=SD2/SU 65 STEMP=SD2/SU 66 SD2=SD1/SU 80 SD2=ZERO 127 IF(.NOT. ABS(SD2) .LE. RGAMSQ) GO TO 190 128 IF(SD2 .EQ. ZERO) GO TO 220 133 SD2=SD2*GAM**2 139 IF(.NOT. ABS(SD2) .GE. GAMSQ) GO TO 220 [all …]
|
/dports/math/libflame/libflame-5.2.0/src/flablas/f2c/ |
H A D | srotmg.f | 1 SUBROUTINE SROTMG (SD1,SD2,SX1,SY1,SPARAM) argument 30 SP2=SD2*SY1 52 SD2=SD2/SU 65 STEMP=SD2/SU 66 SD2=SD1/SU 80 SD2=ZERO 127 IF(.NOT. ABS(SD2) .LE. RGAMSQ) GO TO 190 128 IF(SD2 .EQ. ZERO) GO TO 220 133 SD2=SD2*GAM**2 139 IF(.NOT. ABS(SD2) .GE. GAMSQ) GO TO 220 [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/reference/ |
H A D | srotmgf.f | 1 SUBROUTINE SROTMGF (SD1,SD2,SX1,SY1,SPARAM) argument 30 SP2=SD2*SY1 52 SD2=SD2/SU 65 STEMP=SD2/SU 66 SD2=SD1/SU 80 SD2=ZERO 127 IF(.NOT. ABS(SD2) .LE. RGAMSQ) GO TO 190 128 IF(SD2 .EQ. ZERO) GO TO 220 133 SD2=SD2*GAM**2 139 IF(.NOT. ABS(SD2) .GE. GAMSQ) GO TO 220 [all …]
|
/dports/math/slatec/src/ |
H A D | srotmg.f | 2 SUBROUTINE SROTMG (SD1, SD2, SX1, SY1, SPARAM) argument 69 SP2=SD2*SY1 91 SD2=SD2/SU 104 STEMP=SD2/SU 105 SD2=SD1/SU 119 SD2=ZERO 166 IF (.NOT. ABS(SD2) .LE. RGAMSQ) GO TO 190 167 IF (SD2 .EQ. ZERO) GO TO 220 172 SD2=SD2*GAM**2 178 IF (.NOT. ABS(SD2) .GE. GAMSQ) GO TO 220 [all …]
|
/dports/math/gotoblas/GotoBLAS2/reference/ |
H A D | srotmgf.f | 1 SUBROUTINE SROTMGF (SD1,SD2,SX1,SY1,SPARAM) argument 30 SP2=SD2*SY1 52 SD2=SD2/SU 65 STEMP=SD2/SU 66 SD2=SD1/SU 80 SD2=ZERO 127 IF(.NOT. ABS(SD2) .LE. RGAMSQ) GO TO 190 128 IF(SD2 .EQ. ZERO) GO TO 220 133 SD2=SD2*GAM**2 139 IF(.NOT. ABS(SD2) .GE. GAMSQ) GO TO 220 [all …]
|
/dports/science/mbdyn/mbdyn-1.7.3/mbdyn/elec/ |
H A D | genel_.cc | 202 DriveOwner(pDC), SD1(sd1), SD2(sd2), dRct(0.) in GenelDistance() 298 if (SD2.iOrder == 1) { in AssJac() 323 doublereal dVal2 = SD2.pNode->dGetDofValue(1, SD2.iOrder); in AssRes() 346 if (SD2.iOrder == 0) { in SetValue() 348 dGet() - SD2.pNode->dGetX() in SetValue() 350 } else if (SD2.iOrder == 1) { in SetValue() 352 dGet() - SD2.pNode->dGetXPrime() in SetValue() 364 connectedNodes[1] = SD2.pNode; in GetConnectedNodes() 462 if (SD2.iOrder == 1) { in AssJac() 488 doublereal dVal2 = SD2.pNode->dGetDofValue(1, SD2.iOrder); in AssRes() [all …]
|
/dports/devel/ppl/ppl-1.2/interfaces/Prolog/tests/ |
H A D | schedule.clpq | 2 {S2 =< S1, S1 + D1 = SD1, S2 + D2 = SD2, SD1 =< SD2}. 9 {S2 + D2 = SD2, SD2 < S1}
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gdc.test/fail_compilation/ |
H A D | fail12255.d | 36 int[SD2] d2; // NG in main() 74 struct SD2 111 int[SD2[1]] d2; // NG in testSArray() 136 int[SD2[]] d2; // NG in testDArray()
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gdc.test/fail_compilation/ |
H A D | fail12255.d | 36 int[SD2] d2; // NG in main() 74 struct SD2 111 int[SD2[1]] d2; // NG in testSArray() 136 int[SD2[]] d2; // NG in testDArray()
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gdc.test/fail_compilation/ |
H A D | fail12255.d | 36 int[SD2] d2; // NG in main() 74 struct SD2 111 int[SD2[1]] d2; // NG in testSArray() 136 int[SD2[]] d2; // NG in testDArray()
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gdc.test/fail_compilation/ |
H A D | fail12255.d | 36 int[SD2] d2; // NG in main() 74 struct SD2 111 int[SD2[1]] d2; // NG in testSArray() 136 int[SD2[]] d2; // NG in testDArray()
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gdc.test/fail_compilation/ |
H A D | fail12255.d | 36 int[SD2] d2; // NG in main() 74 struct SD2 111 int[SD2[1]] d2; // NG in testSArray() 136 int[SD2[]] d2; // NG in testDArray()
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gdc.test/fail_compilation/ |
H A D | fail12255.d | 36 int[SD2] d2; // NG in main() 74 struct SD2 111 int[SD2[1]] d2; // NG in testSArray() 136 int[SD2[]] d2; // NG in testDArray()
|