/dports/math/math77/MATH77/demo/ |
H A D | drderf.f | 12 double precision D1MACH, DERF, DERFC, DERFCE, X, XMAX, YE, YC, YCE variable 23 YC= DERFC(X) 25 print '(1x,f5.1,1x,2e17.8)', X,YE,YC 28 print '(1x,f5.1,1x,3e17.8)', X,YE,YC,YCE
|
H A D | drserf.f | 12 real R1MACH, SERF, SERFC, SERFCE, X, XMAX, YE, YC, YCE variable 23 YC= SERFC(X) 25 print '(1x,f5.1,1x,2e17.8)', X,YE,YC 28 print '(1x,f5.1,1x,3e17.8)', X,YE,YC,YCE
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/ |
H A D | PB_Ctzher2.c | 22 char * YC, int LDYC, char * XR, int LDXR, char * YR, in PB_Ctzher2() argument 25 void PB_Ctzher2( TYPE, UPLO, M, N, K, IOFFD, ALPHA, XC, LDXC, YC, LDYC, in PB_Ctzher2() 36 char * A, * XC, * XR, * YC, * YR; 199 gerc( &M, &n1, Calph, YC, &ione, XR, &LDXR, A, &LDA ); 214 gerc( &m1, &n1, Calph, Mptr( YC, i1, 0, LDYC, size ), &ione, 230 gerc( &m1, &n1, Calph, YC, &ione, XR, &LDXR, A, &LDA ); 241 gerc( &M, &n1, Calph, YC, &ione, Mptr( XR, 0, j1, LDXR, size ), &LDXR, 249 gerc( &M, &N, Calph, YC, &ione, XR, &LDXR, A, &LDA );
|
/dports/science/dcl/dcl-5.4.8/src/math1/maplib/ |
H A D | mpfpt2.f | 44 YC = 0.5 * (YC1 + YC2) 46 R = SQRT((X2 - XC) ** 2 + (Y2 - YC) ** 2) 48 RHO = SQRT(XC ** 2 + (PI - YC) ** 2) 57 IF (ATAN2(X2, -Y2) .LT. ATAN2(XC, -YC)) THEN 62 X = R0RHO * (COS(ALPHA) * XC - SIN(ALPHA) * (YC - PI)) 63 Y = R0RHO * (SIN(ALPHA) * XC + COS(ALPHA) * (YC - PI)) + PI
|
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | cord5m.f | 75 IF(X(M).EQ.ZP)YC=AI*.01 77 IF(X(M).LT.ZM)YC=(1./6.)*XK*(X(M)**3-3.*ZM*X(M)**2+ZM**2 83 IF(X(M).GT.ZM)YC=(1./6.)*XK*ZM**3*(1.-X(M)) 90 IF(X(M).LT.ZM)YC=(1./6.)*XK*((X(M)-ZM)**3-RK*X(M)*(1.-ZM)**3 95 IF(X(M).EQ.ZP)YC=AI*.01 98 IF(X(M).GT.ZM)YC=(1./6.)*XK*(RK*(X(M)-ZM)**3-RK*X(M)*(1.-ZM)**3 103 YUN(M)=YC+YT*COS(ALPHA) 105 YLN(M)=YC-YT*COS(ALPHA) 106 CAM(M)=YC
|
/dports/graphics/pgplot/pgplot/src/ |
H A D | pgcl.f | 24 REAL XX, YY, XC, YC, XV1, XV2, YV1, YV2, XL, XR, YB, YT local 46 YC = (YY+YP)*0.5 59 YN = (YC-YB)/(YT-YB) 66 CALL PGQTXT(XC, YC, ANGLE, 0.5, PGCLAB, XBOX, YBOX) 70 CALL PGPTXT(2.0*XC-XO, 2.0*YC-YO, ANGLE, 0.5, PGCLAB)
|
/dports/graphics/opencv/opencv-4.5.3/modules/imgproc/src/ |
H A D | floodfill.cpp | 160 int k, YC, PL, PR, dir; in floodFill_CnIR() local 161 ICV_POP( YC, L, R, PL, PR, dir ); in floodFill_CnIR() 176 if( YMax < YC ) YMax = YC; in floodFill_CnIR() 177 if( YMin > YC ) YMin = YC; in floodFill_CnIR() 187 img = image.ptr<_Tp>(YC + dir); in floodFill_CnIR() 330 int k, YC, PL, PR, dir; in floodFillGrad_CnIR() local 331 ICV_POP( YC, L, R, PL, PR, dir ); in floodFillGrad_CnIR() 348 if( YMax < YC ) YMax = YC; in floodFillGrad_CnIR() 349 if( YMin > YC ) YMin = YC; in floodFillGrad_CnIR() 356 _Tp* img1 = (_Tp*)(pImage + YC * step); in floodFillGrad_CnIR() [all …]
|
/dports/graphics/xd3d/xd3d-8.3.1/src/graphic/ |
H A D | trace.f | 288 YC = YMAX-(REAL(NCOURB)+.25)*YBOXR-YBOX 290 YC = YMIN+.75*YBOX 296 YYY(1) = YC 297 YYY(2) = YC 298 YYY(3) = YC + YBOXR*(REAL(NCOURB)+.4) 395 SUBROUTINE RAPROC2(X0,Y0,X,Y,N,IPREC,XB,YB,XC,YC) argument 400 &.AND.Y.GE.YC(1).AND.Y.LE.YC(3)) THEN 408 DY0 = YC(II)-YC(J) 420 YB(N) = YC(IPREC) 445 DY0 = YC(II)-YC(J) [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph1/szpack/ |
H A D | szpcll.f | 86 YC=VY1-DYDX*VX1 88 YI=YC+DYDX*XI 91 XI=(YI-YC)/DYDX 128 YC=VY1-DYDX*VX1 130 XJ(1)=DXDY*(YJ(1)-YC) 132 YJ(2)=YC+DYDX*XJ(2) 134 YJ(3)=YC+DYDX*XJ(3) 136 XJ(4)=DXDY*(YJ(4)-YC)
|
/dports/science/xcrysden/xcrysden-1.6.2/F/ |
H A D | multhexa.f | 9 REAL*8 TTC(3,13),TOL,XC(INATOM),YC(INATOM),ZC(INATOM), 129 YC(N)=YPOS 251 DIS=DIST(XC(I),YC(I),ZC(I),XC(J),YC(J),ZC(J)) 257 * WRITE(12,23) '1',XC(I),YC(I),ZC(I),XC(J),YC(J),ZC(J) 260 * WRITE(12,23) '2',XC(I),YC(I),ZC(I),XC(J),YC(J),ZC(J) 265 * WRITE(12,23) '1',XC(I),YC(I),ZC(I),XC(J),YC(J),ZC(J)
|
/dports/science/dcl/dcl-5.4.8/demo/rakuraku/kihon/ |
H A D | kihon5.f | 7 REAL X(0:NMAX,IMAX), Y(0:NMAX,IMAX), XC(IMAX), YC(IMAX) 10 DATA YC/0.75, 0.75, 0.25, 0.25/ 16 Y(N,I) = 0.2*SIN(N*DT) + YC(I) 22 Y(N,IMAX) = 0.2*SIN(N*DT) + YC(IMAX)
|
/dports/science/dcl/dcl-5.4.8/src/math2/shtlib/ |
H A D | shmswj.f | 6 SUBROUTINE SHMSWJ(MM,JM,ISW,J,M1,M2,S,WJ,SD,PMJ,YS,YC,PY,R) argument 10 REAL YS(0:JM),YC(0:JM) local 17 CALL SHMWJZ(MM,JM,ISW,J,S,WJ(0),SD,PMJ,YS,YC,PY,R) 21 CALL SHMWJM(MM,JM,ISW,J,M,S,WJ(M),WJ(-M),SD,PMJ,YS,YC,PY,R)
|
H A D | shinit.f | 6 SUBROUTINE SHINIT(MM,JM,IM,Y,YS,YC,X,XS,XC,XW,Z,PY,PX,R,WFFT) argument 8 REAL Y(0:JM),YS(0:JM),YC(0:JM) local 16 CALL SHINIY(JM,Y,YS,YC) 19 CALL SHINIP(MM,JM,YS,YC,PY)
|
H A D | shmswm.f | 6 SUBROUTINE SHMSWM(MM,JM,M,ISW,S,WR,WI,SD,PM,YS,YC,PY,R) argument 10 REAL YS(0:JM),YC(0:JM) local 16 CALL SHLBWM(MM,JM,M,ISW,S(LR),WR,SD,PM,YC,R) 17 CALL SHLBWM(MM,JM,M,ISW,S(LI),WI,SD,PM,YC,R)
|
H A D | shmwjm.f | 6 SUBROUTINE SHMWJM(MM,JM,ISW,J,M,S,WJR,WJI,SD,PMJ,YS,YC,PY,R) argument 10 REAL YS(0:JM),YC(0:JM) local 18 CALL SHLBWJ(MM,JM,M,J,ISW,S(LR),WJR,SD,PMJ,YC,R) 19 CALL SHLBWJ(MM,JM,M,J,ISW,S(LI),WJI,SD,PMJ,YC,R)
|
H A D | shmswa.f | 6 SUBROUTINE SHMSWA(MM,JM,ISW,M1,M2,S,W,SD,PM,YS,YC,PY,R) argument 10 REAL YS(0:JM),YC(0:JM) local 19 CALL SHMSWZ(MM,JM,ISW,S,W(-JM,0),SD,PM,YS,YC,PY,R) 23 CALL SHMSWM(MM,JM,M,ISW,S,W(-JM,M),W(-JM,-M),SD,PM,YS,YC,PY,R)
|
H A D | shpfun.f | 6 SUBROUTINE SHPFUN(MM,JM,M,FUN,PM,YS,YC,PY,R) argument 10 REAL YS(0:JM),YC(0:JM),PY(2,0:JM,0:MM),R((MM+1)*(MM+1)) local 30 FUN( J,N)=FUN( J,N)*YC(J) 31 FUN(-J,N)=FUN(-J,N)*YC(J)
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/ |
H A D | pchemv_.c | 262 char * Aptr = NULL, * XC = NULL, * XR = NULL, * YC = NULL, local 394 Yi, Yj, Yd, COLUMN, ((char**)(&tbeta)), &YC, YCd, &YCfr, 479 cset_( &Amp, ((char *) tbeta), YC, &ione ); 483 cscal_( &Amp, ((char *) tbeta), YC, &ione ); 508 XRld, size ), &XRld, one, YC, &ione ); 563 Ccgsum2d( ctxt, ROW, &top, Amp, 1, YC, YCd[LLD_], myrow, 0 ); 579 PB_Cpaxpby( type, NOCONJG, *N, 1, one, YC, 0, 0, YCd, COLUMN, one, 611 Ccgsum2d( ctxt, ROW, &top, Amp, 1, YC, YCd[LLD_], myrow, 618 YC, 0, 0, YCd, COLUMN ); 624 PB_Cpaxpby( type, NOCONJG, *N, 1, one, YC, 0, 0, YCd, [all …]
|
H A D | pzhemv_.c | 262 char * Aptr = NULL, * XC = NULL, * XR = NULL, * YC = NULL, local 394 Yi, Yj, Yd, COLUMN, ((char**)(&tbeta)), &YC, YCd, &YCfr, 479 zset_( &Amp, ((char *) tbeta), YC, &ione ); 483 zscal_( &Amp, ((char *) tbeta), YC, &ione ); 508 XRld, size ), &XRld, one, YC, &ione ); 563 Czgsum2d( ctxt, ROW, &top, Amp, 1, YC, YCd[LLD_], myrow, 0 ); 579 PB_Cpaxpby( type, NOCONJG, *N, 1, one, YC, 0, 0, YCd, COLUMN, one, 611 Czgsum2d( ctxt, ROW, &top, Amp, 1, YC, YCd[LLD_], myrow, 618 YC, 0, 0, YCd, COLUMN ); 624 PB_Cpaxpby( type, NOCONJG, *N, 1, one, YC, 0, 0, YCd, [all …]
|
H A D | pdsymv_.c | 259 char * Aptr = NULL, * XC = NULL, * XR = NULL, * YC = NULL, local 390 Yi, Yj, Yd, COLUMN, ((char**)(&tbeta)), &YC, YCd, &YCfr, 473 dset_( &Amp, ((char *) tbeta), YC, &ione ); 477 dscal_( &Amp, ((char *) tbeta), YC, &ione ); 502 XRld, size ), &XRld, one, YC, &ione ); 557 Cdgsum2d( ctxt, ROW, &top, Amp, 1, YC, YCd[LLD_], myrow, 0 ); 573 PB_Cpaxpby( type, NOCONJG, *N, 1, one, YC, 0, 0, YCd, COLUMN, one, 605 Cdgsum2d( ctxt, ROW, &top, Amp, 1, YC, YCd[LLD_], myrow, 612 YC, 0, 0, YCd, COLUMN ); 618 PB_Cpaxpby( type, NOCONJG, *N, 1, one, YC, 0, 0, YCd, [all …]
|
H A D | pssymv_.c | 259 char * Aptr = NULL, * XC = NULL, * XR = NULL, * YC = NULL, local 390 Yi, Yj, Yd, COLUMN, ((char**)(&tbeta)), &YC, YCd, &YCfr, 473 sset_( &Amp, ((char *) tbeta), YC, &ione ); 477 sscal_( &Amp, ((char *) tbeta), YC, &ione ); 502 XRld, size ), &XRld, one, YC, &ione ); 557 Csgsum2d( ctxt, ROW, &top, Amp, 1, YC, YCd[LLD_], myrow, 0 ); 573 PB_Cpaxpby( type, NOCONJG, *N, 1, one, YC, 0, 0, YCd, COLUMN, one, 605 Csgsum2d( ctxt, ROW, &top, Amp, 1, YC, YCd[LLD_], myrow, 612 YC, 0, 0, YCd, COLUMN ); 618 PB_Cpaxpby( type, NOCONJG, *N, 1, one, YC, 0, 0, YCd, [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/tests/QMMM/QS/sample_pot/ |
H A D | acn.pot | 18 CT YC 400.0 1.458 19 YC YN 600.0 1.150 41 CT YC YN 80.0 180.0 42 HC CT YC 35.0 110.0 69 YN YC CT HC 0.0 1 0.0 91 YC 0.0 0.0860 1.908
|
/dports/science/cp2k-data/cp2k-7.1.0/tests/QMMM/QS/sample_pot/ |
H A D | acn.pot | 18 CT YC 400.0 1.458 19 YC YN 600.0 1.150 41 CT YC YN 80.0 180.0 42 HC CT YC 35.0 110.0 69 YN YC CT HC 0.0 1 0.0 91 YC 0.0 0.0860 1.908
|
/dports/science/berkeleygw/BGW-2.0.0/BSE/SSEIG/ |
H A D | stest_ssmv.f90 | 12 Y( VECLEN ), YC( VECLEN ) variable 49 CALL SCOPY( N, Y, INCY, YC, INCY ) 53 YC, INCY ) 55 ERR = SERRVEC( N, Y, INCY, ONE, YC, INCY )
|
H A D | dtest_ssmv.f90 | 12 Y( VECLEN ), YC( VECLEN ) variable 49 CALL DCOPY( N, Y, INCY, YC, INCY ) 53 YC, INCY ) 55 ERR = DERRVEC( N, Y, INCY, ONE, YC, INCY )
|