/dports/math/slatec/src/ |
H A D | cbesj.f | 151 COMPLEX CI, CSGN, CY, Z, ZN 214 CSGN = CMPLX(R1,R2) 215 IF (MOD(INUH,2).EQ.1) CSGN = -CSGN 222 CSGN = CONJG(CSGN) 241 ZN = ZN*CSGN 243 CSGN = CSGN*CI
|
H A D | cbesi.f | 153 COMPLEX CONE, CSGN, CY, Z, ZN 208 CSGN = CONE 220 CSGN = CMPLX(S1,S2) 221 IF (MOD(INU,2).EQ.1) CSGN = -CSGN 243 ZN = ZN*CSGN 245 CSGN = -CSGN
|
H A D | cacai.f | 28 COMPLEX CSGN, CSPN, C1, C2, Y, Z, ZN, CY 70 CSGN = CMPLX(0.0E0,SGN) 75 CSGN = CSGN*CMPLX(CPN,SPN) 95 Y(1) = CSPN*C1 + CSGN*C2
|
H A D | cacon.f | 26 COMPLEX CK, CONE, CS, CSCL, CSCR, CSGN, CSPN, CSS, CSR, C1, C2, 49 CSGN = CMPLX(0.0E0,SGN) 54 CSGN = CSGN*CMPLX(CPN,SPN) 75 Y(1) = CSPN*C1 + CSGN*C2 86 Y(2) = CSPN*C1 + CSGN*C2 137 Y(I) = CSPN*C1 + CSGN*C2
|
H A D | cbesh.f | 155 COMPLEX CY, Z, ZN, ZT, CSGN 293 CSGN = CMPLX(-SPN,CPN) 295 IF (MOD(INUH,2).EQ.1) CSGN = -CSGN 310 ZN = ZN*CSGN 312 CSGN = CSGN*ZT
|
H A D | cunk2.f | 27 * CK, CONE, CRSC, CR1, CR2, CS, CSCL, CSGN, CSPN, CSR, CSS, CY, 244 CSGN = CMPLX(0.0E0,SGN) 245 IF (YY.LE.0.0E0) CSGN = CONJG(CSGN) 258 CS = CMPLX(CAR,-SAR)*CSGN
|
/dports/math/octave/octave-6.4.0/liboctave/external/amos/ |
H A D | cbesj.f | 145 COMPLEX CI, CSGN, CY, Z, ZN local 209 CSGN = CMPLX(R1,R2) 210 IF (MOD(INUH,2).EQ.1) CSGN = -CSGN 217 CSGN = CONJG(CSGN) 236 ZN = ZN*CSGN 238 CSGN = CSGN*CI
|
H A D | cbesi.f | 150 COMPLEX CONE, CSGN, CY, Z, ZN local 206 CSGN = CONE 218 CSGN = CMPLX(S1,S2) 219 IF (MOD(INU,2).EQ.1) CSGN = -CSGN 241 ZN = ZN*CSGN 243 CSGN = -CSGN
|
H A D | cacai.f | 18 COMPLEX CSGN, CSPN, C1, C2, Y, Z, ZN, CY local 59 CSGN = CMPLX(0.0E0,SGN) 64 CSGN = CSGN*CMPLX(CPN,SPN) 84 Y(1) = CSPN*C1 + CSGN*C2
|
H A D | cbesh.f | 155 COMPLEX CY, Z, ZN, ZT, CSGN local 294 CSGN = CMPLX(-SPN,CPN) 296 IF (MOD(INUH,2).EQ.1) CSGN = -CSGN 311 ZN = ZN*CSGN 313 CSGN = CSGN*ZT
|
H A D | cacon.f | 16 COMPLEX CK, CONE, CS, CSCL, CSCR, CSGN, CSPN, CSS, CSR, C1, C2, local 38 CSGN = CMPLX(0.0E0,SGN) 43 CSGN = CSGN*CMPLX(CPN,SPN) 64 Y(1) = CSPN*C1 + CSGN*C2 75 Y(2) = CSPN*C1 + CSGN*C2 126 Y(I) = CSPN*C1 + CSGN*C2
|
H A D | cunk2.f | 17 * CK, CONE, CRSC, CR1, CR2, CS, CSCL, CSGN, CSPN, CSR, CSS, CY, local 234 CSGN = CMPLX(0.0E0,SGN) 235 IF (YY.LE.0.0E0) CSGN = CONJG(CSGN) 248 CS = CMPLX(CAR,-SAR)*CSGN
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/Amos/ |
H A D | cbesj.f | 145 COMPLEX CI, CSGN, CY, Z, ZN 208 CSGN = CMPLX(R1,R2) 209 IF (MOD(INUH,2).EQ.1) CSGN = -CSGN 216 CSGN = CONJG(CSGN) 235 ZN = ZN*CSGN 237 CSGN = CSGN*CI
|
H A D | cbesi.f | 150 COMPLEX CONE, CSGN, CY, Z, ZN 205 CSGN = CONE 217 CSGN = CMPLX(S1,S2) 218 IF (MOD(INU,2).EQ.1) CSGN = -CSGN 240 ZN = ZN*CSGN 242 CSGN = -CSGN
|
H A D | cacai.f | 18 COMPLEX CSGN, CSPN, C1, C2, Y, Z, ZN, CY 59 CSGN = CMPLX(0.0E0,SGN) 64 CSGN = CSGN*CMPLX(CPN,SPN) 84 Y(1) = CSPN*C1 + CSGN*C2
|
H A D | cbesh.f | 155 COMPLEX CY, Z, ZN, ZT, CSGN 293 CSGN = CMPLX(-SPN,CPN) 295 IF (MOD(INUH,2).EQ.1) CSGN = -CSGN 310 ZN = ZN*CSGN 312 CSGN = CSGN*ZT
|
H A D | cacon.f | 16 COMPLEX CK, CONE, CS, CSCL, CSCR, CSGN, CSPN, CSS, CSR, C1, C2, 38 CSGN = CMPLX(0.0E0,SGN) 43 CSGN = CSGN*CMPLX(CPN,SPN) 64 Y(1) = CSPN*C1 + CSGN*C2 75 Y(2) = CSPN*C1 + CSGN*C2 126 Y(I) = CSPN*C1 + CSGN*C2
|
H A D | cunk2.f | 17 * CK, CONE, CRSC, CR1, CR2, CS, CSCL, CSGN, CSPN, CSR, CSS, CY, 234 CSGN = CMPLX(0.0E0,SGN) 235 IF (YY.LE.0.0E0) CSGN = CONJG(CSGN) 248 CS = CMPLX(CAR,-SAR)*CSGN
|
/dports/math/slatec/ |
H A D | cqcby.f | 84 COMPLEX CI, CIP, COE1, COE2, CSGN, CSPN, CW, CWRK, V, W, Y, Z, ZN 242 CSGN = CMPLX(COS(ARG),SIN(ARG)) 244 CSGN = CSGN*CIP(I4) 245 CSPN = CONJG(CSGN)*CMPLX(RHPI,0.0E0) 246 CSGN = CSGN*CI 283 COE1 = CSGN
|
H A D | cqcbi.f | 80 COMPLEX CK, CONE, CSGN, CW, CY, W, Y, Z, ZN, ZSC, ZT, ZZ 278 CSGN = CMPLX(CARG,SARG) 279 IF (MOD(INU,2).EQ.1) CSGN = -CSGN 284 W(I) = W(I)*CSGN 285 CSGN = -CSGN
|
H A D | cqcbk.f | 79 COMPLEX CONE, CSGN, CV, CW, CY, W, Y, Z, ZN 228 CSGN = CMPLX(COS(ARG),SIN(ARG)) 230 CSGN = -CSGN 280 ZN = CSGN
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | pr52621.f90 | 16 IF (M.NE.1) S(IMM)=S(IMM)+Z3*Y(M-1,L)*CSGN
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
H A D | pr52621.f90 | 16 IF (M.NE.1) S(IMM)=S(IMM)+Z3*Y(M-1,L)*CSGN
|
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
H A D | pr52621.f90 | 16 IF (M.NE.1) S(IMM)=S(IMM)+Z3*Y(M-1,L)*CSGN
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
H A D | pr52621.f90 | 16 IF (M.NE.1) S(IMM)=S(IMM)+Z3*Y(M-1,L)*CSGN
|