/dports/math/cmlib/cmlib-3.0_8/src/linpakc/ |
H A D | cchdc.f | 192 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 D | cchdc.f | 192 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 D | schdc.f | 189 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 D | dchdc.f | 191 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 D | sgmres.f | 401 + 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 D | dgmres.f | 404 + 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 D | spigmr.f | 2 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 D | dpigmr.f | 2 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 D | isdgmr.f | 4 + 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 D | issgmr.f | 4 + 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 D | bandr.f | 89 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 D | ocr1.c | 38 #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 D | ocr1.c | 37 #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 D | dchdc.f | 191 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 D | schdc.f | 191 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 D | dgmres1.f | 423 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 D | dgmres.f | 420 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 D | pick-and-place.h | 30 #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 D | spher_harm.f | 63 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 D | dslvk.f | 51 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 D | dspigm.f | 5 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 D | bandr.f | 72 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 D | albertagrid.cc | 46 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 D | pao_ml_tio2.inp | 106 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 D | pao_ml_tio2.inp | 106 MAXL 4 122 MAXL 4 138 MAXL 4 154 MAXL 4 173 MAXL 4 188 MAXL 4
|