/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/mathext/internal/amos/amoslib/ |
H A D | dgamln.f | 40 * 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 D | hecmw_precond_SSOR_66.f90 | 377 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 D | hecmw_precond_66.f90 | 61 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 D | bvncdf.men | 27 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 D | papcdf.men | 26 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 D | loscdf.men | 25 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 D | bvnpdf.men | 23 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 D | glgcdf.men | 27 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 D | qbicdf.men | 27 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 D | losppf.men | 23 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 D | lospdf.men | 23 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 D | pappdf.men | 24 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 D | papppf.men | 24 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 D | normxcdf.men | 36 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 D | qbipdf.men | 25 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 D | glgppf.men | 25 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 D | qbippf.men | 25 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 D | cord5m.f | 10 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 D | hecmw_precond_nn.f90 | 84 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 D | calcop.F | 123 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 D | scpkt5.f | 14 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 D | hecmw_precond_SSOR_44.f90 | 335 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 D | hecmw_precond_44.f90 | 60 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 D | hecmw_precond.f90 | 75 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 D | uearea.f | 4 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))
|