Home
last modified time | relevance | path

Searched refs:MAXL (Results 1 – 25 of 283) sorted by relevance

12345678910>>...12

/dports/math/cmlib/cmlib-3.0_8/src/linpakc/
H A Dcchdc.f192 MAXL = K
200 MAXL = L
212 IF (K .EQ. MAXL) GO TO 210
218 A(MAXL,MAXL) = A(K,K)
220 JP = JPVT(MAXL)
221 JPVT(MAXL) = JPVT(K)
223 A(K,MAXL) = CONJG(A(K,MAXL))
232 IF (K .EQ. MAXL) GO TO 240
236 A(J,MAXL) = TEMP
241 A(K,J) = A(MAXL,J)
[all …]
/dports/math/slatec/src/
H A Dcchdc.f192 MAXL = K
200 MAXL = L
211 IF (K .EQ. MAXL) GO TO 210
217 A(MAXL,MAXL) = A(K,K)
219 JP = JPVT(MAXL)
220 JPVT(MAXL) = JPVT(K)
222 A(K,MAXL) = CONJG(A(K,MAXL))
231 IF (K .EQ. MAXL) GO TO 240
235 A(J,MAXL) = TEMP
240 A(K,J) = A(MAXL,J)
[all …]
H A Dschdc.f189 MAXL = K
197 MAXL = L
208 IF (K .EQ. MAXL) GO TO 210
214 A(MAXL,MAXL) = A(K,K)
216 JP = JPVT(MAXL)
217 JPVT(MAXL) = JPVT(K)
227 IF (K .EQ. MAXL) GO TO 240
230 A(K,J) = A(J,MAXL)
231 A(J,MAXL) = TEMP
236 A(K,J) = A(MAXL,J)
[all …]
H A Ddchdc.f191 MAXL = K
199 MAXL = L
210 IF (K .EQ. MAXL) GO TO 210
216 A(MAXL,MAXL) = A(K,K)
218 JP = JPVT(MAXL)
219 JPVT(MAXL) = JPVT(K)
229 IF (K .EQ. MAXL) GO TO 240
232 A(K,J) = A(J,MAXL)
233 A(J,MAXL) = TEMP
238 A(K,J) = A(MAXL,J)
[all …]
H A Dsgmres.f401 + LW, LXL, LZ, LZM1, MAXL, MAXLP1, NMS, NMSL, NRMAX, NRSTS
414 MAXL = IGWK(1)
415 IF (MAXL .EQ. 0) MAXL = 10
416 IF (MAXL .GT. N) MAXL = N
418 IF (KMP .EQ. 0) KMP = MAXL
419 IF (KMP .GT. MAXL) KMP = MAXL
441 MAXLP1 = MAXL + 1
445 LQ = LHES + MAXL*MAXLP1
446 LDL = LQ + 2*MAXL
494 CALL SPIGMR(N, RGWK(LR), SB, SX, JSCAL, MAXL, MAXLP1, KMP,
H A Ddgmres.f404 + LW, LXL, LZ, LZM1, MAXL, MAXLP1, NMS, NMSL, NRMAX, NRSTS
417 MAXL = IGWK(1)
418 IF (MAXL .EQ. 0) MAXL = 10
419 IF (MAXL .GT. N) MAXL = N
421 IF (KMP .EQ. 0) KMP = MAXL
422 IF (KMP .GT. MAXL) KMP = MAXL
444 MAXLP1 = MAXL + 1
448 LQ = LHES + MAXL*MAXLP1
449 LDL = LQ + 2*MAXL
497 CALL DPIGMR(N, RGWK(LR), SB, SX, JSCAL, MAXL, MAXLP1, KMP,
H A Dspigmr.f2 SUBROUTINE SPIGMR (N, R0, SR, SZ, JSCAL, MAXL, MAXLP1, KMP, NRSTS, argument
245 ITMAX =(NRMAX+1)*MAXL
266 ITER = NRSTS*MAXL
273 $ KMP, LGMR, MAXL, MAXLP1, V, Q, SNORMW, PROD, R0NRM,
280 DO 50 J = 1,MAXL
290 DO 90 LL = 1,MAXL
337 IF ((LL.GT.KMP) .AND.(KMP.LT.MAXL)) THEN
364 ITER = NRSTS*MAXL + LGMR
368 $ KMP, LGMR, MAXL, MAXLP1, V, Q, SNORMW, PROD, R0NRM,
370 IF (LL .EQ. MAXL) GO TO 100
[all …]
H A Ddpigmr.f2 SUBROUTINE DPIGMR (N, R0, SR, SZ, JSCAL, MAXL, MAXLP1, KMP, NRSTS, argument
250 ITMAX =(NRMAX+1)*MAXL
271 ITER = NRSTS*MAXL
278 $ KMP, LGMR, MAXL, MAXLP1, V, Q, SNORMW, PROD, R0NRM,
285 DO 50 J = 1,MAXL
295 DO 90 LL = 1,MAXL
342 IF ((LL.GT.KMP) .AND.(KMP.LT.MAXL)) THEN
369 ITER = NRSTS*MAXL + LGMR
373 $ KMP, LGMR, MAXL, MAXLP1, V, Q, SNORMW, PROD, R0NRM,
375 IF (LL .EQ. MAXL) GO TO 100
[all …]
H A Disdgmr.f4 + RWORK, IWORK, RNRM, BNRM, SB, SX, JSCAL, KMP, LGMR, MAXL,
265 + MAXL, MAXLP1, N, NELT, NMSL
267 DOUBLE PRECISION A(*), B(*), DZ(*), HES(MAXLP1, MAXL), Q(*), R(*),
301 IF ( LGMR.NE.0 ) CALL DRLCAL(N, KMP, LGMR, MAXL, V, Q, R,
309 IF ( (KMP.LT.MAXL) .AND. (LGMR.NE.0) ) THEN
324 IF ( (KMP.LT.MAXL) .AND. (LGMR.NE.0) ) THEN
388 WRITE(IUNIT,1000) N, ITOL, MAXL, KMP
H A Dissgmr.f4 + RWORK, IWORK, RNRM, BNRM, SB, SX, JSCAL, KMP, LGMR, MAXL,
263 + MAXL, MAXLP1, N, NELT, NMSL
265 REAL A(*), B(*), DZ(*), HES(MAXLP1, MAXL), Q(*), R(*), RWORK(*),
299 IF ( LGMR.NE.0 ) CALL SRLCAL(N, KMP, LGMR, MAXL, V, Q, R,
307 IF ( (KMP.LT.MAXL) .AND. (LGMR.NE.0) ) THEN
322 IF ( (KMP.LT.MAXL) .AND. (LGMR.NE.0) ) THEN
386 WRITE(IUNIT,1000) N, ITOL, MAXL, KMP
H A Dbandr.f89 INTEGER J,K,L,N,R,I1,I2,J1,J2,KR,MB,MR,M1,NM,N2,R1,UGL,MAXL,MAXR
155 MAXL = MIN(M1,N-J1)
157 DO 300 L = 2, MAXL
198 MAXL = MIN(M1,N-J1)
200 DO 470 L = 2, MAXL
228 MAXL = MAX(1,MB+1-J)
230 DO 610 L = MAXL, M1
234 MAXL = MIN(M1,N-J)
236 DO 620 L = 1, MAXL
/dports/graphics/gocr/gocr-0.52/src/
H A Docr1.c38 #define MAXL 10 macro
40 int x1,y1,x2,y2,l,i,j,xa[MAXL],ya[MAXL],xb[MAXL],yb[MAXL],ll[MAXL]; in ocr2()
41 for(i=0;i<MAXL;i++)xa[i]=ya[i]=xb[i]=yb[i]=ll[i]=0; in ocr2()
50 for(i=0;i<MAXL;i++) in ocr2()
61 for(j=i;j<MAXL-1;j++) in ocr2()
66 ll[MAXL-1]=0; in ocr2()
71 for(j=MAXL-1;j>i;j--){ // shift table in ocr2()
81 for(i=0;i<MAXL;i++){ in ocr2()
/dports/graphics/swftools/swftools-0.9.2/lib/gocr/
H A Docr1.c37 #define MAXL 10 macro
39 int x1,y1,x2,y2,l,i,j,xa[MAXL],ya[MAXL],xb[MAXL],yb[MAXL],ll[MAXL]; in ocr2()
40 for(i=0;i<MAXL;i++)xa[i]=ya[i]=xb[i]=yb[i]=ll[i]=0; in ocr2()
49 for(i=0;i<MAXL;i++) in ocr2()
60 for(j=i;j<MAXL-1;j++) in ocr2()
65 ll[MAXL-1]=0; in ocr2()
70 for(j=MAXL-1;j>i;j--){ // shift table in ocr2()
80 for(i=0;i<MAXL;i++){ in ocr2()
/dports/math/cmlib/cmlib-3.0_8/src/linpakd/
H A Ddchdc.f191 MAXL = K
199 MAXL = L
211 IF (K .EQ. MAXL) GO TO 210
217 A(MAXL,MAXL) = A(K,K)
219 JP = JPVT(MAXL)
220 JPVT(MAXL) = JPVT(K)
230 IF (K .EQ. MAXL) GO TO 240
233 A(K,J) = A(J,MAXL)
234 A(J,MAXL) = TEMP
239 A(K,J) = A(MAXL,J)
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/linpaks/
H A Dschdc.f191 MAXL = K
199 MAXL = L
211 IF (K .EQ. MAXL) GO TO 210
217 A(MAXL,MAXL) = A(K,K)
219 JP = JPVT(MAXL)
220 JPVT(MAXL) = JPVT(K)
230 IF (K .EQ. MAXL) GO TO 240
233 A(K,J) = A(J,MAXL)
234 A(J,MAXL) = TEMP
239 A(K,J) = A(MAXL,J)
[all …]
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Ddgmres1.f423 MAXL = IGWK(1)
424 IF (MAXL .EQ. 0) MAXL = 10
425 IF (MAXL .GT. N) MAXL = N
428 IF (KMP .GT. MAXL) KMP = MAXL
450 MAXLP1 = MAXL + 1
455 LDL = LQ + 2*MAXL
807 ITMAX =(NRMAX+1)*MAXL
828 ITER = NRSTS*MAXL
842 DO 50 J = 1,MAXL
852 DO 90 LL = 1,MAXL
[all …]
H A Ddgmres.f420 MAXL = IGWK(1)
421 IF (MAXL .EQ. 0) MAXL = 10
422 IF (MAXL .GT. N) MAXL = N
425 IF (KMP .GT. MAXL) KMP = MAXL
447 MAXLP1 = MAXL + 1
452 LDL = LQ + 2*MAXL
968 ITMAX =(NRMAX+1)*MAXL
989 ITER = NRSTS*MAXL
1003 DO 50 J = 1,MAXL
1013 DO 90 LL = 1,MAXL
[all …]
/dports/cad/gerbv/gerbv-2.7.0/src/
H A Dpick-and-place.h30 #define MAXL 200 macro
45 char designator[MAXL];
46 char footprint[MAXL];
53 char layer[MAXL]; /*T is top B is bottom*/
55 char comment[MAXL];
/dports/science/siesta/siesta-4.1.5/Src/
H A Dspher_harm.f63 INTEGER MAXL, MAXLP1
64 PARAMETER ( MAXL = 10, MAXLP1 = MAXL+1 )
287 INTEGER JLM, MAXL
366 PARAMETER ( MAXLM = (MAXL+1) * (MAXL+1) )
367 PARAMETER ( MAXSP = (MAXL+1) * (2*MAXL+1) )
376 . W(MAXL+1), WSP,
378 . Z(MAXL+1)
539 PARAMETER ( MAXLM = (MAXL+1) * (MAXL+1) )
540 PARAMETER ( MAXSP = (MAXL+1) * (2*MAXL+1) )
549 . W(MAXL+1), WSP,
[all …]
/dports/math/octave/octave-6.4.0/liboctave/external/daspk/
H A Ddslvk.f51 INTEGER NLI, NPS, NCFL, NRE, MAXL, KMP, MITER local
70 MAXL = IWM(LMAXL)
81 MAXLP1 = MAXL + 1
83 LR = LV + NEQ*MAXL
85 LQ = LHES + MAXL*MAXLP1
86 LWK = LQ + 2*MAXL
87 LDL = LWK + MIN0(1,MAXL-KMP)*NEQ
108 CALL DSPIGM (NEQ, TN, Y, YPRIME, SAVR, WM(LR), EWT, MAXL, MAXLP1,
H A Ddspigm.f5 SUBROUTINE DSPIGM (NEQ, TN, Y, YPRIME, SAVR, R, WGHT, MAXL, argument
129 INTEGER NEQ,MAXL,MAXLP1,KMP,IRES,NRE,NPSL,LGMR,IWP, local
181 DO 65 J = 1,MAXL
190 DO 90 LL = 1,MAXL
215 IF ((LL.GT.KMP) .AND. (KMP.LT.MAXL)) THEN
240 IF (LL .EQ. MAXL) GO TO 100
262 IF (KMP .EQ. MAXL) THEN
267 MAXLM1 = MAXL - 1
276 S = Q(2*MAXL)
277 C = Q(2*MAXL-1)/SNORMW
/dports/math/cmlib/cmlib-3.0_8/src/eispack/
H A Dbandr.f72 INTEGER J,K,L,N,R,I1,I2,J1,J2,KR,MB,MR,M1,NM,N2,R1,UGL,MAXL,MAXR
138 MAXL = MIN0(M1,N-J1)
140 DO 300 L = 2, MAXL
181 MAXL = MIN0(M1,N-J1)
183 DO 470 L = 2, MAXL
211 MAXL = MAX0(1,MB+1-J)
213 DO 610 L = MAXL, M1
217 MAXL = MIN0(M1,N-J)
219 DO 620 L = 1, MAXL
/dports/math/dune-grid/dune-grid-de36e4b4e99da4cd7a120a39779345e701821115/dune/grid/albertagrid/
H A Dalbertagrid.cc46 levelIndexVec_( (size_t)MAXL, 0 ), in AlbertaGrid()
50 levelMarkerVector_( (size_t)MAXL, MarkerVector( dofNumbering_ ) ) in AlbertaGrid()
66 levelIndexVec_( (size_t)MAXL, 0 ), in AlbertaGrid()
70 levelMarkerVector_( (size_t)MAXL, MarkerVector( dofNumbering_ ) ) in AlbertaGrid()
94 levelIndexVec_( (size_t)MAXL, 0 ), in AlbertaGrid()
98 levelMarkerVector_( (size_t)MAXL, MarkerVector( dofNumbering_ ) ) in AlbertaGrid()
126 levelIndexVec_( (size_t)MAXL, 0 ), in AlbertaGrid()
307 assert( (refCount >= 0) && (refCount + maxlevel_ < MAXL) ); in globalRefine()
331 assert( (refCount >= 0) && (refCount + maxlevel_ < MAXL) ); in globalRefine()
549 assert( (maxlevel_ >= 0) && (maxlevel_ < MAXL) ); in calcExtras()
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/benchmarks/QS_pao_ml_tio2/
H A Dpao_ml_tio2.inp106 MAXL 4
122 MAXL 4
138 MAXL 4
154 MAXL 4
173 MAXL 4
188 MAXL 4
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/benchmarks/QS_pao_ml_tio2/
H A Dpao_ml_tio2.inp106 MAXL 4
122 MAXL 4
138 MAXL 4
154 MAXL 4
173 MAXL 4
188 MAXL 4

12345678910>>...12