/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cana_aux_par.F | 866 INTEGER(8), POINTER :: LVARPT(:) local 881 nullify(MYLIST, LVARPT, 971 CALL MUMPS_I8REALLOC(LVARPT, TOTNCLIQUES+1, id%INFO, 975 LVARPT(1) = 1_8 980 LVARPT(ICLIQUES+1) = LVARPT(ICLIQUES)+LENG(I) 982 LSTVAR(LVARPT(ICLIQUES)+J) = 992 LVARPT(ICLIQUES+1) = LVARPT(ICLIQUES)+K 1167 & TMP1, LVARPT, MEMCNT=MEMCNT) 1209 INTEGER(8) :: LVARPT(:) local 1232 DO INNZ=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | dana_aux_par.F | 866 INTEGER(8), POINTER :: LVARPT(:) local 881 nullify(MYLIST, LVARPT, 971 CALL MUMPS_I8REALLOC(LVARPT, TOTNCLIQUES+1, id%INFO, 975 LVARPT(1) = 1_8 980 LVARPT(ICLIQUES+1) = LVARPT(ICLIQUES)+LENG(I) 982 LSTVAR(LVARPT(ICLIQUES)+J) = 992 LVARPT(ICLIQUES+1) = LVARPT(ICLIQUES)+K 1167 & TMP1, LVARPT, MEMCNT=MEMCNT) 1209 INTEGER(8) :: LVARPT(:) local 1232 DO INNZ=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | zana_aux_par.F | 866 INTEGER(8), POINTER :: LVARPT(:) local 881 nullify(MYLIST, LVARPT, 971 CALL MUMPS_I8REALLOC(LVARPT, TOTNCLIQUES+1, id%INFO, 975 LVARPT(1) = 1_8 980 LVARPT(ICLIQUES+1) = LVARPT(ICLIQUES)+LENG(I) 982 LSTVAR(LVARPT(ICLIQUES)+J) = 992 LVARPT(ICLIQUES+1) = LVARPT(ICLIQUES)+K 1167 & TMP1, LVARPT, MEMCNT=MEMCNT) 1209 INTEGER(8) :: LVARPT(:) local 1232 DO INNZ=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | sana_aux_par.F | 866 INTEGER(8), POINTER :: LVARPT(:) local 881 nullify(MYLIST, LVARPT, 971 CALL MUMPS_I8REALLOC(LVARPT, TOTNCLIQUES+1, id%INFO, 975 LVARPT(1) = 1_8 980 LVARPT(ICLIQUES+1) = LVARPT(ICLIQUES)+LENG(I) 982 LSTVAR(LVARPT(ICLIQUES)+J) = 992 LVARPT(ICLIQUES+1) = LVARPT(ICLIQUES)+K 1167 & TMP1, LVARPT, MEMCNT=MEMCNT) 1209 INTEGER(8) :: LVARPT(:) local 1232 DO INNZ=LVARPT(I), LVARPT(I+1)-1 [all …]
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | zmumps_part2.F | 5208 & MYNVAR(:), LVARPT(:), 5226 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5316 LVARPT => NEXT 5356 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5360 CALL MUMPS_733(LVARPT, 2, id%INFO, 5391 LVARPT(1) = 1 5393 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5409 NEXT => LVARPT 5589 & LVARPT, MEMCNT=MEMCNT) 5653 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | cmumps_part2.F | 5208 & MYNVAR(:), LVARPT(:), 5226 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5316 LVARPT => NEXT 5356 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5360 CALL MUMPS_733(LVARPT, 2, id%INFO, 5391 LVARPT(1) = 1 5393 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5409 NEXT => LVARPT 5589 & LVARPT, MEMCNT=MEMCNT) 5653 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | dmumps_part2.F | 5209 & MYNVAR(:), LVARPT(:), 5227 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5317 LVARPT => NEXT 5357 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5361 CALL MUMPS_733(LVARPT, 2, id%INFO, 5392 LVARPT(1) = 1 5394 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5410 NEXT => LVARPT 5590 & LVARPT, MEMCNT=MEMCNT) 5654 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | smumps_part2.F | 5204 & MYNVAR(:), LVARPT(:), 5222 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5312 LVARPT => NEXT 5352 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5356 CALL MUMPS_733(LVARPT, 2, id%INFO, 5387 LVARPT(1) = 1 5389 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5405 NEXT => LVARPT 5585 & LVARPT, MEMCNT=MEMCNT) 5649 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | cmumps_part2.F | 5208 & MYNVAR(:), LVARPT(:), 5226 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5316 LVARPT => NEXT 5356 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5360 CALL MUMPS_733(LVARPT, 2, id%INFO, 5391 LVARPT(1) = 1 5393 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5409 NEXT => LVARPT 5589 & LVARPT, MEMCNT=MEMCNT) 5653 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | dmumps_part2.F | 5209 & MYNVAR(:), LVARPT(:), 5227 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5317 LVARPT => NEXT 5357 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5361 CALL MUMPS_733(LVARPT, 2, id%INFO, 5392 LVARPT(1) = 1 5394 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5410 NEXT => LVARPT 5590 & LVARPT, MEMCNT=MEMCNT) 5654 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | smumps_part2.F | 5204 & MYNVAR(:), LVARPT(:), local 5222 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5312 LVARPT => NEXT 5352 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5356 CALL MUMPS_733(LVARPT, 2, id%INFO, 5387 LVARPT(1) = 1 5389 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5405 NEXT => LVARPT 5585 & LVARPT, MEMCNT=MEMCNT) 5649 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | zmumps_part2.F | 5208 & MYNVAR(:), LVARPT(:), 5226 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5316 LVARPT => NEXT 5356 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5360 CALL MUMPS_733(LVARPT, 2, id%INFO, 5391 LVARPT(1) = 1 5393 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5409 NEXT => LVARPT 5589 & LVARPT, MEMCNT=MEMCNT) 5653 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_part2.F | 5208 & MYNVAR(:), LVARPT(:), local 5226 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5316 LVARPT => NEXT 5356 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5360 CALL MUMPS_733(LVARPT, 2, id%INFO, 5391 LVARPT(1) = 1 5393 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5409 NEXT => LVARPT 5589 & LVARPT, MEMCNT=MEMCNT) 5653 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | dmumps_part2.F | 5204 & MYNVAR(:), LVARPT(:), local 5222 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5312 LVARPT => NEXT 5352 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5356 CALL MUMPS_733(LVARPT, 2, id%INFO, 5387 LVARPT(1) = 1 5389 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5405 NEXT => LVARPT 5585 & LVARPT, MEMCNT=MEMCNT) 5649 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | zmumps_part2.F | 5208 & MYNVAR(:), LVARPT(:), local 5226 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5316 LVARPT => NEXT 5356 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5360 CALL MUMPS_733(LVARPT, 2, id%INFO, 5391 LVARPT(1) = 1 5393 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5409 NEXT => LVARPT 5589 & LVARPT, MEMCNT=MEMCNT) 5653 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|
H A D | smumps_part2.F | 5204 & MYNVAR(:), LVARPT(:), local 5222 nullify(NROOTS, MYLIST, MYNVAR, LVARPT, DISPLS, 5312 LVARPT => NEXT 5352 CALL MUMPS_733(LVARPT, NCLIQUES+1, id%INFO, 5356 CALL MUMPS_733(LVARPT, 2, id%INFO, 5387 LVARPT(1) = 1 5389 LVARPT(I) = LVARPT(I-1) + LVARPT(I) 5405 NEXT => LVARPT 5585 & LVARPT, MEMCNT=MEMCNT) 5649 DO J=LVARPT(I), LVARPT(I+1)-1 [all …]
|