/dports/math/mumps/mumps-5.1.2/src/ |
H A D | sfac_mem_compress_cb.F | 100 INTEGER IBEGCONTIG local 115 IBEGCONTIG = -999999 132 IF (IBEGCONTIG < 0) THEN 133 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 161 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 162 CALL SMUMPS_ISHIFT(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 163 IF (IXXP .LE.IBEGCONTIG) THEN 167 IBEGCONTIG=-9999 185 IF (IBEGCONTIG < 0 ) THEN 186 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | zfac_mem_compress_cb.F | 100 INTEGER IBEGCONTIG local 115 IBEGCONTIG = -999999 132 IF (IBEGCONTIG < 0) THEN 133 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 161 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 162 CALL ZMUMPS_ISHIFT(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 163 IF (IXXP .LE.IBEGCONTIG) THEN 167 IBEGCONTIG=-9999 185 IF (IBEGCONTIG < 0 ) THEN 186 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | cfac_mem_compress_cb.F | 100 INTEGER IBEGCONTIG local 115 IBEGCONTIG = -999999 132 IF (IBEGCONTIG < 0) THEN 133 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 161 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 162 CALL CMUMPS_ISHIFT(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 163 IF (IXXP .LE.IBEGCONTIG) THEN 167 IBEGCONTIG=-9999 185 IF (IBEGCONTIG < 0 ) THEN 186 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | dfac_mem_compress_cb.F | 100 INTEGER IBEGCONTIG local 115 IBEGCONTIG = -999999 132 IF (IBEGCONTIG < 0) THEN 133 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 161 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 162 CALL DMUMPS_ISHIFT(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 163 IF (IXXP .LE.IBEGCONTIG) THEN 167 IBEGCONTIG=-9999 185 IF (IBEGCONTIG < 0 ) THEN 186 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | cmumps_part4.F | 4472 INTEGER IBEGCONTIG 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL CMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | dmumps_part4.F | 4472 INTEGER IBEGCONTIG 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL DMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | zmumps_part4.F | 4472 INTEGER IBEGCONTIG 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL ZMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | smumps_part4.F | 4472 INTEGER IBEGCONTIG 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL SMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | dmumps_part4.F | 4472 INTEGER IBEGCONTIG 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL DMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | smumps_part4.F | 4472 INTEGER IBEGCONTIG local 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL SMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | zmumps_part4.F | 4472 INTEGER IBEGCONTIG 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL ZMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | cmumps_part4.F | 4472 INTEGER IBEGCONTIG local 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL CMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_part4.F | 4472 INTEGER IBEGCONTIG local 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL CMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | dmumps_part4.F | 4472 INTEGER IBEGCONTIG local 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL DMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | zmumps_part4.F | 4472 INTEGER IBEGCONTIG local 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL ZMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|
H A D | smumps_part4.F | 4472 INTEGER IBEGCONTIG local 4483 IBEGCONTIG = -999999 4499 IF (IBEGCONTIG < 0) THEN 4500 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 4528 IF (IBEGCONTIG.NE.0 .AND. ISIZE2SHIFT .NE. 0) THEN 4529 CALL SMUMPS_630(IW,LIW,ICURRENT,IBEGCONTIG,ISIZE2SHIFT) 4530 IF (IXXP .LE.IBEGCONTIG) THEN 4534 IBEGCONTIG=-9999 4552 IF (IBEGCONTIG < 0 ) THEN 4553 IBEGCONTIG=ICURRENT+IW(ICURRENT+XXI)-1 [all …]
|