/dports/graphics/pgplot/pgplot/src/ |
H A D | grclpl.f | 30 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 D | pgenv.f | 5 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 D | arondi.f | 1 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 D | lecture.f | 127 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 D | clip.h | 34 #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 D | kihona.f | 8 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 D | plot10.f | 683 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 D | mhist.f | 1 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 D | pmany.f | 1 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 D | pgdemo16.f | 258 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 D | uegtla.f | 6 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 D | uegtlb.f | 24 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 D | umbndr.f | 5 + 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 D | umbndc.f | 4 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 D | axes.f | 66 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 D | ulxlog.f | 29 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 D | uspfit.f | 55 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 D | dbesj1.f | 20 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 D | dbesy1.f | 19 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 D | dstat1.f | 96 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 D | sstat1.f | 96 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 D | sbesj1.f | 20 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 D | dgami.f | 521 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 D | dgami.f | 521 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 D | udgclb.f | 24 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
|