/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | xnam19.f | 9 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 D | nmlist.f | 21 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 D | la05cs.f | 24 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 D | la05as.f | 38 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 D | la05bs.f | 28 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 D | la05cd.f | 42 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 D | la05cs.f | 43 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 D | la05ad.f | 61 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 D | la05as.f | 58 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 D | la05bd.f | 43 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 D | la05bs.f | 43 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 D | la05ed.f | 36 COMMON /LA05DD/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
|
H A D | la05es.f | 36 COMMON /LA05DS/ SMALL, LP, LENL, LENU, NCP, LROW, LCOL
|
/dports/math/R-cran-lpSolve/lpSolve/src/ |
H A D | lusol8a.h | 52 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 D | lusol7a.h | 42 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 D | lusol6a.h | 73 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 D | lusol1.h | 1662 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 D | lusol8a.c | 52 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 D | lusol7a.c | 42 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 D | lusol6a.c | 73 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 D | lusol1.c | 1662 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 D | dana_mtrans.F | 444 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 D | sana_mtrans.F | 444 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 D | zana_mtrans.F | 444 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 D | cana_mtrans.F | 444 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 …]
|