/dports/math/cmlib/cmlib-3.0_8/src/fcnpak/ |
H A D | xspnrm.f | 45 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 D | xdpnrm.f | 45 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 D | xspmup.f | 18 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 D | xdpmup.f | 18 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 D | bigden.f | 154 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 D | xpnrm.f | 54 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 D | dxpnrm.f | 54 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 D | xpmup.f | 25 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 D | dxpmup.f | 25 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 D | genprod.c | 18 #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 D | komega.F | 122 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 D | kepsln.F | 295 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 D | dlarrf.f | 406 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 D | slarrf.f | 406 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 D | dlarrf.f | 410 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 D | slarrf.f | 410 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 D | slarrf.f | 410 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 D | dlarrf.f | 410 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 D | slarrf.f | 410 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 D | dlarrf.f | 410 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 D | slarrf.f | 410 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 D | dlarrf.f | 410 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 D | dlarrf.f | 405 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 D | dlarrf.f | 413 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 D | slarrf.f | 413 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 …]
|