/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/Netlib/src/netlib/slatec/ |
H A D | dgamlm.f | 2 SUBROUTINE DGAMLM (XMIN, XMAX) argument 32 DOUBLE PRECISION XMIN, XMAX, ALNBIG, ALNSML, XLN, XOLD, D1MACH 35 XMIN = -ALNSML 37 XOLD = XMIN 38 XLN = LOG(XMIN) 39 XMIN = XMIN - XMIN*((XMIN+0.5D0)*XLN - XMIN - 0.2258D0 + ALNSML) 40 1 / (XMIN*XLN+0.5D0) 41 IF (ABS(XMIN-XOLD).LT.0.005D0) GO TO 20 45 20 XMIN = -XMIN + 0.01D0 59 XMIN = MAX (XMIN, -XMAX+1.D0)
|
/dports/math/octave/octave-6.4.0/liboctave/external/slatec-fn/ |
H A D | dgamlm.f | 2 SUBROUTINE DGAMLM (XMIN, XMAX) argument 32 DOUBLE PRECISION XMIN, XMAX, ALNBIG, ALNSML, XLN, XOLD, D1MACH local 35 XMIN = -ALNSML 37 XOLD = XMIN 38 XLN = LOG(XMIN) 39 XMIN = XMIN - XMIN*((XMIN+0.5D0)*XLN - XMIN - 0.2258D0 + ALNSML) 40 1 / (XMIN*XLN+0.5D0) 41 IF (ABS(XMIN-XOLD).LT.0.005D0) GO TO 20 45 20 XMIN = -XMIN + 0.01D0 59 XMIN = MAX (XMIN, -XMAX+1.D0)
|
H A D | gamlim.f | 2 SUBROUTINE GAMLIM (XMIN, XMAX) argument 34 XMIN = -ALNSML 36 XOLD = XMIN 37 XLN = LOG(XMIN) 38 XMIN = XMIN - XMIN*((XMIN+0.5)*XLN - XMIN - 0.2258 + ALNSML) 39 1 / (XMIN*XLN + 0.5) 40 IF (ABS(XMIN-XOLD).LT.0.005) GO TO 20 44 20 XMIN = -XMIN + 0.01 58 XMIN = MAX (XMIN, -XMAX+1.)
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | dgamlm.f | 2 SUBROUTINE DGAMLM (XMIN, XMAX) argument 32 DOUBLE PRECISION XMIN, XMAX, ALNBIG, ALNSML, XLN, XOLD, D1MACH local 35 XMIN = -ALNSML 37 XOLD = XMIN 38 XLN = LOG(XMIN) 39 XMIN = XMIN - XMIN*((XMIN+0.5D0)*XLN - XMIN - 0.2258D0 + ALNSML) 40 1 / (XMIN*XLN+0.5D0) 41 IF (ABS(XMIN-XOLD).LT.0.005D0) GO TO 20 45 20 XMIN = -XMIN + 0.01D0 59 XMIN = MAX (XMIN, -XMAX+1.D0)
|
/dports/math/slatec/src/ |
H A D | dgamlm.f | 2 SUBROUTINE DGAMLM (XMIN, XMAX) argument 32 DOUBLE PRECISION XMIN, XMAX, ALNBIG, ALNSML, XLN, XOLD, D1MACH 35 XMIN = -ALNSML 37 XOLD = XMIN 38 XLN = LOG(XMIN) 39 XMIN = XMIN - XMIN*((XMIN+0.5D0)*XLN - XMIN - 0.2258D0 + ALNSML) 40 1 / (XMIN*XLN+0.5D0) 41 IF (ABS(XMIN-XOLD).LT.0.005D0) GO TO 20 45 20 XMIN = -XMIN + 0.01D0 59 XMIN = MAX (XMIN, -XMAX+1.D0)
|
H A D | gamlim.f | 2 SUBROUTINE GAMLIM (XMIN, XMAX) argument 34 XMIN = -ALNSML 36 XOLD = XMIN 37 XLN = LOG(XMIN) 38 XMIN = XMIN - XMIN*((XMIN+0.5)*XLN - XMIN - 0.2258 + ALNSML) 39 1 / (XMIN*XLN + 0.5) 40 IF (ABS(XMIN-XOLD).LT.0.005) GO TO 20 44 20 XMIN = -XMIN + 0.01 58 XMIN = MAX (XMIN, -XMAX+1.)
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | dgamlm.f | 2 SUBROUTINE DGAMLM (XMIN, XMAX) argument 32 DOUBLE PRECISION XMIN, XMAX, ALNBIG, ALNSML, XLN, XOLD, D1MACH 35 XMIN = -ALNSML 37 XOLD = XMIN 38 XLN = LOG(XMIN) 39 XMIN = XMIN - XMIN*((XMIN+0.5D0)*XLN - XMIN - 0.2258D0 + ALNSML) 40 1 / (XMIN*XLN+0.5D0) 41 IF (ABS(XMIN-XOLD).LT.0.005D0) GO TO 20 45 20 XMIN = -XMIN + 0.01D0 59 XMIN = MAX (XMIN, -XMAX+1.D0)
|
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/ |
H A D | dgamlm.f | 1 SUBROUTINE DGAMLM(XMIN,XMAX) argument 25 DOUBLE PRECISION XMIN, XMAX, ALNBIG, ALNSML, XLN, XOLD, D1MACH 28 XMIN = -ALNSML 30 XOLD = XMIN 31 XLN = DLOG(XMIN) 32 XMIN = XMIN - XMIN*((XMIN+0.5D0)*XLN - XMIN - 0.2258D0 + ALNSML) 33 1 / (XMIN*XLN+0.5D0) 34 IF (DABS(XMIN-XOLD).LT.0.005D0) GO TO 20 38 20 XMIN = -XMIN + 0.01D0 52 XMIN = DMAX1 (XMIN, -XMAX+1.D0)
|
H A D | gamlim.f | 1 SUBROUTINE GAMLIM(XMIN,XMAX) argument 25 XMIN = -ALNSML 27 XOLD = XMIN 28 XLN = ALOG(XMIN) 29 XMIN = XMIN - XMIN*((XMIN+0.5)*XLN - XMIN - 0.2258 + ALNSML) 30 1 / (XMIN*XLN + 0.5) 31 IF (ABS(XMIN-XOLD).LT.0.005) GO TO 20 35 20 XMIN = -XMIN + 0.01 49 XMIN = AMAX1 (XMIN, -XMAX+1.)
|
/dports/math/cmlib/cmlib-3.0_8/src/cluster/ |
H A D | scale.f | 70 XMIN=A(1,J) 74 IF(A(I,J).LT.XMIN) XMIN=A(I,J) 76 IF(XMIN.EQ.XMAX) XMAX=XMIN+.000001 80 ZZ=KL/(XMAX-XMIN) 82 XK=(A(I,J)-XMIN)*ZZ+1 94 XMIN=A(1,1) 98 IF(A(I,J).LT.XMIN) XMIN=A(I,J) 100 IF(XMIN.EQ.XMAX) XMAX=XMIN+.000001 104 ZZ=KL/(XMAX-XMIN) 107 XK=(A(I,J)-XMIN)*ZZ+1.
|
/dports/graphics/pgplot/pgplot/src/ |
H A D | pgfunx.f | 3 SUBROUTINE PGFUNX (FY, N, XMIN, XMAX, PGFLAG) argument 7 REAL XMIN, XMAX local 50 DT = (XMAX-XMIN)/N 56 CALL PGMOVE(XMIN,FY(XMIN)) 58 CALL PGDRAW(XMIN+I*DT,FY(XMIN+I*DT)) 66 Y(0) = FY(XMIN) 70 Y(I) = FY(XMIN+DT*I) 82 CALL PGENV(XMIN,XMAX,YMIN,YMAX,0,0) 83 CALL PGMOVE(XMIN,Y(0)) 85 CALL PGDRAW(XMIN+DT*I,Y(I))
|
H A D | grpixl.f | 41 REAL XMIN, YMIN, XMAX, YMAX, XPIX, YPIX 51 XMIN = MIN(XLL,XUR) 64 XPIX = XMAX - XMIN 66 IF (XMIN .LT. GRXMIN(GRCIDE)) THEN 68 XMIN = XMIN + (XPIX * (IL - I1)) / (I2 - I1 + 1) 106 1 XMIN,XMAX,YMIN,YMAX) 116 XPIX = XMAX - XMIN + 1 125 1 XMIN, XMAX, YMIN, YMAX) 134 XMIN = XMIN + XPIX / (IR - IL + 1) 154 XPIX = XMAX - XMIN + 1 [all …]
|
H A D | pgfuny.f | 45 REAL XMIN, XMAX local 58 XMIN = X(0) 63 XMIN = MIN(XMIN,X(I)) 66 DT = 0.05*(XMAX-XMIN) 68 XMIN = XMIN - 1.0 71 XMIN = XMIN - DT 77 IF (PGFLAG.EQ.0) CALL PGENV(XMIN,XMAX,YMIN,YMAX,0,0)
|
H A D | pgfunt.f | 38 REAL XMIN, XMAX, YMIN, YMAX local 51 XMIN = X(0) 58 XMIN = MIN(XMIN,X(I)) 63 DT = 0.05*(XMAX-XMIN) 65 XMIN = XMIN - 1.0 68 XMIN = XMIN - DT 82 IF (PGFLAG.EQ.0) CALL PGENV(XMIN,XMAX,YMIN,YMAX,0,0)
|
H A D | grrec0.f | 29 REAL XMIN, YMIN, XMAX, YMAX, Y, DY local 34 XMIN = X0 38 IF (XMIN .LT. GRXMIN(GRCIDE)) XMIN = GRXMIN(GRCIDE) 42 IF (XMIN .GT. XMAX) RETURN 49 RBUF(1) = XMIN 62 RBUF(1) = XMIN 71 RBUF(1) = XMIN 94 GRXPRE(GRCIDE) = XMIN
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/sirius/ |
H A D | detpr.F | 277 XMAX = XMIN 278 XMIN = XMIN/SQRT(10.0D0) 280 IF(XMIN .LT. THRES ) XMIN = THRES 344 XMIN = VNRM + 0.1D0 348 XMAX = XMIN 427 XMIN = 0.0D0 431 XMIN = MIN(XMIN, CIVEC(I)) 459 XMAX = XMIN 460 XMIN = XMIN/SQRT(10.0D0) 462 IF(XMIN .LT. THRES ) XMIN = THRES [all …]
|
/dports/games/fs2open/fs2open.github.com-release_21_4_1/code/graphics/ |
H A D | line.h | 36 if((x2 < XMIN) || (x1 > XMAX)) { \ 39 if(x1 < XMIN) { \ 40 INT_SCALE(temp,(y2 - y1),(XMIN - x1),(x2 - x1)); \ 42 x1 = XMIN; \ 65 if((x1 < XMIN) || (x2 > XMAX)) { \ 74 if(x2 < XMIN) { \ 75 INT_SCALE(temp,(y2 - y1),(XMIN - x2),(x1 - x2)); \ 111 if((x2 < XMIN) || (x1 > XMAX)) { \ 115 FL_SCALE(temp,(y2 - y1),(XMIN - x1),(x2 - x1)); \ 140 if((x1 < XMIN) || (x2 > XMAX)) { \ [all …]
|
/dports/games/diaspora/Diaspora_R1_Linux/Diaspora/fs2_open/code/graphics/ |
H A D | line.h | 36 if((x2 < XMIN) || (x1 > XMAX)) { \ 39 if(x1 < XMIN) { \ 40 INT_SCALE(temp,(y2 - y1),(XMIN - x1),(x2 - x1)); \ 42 x1 = XMIN; \ 65 if((x1 < XMIN) || (x2 > XMAX)) { \ 74 if(x2 < XMIN) { \ 75 INT_SCALE(temp,(y2 - y1),(XMIN - x2),(x1 - x2)); \ 111 if((x2 < XMIN) || (x1 > XMAX)) { \ 115 FL_SCALE(temp,(y2 - y1),(XMIN - x1),(x2 - x1)); \ 140 if((x1 < XMIN) || (x2 > XMAX)) { \ [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph1/slpack/ |
H A D | slinit.f | 11 COMMON /SLBLK1/ XMIN,XMAX,YMIN,YMAX,NN local 14 REAL XMIN(MAXFR),XMAX(MAXFR),YMIN(MAXFR),YMAX(MAXFR) local 30 XMIN(1)=0 36 XMIN(2)=0 73 IF (XMAX(1)-XMIN(1).GT.YMAX(1)-YMIN(1)) THEN 84 BWX=(XMAX(2)-XMIN(2))*FACTR 96 CALL SLMGNZ(XMIN(1),XMAX(1),YMIN(1),YMAX(1),XX,XX,YY,YY) 98 XMIN(2)=XMIN(1) 112 BWX=(XMAX(2)-XMIN(2))*FACTR 123 CALL SLMGNZ(XMIN(1),XMAX(1),YMIN(1),YMAX(1),XX,XX,YY,YY) [all …]
|
/dports/graphics/xd3d/xd3d-8.3.1/src/graphic/ |
H A D | graph.f | 239 XMIN = BIG 384 XMIN = MIN(XMIN,XPOINT(J)) 497 XMIN = BIG 541 XMIN = XMIN - 0.5*(YMAX-YMIN) 550 XMIN = XMIN - 0.5*(YMAX-YMIN)*PETIPETI 588 XMIN000 = XMIN 1239 XMIN = XMIN+0.01*(XMAX-XMIN) 1315 XMIN = XMIN+DDDDD 1772 XDUM = XMIN 1773 XMIN = XMAX [all …]
|
H A D | arondi.f | 19 DX = DBLE(XMAX-XMIN) 25 XMIN2 = XMIN - .5D0*DX 143 EPSEPS = (XMAX-XMIN)*1.E-5 154 IF ((XMIN-XX(I)).LT.DIFMIN.AND.XX(I).LE.XMIN) THEN 155 DIFMIN = XMIN-XX(I) 159 IF (IARON.EQ.0) XMIN = XX(NMIN) 183 NDX2 = MAX(1,NINT(XMAX-XMIN)) 203 IF (XX(I).LE.XMIN) NMIN = I 217 XMIN = XX(NMIN) 229 REAL*8 X,XX(*),XMIN,XMAX local [all …]
|
/dports/games/d2x/d2x-0.2.5/2d/ |
H A D | clip.h | 58 if((xx > XMAX) || (xx < XMIN)) { WHEN_OUTSIDE; } \ 64 if((x1 > XMAX) || (x2 < XMIN)) { WHEN_OUTSIDE; } \ 66 if(x1 < XMIN) { x1 = XMIN; WHEN_CLIPPED; } \ 96 if((x2 < XMIN) || (x1 > XMAX)) { \ 99 if(x1 < XMIN) { \ 100 MY_SCALE(temp,(y2 - y1),(XMIN - x1),(x2 - x1)); \ 102 x1 = XMIN; \ 125 if((x1 < XMIN) || (x2 > XMAX)) { \ 134 if(x2 < XMIN) { \ 135 MY_SCALE(temp,(y2 - y1),(XMIN - x2),(x1 - x2)); \ [all …]
|
/dports/graphics/ossim/ossim-OrchidIsland-2.11.1/src/vpfutil/ |
H A D | vpfspx.c | 70 #define XMIN 0 macro 115 if(box2[XMIN] >= box1[XMIN] && box2[XMIN] <= box1[XMAX]) in is_over() 132 if(xmin == OUT && xmax == OUT && box2[XMIN] <= box1[XMIN] && in is_over() 317 if ( (x1 <= bnd[XMIN]) && (x2 >= bnd[XMAX]) && in spatial_index_search() 336 xf = (float)(255.0 / (bnd[XMAX] - bnd[XMIN])); in spatial_index_search() 338 spx.box[XMIN] = (char)((x1 - bnd[XMIN]) * xf); in spatial_index_search() 339 if (x1 <= bnd[XMIN]) spx.box[XMIN] = 0; in spatial_index_search() 340 if (x1 >= bnd[XMAX]) spx.box[XMIN] = 255; in spatial_index_search() 344 spx.box[XMAX] = (char)(((x2 - bnd[XMIN]) * xf) + 1); in spatial_index_search() 345 if (x2 <= bnd[XMIN]) spx.box[XMAX] = 0; in spatial_index_search() [all …]
|
/dports/math/moab/fathomteam-moab-7bde9dfb84a8/test/mesquite/unit/ |
H A D | XYRectangleTest.cpp | 98 XMIN , YMIN , 0, 99 XMIN + 0.5*WIDTH, YMIN , 0, 100 XMIN + WIDTH, YMIN , 0, 101 XMIN , YMIN + 0.5*HEIGHT, 0, 102 XMIN + .25*WIDTH, YMIN + 0.5*HEIGHT, 0, 103 XMIN + .75*WIDTH, YMIN + 0.5*HEIGHT, 0, 104 XMIN + WIDTH, YMIN + 0.5*HEIGHT, 0, 144 if (fabs(vertex[0] - XMIN) < 1e-6) in snap_to() 145 result[0] = XMIN; in snap_to() 147 result[0] = XMIN + WIDTH; in snap_to() [all …]
|
/dports/science/dcl/dcl-5.4.8/src/grph2/umpack/ |
H A D | umpfit.f | 43 XMIN = RUNDEF 46 CALL UMBNDC(XMIN, XMAX, YMIN, YMAX ) 48 + XMIN, XMAX, YMIN, YMAX ) 49 CALL UMBNDP(XMIN, XMAX, YMIN, YMAX ) 51 IF (XMIN .EQ. RUNDEF) THEN 53 + XMIN, XMAX, YMIN, YMAX ) 59 + RADIUS = MIN((VXMAXZ-VXMINZ)/(XMAX-XMIN), 63 + VXOFF = ((VXMAXZ + VXMINZ) - (XMAX + XMIN )) /2. * RADIUS 70 WX = (XMAX-XMIN)*RADIUS
|