/dports/math/math77/MATH77/demo/ |
H A D | drdjacg1.f | 30 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 D | drsjacg1.f | 30 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 D | nleq2.f | 2 $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 D | nleq2.f | 2 $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 D | nleq2.f | 2 $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 D | nleq2_gfortran.f | 2 $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 D | nleq2_little_pre-gcc41.f | 2 $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 D | nleq2_big.f | 2 $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 D | nleq2_little.f | 2 $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 D | djacg.f | 3 . 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 D | sjacg.f | 3 . 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 D | cfac_driver.F | 101 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 D | zfac_driver.F | 101 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 D | dfac_driver.F | 101 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 D | sfac_driver.F | 101 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 D | hairer.h | 63 doublereal* WK, integer * LWK, integer* IWK, integer* LIWK,
|
/dports/science/siconos/siconos-4.4.0/externals/netlib/odepack/ |
H A D | opkda1.f | 1352 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 D | smumps_part5.F | 4102 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 D | dmumps_part5.F | 4102 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 D | cmumps_part5.F | 4104 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 D | zmumps_part5.F | 4104 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 D | zmumps_part5.F | 4104 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 D | cmumps_part5.F | 4104 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 D | smumps_part5.F | 4102 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 D | dmumps_part5.F | 4102 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 …]
|