Home
last modified time | relevance | path

Searched refs:XMIN (Results 26 – 50 of 1195) sorted by relevance

12345678910>>...48

/dports/graphics/pgplot/pgplot/src/
H A Dgrclpl.f30 REAL XMIN,XMAX,YMIN,YMAX local
34 XMIN = GRXMIN(GRCIDE)
38 CALL GRCLIP(X0,Y0,XMIN,XMAX,YMIN,YMAX,C0)
39 CALL GRCLIP(X1,Y1,XMIN,XMAX,YMIN,YMAX,C1)
50 Y = Y0 + (Y1-Y0)*(XMIN-X0)/(X1-X0)
51 X = XMIN
68 CALL GRCLIP(X,Y,XMIN,XMAX,YMIN,YMAX,C0)
72 CALL GRCLIP(X,Y,XMIN,XMAX,YMIN,YMAX,C1)
H A Dpgenv.f5 SUBROUTINE PGENV (XMIN, XMAX, YMIN, YMAX, JUST, AXIS) argument
6 REAL XMIN, XMAX, YMIN, YMAX local
72 IF (XMIN.EQ.XMAX) THEN
84 CALL PGWNAD(XMIN,XMAX,YMIN,YMAX)
86 CALL PGSWIN(XMIN,XMAX,YMIN,YMAX)
/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/
H A Darondi.f1 SUBROUTINE ARONDI(XMIN,XMAX,XX,PROP,NDX,NTMAX) argument
10 IF (XMIN.EQ.XMAX) THEN
17 DDX = XMAX-XMIN
24 XMIN2 = XMIN - .1D0*DX
56 XMIN2 = XMIN - EPS
65 PROP(NN) = (REAL(XX(NN))-XMIN)*USDDX
78 SUBROUTINE LETEST(X,XMIN,XMAX,XX,LXX,NDX,LOGIC) argument
79 REAL*8 X,XX(*),XMIN,XMAX local
82 IF ( X.GE.XMIN .AND. X.LE.XMAX ) THEN
H A Dlecture.f127 XMIN = AMIN1(XMIN,X(N))
391 XMIN = MIN(XMIN,X(I))
427 XMIN = MIN(XMIN,X(I))
466 XMIN = MIN(XMIN,X(I))
520 XMIN = MIN(XMIN,XSU(I))
789 XMIN = MIN(XMIN,X(I))
1006 XMIN = MIN(XMIN,X(I))
1085 XMIN = XMIN-DCUBEX2
1096 XMIN = MIN(XMIN,X(I))
1146 XMIN = LOG10(XMIN)
[all …]
/dports/games/dxx-rebirth/dxx-rebirth_20211220-src/common/2d/
H A Dclip.h34 #define CLIPLINE(x1,y1,x2,y2,XMIN,YMIN,XMAX,YMAX,WHEN_OUTSIDE,WHEN_CLIPPED,MY_SCALE) do { \ argument
43 if((x2 < XMIN) || (x1 > XMAX)) { \
46 if(x1 < XMIN) { \
47 MY_SCALE(temp,(y2 - y1),(XMIN - x1),(x2 - x1)); \
49 x1 = XMIN; \
72 if((x1 < XMIN) || (x2 > XMAX)) { \
81 if(x2 < XMIN) { \
82 MY_SCALE(temp,(y2 - y1),(XMIN - x2),(x1 - x2)); \
84 x2 = XMIN; \
/dports/science/dcl/dcl-5.4.8/demo/rakuraku/kihon/
H A Dkihona.f8 PARAMETER( XMIN=0., XMAX=4*PI, YMIN=-1., YMAX=1. )
27 CALL SGSWND( XMIN, XMAX, YMIN, YMAX )
40 CALL SGSWND( XMIN, XMAX, YMIN, YMAX )
55 CALL SGSWND( XMIN, XMAX, YMIN, YMAX )
68 CALL SGSWND( XMIN, XMAX, YMIN, YMAX )
80 CALL SGSWND( XMIN, XMAX, YMIN, YMAX )
93 CALL SGSWND( XMIN, XMAX, YMIN, YMAX )
105 CALL SGSWND( XMIN, XMAX, YMIN, YMAX )
/dports/graphics/pgplot/pgplot/applications/plot10/
H A Dplot10.f683 XMIN = UNIT*AINT((XMIN+0.01*AXLEN)/UNIT)
685 XMIN = UNIT*AINT((XMIN+0.01*AXLEN)/UNIT-1.)
695 XONE = XMIN
699 XTWO = XMIN
703 IF (XMIN.LT.0.) XMIN=-10.*XMIN
750 XMIN = AMAX1(XMIN,XMAX/1.E24)
754 XMIN = XMIN/2.
762 UNIT = XMIN
765 XMIN = 5.*XMIN
768 XMIN = 3.*XMIN
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/cluster/
H A Dmhist.f1 SUBROUTINE MHIST(MM, M, N, A, CLAB, RLAB, TITLE, XMIN, XMAX, NV, argument
121 DIMENSION A(MM,*), XMIN(*), XMAX(*), NV(*), WORK(DMWORK,*),
129 IF (XMIN(I) .GE. XMAX(I))CALL RANGE(M, A(1,I), XMIN(I), XMAX(I))
131 WORK(L,I) = XMIN(I)
142 * WRITE(OUNIT,1) TITLE,(CLAB(J),XMIN(J),XMAX(J),J=1,N)
149 IWORK(K,J)=INT(15*(WORK(K,J)-XMIN(J))/(XMAX(J)-XMIN(J)))+1
150 IWORK(NDIAGS+K,J)=INT(15*(WORK(NDIAGS+K,J)-XMIN(J))/(XMAX(J)
151 * -XMIN(J)))+1
H A Dpmany.f1 SUBROUTINE PMANY(MM, M, N, A, CLAB, TITLE, XMIN, XMAX, NC, IERR, argument
95 DIMENSION A(MM,*), XMIN(*), XMAX(*), NC(*)
109 IF(XMIN(J).GE.XMAX(J)) THEN
110 CALL RANGE(M,A(1,J),XMIN(J),XMAX(J))
111 IF(XMIN(J).EQ.XMAX(J)) RETURN
174 IF(KC(A(I,JC),XMIN(JC),XMAX(JC),JU).EQ.JP) THEN
177 K=KC(A(I,J),XMIN(J),XMAX(J),JJ)+NC(J)- 1
209 IF(JP.EQ.1) WRITE(OUNIT,5) XMIN(JC),(AA(J),J=1,122)
/dports/graphics/pgplot/pgplot/examples/
H A Dpgdemo16.f258 XMIN = (I-1)+MARG+(J-1)*BWID
259 XMAX = XMIN+BWID
263 CALL PGRECT(YMIN, YMAX, XMIN, XMAX)
265 CALL PGRECT(XMIN, XMAX, YMIN, YMAX)
270 CALL PGRECT(YMIN, YMAX, XMIN, XMAX)
272 CALL PGRECT(XMIN, XMAX, YMIN, YMAX)
288 XMIN = (I-1)+MARG
289 XMAX = XMIN+W
299 CALL PGRECT(YMIN, YMAX, XMIN, XMAX)
301 CALL PGRECT(XMIN, XMAX, YMIN, YMAX)
[all …]
/dports/science/dcl/dcl-5.4.8/src/grph2/uepack/
H A Duegtla.f6 SUBROUTINE UEGTLA(XMIN,XMAX,DX) argument
12 IF (.NOT.(XMIN.LT.XMAX)) THEN
29 DZ=RGNGE((XMAX-XMIN)/NLEV)
32 DZ=RGNGE((XMAX-XMIN)/NL)
35 ZMIN=IRLE(XMIN/DZ)*DZ
45 IF (LBOUND .AND. I.EQ.1) TLEV1=MAX(TLEV1,XMIN)
H A Duegtlb.f24 XMIN=RVMIN(Z,NS,NP,NQ,2)
27 IF (XMIN.EQ.XMAX) RETURN
33 DZ=RGNGE((XMAX-XMIN)/NLEV)
36 DZ=RGNGE((XMAX-XMIN)/NL)
39 CALL UEGTLA(XMIN,XMAX,DZ)
/dports/science/dcl/dcl-5.4.8/src/grph2/umpack/
H A Dumbndr.f5 + XMIN, XMAX, YMIN, YMAX )
22 IF (XMIN.EQ.RUNDEF) THEN
23 CALL FUNC(UXMIN, UYMIN, XMIN, YMIN)
24 XMAX = XMIN
38 XMIN = MIN (XMIN, X1, X2, X3, X4)
H A Dumbndc.f4 SUBROUTINE UMBNDC(XMIN, XMAX, YMIN, YMAX) argument
22 IF (XMIN.EQ.RUNDEF) THEN
23 CALL STFTRN(TXC, TYC, XMIN, YMIN)
24 XMAX = XMIN
64 XMIN = MIN (XMIN, VX)
/dports/graphics/xd3d/xd3d-8.3.1/src/graphic/
H A Daxes.f66 CALL GSMOVE(XMIN,YS)
85 XXXX(1) = XMIN
88 XXXX(4) = XMIN
94 XMIMI = XMIN
98 XMIMI = XMIN
103 ELSEIF(0.LT.XMIN) THEN
104 XMIMI = XMIN
122 CALL GSLINE(XMIN,YMIMI)
198 IF (XMIN.NE.0.) THEN
592 XMI = XMIN
[all …]
/dports/science/dcl/dcl-5.4.8/src/grph2/ulpack/
H A Dulxlog.f29 XMIN = UXMIN/FACTOR
31 CALL SGSWND(XMIN,XMAX,UYMIN,UYMAX)
34 XMIN = UXMIN
38 SGN = SIGN(1.0,XMIN)
40 IF(SGN*XMIN.GT.SGN*XMAX)THEN
41 XXX=XMIN
42 XMIN=XMAX
64 CALL GNGE(ABS(XMIN),BXMIN,IPMIN)
80 CALL GNGE(ABS(XMIN),BXMIN,IPMIN)
/dports/science/dcl/dcl-5.4.8/src/grph2/uspack/
H A Duspfit.f55 CALL SGRGET('UXMIN' , XMIN)
57 IF(XMIN.NE.RUNDEF .AND. XMAX.NE.RUNDEF .AND. XMIN.GT.XMAX) THEN
59 CALL USWAPZ(XMIN, XMAX, 1)
64 IF(XMIN.NE.RUNDEF) UXMIN = XMIN
86 IF(XMIN.NE.RUNDEF) UXMIN = XMIN
/dports/math/math77/MATH77/
H A Ddbesj1.f20 DOUBLE PRECISION X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y, local
29 SAVE NTJ1, XSML, XMIN
51 DATA NTJ1, XSML, XMIN / 0, 2*0.D0 /
56 XMIN = 2.0D0*D1MACH(1)
61 IF (Y .LE. XMIN) THEN
H A Ddbesy1.f19 DOUBLE PRECISION X, BY1CS(20), AMPL, THETA, TWODPI, XMIN, XSML, local
28 SAVE NTY1, XMIN, XSML
52 DATA NTY1, XMIN, XSML / 0, 2*0.D0 /
57 XMIN = 1.571D0 * EXP (MAX(LOG(D1MACH(1)), -LOG(D1MACH(2))) +
65 ELSE IF (X .LE. XMIN) THEN
H A Ddstat1.f96 double precision TEMP, TEST, X, X1, X2, XMAX, XMEAN, XMIN local
111 XMIN = X
120 XMIN = STATS(2)
143 XMIN = min(X, XMIN)
182 STATS(2) = XMIN
H A Dsstat1.f96 real TEMP, TEST, X, X1, X2, XMAX, XMEAN, XMIN local
111 XMIN = X
120 XMIN = STATS(2)
143 XMIN = min(X, XMIN)
182 STATS(2) = XMIN
H A Dsbesj1.f20 REAL X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y, local
29 SAVE NTJ1, XSML, XMIN
51 DATA NTJ1, XSML, XMIN / 0, 2*0.E0 /
56 XMIN = 2.0E0*R1MACH(1)
61 IF (Y .LE. XMIN) THEN
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/
H A Ddgami.f521 SUBROUTINE DGAMLM (XMIN, XMAX) argument
554 XMIN = -ALNSML
556 XOLD = XMIN
557 XLN = LOG(XMIN)
558 XMIN = XMIN - XMIN*((XMIN+0.5D0)*XLN - XMIN - 0.2258D0 + ALNSML)
559 1 / (XMIN*XLN+0.5D0)
564 20 XMIN = -XMIN + 0.01D0
578 XMIN = MAX (XMIN, -XMAX+1.D0)
614 1 XMIN, Y, D9LGMC, DCSEVL, D1MACH
667 CALL DGAMLM (XMIN, XMAX)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/
H A Ddgami.f521 SUBROUTINE DGAMLM (XMIN, XMAX) argument
554 XMIN = -ALNSML
556 XOLD = XMIN
557 XLN = LOG(XMIN)
558 XMIN = XMIN - XMIN*((XMIN+0.5D0)*XLN - XMIN - 0.2258D0 + ALNSML)
559 1 / (XMIN*XLN+0.5D0)
564 20 XMIN = -XMIN + 0.01D0
578 XMIN = MAX (XMIN, -XMAX+1.D0)
614 1 XMIN, Y, D9LGMC, DCSEVL, D1MACH
667 CALL DGAMLM (XMIN, XMAX)
[all …]
/dports/science/dcl/dcl-5.4.8/src/grph2/udpack/
H A Dudgclb.f24 XMIN=RVMIN(Z,NS,NP,NQ,2)
27 IF (XMIN.EQ.XMAX) RETURN
33 DZ=RGNGE((XMAX-XMIN)/NLEV)
36 DZ=RGNGE((XMAX-XMIN)/NL)
38 ZMIN=IRLE(XMIN/DZ)*DZ

12345678910>>...48