/dports/science/dcl/dcl-5.4.8/src/math2/shtlib/ |
H A D | shlbwj.f | 6 SUBROUTINE SHLBWJ(MM,JM,M,J,ISW,SM,WMJ,SD,PMJ,YC,R) argument 10 REAL YC(0:JM) local 23 WS=WS*YC(JD) 24 WA=WA*YC(JD) 30 WS=WS/YC(JD) 31 WA=WA/YC(JD)
|
H A D | shlbwm.f | 6 SUBROUTINE SHLBWM(MM,JM,M,ISW,SM,WM,SD,PM,YC,R) argument 11 REAL YC(0:JM) local 30 WM( J)=WM( J)*YC(J) 31 WM(-J)=WM(-J)*YC(J) 35 WM( J)=WM( J)/YC(J) 36 WM(-J)=WM(-J)/YC(J)
|
/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/ |
H A D | rayons.f | 18 CALL RAY0(IND2,XXX,YYY,ZZZ,XC,YC,ZC,RR0) 22 YC = Y0 30 SY = -DNI*YC 33 D = D + (XXX(I)-XC)**2 + (YYY(I)-YC)**2 + (ZZZ(I)-ZC)**2 71 YC = YC - B(2) 78 SY = -DNI*YC 100 SUBROUTINE RAY0(IND,XXX,YYY,ZZZ,XC,YC,ZC,RR) argument 136 YC = .5*( B(2,1)*BB(1) + B(2,2)*BB(2) + B(2,3)*BB(3) ) 140 YCC = YCC+YC 149 YC = YCC/REAL(NBRAY) [all …]
|
H A D | tics.f | 171 YC = Y1 174 YC = Y2 177 ANG = DEGRE((XC-XX)*USNOR,(YC-YY)*USNOR) 179 YC = YC - YSHIFT 181 IF (ANG.LT.0.) YC = YC - 2.*YSHIFT 184 IF (ANG.LT.0.) YC = YC - 2.*YSHIFT 187 IF (ANG.LT.0.) YC = YC - 2.*YSHIFT 190 YC = YC - YSHIFT 196 CALL GSCHAR(XC,YC,NC,CC) 199 IF (ILOG.NE.0) CALL GSCHAR(XC-4.*XSHIFT,YC-YSHIFT,2,'10')
|
/dports/science/dcl/dcl-5.4.8/demo/grph1/sgpack/ |
H A D | sgpk06.f | 18 YC = 0.5 38 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト 51 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト 61 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト 71 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト 82 CALL SGTXU(XC, YC, 'SGTXU') ! <-- テキスト
|
/dports/math/octave-forge-matgeom/matgeom-1.2.3/inst/geom3d/ |
H A D | drawCircle3d.m | 32 % drawCircle3d([XC YC ZC R THETA PHI]) 33 % drawCircle3d([XC YC ZC R], [THETA PHI]) 43 % drawCircle3d([XC YC ZC R THETA PHI PSI]) 44 % drawCircle3d([XC YC ZC R], [THETA PHI PSI]) 45 % drawCircle3d([XC YC ZC R], THETA, PHI) 46 % drawCircle3d([XC YC ZC], R, THETA, PHI) 47 % drawCircle3d([XC YC ZC R], THETA, PHI, PSI) 48 % drawCircle3d([XC YC ZC], R, THETA, PHI, PSI) 49 % drawCircle3d(XC, YC, ZC, R, THETA, PHI) 50 % drawCircle3d(XC, YC, ZC, R, THETA, PHI, PSI) [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/uepack/ |
H A D | uetone.f | 9 REAL XC(4),YC(4),ZC(4),AX(10),AY(10),TLM(2) local 102 YC(1)=RUWGY(J) 103 YC(2)=YC(1) 104 YC(3)=RUWGY(J1) 105 YC(4)=YC(3) 109 CALL UEAREA(XC,YC,ZC,TLM,AX,AY,NP,NI,NG)
|
/dports/textproc/refdb/refdb-0.9.9-1/examples/ |
H A D | testrefs.utf8.ris | 3 TI - Inhibition of superoxide anion generation by YC-1 in rat neutrophils through cyclic GMP-depen… 21 …uanylate cyclase causes relaxation of corpus cavernosum tissue: synergism of nitric oxide and YC-1. 22 …YC-1 in corpus cavernosum, rat sGC was activated by either sodium nitroprusside (SNP) or YC-1, and… 41 …ition of deactivation of NO sensitive guanylyl cyclase accounts for the sensitizing effect of YC-1. 72 TI - Nitric oxide independent activation of guanylate cyclase by YC-1 causes erectile responses in… 192 …bon monoxide relaxes the female pig urethra as effectively as nitric oxide in the presence of YC-1. 322 TI - YC-1-mediated vascular protection through inhibition of smooth muscle cell proliferation and … 323 …YC-1, a synthetic benzyl indazole derivative, is capable of stimulating endogenous vessel wall cyc… 439 TI - NO-independent regulatory site of direct sGC stimulators like YC-1 and BAY 41-2272. 549 TI - YC-1 activation of human soluble guanylyl cyclase has both heme-dependent and heme-independen… [all …]
|
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | coord5.f | 36 IF(X(M).LT.ZM)YC=(1./6.)*XK*(X(M)**3-3.*ZM*X(M)**2+ZM**2*(3. 40 IF(X(M).EQ.ZP)YC=AI*.01 42 IF(X(M).GT.ZM)YC=(1./6.)*XK*ZM**3*(1.-X(M)) 50 IF(X(M).LT.ZM)YC=(1./6.)*XK*((X(M)-ZM)**3-RK*X(M)*(1.-ZM)**3 54 IF(X(M).EQ.ZP)YC=AI*.01 56 IF(X(M).GT.ZM)YC=(1./6.)*XK*(RK*(X(M)-ZM)**3-RK*X(M)*(1.-ZM)**3 61 YUN(M)=YC+YT*COS(ALPHA) 63 YLN(M)=YC-YT*COS(ALPHA) 64 CAM(M)=YC
|
H A D | coord4.f | 24 IF(X(M).EQ.ZP)YC=ZM 26 IF(X(M).LT.ZP)YC=(2.*ZP*X(M)-X(M)**2)*ZM/ZP**2 29 1 YC=(ZM/((1.-ZP)**2))*(1.-2.*ZP+2.*ZP*X(M)-X(M)**2) 32 YUN(M)=YC+YT*COS(ALPHA) 34 YLN(M)=YC-YT*COS(ALPHA) 35 CAM(M)=YC
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/ |
H A D | PB_Ctzhemv.c | 22 char * XC, int LDXC, char * XR, int LDXR, char * YC, in PB_Ctzhemv() argument 26 LDXC, XR, LDXR, YC, LDYC, YR, LDYR ) in PB_Ctzhemv() 37 char * A, * XC, * XR, * YC, * YR; 189 gemv( C2F_CHAR( NOTRAN ), &M, &n1, ALPHA, A, &LDA, XR, &LDXR, one, YC, 200 Mptr( YC, i1, 0, LDYC, size ), &ione ); 206 Mptr( YC, i1, 0, LDYC, size ), &ione ); 223 YC, &ione ); 229 Mptr( YC, m1, 0, LDYC, size ), &ione ); 235 &LDA, Mptr( XR, 0, j1, LDXR, size ), &LDXR, one, YC, &ione ); 243 gemv( C2F_CHAR( NOTRAN ), &M, &N, ALPHA, A, &LDA, XR, &LDXR, one, YC,
|
H A D | PB_Ctzsymv.c | 22 char * XC, int LDXC, char * XR, int LDXR, char * YC, in PB_Ctzsymv() argument 26 LDXC, XR, LDXR, YC, LDYC, YR, LDYR ) in PB_Ctzsymv() 37 char * A, * XC, * XR, * YC, * YR; 189 gemv( C2F_CHAR( NOTRAN ), &M, &n1, ALPHA, A, &LDA, XR, &LDXR, one, YC, 200 Mptr( YC, i1, 0, LDYC, size ), &ione ); 206 Mptr( YC, i1, 0, LDYC, size ), &ione ); 223 YC, &ione ); 229 Mptr( YC, m1, 0, LDYC, size ), &ione ); 235 &LDA, Mptr( XR, 0, j1, LDXR, size ), &LDXR, one, YC, &ione ); 243 gemv( C2F_CHAR( NOTRAN ), &M, &N, ALPHA, A, &LDA, XR, &LDXR, one, YC,
|
H A D | PB_Ctzahemv.c | 22 char * XC, int LDXC, char * XR, int LDXR, char * YC, in PB_Ctzahemv() argument 26 LDXC, XR, LDXR, YC, LDYC, YR, LDYR ) in PB_Ctzahemv() 37 char * A, * XC, * XR, * YC, * YR; 190 agemv( C2F_CHAR( NOTRAN ), &M, &n1, ALPHA, A, &LDA, XR, &LDXR, one, YC, 201 Mptr( YC, i1, 0, LDYC, usiz ), &ione ); 207 &LDXR, one, Mptr( YC, i1, 0, LDYC, usiz ), &ione ); 225 YC, &ione ); 231 Mptr( YC, m1, 0, LDYC, usiz ), &ione ); 237 &LDA, Mptr( XR, 0, j1, LDXR, size ), &LDXR, one, YC, &ione ); 245 agemv( C2F_CHAR( NOTRAN ), &M, &N, ALPHA, A, &LDA, XR, &LDXR, one, YC,
|
H A D | PB_Ctzasymv.c | 22 char * XC, int LDXC, char * XR, int LDXR, char * YC, in PB_Ctzasymv() argument 26 LDXC, XR, LDXR, YC, LDYC, YR, LDYR ) in PB_Ctzasymv() 37 char * A, * XC, * XR, * YC, * YR; 190 agemv( C2F_CHAR( NOTRAN ), &M, &n1, ALPHA, A, &LDA, XR, &LDXR, one, YC, 201 Mptr( YC, i1, 0, LDYC, usiz ), &ione ); 207 Mptr( YC, i1, 0, LDYC, usiz ), &ione ); 225 YC, &ione ); 231 Mptr( YC, m1, 0, LDYC, usiz ), &ione ); 237 &LDA, Mptr( XR, 0, j1, LDXR, size ), &LDXR, one, YC, &ione ); 245 agemv( C2F_CHAR( NOTRAN ), &M, &N, ALPHA, A, &LDA, XR, &LDXR, one, YC,
|
H A D | PB_Cpsyr2.c | 22 char * YC, int LDYC, char * YR, int LDYR, char * A, in PB_Cpsyr2() argument 26 YC, LDYC, YR, LDYR, A, IA, JA, DESCA, SYR2 ) in PB_Cpsyr2() 39 char * A, * XC, * XR, * YC, * YR; 298 XC+Xii*XCinc, LDXC, YC+Xii*YCinc, LDYC, 364 XC+Xii*XCinc, LDXC, YC+Xii*YCinc, LDYC, 389 XC+(ioffx+1)*XCinc, LDXC, YC+(ioffx+1)*YCinc, LDYC, 403 XC+(ioffx+1)*XCinc, LDXC, YC+(ioffx+1)*YCinc, LDYC, 419 XC+Xii*XCinc, LDXC, YC+Xii*YCinc, LDYC, 445 XC+Xii*XCinc, LDXC, YC+Xii*YCinc, LDYC, 470 XC+Xii*XCinc, LDXC, YC+Xii*YCinc, LDYC, [all …]
|
H A D | PB_Cpsym.c | 23 char * XR, int LDXR, char * YC, int LDYC, char * YR, in PB_Cpsym() argument 27 XC, LDXC, XR, LDXR, YC, LDYC, YR, LDYR, SYM ) in PB_Cpsym() 40 char * A, * XC, * XR, * YC, * YR; 312 YC+Xii*YCinc, LDYC, YR+Xjj*YRinc, LDYR ); 380 YC+Xii*YCinc, LDYC, YR+(Xoffj+1)*YRinc, LDYR ); 435 YC+Xii*YCinc, LDYC, YR+(Xoffj+1)*YRinc, LDYR ); 462 YC+Xii*YCinc, LDYC, YR+Xjj*YRinc, LDYR ); 487 YC+Xii*YCinc, LDYC, YR+(joffx+1)*YRinc, LDYR ); 501 YC+Xii*YCinc, LDYC, YR+(joffx+1)*YRinc, LDYR ); 517 YC+(Xoffi+1)*YCinc, LDYC, YR+Xjj*YRinc, LDYR ); [all …]
|
H A D | PB_Ctzsyr2.c | 22 char * YC, int LDYC, char * XR, int LDXR, char * YR, in PB_Ctzsyr2() argument 25 void PB_Ctzsyr2( TYPE, UPLO, M, N, K, IOFFD, ALPHA, XC, LDXC, YC, LDYC, in PB_Ctzsyr2() 36 char * A, * XC, * XR, * YC, * YR; 188 geru( &M, &n1, ALPHA, YC, &ione, XR, &LDXR, A, &LDA ); 203 geru( &m1, &n1, ALPHA, Mptr( YC, i1, 0, LDYC, size ), &ione, 219 geru( &m1, &n1, ALPHA, YC, &ione, XR, &LDXR, A, &LDA ); 230 geru( &M, &n1, ALPHA, YC, &ione, Mptr( XR, 0, j1, LDXR, size ), &LDXR, 238 geru( &M, &N, ALPHA, YC, &ione, XR, &LDXR, A, &LDA );
|
/dports/science/gnudatalanguage/gdl-1.0.1/testsuite/ |
H A D | test_cir_3pnt.pro | 14 print, "As is : XC =", x0, " YC =", y0, " R =", r 17 print, "Reverse : XC =", x0, " YC =", y0, " R =", r 20 print, "Shifted : XC =", x0, " YC =", y0, " R =", r 23 print, "Swap X,Y: XC =", x0, " YC =", y0, " R =", r 36 print, "As is : XC =", x0, " YC =", y0, " R =", r 39 print, "Swap X,Y: XC =", x0, " YC =", y0, " R =", r
|
/dports/dns/yadifa/yadifa-2.5.3-10333/etc/ |
H A D | Makefile.am | 44 YC=yadifa macro 45 YCE=$(srcdir)/$(YC).bash_completion 80 $(YC): $(YCE) 81 cp $(YCE) $(YC) 89 all: $(YI) $(OC) $(MC) $(KC) $(YC) $(YD) 95 if [ -d "$(DESTDIR)$(BC)" -a -w "$(DESTDIR)$(BC)" ] ; then cp $(YC) $(YD) $(DESTDIR)$(BC) ; fi 98 rm -f $(YI) $(OC) $(MC) $(KC) $(YS) $(YC) $(YD) $(YKR)
|
/dports/science/erd/erd-3.0.6/src/ |
H A D | erd__dsqmin_line_segments.f | 160 DOUBLE PRECISION XC,YC,ZC 215 YC = YW - YV 220 YC = YW - TC * YV 237 YC = YW + YU 242 YC = YW + SC * YU 308 YC = YW + SC * YU - TC * YV 313 ERD__DSQMIN_LINE_SEGMENTS = XC * XC + YC * YC + ZC * ZC
|
/dports/devel/z88dk/z88dk/libsrc/target/c128/c128/ |
H A D | circleivdc.c | 13 extern void circlepointsvdc(int XC, int YC, int X, int Y); 17 void circleivdc(int XC, int YC, int R) in circleivdc() argument 26 circlepointsvdc(XC,YC,X,Y); in circleivdc() 37 circlepointsvdc(XC,YC,X,Y); in circleivdc()
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/tests/Fist/sample_pot/ |
H A D | acn.pot | 18 CT YC 400.0 1.458 19 YC YN 600.0 1.150 37 CT YC YN 80.0 180.0 38 HC CT YC 35.0 110.0 52 YN YC CT HC 0.0 1 0.0 74 YC 0.0 0.0860 1.908
|
H A D | acn_respa.pot | 18 CT YC 400.0 1.458 19 YC YN 600.0 1.150 34 CT YC YN 80.0 180.0 35 HC CT YC 35.0 110.0 48 YN YC CT HC 0.0 1 0.0 70 YC 0.0 0.0000 1.908
|
/dports/science/cp2k-data/cp2k-7.1.0/tests/Fist/sample_pot/ |
H A D | acn.pot | 18 CT YC 400.0 1.458 19 YC YN 600.0 1.150 37 CT YC YN 80.0 180.0 38 HC CT YC 35.0 110.0 52 YN YC CT HC 0.0 1 0.0 74 YC 0.0 0.0860 1.908
|
H A D | acn_respa.pot | 18 CT YC 400.0 1.458 19 YC YN 600.0 1.150 34 CT YC YN 80.0 180.0 35 HC CT YC 35.0 110.0 48 YN YC CT HC 0.0 1 0.0 70 YC 0.0 0.0000 1.908
|