| /dports/math/math77/MATH77/ |
| H A D | dbesjn.f | 36 integer I,I1,II,J,K,M,MU,NMAX,NMIN,NUM local
72 NMIN = int(ALPHA)
73 V = ALPHA - dble(NMIN)
74 NMAX = NMIN + NUM - 1
191 I1 = MAX( 1, MU - NMIN + 1 )
201 if (MU .ge. NMIN .AND. MU .le. NMAX) BJ(MU-NMIN+1) = FVM1
268 if( NMIN .eq. 0 ) then
273 else if( NMIN .eq. 1 ) then
282 do 300 K = 3-NMIN, NUM
|
| H A D | sbesjn.f | 36 integer I,I1,II,J,K,M,MU,NMAX,NMIN,NUM local
72 NMIN = int(ALPHA)
73 V = ALPHA - real(NMIN)
74 NMAX = NMIN + NUM - 1
191 I1 = MAX( 1, MU - NMIN + 1 )
201 if (MU .ge. NMIN .AND. MU .le. NMAX) BJ(MU-NMIN+1) = FVM1
268 if( NMIN .eq. 0 ) then
273 else if( NMIN .eq. 1 ) then
282 do 300 K = 3-NMIN, NUM
|
| /dports/graphics/xd3d/xd3d-8.3.1/src/graphic/ |
| H A D | arondi.f | 146 NMIN = 0
149 IF (ABS(REAL(XX(I))-XMIN).LT.EPSEPS) NMIN = I
152 IF (NMIN.EQ.0) THEN
156 NMIN = I
159 IF (IARON.EQ.0) XMIN = XX(NMIN)
181 NMIN = 0
203 IF (XX(I).LE.XMIN) NMIN = I
215 NMIN = MAX(NMIN,1)
217 XMIN = XX(NMIN)
|
| /dports/math/cmlib/cmlib-3.0_8/src/fnlib/ |
| H A D | r9pak.f | 20 DATA NMIN, NMAX / 2*0 /
23 IF(NMIN.NE.0) GO TO 10
26 NMIN =A1N2B*FLOAT(I1MACH(12))
32 IF (NSUM.LT.NMIN) GO TO 40
|
| H A D | d9pak.f | 21 DATA NMIN,NMAX / 2*0 /
24 IF(NMIN.NE.0) GO TO 10
27 NMIN = A1N2B*DBLE(FLOAT(I1MACH(15)))
33 IF(NSUM.LT.NMIN)GO TO 40
|
| /dports/science/py-gpaw/gpaw-21.6.0/c/xc/ |
| H A D | xc_mgga.c | 60 if (n[0] < NMIN) n[0] = NMIN; in calc_mgga()
83 if (ntmp[0] < NMIN) ntmp[0] = NMIN; in calc_mgga()
85 if (ntmp[1] < NMIN) ntmp[1] = NMIN; in calc_mgga()
|
| /dports/graphics/pgplot/pgplot/src/ |
| H A D | pghtch.f | 34 INTEGER NP(MAXP), I,J, II,JJ, NMIN,NMAX, NX, NI, NNP local
102 NMIN = INT(CMIN)
103 IF (REAL(NMIN).LT.CMIN) NMIN = NMIN+1
109 DO 60 J=NMIN,NMAX
|
| /dports/science/latte/LATTE-1.2.2/src/ |
| H A D | initcoulombklist.F90 | 51 INTEGER :: LMIN, MMIN, NMIN local
91 NMIN = -NMAX
93 IF(L .EQ. 0 .AND. M .EQ. 0) NMIN = 1
99 DO N = NMIN, NMAX
|
| /dports/math/slatec/src/ |
| H A D | r9pak.f | 31 SAVE NMIN, NMAX, A1N210, FIRST
38 NMIN = A1N2B*I1MACH(12)
46 IF (NSUM.LT.NMIN) GO TO 40
|
| H A D | d9pak.f | 33 SAVE NMIN, NMAX, A1N210, FIRST
40 NMIN = A1N2B*I1MACH(15)
48 IF(NSUM.LT.NMIN)GO TO 40
|
| /dports/graphics/xd3d/xd3d-8.3.1/src/d3d/ |
| H A D | divers.f | 329 NMIN = N(1)
332 IF (N(I).LT.NMIN) THEN
333 NMIN = N(I)
352 NMIN = N(1)
355 IF (N(I).LT.NMIN) THEN
356 NMIN = N(I)
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
| H A D | dhseqr.f | 358 INTEGER I, KBOT, NMIN
453 NMIN = ILAENV( 12, 'DHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
455 NMIN = MAX( NTINY, NMIN )
459 IF( N.GT.NMIN ) THEN
|
| H A D | chseqr.f | 343 INTEGER KBOT, NMIN
434 NMIN = ILAENV( 12, 'CHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
436 NMIN = MAX( NTINY, NMIN )
440 IF( N.GT.NMIN ) THEN
|
| H A D | zhseqr.f | 343 INTEGER KBOT, NMIN
434 NMIN = ILAENV( 12, 'ZHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
436 NMIN = MAX( NTINY, NMIN )
440 IF( N.GT.NMIN ) THEN
|
| H A D | shseqr.f | 358 INTEGER I, KBOT, NMIN
453 NMIN = ILAENV( 12, 'SHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
455 NMIN = MAX( NTINY, NMIN )
459 IF( N.GT.NMIN ) THEN
|
| /dports/math/xlapack/lapack-3.10.0/SRC/ |
| H A D | dhseqr.f | 355 INTEGER I, KBOT, NMIN
450 NMIN = ILAENV( 12, 'DHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
452 NMIN = MAX( NTINY, NMIN )
456 IF( N.GT.NMIN ) THEN
|
| H A D | zhseqr.f | 340 INTEGER KBOT, NMIN
431 NMIN = ILAENV( 12, 'ZHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
433 NMIN = MAX( NTINY, NMIN )
437 IF( N.GT.NMIN ) THEN
|
| H A D | shseqr.f | 355 INTEGER I, KBOT, NMIN
450 NMIN = ILAENV( 12, 'SHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
452 NMIN = MAX( NTINY, NMIN )
456 IF( N.GT.NMIN ) THEN
|
| H A D | chseqr.f | 340 INTEGER KBOT, NMIN
431 NMIN = ILAENV( 12, 'CHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
433 NMIN = MAX( NTINY, NMIN )
437 IF( N.GT.NMIN ) THEN
|
| /dports/math/blas/lapack-3.10.0/SRC/ |
| H A D | zhseqr.f | 340 INTEGER KBOT, NMIN
431 NMIN = ILAENV( 12, 'ZHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
433 NMIN = MAX( NTINY, NMIN )
437 IF( N.GT.NMIN ) THEN
|
| H A D | dhseqr.f | 355 INTEGER I, KBOT, NMIN
450 NMIN = ILAENV( 12, 'DHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
452 NMIN = MAX( NTINY, NMIN )
456 IF( N.GT.NMIN ) THEN
|
| H A D | chseqr.f | 340 INTEGER KBOT, NMIN
431 NMIN = ILAENV( 12, 'CHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
433 NMIN = MAX( NTINY, NMIN )
437 IF( N.GT.NMIN ) THEN
|
| H A D | shseqr.f | 355 INTEGER I, KBOT, NMIN
450 NMIN = ILAENV( 12, 'SHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
452 NMIN = MAX( NTINY, NMIN )
456 IF( N.GT.NMIN ) THEN
|
| /dports/math/lapacke/lapack-3.10.0/SRC/ |
| H A D | dhseqr.f | 355 INTEGER I, KBOT, NMIN
450 NMIN = ILAENV( 12, 'DHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
452 NMIN = MAX( NTINY, NMIN )
456 IF( N.GT.NMIN ) THEN
|
| H A D | chseqr.f | 340 INTEGER KBOT, NMIN
431 NMIN = ILAENV( 12, 'CHSEQR', JOB( : 1 ) // COMPZ( : 1 ), N,
433 NMIN = MAX( NTINY, NMIN )
437 IF( N.GT.NMIN ) THEN
|