Home
last modified time | relevance | path

Searched refs:LIWK (Results 1 – 25 of 30) sorted by relevance

12

/dports/math/math77/MATH77/demo/
H A Ddrdjacg1.f30 INTEGER I, MODE, M, N, LDFJAC, LWK, LIWK variable
31 PARAMETER(M=1, N=2, LDFJAC=M, LWK=3*M+18, LIWK=21)
32 INTEGER IOPT(04), IWK(LIWK)
74 . WK,LWK,IWK,LIWK)
105 . WK,LWK,IWK,LIWK)
148 . WK,LWK,IWK,LIWK)
179 . WK,LWK,IWK,LIWK)
H A Ddrsjacg1.f30 INTEGER I, MODE, M, N, LDFJAC, LWK, LIWK variable
31 PARAMETER(M=1, N=2, LDFJAC=M, LWK=3*M+18, LIWK=21)
32 INTEGER IOPT(04), IWK(LIWK)
74 . WK,LWK,IWK,LIWK)
105 . WK,LWK,IWK,LIWK)
148 . WK,LWK,IWK,LIWK)
179 . WK,LWK,IWK,LIWK)
/dports/math/py-pynleq2/pysces-0.9.8/pysces/nleq2/
H A Dnleq2.f2 $LIWK,IWK,LRWK,RWK)
10 INTEGER LIWK
11 INTEGER IWK(LIWK)
963 IF(NIW.GT.LIWK)THEN
981 INTEGER LIWK
982 INTEGER IWK(LIWK)
1143 INTEGER IWK(LIWK)
2529 INTEGER LIWK
2530 INTEGER IWK(LIWK)
2637 INTEGER LIWK
[all …]
/dports/biology/py-PySCeS/pysces-1.0.0/pysces/nleq2/
H A Dnleq2.f2 $LIWK,IWK,LRWK,RWK)
10 INTEGER LIWK
11 INTEGER IWK(LIWK)
963 IF(NIW.GT.LIWK)THEN
981 INTEGER LIWK
982 INTEGER IWK(LIWK)
1143 INTEGER IWK(LIWK)
2529 INTEGER LIWK
2530 INTEGER IWK(LIWK)
2637 INTEGER LIWK
[all …]
/dports/math/py-pynleq2/pysces-0.9.8/pysces/nleq2/4.2/
H A Dnleq2.f2 $LIWK,IWK,LRWK,RWK)
10 INTEGER LIWK
11 INTEGER IWK(LIWK)
959 IF(NIW.GT.LIWK)THEN
977 INTEGER LIWK
978 INTEGER IWK(LIWK)
1141 INTEGER IWK(LIWK)
2528 INTEGER LIWK
2529 INTEGER IWK(LIWK)
2636 INTEGER LIWK
[all …]
H A Dnleq2_gfortran.f2 $LIWK,IWK,LRWK,RWK)
10 INTEGER LIWK
11 INTEGER IWK(LIWK)
959 IF(NIW.GT.LIWK)THEN
977 INTEGER LIWK
978 INTEGER IWK(LIWK)
1141 INTEGER IWK(LIWK)
2528 INTEGER LIWK
2529 INTEGER IWK(LIWK)
2636 INTEGER LIWK
[all …]
H A Dnleq2_little_pre-gcc41.f2 $LIWK,IWK,LRWK,RWK)
10 INTEGER LIWK
11 INTEGER IWK(LIWK)
959 IF(NIW.GT.LIWK)THEN
977 INTEGER LIWK
978 INTEGER IWK(LIWK)
1141 INTEGER IWK(LIWK)
2528 INTEGER LIWK
2529 INTEGER IWK(LIWK)
2636 INTEGER LIWK
[all …]
H A Dnleq2_big.f2 $LIWK,IWK,LRWK,RWK)
10 INTEGER LIWK
11 INTEGER IWK(LIWK)
959 IF(NIW.GT.LIWK)THEN
977 INTEGER LIWK
978 INTEGER IWK(LIWK)
1141 INTEGER IWK(LIWK)
2528 INTEGER LIWK
2529 INTEGER IWK(LIWK)
2636 INTEGER LIWK
[all …]
H A Dnleq2_little.f2 $LIWK,IWK,LRWK,RWK)
10 INTEGER LIWK
11 INTEGER IWK(LIWK)
959 IF(NIW.GT.LIWK)THEN
977 INTEGER LIWK
978 INTEGER IWK(LIWK)
1141 INTEGER IWK(LIWK)
2528 INTEGER LIWK
2529 INTEGER IWK(LIWK)
2636 INTEGER LIWK
[all …]
/dports/math/math77/MATH77/
H A Ddjacg.f3 . WK,LWK,IWK,LIWK) argument
260 INTEGER MODE, N, M, LDFJAC, LWK, LIWK local
264 INTEGER IOPT(*),IWK(LIWK)
357 IF(LIWK .lt. 21) GO TO 1000
387 DO 10 J = 1,LIWK
H A Dsjacg.f3 . WK,LWK,IWK,LIWK) argument
260 INTEGER MODE, N, M, LDFJAC, LWK, LIWK local
264 INTEGER IOPT(*),IWK(LIWK)
357 IF(LIWK .lt. 21) GO TO 1000
387 DO 10 J = 1,LIWK
/dports/math/mumps/mumps-5.1.2/src/
H A Dcfac_driver.F101 INTEGER LIWK, LWK_REAL local
563 LIWK = 4*BUMAXMN
564 ALLOCATE (IWK(LIWK),BURP(M),BUCP(N),
586 & IWK, LIWK,
593 IF(LIWK < BUINTSZ) THEN
595 LIWK = BUINTSZ
599 id%INFO(2)=LIWK
621 & IWK, LIWK,
652 LIWK = 1
672 & IWK, LIWK,
[all …]
H A Dzfac_driver.F101 INTEGER LIWK, LWK_REAL local
563 LIWK = 4*BUMAXMN
564 ALLOCATE (IWK(LIWK),BURP(M),BUCP(N),
586 & IWK, LIWK,
593 IF(LIWK < BUINTSZ) THEN
595 LIWK = BUINTSZ
599 id%INFO(2)=LIWK
621 & IWK, LIWK,
652 LIWK = 1
672 & IWK, LIWK,
[all …]
H A Ddfac_driver.F101 INTEGER LIWK, LWK_REAL local
562 LIWK = 4*BUMAXMN
563 ALLOCATE (IWK(LIWK),BURP(M),BUCP(N),
585 & IWK, LIWK,
592 IF(LIWK < BUINTSZ) THEN
594 LIWK = BUINTSZ
598 id%INFO(2)=LIWK
620 & IWK, LIWK,
651 LIWK = 1
671 & IWK, LIWK,
[all …]
H A Dsfac_driver.F101 INTEGER LIWK, LWK_REAL local
562 LIWK = 4*BUMAXMN
563 ALLOCATE (IWK(LIWK),BURP(M),BUCP(N),
585 & IWK, LIWK,
592 IF(LIWK < BUINTSZ) THEN
594 LIWK = BUINTSZ
598 id%INFO(2)=LIWK
620 & IWK, LIWK,
651 LIWK = 1
671 & IWK, LIWK,
[all …]
/dports/science/siconos/siconos-4.4.0/externals/hairer/
H A Dhairer.h63 doublereal* WK, integer * LWK, integer* IWK, integer* LIWK,
/dports/science/siconos/siconos-4.4.0/externals/netlib/odepack/
H A Dopkda1.f1352 LIWK = LENWK*LRAT
1402 IF (K .GT. LIWK) GO TO 210
1411 IF (K .GT. LIWK) GO TO 210
1424 IF (K .GT. LIWK) GO TO 210
1462 IF (LREQ .GT. LIWK) GO TO 220
1479 NSP = LIWK + 1 - IPISP
9592 LIWK = LENWK*LRAT
9593 IF (MOSS .EQ. 0) LIWK = LIWK - N
9623 35 IWK(LIWK+I) = 0
9628 IWK(LIWK+I) = 1
[all …]
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dsmumps_part5.F4102 INTEGER LIWK, LWK, LWK_REAL
4341 LIWK = 4*BUMAXMN
4347 INFO(2)=LIWK+M+N+4* (id%NPROCS)
4361 & IWK, LIWK,
4368 IF(LIWK < BUINTSZ) THEN
4370 LIWK = BUINTSZ
4374 INFO(2)=LIWK
4394 & IWK, LIWK,
4417 LIWK = 1
4437 & IWK, LIWK,
[all …]
H A Ddmumps_part5.F4102 INTEGER LIWK, LWK, LWK_REAL
4341 LIWK = 4*BUMAXMN
4347 INFO(2)=LIWK+M+N+4* (id%NPROCS)
4361 & IWK, LIWK,
4368 IF(LIWK < BUINTSZ) THEN
4370 LIWK = BUINTSZ
4374 INFO(2)=LIWK
4394 & IWK, LIWK,
4417 LIWK = 1
4437 & IWK, LIWK,
[all …]
H A Dcmumps_part5.F4104 INTEGER LIWK, LWK, LWK_REAL
4344 LIWK = 4*BUMAXMN
4350 INFO(2)=LIWK+M+N+4* (id%NPROCS)
4364 & IWK, LIWK,
4371 IF(LIWK < BUINTSZ) THEN
4373 LIWK = BUINTSZ
4377 INFO(2)=LIWK
4397 & IWK, LIWK,
4420 LIWK = 1
4440 & IWK, LIWK,
[all …]
H A Dzmumps_part5.F4104 INTEGER LIWK, LWK, LWK_REAL
4344 LIWK = 4*BUMAXMN
4350 INFO(2)=LIWK+M+N+4* (id%NPROCS)
4364 & IWK, LIWK,
4371 IF(LIWK < BUINTSZ) THEN
4373 LIWK = BUINTSZ
4377 INFO(2)=LIWK
4397 & IWK, LIWK,
4420 LIWK = 1
4440 & IWK, LIWK,
[all …]
/dports/math/coinmumps/MUMPS_4.10.0/src/
H A Dzmumps_part5.F4104 INTEGER LIWK, LWK, LWK_REAL
4344 LIWK = 4*BUMAXMN
4350 INFO(2)=LIWK+M+N+4* (id%NPROCS)
4364 & IWK, LIWK,
4371 IF(LIWK < BUINTSZ) THEN
4373 LIWK = BUINTSZ
4377 INFO(2)=LIWK
4397 & IWK, LIWK,
4420 LIWK = 1
4440 & IWK, LIWK,
[all …]
H A Dcmumps_part5.F4104 INTEGER LIWK, LWK, LWK_REAL
4344 LIWK = 4*BUMAXMN
4350 INFO(2)=LIWK+M+N+4* (id%NPROCS)
4364 & IWK, LIWK,
4371 IF(LIWK < BUINTSZ) THEN
4373 LIWK = BUINTSZ
4377 INFO(2)=LIWK
4397 & IWK, LIWK,
4420 LIWK = 1
4440 & IWK, LIWK,
[all …]
H A Dsmumps_part5.F4102 INTEGER LIWK, LWK, LWK_REAL local
4341 LIWK = 4*BUMAXMN
4347 INFO(2)=LIWK+M+N+4* (id%NPROCS)
4361 & IWK, LIWK,
4368 IF(LIWK < BUINTSZ) THEN
4370 LIWK = BUINTSZ
4374 INFO(2)=LIWK
4394 & IWK, LIWK,
4417 LIWK = 1
4437 & IWK, LIWK,
[all …]
H A Ddmumps_part5.F4102 INTEGER LIWK, LWK, LWK_REAL
4341 LIWK = 4*BUMAXMN
4347 INFO(2)=LIWK+M+N+4* (id%NPROCS)
4361 & IWK, LIWK,
4368 IF(LIWK < BUINTSZ) THEN
4370 LIWK = BUINTSZ
4374 INFO(2)=LIWK
4394 & IWK, LIWK,
4417 LIWK = 1
4437 & IWK, LIWK,
[all …]

12