Home
last modified time | relevance | path

Searched refs:CSGN (Results 1 – 25 of 46) sorted by relevance

12

/dports/math/slatec/src/
H A Dcbesj.f151 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 Dcbesi.f153 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 Dcacai.f28 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 Dcacon.f26 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 Dcbesh.f155 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 Dcunk2.f27 * 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 Dcbesj.f145 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 Dcbesi.f150 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 Dcacai.f18 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 Dcbesh.f155 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 Dcacon.f16 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 Dcunk2.f17 * 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 Dcbesj.f145 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 Dcbesi.f150 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 Dcacai.f18 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 Dcbesh.f155 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 Dcacon.f16 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 Dcunk2.f17 * 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 Dcqcby.f84 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 Dcqcbi.f80 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 Dcqcbk.f79 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 Dpr52621.f9016 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 Dpr52621.f9016 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 Dpr52621.f9016 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 Dpr52621.f9016 IF (M.NE.1) S(IMM)=S(IMM)+Z3*Y(M-1,L)*CSGN

12