Home
last modified time | relevance | path

Searched refs:PROD (Results 1 – 25 of 1183) sorted by relevance

12345678910>>...48

/dports/math/cmlib/cmlib-3.0_8/src/fcnpak/
H A Dxspnrm.f45 505 PROD=1.
50 PROD=PROD*SQRT(NU+DMU+1.-(FLOAT(I)))
51 510 CALL XSADJ(PROD,IPROD)
53 C1=PROD*SQRT(NU+.5)
59 PROD=SQRT(NU+DMU+1.)*PROD
60 IF(NU.GT.DMU) PROD=PROD*SQRT(NU-DMU)
61 CALL XSADJ(PROD,IPROD)
65 525 PROD=0.
70 530 PROD=SQRT(NU+DMU+1.)*PROD
71 IF(NU.NE.DMU-1.) PROD=PROD/SQRT(NU-DMU+1.)
[all …]
H A Dxdpnrm.f45 505 PROD=1.D0
50 PROD=PROD*DSQRT(NU+DMU+1.D0-DBLE(FLOAT(I)))
51 510 CALL XDADJ(PROD,IPROD)
53 C1=PROD*DSQRT(NU+.5D0)
59 PROD=DSQRT(NU+DMU+1.D0)*PROD
60 IF(NU.GT.DMU) PROD=PROD*DSQRT(NU-DMU)
61 CALL XDADJ(PROD,IPROD)
65 525 PROD=0.
70 530 PROD=DSQRT(NU+DMU+1.D0)*PROD
71 IF(NU.NE.DMU-1.D0) PROD=PROD/DSQRT(NU-DMU+1.D0)
[all …]
H A Dxspmup.f18 REAL DMU,NU,NU1,NU2,PQA,PROD
40 210 PROD=1.
45 PROD=PROD*(DMU-NU-(FLOAT(L)))
46 220 CALL XSADJ(PROD,IPROD)
50 PQA(I)=PQA(I)*PROD*(FLOAT((-1)**MU))
54 PROD=(DMU-NU)*PROD*(-DMU-NU-1.)
55 CALL XSADJ(PROD,IPROD)
59 230 PROD=PROD*(-DMU-NU-1.)/(DMU-NU-1.)
60 CALL XSADJ(PROD,IPROD)
H A Dxdpmup.f18 DOUBLE PRECISION DMU,NU,NU1,NU2,PQA,PROD
40 210 PROD=1.D0
45 PROD=PROD*(DMU-NU-DBLE(FLOAT(L)))
46 220 CALL XDADJ(PROD,IPROD)
50 PQA(I)=PQA(I)*PROD*DBLE(FLOAT((-1)**MU))
54 PROD=(DMU-NU)*PROD*(-DMU-NU-1.D0)
55 CALL XDADJ(PROD,IPROD)
59 230 PROD=PROD*(-DMU-NU-1.D0)/(DMU-NU-1.D0)
60 CALL XDADJ(PROD,IPROD)
/dports/math/R-cran-minqa/minqa/src/
H A Dbigden.f154 150 PROD(K,JC)=PROD(K,JC)+SUM*ZMAT(K,J)
160 170 PROD(K,JC)=PROD(K,JC)+SUM
176 TEMPA=PROD(K,1)*WVEC(K,2)+PROD(K,2)*WVEC(K,1)
202 TEMPA=TWO*PROD(KNEW,1)*PROD(KNEW,2)
203 TEMPB=PROD(KNEW,2)*PROD(KNEW,4)
204 TEMPC=PROD(KNEW,3)*PROD(KNEW,5)
207 TEMPA=TWO*PROD(KNEW,1)*PROD(KNEW,3)
208 TEMPB=PROD(KNEW,2)*PROD(KNEW,5)
209 TEMPC=PROD(KNEW,3)*PROD(KNEW,4)
212 TEMPA=TWO*PROD(KNEW,1)*PROD(KNEW,4)
[all …]
/dports/math/slatec/src/
H A Dxpnrm.f54 505 PROD=1.
59 PROD=PROD*SQRT(NU+DMU+1.-I)
60 510 CALL XADJ(PROD,IPROD,IERROR)
63 C1=PROD*SQRT(NU+.5)
70 PROD=SQRT(NU+DMU+1.)*PROD
71 IF(NU.GT.DMU) PROD=PROD*SQRT(NU-DMU)
72 CALL XADJ(PROD,IPROD,IERROR)
77 525 PROD=0.
82 530 PROD=SQRT(NU+DMU+1.)*PROD
83 IF(NU.NE.DMU-1.) PROD=PROD/SQRT(NU-DMU+1.)
[all …]
H A Ddxpnrm.f54 505 PROD=1.D0
59 PROD=PROD*SQRT(NU+DMU+1.D0-I)
60 510 CALL DXADJ(PROD,IPROD,IERROR)
63 C1=PROD*SQRT(NU+.5D0)
70 PROD=SQRT(NU+DMU+1.D0)*PROD
71 IF(NU.GT.DMU) PROD=PROD*SQRT(NU-DMU)
72 CALL DXADJ(PROD,IPROD,IERROR)
77 525 PROD=0.D0
82 530 PROD=SQRT(NU+DMU+1.D0)*PROD
83 IF(NU.NE.DMU-1.D0) PROD=PROD/SQRT(NU-DMU+1.D0)
[all …]
H A Dxpmup.f25 REAL DMU,NU,NU1,NU2,PQA,PROD
48 210 PROD=1.
53 PROD=PROD*(DMU-NU-L)
54 220 CALL XADJ(PROD,IPROD,IERROR)
59 PQA(I)=PQA(I)*PROD*(-1)**MU
64 PROD=(DMU-NU)*PROD*(-DMU-NU-1.)
65 CALL XADJ(PROD,IPROD,IERROR)
70 230 PROD=PROD*(-DMU-NU-1.)/(DMU-NU-1.)
71 CALL XADJ(PROD,IPROD,IERROR)
H A Ddxpmup.f25 DOUBLE PRECISION DMU,NU,NU1,NU2,PQA,PROD
48 210 PROD=1.D0
53 PROD=PROD*(DMU-NU-L)
54 220 CALL DXADJ(PROD,IPROD,IERROR)
59 PQA(I)=PQA(I)*PROD*(-1)**MU
64 PROD=(DMU-NU)*PROD*(-DMU-NU-1.D0)
65 CALL DXADJ(PROD,IPROD,IERROR)
70 230 PROD=PROD*(-DMU-NU-1.D0)/(DMU-NU-1.D0)
71 CALL DXADJ(PROD,IPROD,IERROR)
/dports/math/scilab/scilab-6.1.1/scilab/modules/integer/src/c/
H A Dgenprod.c18 #define PROD(Typein,Typeout) {\ macro
46 PROD(integer1, int); in C2F()
49 PROD(integer2, int); in C2F()
52 PROD(int, int) ; in C2F()
55 PROD(unsigned char, int); in C2F()
58 PROD(unsigned short, int); in C2F()
61 PROD(unsigned int, int); in C2F()
83 PROD(integer1, double); in C2F()
86 PROD(integer2, double); in C2F()
89 PROD(int, double); in C2F()
[all …]
/dports/science/isaac-cfd/isaac-4.2_16/turb/2eqn/
H A Dkomega.F122 PROD = TAU(I,1) * DQDX(I,2)
140 IF (PROPS(I,4) .LT. 0.E0) PROD = 0.E0
145 IF (PROD .LT. 0.E0) THEN
147 PROD = ABS (PROD)
151 PRODUL = PROD
156 IF (PROD .GT. TSTDIS) THEN
158 PROD = TSTDIS
163 PRODW = PRDE * PROD + PRDEM1 * PRODUL
172 SRC(I,6) = PROD - BSTRKW * RHO * TKE * OMEGA
H A Dkepsln.F295 IF (POSPRD) PROD = ABS (PROD)
302 PROD = MIN (PROD, TSTDIS)
370 IF (POSPRD) PROD = ABS (PROD)
377 PROD = MIN (PROD, TSTDIS)
440 IF (POSPRD) PROD = ABS (PROD)
447 PROD = MIN (PROD, TSTDIS)
829 IF (POSPRD) PROD = ABS (PROD)
834 PROD = MIN (PROD, TSTDIS)
887 IF (POSPRD) PROD = ABS (PROD)
892 PROD = MIN (PROD, TSTDIS)
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddlarrf.f406 PROD = ONE
409 IF( PROD .LE. EPS ) THEN
410 PROD =
413 PROD = PROD*ABS(WORK(N+I))
415 OLDP = PROD
416 ZNM2 = ZNM2 + PROD**2
428 PROD = ONE
431 IF( PROD .LE. EPS ) THEN
434 PROD = PROD*ABS(LPLUS(I))
436 OLDP = PROD
[all …]
H A Dslarrf.f406 PROD = ONE
409 IF( PROD .LE. EPS ) THEN
410 PROD =
413 PROD = PROD*ABS(WORK(N+I))
415 OLDP = PROD
416 ZNM2 = ZNM2 + PROD**2
428 PROD = ONE
431 IF( PROD .LE. EPS ) THEN
434 PROD = PROD*ABS(LPLUS(I))
436 OLDP = PROD
[all …]
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Ddlarrf.f410 PROD = ONE
413 IF( PROD .LE. EPS ) THEN
414 PROD =
417 PROD = PROD*ABS(WORK(N+I))
419 OLDP = PROD
420 ZNM2 = ZNM2 + PROD**2
432 PROD = ONE
435 IF( PROD .LE. EPS ) THEN
438 PROD = PROD*ABS(LPLUS(I))
440 OLDP = PROD
[all …]
H A Dslarrf.f410 PROD = ONE
413 IF( PROD .LE. EPS ) THEN
414 PROD =
417 PROD = PROD*ABS(WORK(N+I))
419 OLDP = PROD
420 ZNM2 = ZNM2 + PROD**2
432 PROD = ONE
435 IF( PROD .LE. EPS ) THEN
438 PROD = PROD*ABS(LPLUS(I))
440 OLDP = PROD
[all …]
/dports/math/blas/lapack-3.10.0/SRC/
H A Dslarrf.f410 PROD = ONE
413 IF( PROD .LE. EPS ) THEN
414 PROD =
417 PROD = PROD*ABS(WORK(N+I))
419 OLDP = PROD
420 ZNM2 = ZNM2 + PROD**2
432 PROD = ONE
435 IF( PROD .LE. EPS ) THEN
438 PROD = PROD*ABS(LPLUS(I))
440 OLDP = PROD
[all …]
H A Ddlarrf.f410 PROD = ONE
413 IF( PROD .LE. EPS ) THEN
414 PROD =
417 PROD = PROD*ABS(WORK(N+I))
419 OLDP = PROD
420 ZNM2 = ZNM2 + PROD**2
432 PROD = ONE
435 IF( PROD .LE. EPS ) THEN
438 PROD = PROD*ABS(LPLUS(I))
440 OLDP = PROD
[all …]
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dslarrf.f410 PROD = ONE
413 IF( PROD .LE. EPS ) THEN
414 PROD =
417 PROD = PROD*ABS(WORK(N+I))
419 OLDP = PROD
420 ZNM2 = ZNM2 + PROD**2
432 PROD = ONE
435 IF( PROD .LE. EPS ) THEN
438 PROD = PROD*ABS(LPLUS(I))
440 OLDP = PROD
[all …]
H A Ddlarrf.f410 PROD = ONE
413 IF( PROD .LE. EPS ) THEN
414 PROD =
417 PROD = PROD*ABS(WORK(N+I))
419 OLDP = PROD
420 ZNM2 = ZNM2 + PROD**2
432 PROD = ONE
435 IF( PROD .LE. EPS ) THEN
438 PROD = PROD*ABS(LPLUS(I))
440 OLDP = PROD
[all …]
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dslarrf.f410 PROD = ONE
413 IF( PROD .LE. EPS ) THEN
414 PROD =
417 PROD = PROD*ABS(WORK(N+I))
419 OLDP = PROD
420 ZNM2 = ZNM2 + PROD**2
432 PROD = ONE
435 IF( PROD .LE. EPS ) THEN
438 PROD = PROD*ABS(LPLUS(I))
440 OLDP = PROD
[all …]
H A Ddlarrf.f410 PROD = ONE
413 IF( PROD .LE. EPS ) THEN
414 PROD =
417 PROD = PROD*ABS(WORK(N+I))
419 OLDP = PROD
420 ZNM2 = ZNM2 + PROD**2
432 PROD = ONE
435 IF( PROD .LE. EPS ) THEN
438 PROD = PROD*ABS(LPLUS(I))
440 OLDP = PROD
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/
H A Ddlarrf.f405 PROD = ONE
408 IF( PROD .LE. EPS ) THEN
409 PROD =
412 PROD = PROD*ABS(WORK(N+I))
414 OLDP = PROD
415 ZNM2 = ZNM2 + PROD**2
427 PROD = ONE
430 IF( PROD .LE. EPS ) THEN
433 PROD = PROD*ABS(LPLUS(I))
435 OLDP = PROD
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Ddlarrf.f413 PROD = ONE
416 IF( PROD .LE. EPS ) THEN
417 PROD =
420 PROD = PROD*ABS(WORK(N+I))
422 OLDP = PROD
423 ZNM2 = ZNM2 + PROD**2
435 PROD = ONE
438 IF( PROD .LE. EPS ) THEN
441 PROD = PROD*ABS(LPLUS(I))
443 OLDP = PROD
[all …]
H A Dslarrf.f413 PROD = ONE
416 IF( PROD .LE. EPS ) THEN
417 PROD =
420 PROD = PROD*ABS(WORK(N+I))
422 OLDP = PROD
423 ZNM2 = ZNM2 + PROD**2
435 PROD = ONE
438 IF( PROD .LE. EPS ) THEN
441 PROD = PROD*ABS(LPLUS(I))
443 OLDP = PROD
[all …]

12345678910>>...48