Home
last modified time | relevance | path

Searched refs:IBEGCONTIG (Results 1 – 16 of 16) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dsfac_mem_compress_cb.F100 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 Dzfac_mem_compress_cb.F100 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 Dcfac_mem_compress_cb.F100 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 Ddfac_mem_compress_cb.F100 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 Dcmumps_part4.F4472 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 Ddmumps_part4.F4472 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 Dzmumps_part4.F4472 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 Dsmumps_part4.F4472 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 Ddmumps_part4.F4472 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 Dsmumps_part4.F4472 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 Dzmumps_part4.F4472 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 Dcmumps_part4.F4472 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 Dcmumps_part4.F4472 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 Ddmumps_part4.F4472 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 Dzmumps_part4.F4472 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 Dsmumps_part4.F4472 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 …]