Home
last modified time | relevance | path

Searched refs:LENL (Results 1 – 25 of 50) sorted by relevance

12

/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/
H A Dxnam19.f9 DIMENSION LENL(12),LDML(12),TRNJET(38),LOCL(12)
13 DATA LENL / 4,2,5,6,2,2,3,4,3,2,2,3 /
26 1 CALL NAMER(KAND,9,NLNAME,6,TRNJET,38,LENL,12,LDML,AL,137,
29 1 CALL NAMEW(KAND,6,NLNAME,6,TRNJET,38,LENL,12,LDML,AL,137,LOCL)
H A Dnmlist.f21 COMMON /HTI/ LENL(12),LDML(12),TRNJET(38) local
82 1160 CALL TESTOR(KOL,L,NAME,K,IER,LENL,LDML,12,TRNJET)
/dports/math/cmlib/cmlib-3.0_8/src/splp/
H A Dla05cs.f24 COMMON /LA05DS/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
59 IF (LCOL+LENL.LT.IA) GO TO 40
61 IF (NCP.GE.MCP .OR. LENL+LENU.GE.IA) GO TO 610
73 50 IF (LENL+LROW+NZ.LT.IA) GO TO 60
74 IF (NCP.GE.MCP .OR. LENL+LENU+NZ.GE.IA) GO TO 610
255 IF (LROW+IW(IR,1)+IW(IPP,1)+LENL.LE.IA) GO TO 350
317 IF (LCOL+LENL.GE.IA) GO TO 460
324 460 IF (LCOL+LENL+NZ+1.LT.IA) GO TO 470
347 IF (LENL+LCOL+1.LE.IA) GO TO 530
351 530 K = IA - LENL
[all …]
H A Dla05as.f38 COMMON /LA05DS/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
89 90 LENL = 0
266 IF (LROW+IW(IR,1)+IW(IPP,1)+LENL.LE.IA) GO TO 350
267 IF (NCP.GE.MCP .OR. LENU+IW(IR,1)+IW(IPP,1)+LENL.GT.IA) GO
329 IF (LCOL+LENL.GE.IA) GO TO 460
336 460 IF (LCOL+LENL+NZ+1.LT.IA) GO TO 470
338 IF (NCP.GE.MCP .OR. LENU+LENL+NZ+1.GE.IA) GO TO 710
361 IF (LENL+LCOL+1.LE.IA) GO TO 530
365 530 K = IA - LENL
366 LENL = LENL + 1
H A Dla05bs.f28 COMMON /LA05DS/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
31 KLL = IA - LENL + 1
35 IF (LENL.LE.0) GO TO 20
37 DO 10 KK=1,LENL
/dports/math/slatec/src/
H A Dla05cd.f42 COMMON /LA05DD/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
77 IF (LCOL+LENL.LT.IA) GO TO 40
79 IF (NCP.GE.MCP .OR. LENL+LENU.GE.IA) GO TO 610
91 50 IF (LENL+LROW+NZ.LT.IA) GO TO 60
92 IF (NCP.GE.MCP .OR. LENL+LENU+NZ.GE.IA) GO TO 610
273 IF (LROW+IW(IR,1)+IW(IPP,1)+LENL.LE.IA) GO TO 350
335 IF (LCOL+LENL.GE.IA) GO TO 460
342 460 IF (LCOL+LENL+NZ+1.LT.IA) GO TO 470
365 IF (LENL+LCOL+1.LE.IA) GO TO 530
369 530 K = IA - LENL
[all …]
H A Dla05cs.f43 COMMON /LA05DS/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
78 IF (LCOL+LENL.LT.IA) GO TO 40
80 IF (NCP.GE.MCP .OR. LENL+LENU.GE.IA) GO TO 610
92 50 IF (LENL+LROW+NZ.LT.IA) GO TO 60
93 IF (NCP.GE.MCP .OR. LENL+LENU+NZ.GE.IA) GO TO 610
274 IF (LROW+IW(IR,1)+IW(IPP,1)+LENL.LE.IA) GO TO 350
336 IF (LCOL+LENL.GE.IA) GO TO 460
343 460 IF (LCOL+LENL+NZ+1.LT.IA) GO TO 470
366 IF (LENL+LCOL+1.LE.IA) GO TO 530
370 530 K = IA - LENL
[all …]
H A Dla05ad.f61 COMMON /LA05DD/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
109 90 LENL = 0
286 IF (LROW+IW(IR,1)+IW(IPP,1)+LENL.LE.IA) GO TO 350
287 IF (NCP.GE.MCP .OR. LENU+IW(IR,1)+IW(IPP,1)+LENL.GT.IA) GO
349 IF (LCOL+LENL.GE.IA) GO TO 460
356 460 IF (LCOL+LENL+NZ+1.LT.IA) GO TO 470
358 IF (NCP.GE.MCP .OR. LENU+LENL+NZ+1.GE.IA) GO TO 710
381 IF (LENL+LCOL+1.LE.IA) GO TO 530
385 530 K = IA - LENL
386 LENL = LENL + 1
H A Dla05as.f58 COMMON /LA05DS/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
106 90 LENL = 0
283 IF (LROW+IW(IR,1)+IW(IPP,1)+LENL.LE.IA) GO TO 350
284 IF (NCP.GE.MCP .OR. LENU+IW(IR,1)+IW(IPP,1)+LENL.GT.IA) GO
346 IF (LCOL+LENL.GE.IA) GO TO 460
353 460 IF (LCOL+LENL+NZ+1.LT.IA) GO TO 470
355 IF (NCP.GE.MCP .OR. LENU+LENL+NZ+1.GE.IA) GO TO 710
378 IF (LENL+LCOL+1.LE.IA) GO TO 530
382 530 K = IA - LENL
383 LENL = LENL + 1
H A Dla05bd.f43 COMMON /LA05DD/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
46 KLL = IA - LENL + 1
50 IF (LENL.LE.0) GO TO 20
52 DO 10 KK=1,LENL
H A Dla05bs.f43 COMMON /LA05DS/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
46 KLL = IA - LENL + 1
50 IF (LENL.LE.0) GO TO 20
52 DO 10 KK=1,LENL
H A Dla05ed.f36 COMMON /LA05DD/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
H A Dla05es.f36 COMMON /LA05DS/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
/dports/math/R-cran-lpSolve/lpSolve/src/
H A Dlusol8a.h52 int LPRINT, NRANK, LENL, LENU, LROW, NRANK0, KREP, KLAST, IW, L1, J1, JSING; in LU8RPC() local
57 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU8RPC()
105 LU7ADD(LUSOL, JREP,V,LENL,&LENU,&LROW,NRANK,INFORM,&KLAST,VNORM); in LU8RPC()
134 LU7ELM(LUSOL, JREP,V,&LENL,&LROW,NRANK,INFORM,DIAG); in LU8RPC()
182 LU7FOR(LUSOL, KREP,KLAST,&LENL,&LENU,&LROW,INFORM,DIAG); in LU8RPC()
212 LU7FOR(LUSOL, KREP,NRANK,&LENL,&LENU,&LROW,INFORM,DIAG); in LU8RPC()
275 LUSOL->luparm[LUSOL_IP_NONZEROS_L] = LENL; in LU8RPC()
H A Dlusol7a.h42 NFREE = LUSOL->lena - LENL - *LROW; in LU7ADD()
45 NFREE = LUSOL->lena - LENL - *LROW; in LU7ADD()
164 NFREE = LUSOL->lena-(*LENL)-(*LROW); in LU7ELM()
168 NFREE = LUSOL->lena-(*LENL)-(*LROW); in LU7ELM()
176 L = (LUSOL->lena-(*LENL))+1; in LU7ELM()
202 L2 = LUSOL->lena-(*LENL); in LU7ELM()
203 *LENL = ((*LENL)+L2)-L; in LU7ELM()
294 NFREE = LUSOL->lena-(*LENL)-(*LROW); in LU7FOR()
299 NFREE = LUSOL->lena-(*LENL)-(*LROW); in LU7FOR()
377 L = LUSOL->lena-(*LENL); in LU7FOR()
[all …]
H A Dlusol6a.h73 int I, J, JUMIN, K, L, L1, L2, LENL, LPRINT, NDEFIC, NRANK; in LU6CHK() local
79 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU6CHK()
102 for(L = (LENA2+1)-LENL; L <= LENA2; L++) { in LU6CHK()
204 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU6CHK()
227 for(L = (LENA2+1)-LENL; L <= LENA2; L++) { in LU6CHK()
357 int JPIV, K, L, L1, LEN, LENL, LENL0, NUML, NUML0; in LU6L() local
369 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU6L()
400 NUML = LENL-LENL0; in LU6L()
513 int K, L, L1, L2, LEN, LENL, LENL0, NUML0; in LU6LT() local
526 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU6LT()
[all …]
H A Dlusol1.h1662 int *LENL, int *LENU, int *NSING, argument
1776 *LENL = ((*LENL)+NROWD)-1;
2614 (*LENL) += MELIM;
3392 LENL = 0;
3486 INFORM,&LENL,&LENU,
3491 INFORM,&LENL,&LENU,
3496 LUSOL->luparm[LUSOL_IP_NONZEROS_L] = LENL;
3520 LTOPL = LL-LENL-LENU;
3703 DINCR = (LENL+LENU)-LUSOL->nelem;
3711 AVGMER,LENL,LENL+LENU,NCP,DINCR,NUTRI,LENU,
[all …]
/dports/math/lp_solve/lp_solve_5.5/bfp/bfp_LUSOL/LUSOL/
H A Dlusol8a.c52 int LPRINT, NRANK, LENL, LENU, LROW, NRANK0, KREP, KLAST, IW, L1, J1, JSING; in LU8RPC() local
57 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU8RPC()
105 LU7ADD(LUSOL, JREP,V,LENL,&LENU,&LROW,NRANK,INFORM,&KLAST,VNORM); in LU8RPC()
134 LU7ELM(LUSOL, JREP,V,&LENL,&LROW,NRANK,INFORM,DIAG); in LU8RPC()
182 LU7FOR(LUSOL, KREP,KLAST,&LENL,&LENU,&LROW,INFORM,DIAG); in LU8RPC()
212 LU7FOR(LUSOL, KREP,NRANK,&LENL,&LENU,&LROW,INFORM,DIAG); in LU8RPC()
275 LUSOL->luparm[LUSOL_IP_NONZEROS_L] = LENL; in LU8RPC()
H A Dlusol7a.c42 NFREE = LUSOL->lena - LENL - *LROW; in LU7ADD()
45 NFREE = LUSOL->lena - LENL - *LROW; in LU7ADD()
164 NFREE = LUSOL->lena-(*LENL)-(*LROW); in LU7ELM()
168 NFREE = LUSOL->lena-(*LENL)-(*LROW); in LU7ELM()
176 L = (LUSOL->lena-(*LENL))+1; in LU7ELM()
202 L2 = LUSOL->lena-(*LENL); in LU7ELM()
203 *LENL = ((*LENL)+L2)-L; in LU7ELM()
294 NFREE = LUSOL->lena-(*LENL)-(*LROW); in LU7FOR()
299 NFREE = LUSOL->lena-(*LENL)-(*LROW); in LU7FOR()
377 L = LUSOL->lena-(*LENL); in LU7FOR()
[all …]
H A Dlusol6a.c73 int I, J, JUMIN, K, L, L1, L2, LENL, LPRINT, NDEFIC, NRANK; in LU6CHK() local
79 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU6CHK()
102 for(L = (LENA2+1)-LENL; L <= LENA2; L++) { in LU6CHK()
204 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU6CHK()
227 for(L = (LENA2+1)-LENL; L <= LENA2; L++) { in LU6CHK()
357 int JPIV, K, L, L1, LEN, LENL, LENL0, NUML, NUML0; in LU6L() local
369 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU6L()
400 NUML = LENL-LENL0; in LU6L()
513 int K, L, L1, L2, LEN, LENL, LENL0, NUML0; in LU6LT() local
526 LENL = LUSOL->luparm[LUSOL_IP_NONZEROS_L]; in LU6LT()
[all …]
H A Dlusol1.c1662 int *LENL, int *LENU, int *NSING, argument
1776 *LENL = ((*LENL)+NROWD)-1;
2614 (*LENL) += MELIM;
3392 LENL = 0;
3486 INFORM,&LENL,&LENU,
3491 INFORM,&LENL,&LENU,
3496 LUSOL->luparm[LUSOL_IP_NONZEROS_L] = LENL;
3520 LTOPL = LL-LENL-LENU;
3703 DINCR = (LENL+LENU)-LUSOL->nelem;
3711 AVGMER,LENL,LENL+LENU,NCP,DINCR,NUTRI,LENU,
[all …]
/dports/math/mumps/mumps-5.1.2/src/
H A Ddana_mtrans.F444 SUBROUTINE DMUMPS_MTRANSQ(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument
447 INTEGER :: LENL(*),LENH(*),W(*) local
457 DO 15 II = IP(J)+int(LENL(J),8),IP(J)+int(LENH(J)-1,8)
568 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument
619 46 LENL(J) = int(K - IP(J))
620 IF (LENL(J).EQ.L) GO TO 48
632 CALL DMUMPS_MTRANSQ(IP,LENL,LEN,W,WLEN,A,NVAL,BVAL)
639 & IP(J)+int(LENL(J),8),-1_8
649 IF (LENL(J).EQ.LENH(J)) THEN
671 86 LENL(J) = LEN(J)
[all …]
H A Dsana_mtrans.F444 SUBROUTINE SMUMPS_MTRANSQ(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument
447 INTEGER :: LENL(*),LENH(*),W(*) local
457 DO 15 II = IP(J)+int(LENL(J),8),IP(J)+int(LENH(J)-1,8)
568 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument
619 46 LENL(J) = int(K - IP(J))
620 IF (LENL(J).EQ.L) GO TO 48
632 CALL SMUMPS_MTRANSQ(IP,LENL,LEN,W,WLEN,A,NVAL,BVAL)
639 & IP(J)+int(LENL(J),8),-1_8
649 IF (LENL(J).EQ.LENH(J)) THEN
671 86 LENL(J) = LEN(J)
[all …]
H A Dzana_mtrans.F444 SUBROUTINE ZMUMPS_MTRANSQ(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument
447 INTEGER :: LENL(*),LENH(*),W(*) local
457 DO 15 II = IP(J)+int(LENL(J),8),IP(J)+int(LENH(J)-1,8)
568 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument
619 46 LENL(J) = int(K - IP(J))
620 IF (LENL(J).EQ.L) GO TO 48
632 CALL ZMUMPS_MTRANSQ(IP,LENL,LEN,W,WLEN,A,NVAL,BVAL)
639 & IP(J)+int(LENL(J),8),-1_8
649 IF (LENL(J).EQ.LENH(J)) THEN
671 86 LENL(J) = LEN(J)
[all …]
H A Dcana_mtrans.F444 SUBROUTINE CMUMPS_MTRANSQ(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument
447 INTEGER :: LENL(*),LENH(*),W(*) local
457 DO 15 II = IP(J)+int(LENL(J),8),IP(J)+int(LENH(J)-1,8)
568 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument
619 46 LENL(J) = int(K - IP(J))
620 IF (LENL(J).EQ.L) GO TO 48
632 CALL CMUMPS_MTRANSQ(IP,LENL,LEN,W,WLEN,A,NVAL,BVAL)
639 & IP(J)+int(LENL(J),8),-1_8
649 IF (LENL(J).EQ.LENH(J)) THEN
671 86 LENL(J) = LEN(J)
[all …]

12