Home
last modified time | relevance | path

Searched refs:ZP (Results 51 – 75 of 1584) sorted by relevance

12345678910>>...64

/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/
H A Ddgamln.f40 * T1, WDTOL, Z, ZDMY, ZINC, ZM, ZMIN, ZP, ZSQ, D1MACH
158 ZP = 1.0D0/ZDMY
159 T1 = CF(1)*ZP
161 IF (ZP.LT.WDTOL) GO TO 40
162 ZSQ = ZP*ZP
165 ZP = ZP*ZSQ
166 TRM = CF(K)*ZP
176 ZP = 1.0D0
179 ZP = ZP*(Z+FLOAT(I-1))
182 DGAMLN = ZDMY*(TLG-1.0D0) - DLOG(ZP) + 0.5D0*(CON-TLG) + S
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/precond/66/
H A Dhecmw_precond_SSOR_66.f90377 X1= ZP(6*k-5)
378 X2= ZP(6*k-4)
379 X3= ZP(6*k-3)
380 X4= ZP(6*k-2)
381 X5= ZP(6*k-1)
514 ZP(6*iold-5)= ZP(6*iold-5) -X1
515 ZP(6*iold-4)= ZP(6*iold-4) -X2
516 ZP(6*iold-3)= ZP(6*iold-3) -X3
517 ZP(6*iold-2)= ZP(6*iold-2) -X4
518 ZP(6*iold-1)= ZP(6*iold-1) -X5
[all …]
H A Dhecmw_precond_66.f9061 subroutine hecmw_precond_66_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime) argument
66 real(kind=kreal), intent(out) :: Z(:), ZP(:) local
77 call hecmw_precond_SSOR_66_apply(ZP)
79 call hecmw_precond_DIAG_66_apply(ZP)
81 call hecmw_precond_BILU_66_apply(ZP)
83 call hecmw_precond_nn_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
91 Z(i)= Z(i) + ZP(i)
96 call hecmw_matresid_66 (hecMESH, hecMAT, Z, R, ZP, COMMtime)
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/lib/frmenus/prob/
H A Dbvncdf.men27 LET ZP = 0
28 @IF 3 0 LET ZP = _3
29 IF ZP < -1
30 LET ZP = 0
32 IF ZP > 1
33 LET ZP = 0
35 @IF 4 0 LET _4 = BVNCDF( ZX , ZY , ZP )
36 @IF 5 0 LET _5 = 1 - BVNCDF( ZX , ZY , ZP )
H A Dpapcdf.men26 LET ZP = 0.5
31 @IF 3 0 LET ZP = _3
32 IF ZP <= 0
33 LET ZP = 0.5
35 IF ZP >= 1
36 LET ZP = 0.5
38 @IF 4 0 LET _4 = PAPCDF( _1 , ZTHETA, ZP )
39 @IF 5 0 LET _5 = 1 - PAPCDF( _1 , ZTHETA, ZP )
H A Dloscdf.men25 LET ZP = 0.75
27 @IF 2 0 LET ZP = _2
28 IF ZP <= 0.5
29 LET ZP = 0.75
31 IF ZP >= 1
32 LET ZP = 0.75
38 @IF 4 0 LET _4 = LOSCDF( _1 , ZP , ZR )
39 @IF 5 0 LET _5 = 1 - LOSCDF( _1 , ZP , ZR )
H A Dbvnpdf.men23 LET ZP = 0
24 @IF 3 0 LET ZP = _3
25 IF ZP < -1
26 LET ZP = 0
28 IF ZP > 1
29 LET ZP = 0
31 @IF 4 0 LET _4 = BVNPDF( _1 , _2 , ZP )
H A Dglgcdf.men27 LET ZP = 0.75
30 @IF 2 0 LET ZP = _2
31 IF ZP <= 0.5
32 LET ZP = 0.75
34 IF ZP >= 1
35 LET ZP = 0.75
45 @IF 5 0 LET _5 = GLGCDF( _1 , ZP , ZJ, ZA )
46 @IF 6 0 LET _6 = 1 - GLGCDF( _1 , ZP , ZJ, ZA )
H A Dqbicdf.men27 LET ZP = 0.5
30 @IF 2 0 LET ZP = _2
31 IF ZP < 0
32 LET ZP = 0.5
34 IF ZP > 1
35 LET ZP = 0.5
42 @IF 5 0 LET _5 = QBICDF( _1 , ZP , ZPHI, ZM )
43 @IF 6 0 LET _6 = 1 - QBICDF( _1 , ZP , ZPHI, ZM )
H A Dlosppf.men23 LET ZP = 0.75
25 @IF 2 0 LET ZP = _2
26 IF ZP <= 0.5
27 LET ZP = 0.75
29 IF ZP >= 1
30 LET ZP = 0.75
36 LET _4 = LOSPPF( _1 , ZP , ZR )
H A Dlospdf.men23 LET ZP = 0.75
25 @IF 2 0 LET ZP = _2
26 IF ZP <= 0.5
27 LET ZP = 0.75
29 IF ZP >= 1
30 LET ZP = 0.75
36 LET _4 = LOSPDF( _1 , ZP , ZR )
H A Dpappdf.men24 LET ZP = 0.5
29 @IF 3 0 LET ZP = _3
30 IF ZP <= 0
31 LET ZP = 0.5
33 IF ZP >= 1
34 LET ZP = 0.5
36 LET _4 = PAPPDF( _1 , ZTHETA, ZP )
H A Dpapppf.men24 LET ZP = 0.5
29 @IF 3 0 LET ZP = _3
30 IF ZP <= 0
31 LET ZP = 0.5
33 IF ZP >= 1
34 LET ZP = 0.5
36 LET _4 = PAPPPF( _1 , ZTHETA, ZP )
H A Dnormxcdf.men36 LET ZP = 0.5
47 @IF 6 0 LET ZP = _6
48 IF ZP <= 0
49 LET ZP = 0.5
51 IF ZP >= 1
52 LET ZP = 0.5
54 @IF 7 0 LET _7 = NORMXCDF(ZZ,ZU1,ZSD1,ZU2,ZSD2,ZP)
55 @IF 8 0 LET _8 = 1 - NORMXCDF(ZZ,ZU1,ZSD1,ZU2,ZSD2,ZP)
H A Dqbipdf.men25 LET ZP = 0.5
28 @IF 2 0 LET ZP = _2
29 IF ZP < 0
30 LET ZP = 0.5
32 IF ZP > 1
33 LET ZP = 0.5
40 LET _5 = QBIPDF( _1 , ZP , ZPHI, ZM )
H A Dglgppf.men25 LET ZP = 0.75
28 @IF 2 0 LET ZP = _2
29 IF ZP <= 0.5
30 LET ZP = 0.75
32 IF ZP >= 1
33 LET ZP = 0.75
43 LET _5 = GLGPPF( _1 , ZP , ZJ, ZA )
H A Dqbippf.men25 LET ZP = 0.5
28 @IF 2 0 LET ZP = _2
29 IF ZP < 0
30 LET ZP = 0.5
32 IF ZP > 1
33 LET ZP = 0.5
40 LET _5 = QBIPPF( _1 , ZP , ZPHI, ZM )
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/
H A Dcord5m.f10 COMMON /IBWHV/ PBWHV, RHO,T,DELTAY,XOVC,TOVC,ZM,ZP local
22 ZP=AJ*.1/2.
24 R=6.*ZP-3.
25 S=-2.+6.*ZP-3.*ZP**2
34 1010 XK=(6.*AI*.01)/(ZP**3-3.*ZM*ZP**2+ZM**2*(3.-ZM)*ZP)
75 IF(X(M).EQ.ZP)YC=AI*.01
76 IF(X(M).EQ.ZP)ALPHA=0.0
86 1020 RK=(3.*((ZM-ZP)**2)-ZM**3)/((1.-ZM)**3)
88 XK=(6.*ZMX)/((ZP-ZM)**3-RK*(1.-ZM)**3*ZP-ZM**3*ZP+ZM**3)
95 IF(X(M).EQ.ZP)YC=AI*.01
[all …]
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/precond/nn/
H A Dhecmw_precond_nn.f9084 subroutine hecmw_precond_nn_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime) argument
89 real(kind=kreal), intent(out) :: Z(:), ZP(:) local
100 call hecmw_precond_SSOR_nn_apply(ZP,hecMAT%NDOF)
102 call hecmw_precond_DIAG_nn_apply(ZP,hecMAT%NDOF)
104 call hecmw_precond_ML_nn_apply(ZP)
106 call hecmw_precond_BILU_nn_apply(ZP,hecMAT%NDOF)
108 call hecmw_precond_nn_SAINV_apply(R,ZP)
110 call hecmw_precond_RIF_nn_apply(ZP,hecMAT%NDOF)
118 Z(i)= Z(i) + ZP(i)
123 call hecmw_matresid_nn (hecMESH, hecMAT, Z, R, ZP, COMMtime)
/dports/misc/libemos/libemos-4.5.9-Source/gribex/
H A Dcalcop.F123 REAL ZP
128 DOUBLE PRECISION ZP
274 ZP = -ZBETA1
276 ZP = MAX(-9.999, MIN(9.999, ZP))
279 ZP = DMAX1(-9.999D0, DMIN1(9.999D0, ZP))
282 ZP = MAX(-9.999D0, MIN(9.999D0, ZP))
286 CALCOP = IDINT( ZP * 1000.0 )
288 CALCOP = INT( ZP * 1000.0 )
/dports/science/dcl/dcl-5.4.8/demo/grph1/scpack/
H A Dscpkt5.f14 REAL XP(3), YP(3), ZP(3)
106 ZP(1) = P(I,J)
109 ZP(2) = P(I,J+1)
112 ZP(3) = P(I+1,J+1)
114 CALL SZT3ZU(XP, YP, ZP)
115 CALL SZL3ZU(3, XP, YP, ZP)
119 ZP(1) = P(I+1,J+1)
122 ZP(2) = P(I+1,J)
125 ZP(3) = P(I,J)
127 CALL SZT3ZU(XP, YP, ZP)
[all …]
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/precond/44/
H A Dhecmw_precond_SSOR_44.f90335 X1= ZP(4*k-3)
336 X2= ZP(4*k-2)
337 X3= ZP(4*k-1)
338 X4= ZP(4*k )
403 X1= ZP(4*k-3)
404 X2= ZP(4*k-2)
405 X3= ZP(4*k-1)
444 ZP(4*iold-3)= ZP(4*iold-3) - X1
445 ZP(4*iold-2)= ZP(4*iold-2) - X2
446 ZP(4*iold-1)= ZP(4*iold-1) - X3
[all …]
H A Dhecmw_precond_44.f9060 subroutine hecmw_precond_44_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime) argument
65 real(kind=kreal), intent(out) :: Z(:), ZP(:) local
76 call hecmw_precond_SSOR_44_apply(ZP)
78 call hecmw_precond_DIAG_44_apply(ZP)
80 call hecmw_precond_BILU_44_apply(ZP)
82 call hecmw_precond_nn_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
90 Z(i)= Z(i) + ZP(i)
95 call hecmw_matresid_44 (hecMESH, hecMAT, Z, R, ZP, COMMtime)
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/precond/
H A Dhecmw_precond.f9075 subroutine hecmw_precond_apply(hecMESH, hecMAT, R, Z, ZP, COMMtime) argument
80 real(kind=kreal), intent(inout) :: Z(:), ZP(:) local
97 ZP(i)= R(i)
100 ZP(i) = 0.d0
108 call hecmw_precond_33_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
110 call hecmw_precond_44_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
112 call hecmw_precond_66_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
114 call hecmw_precond_11_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
116 call hecmw_precond_22_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
118 call hecmw_precond_nn_apply(hecMESH, hecMAT, R, Z, ZP, time_precond, COMMtime)
/dports/science/dcl/dcl-5.4.8/src/grph2/uepack/
H A Duearea.f4 SUBROUTINE UEAREA(XP,YP,ZP,VLVM,AX,AY,NP,NI,NG) argument
7 REAL XP(4),YP(4),ZP(4),VLVM(2),AX(*),AY(*) local
21 IF (ZP(N).GT.ZPMAX) ZPMAX=ZP(N)
22 IF (ZP(N).LT.ZPMIN) ZPMIN=ZP(N)
23 LPM(N,1)=ZP(N).GE.VLVM(1)
24 LPM(N,2)=ZP(N).LE.VLVM(2)
38 FC=(VLVM(M)-ZP(N1))/(ZP(N2)-ZP(N1))

12345678910>>...64