/dports/math/math77/MATH77/demo/ |
H A D | drdfrenl.f | 16 double precision X, YC, YF, YG, YS variable 25 YC = DFRENC(X) 29 print '(1p,5e15.07)', X, YC, YS, YG, YF
|
H A D | drsfrenl.f | 16 real X, YC, YF, YG, YS variable 25 YC = SFRENC(X) 29 print '(1p,5e15.07)', X, YC, YS, YG, YF
|
/dports/science/berkeleygw/BGW-2.0.0/BSE/SSEIG/ |
H A D | pdtest_ssmv.f90 | 10 Y( MATLEN ), YC( MATLEN ), & variable 67 CALL PDCOPY( N, Y, 1, 1, DESCY, INCY, YC, 1, 1, DESCY, & 73 DESCX, INCX, BETA, YC, 1, 1, DESCY, INCY ) 75 ERR = PDERRVEC( N, Y, 1, 1, DESCY, INCY, ONE, YC, 1, 1, &
|
H A D | pstest_ssmv.f90 | 10 Y( MATLEN ), YC( MATLEN ), & variable 67 CALL PSCOPY( N, Y, 1, 1, DESCY, INCY, YC, 1, 1, DESCY, & 73 DESCX, INCX, BETA, YC, 1, 1, DESCY, INCY ) 75 ERR = PSERRVEC( N, Y, 1, 1, DESCY, INCY, ONE, YC, 1, 1, &
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/ |
H A D | pssyr2_.c | 255 char * Aptr = NULL, * XC = NULL, * XR = NULL, * YC = NULL, local 329 YRd0, ROW, &YC, YCd0, &YCfr ); 334 Yd, COLUMN, &YC, YCd0, &YCfr ); 335 PB_CInV( type, NOCONJG, ROW, *N, *N, Ad0, 1, YC, 0, 0, 370 sger_( &Akp, &Anq0, ((char *) ALPHA), YC, &ione, 377 Mptr( YC, Akp, 0, YCld, size ), YCld, 392 Mptr( YC, Akp, 0, YCld, size ), YCld, 405 Mptr( YC, Akp, 0, YCld, size ), &ione, 415 if( YCfr ) free( YC );
|
H A D | pdsyr2_.c | 255 char * Aptr = NULL, * XC = NULL, * XR = NULL, * YC = NULL, local 329 YRd0, ROW, &YC, YCd0, &YCfr ); 334 Yd, COLUMN, &YC, YCd0, &YCfr ); 335 PB_CInV( type, NOCONJG, ROW, *N, *N, Ad0, 1, YC, 0, 0, 370 dger_( &Akp, &Anq0, ((char *) ALPHA), YC, &ione, 377 Mptr( YC, Akp, 0, YCld, size ), YCld, 392 Mptr( YC, Akp, 0, YCld, size ), YCld, 405 Mptr( YC, Akp, 0, YCld, size ), &ione, 415 if( YCfr ) free( YC );
|
H A D | pzher2_.c | 260 char * Aptr = NULL, * XC = NULL, * XR = NULL, * YC = NULL, local 336 YRd0, ROW, &YC, YCd0, &YCfr ); 341 Yd, COLUMN, &YC, YCd0, &YCfr ); 342 PB_CInV( type, NOCONJG, ROW, *N, *N, Ad0, 1, YC, 0, 0, 379 zgerc_( &Akp, &Anq0, ((char *) Calpha), YC, &ione, 386 Mptr( YC, Akp, 0, YCld, size ), YCld, 401 Mptr( YC, Akp, 0, YCld, size ), YCld, 414 Mptr( YC, Akp, 0, YCld, size ), &ione, 424 if( YCfr ) free( YC );
|
H A D | pcher2_.c | 260 char * Aptr = NULL, * XC = NULL, * XR = NULL, * YC = NULL, local 336 YRd0, ROW, &YC, YCd0, &YCfr ); 341 Yd, COLUMN, &YC, YCd0, &YCfr ); 342 PB_CInV( type, NOCONJG, ROW, *N, *N, Ad0, 1, YC, 0, 0, 379 cgerc_( &Akp, &Anq0, ((char *) Calpha), YC, &ione, 386 Mptr( YC, Akp, 0, YCld, size ), YCld, 401 Mptr( YC, Akp, 0, YCld, size ), YCld, 414 Mptr( YC, Akp, 0, YCld, size ), &ione, 424 if( YCfr ) free( YC );
|
/dports/graphics/pgplot/pgplot/src/ |
H A D | pgbox.f | 99 REAL TIKL, TIKL1, TIKL2, XC, YC local 458 YC = (I*YINT-YBLC)/(YTRC-YBLC) 465 IF (YOPTN) CALL PGMTXT('LV',YNVDSP,YC,1.0,CLBL(1:NC)) 466 IF (YOPTM) CALL PGMTXT('RV',YMVDSP,YC,0.0,CLBL(1:NC)) 468 IF (YOPTN) CALL PGMTXT('L',YNDSP,YC,0.5,CLBL(1:NC)) 469 IF (YOPTM) CALL PGMTXT('R',YMDSP,YC,0.5,CLBL(1:NC)) 481 YC = (YVAL-YBLC)/(YTRC-YBLC) 488 1 CALL PGMTXT('LV', YNVDSP, YC, 1.0, CLBL(1:NC)) 490 1 CALL PGMTXT('RV', YMVDSP, YC, 0.0, CLBL(1:NC)) 493 1 CALL PGMTXT('L', YNDSP, YC, 0.5, CLBL(1:NC)) [all …]
|
/dports/misc/xtar/xtar-1.4/Xbr/ |
H A D | XbrGfx.c | 741 if (YC<Height) in XbrGfxAddtoPixel() 756 YC++; in XbrGfxAddtoPixel() 763 YC += 8; in XbrGfxAddtoPixel() 764 if (YC >= Height) { in XbrGfxAddtoPixel() 766 YC = 4; in XbrGfxAddtoPixel() 770 YC += 8; in XbrGfxAddtoPixel() 771 if (YC >= Height) { in XbrGfxAddtoPixel() 773 YC = 2; in XbrGfxAddtoPixel() 777 YC += 4; in XbrGfxAddtoPixel() 780 YC = 1; in XbrGfxAddtoPixel() [all …]
|
/dports/science/dcl/dcl-5.4.8/src/math2/shtlib/ |
H A D | shms2w.f | 6 SUBROUTINE SHMS2W(MM,JM,ISW,S,W,SD,PM,YS,YC,PY,R) argument 10 REAL YS(0:JM),YC(0:JM) local 14 CALL SHMSWA(MM,JM,ISW,0,MM,S,W,SD,PM,YS,YC,PY,R)
|
H A D | shlbwu.f | 6 SUBROUTINE SHLBWU(MM,JM,M,ISW,SM,WM,SD,PM,YS,YC,PY,R) argument 12 REAL YS(0:JM),YC(0:JM) local 16 CALL SHLBWM(MM,JM,M,ISW,SM,WM,SD,PM,YC,R)
|
H A D | shmswz.f | 6 SUBROUTINE SHMSWZ(MM,JM,ISW,S,WZ,SD,PM,YS,YC,PY,R) argument 10 REAL YS(0:JM),YC(0:JM) local 21 CALL SHLBWM(MM,JM,M,ISW,S,WZ,SD,PM,YC,R)
|
H A D | shmwjz.f | 6 SUBROUTINE SHMWJZ(MM,JM,ISW,J,S,WJD,SD,PMJ,YS,YC,PY,R) argument 10 REAL YS(0:JM),YC(0:JM) local 21 CALL SHLBWJ(MM,JM,M,J,ISW,S,WJD,SD,PMJ,YC,R)
|
H A D | shinip.f | 6 SUBROUTINE SHINIP(MM,JM,YS,YC,PY) argument 8 REAL YS(0:JM),YC(0:JM) local 31 PY(1,J,M)=A*YC(J)*PY(1,J,M-1)
|
/dports/databases/grass7/grass-7.8.6/imagery/i.ortho.photo/lib/ |
H A D | orthoref.c | 186 *YC = init_info->YC_init; in I_compute_ortho_equations() 253 *YC = meanY; in I_compute_ortho_equations() 301 epsilon.x[1][0] = *YC; in I_compute_ortho_equations() 331 *YC = epsilon.x[1][0]; in I_compute_ortho_equations() 340 *XC, *YC, *ZC, *Omega, *Phi, *Kappa); in I_compute_ortho_equations() 398 dy = Y - *YC; in I_compute_ortho_equations() 410 XYZ.x[1][0] = Y - *YC; in I_compute_ortho_equations() 554 *YC = epsilon.x[1][0]; in I_compute_ortho_equations() 646 dy = n1 - YC; in I_ortho_ref() 652 XYZ.x[1][0] = n1 - YC; in I_ortho_ref() [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/umpack/ |
H A D | umspct.f | 65 YC = (ST1+ST2)/2./CPR 71 YC = ST1/CPR 73 IF (YC .EQ. 0) 78 B = PI/2. - YC
|
/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/ |
H A D | divers.f | 174 SUBROUTINE ECRIT(XC,YC,DX,I) argument 178 CALL GSCHAR(XC-5.*DX,YC,5,CNUMER) 180 CALL GSCHAR(XC-4.*DX,YC,4,CNUMER(2:5)) 182 CALL GSCHAR(XC-3.*DX,YC,3,CNUMER(3:5)) 184 CALL GSCHAR(XC-2.*DX,YC,2,CNUMER(4:5)) 186 CALL GSCHAR(XC-DX,YC,1,CNUMER(5:5))
|
H A D | axes.f | 134 YC = 0.5*(Y0+Y1) 148 YB = YA + YC 151 CALL GSMOVE(XC,YC) 158 YYY(1) = YC 166 YYY(2) = YC - XLA*XA 167 YYY(3) = YC + XLA*XA 174 YB = YC + 1.4*YA - YSHIFT
|
/dports/science/xcrysden/xcrysden-1.6.2/F/ |
H A D | readf1.f | 8 1 TMPVEC(3,3),XC(NAC,4),YC(NAC,4),ZC(NAC,4),fv(NAC,3) 180 READ(11,*) NAT(I),XC(I,J),YC(I,J),ZC(I,J) 183 YC(I,J) = YC(I,J) * BOHR 187 $ NAT(I),XC(I,J),YC(I,J),ZC(I,J)
|
H A D | multatom.f | 11 * XC(6*INATOM),YC(6*INATOM),ZC(6*INATOM), 317 * XC,YC,ZC,DI,DJ,DK,DI+1,DJ,DK) 319 * XC,YC,ZC,DI,DJ,DK,DI,DJ+1,DK) 321 * XC,YC,ZC,DI,DJ,DK,DI,DJ,DK+1) 364 WRITE(12,22) IFLAG,XC(I),YC(I),ZC(I),XC(I+1),YC(I+1),ZC(I+1) 404 SUBROUTINE MAKEFRAME(NATOM,N,DVEC,XC,YC,ZC,DI,DJ,DK,DI1,DJ1,DK1) 411 REAL*8 XC(6*INATOM),YC(6*INATOM),ZC(6*INATOM),DVEC(3,3) 417 YC(N)=DI*DVEC(1,2)+DJ*DVEC(2,2)+DK*DVEC(3,2) 421 YC(N)=DI1*DVEC(1,2)+DJ1*DVEC(2,2)+DK1*DVEC(3,2)
|
H A D | gengeom.f | 680 * XC(NAC,4),YC(NAC,4),ZC(NAC,4), 729 YC(I,1)=Y(I) 735 CALL GETCCOOR(DVC,AC,2,X,Y,Z,XC,YC,ZC,I,NATR) 740 CALL GETCCOOR(DVC,BC,2,X,Y,Z,XC,YC,ZC,I,NATR) 745 CALL GETCCOOR(DVC,CC,2,X,Y,Z,XC,YC,ZC,I,NATR) 752 CALL GETCCOOR(DVC,FC,IN,X,Y,Z,XC,YC,ZC,I,NATR) 759 CALL GETCCOOR(DVC,IC,2,X,Y,Z,XC,YC,ZC,I,NATR) 766 CALL GETCCOOR(DVC,RC,IN,X,Y,Z,XC,YC,ZC,I,NATR) 796 $ NAT(I),XC(I,II),YC(I,II),ZC(I,II) 909 * XC(NAC,4),YC(NAC,4),ZC(NAC,4),RX(3) [all …]
|
/dports/cad/qflow/qflow-1.4.98/tech/gscl45nm/ |
H A D | gscl45nm.v | 382 module FAX1 (YC, B, C, A, YS); 386 output YC ; port 392 or (YC, I0_out, I1_out, I3_out); 413 (A *> YC) = (tpllh$A$YC, tphhl$A$YC); 415 (B *> YC) = (tpllh$B$YC, tphhl$B$YC); 417 (C *> YC) = (tpllh$C$YC, tphhl$C$YC); 433 module HAX1 (YS, B, A, YC); 437 output YC ; port 440 and (YC, A, B); 455 (A *> YC) = (tpllh$A$YC, tphhl$A$YC); [all …]
|
/dports/cad/qflow/qflow-1.4.98/tech/osu018/ |
H A D | osu018_stdcells.v | 379 module FAX1 (A, B, C, YC, YS); 383 output YC ; port 389 or (YC, I0_out, I1_out, I3_out); 410 (A *> YC) = (tpllh$A$YC, tphhl$A$YC); 412 (B *> YC) = (tpllh$B$YC, tphhl$B$YC); 414 (C *> YC) = (tpllh$C$YC, tphhl$C$YC); 430 module HAX1 (A, B, YC, YS); 433 output YC ; port 436 and (YC, A, B); 452 (A *> YC) = (tpllh$A$YC, tphhl$A$YC); [all …]
|
/dports/cad/qflow/qflow-1.4.98/tech/osu035_redm4/ |
H A D | osu035_stdcells.v | 379 module FAX1 (A, B, C, YC, YS); 383 output YC ; port 389 or (YC, I0_out, I1_out, I3_out); 410 (A *> YC) = (tpllh$A$YC, tphhl$A$YC); 412 (B *> YC) = (tpllh$B$YC, tphhl$B$YC); 414 (C *> YC) = (tpllh$C$YC, tphhl$C$YC); 430 module HAX1 (A, B, YC, YS); 433 output YC ; port 436 and (YC, A, B); 452 (A *> YC) = (tpllh$A$YC, tphhl$A$YC); [all …]
|