/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cana_aux_ELT.F | 23 INTEGER, INTENT(IN) :: ELTPTR(NELT+1) local 118 K = min0(10,ELTPTR(NELT+1)-1) 119 IF (LDIAG.EQ.4) K = ELTPTR(NELT+1)-1 158 CALL CMUMPS_NODEL(NELT, N, ELTPTR(NELT+1)-1, ELTPTR, ELTVAR, 164 & ELTPTR, ELTVAR, XNODEL, NODEL, 168 & ELTPTR, ELTVAR, XNODEL, NODEL, 1051 INTEGER ELTPTR(NELT+1),ELTVAR(NZ) local 1061 IF (NZ.LT.ELTPTR(NELT+1)-1) GO TO 30 1100 INTEGER ELTPTR(NELT+1),ELTVAR(NZ) local 1113 K1 = ELTPTR(J) [all …]
|
H A D | zana_aux_ELT.F | 23 INTEGER, INTENT(IN) :: ELTPTR(NELT+1) local 118 K = min0(10,ELTPTR(NELT+1)-1) 119 IF (LDIAG.EQ.4) K = ELTPTR(NELT+1)-1 158 CALL ZMUMPS_NODEL(NELT, N, ELTPTR(NELT+1)-1, ELTPTR, ELTVAR, 164 & ELTPTR, ELTVAR, XNODEL, NODEL, 168 & ELTPTR, ELTVAR, XNODEL, NODEL, 1051 INTEGER ELTPTR(NELT+1),ELTVAR(NZ) local 1061 IF (NZ.LT.ELTPTR(NELT+1)-1) GO TO 30 1100 INTEGER ELTPTR(NELT+1),ELTVAR(NZ) local 1113 K1 = ELTPTR(J) [all …]
|
H A D | sana_aux_ELT.F | 23 INTEGER, INTENT(IN) :: ELTPTR(NELT+1) local 118 K = min0(10,ELTPTR(NELT+1)-1) 119 IF (LDIAG.EQ.4) K = ELTPTR(NELT+1)-1 158 CALL SMUMPS_NODEL(NELT, N, ELTPTR(NELT+1)-1, ELTPTR, ELTVAR, 164 & ELTPTR, ELTVAR, XNODEL, NODEL, 168 & ELTPTR, ELTVAR, XNODEL, NODEL, 1051 INTEGER ELTPTR(NELT+1),ELTVAR(NZ) local 1061 IF (NZ.LT.ELTPTR(NELT+1)-1) GO TO 30 1100 INTEGER ELTPTR(NELT+1),ELTVAR(NZ) local 1113 K1 = ELTPTR(J) [all …]
|
H A D | dana_aux_ELT.F | 23 INTEGER, INTENT(IN) :: ELTPTR(NELT+1) local 118 K = min0(10,ELTPTR(NELT+1)-1) 119 IF (LDIAG.EQ.4) K = ELTPTR(NELT+1)-1 158 CALL DMUMPS_NODEL(NELT, N, ELTPTR(NELT+1)-1, ELTPTR, ELTVAR, 164 & ELTPTR, ELTVAR, XNODEL, NODEL, 168 & ELTPTR, ELTVAR, XNODEL, NODEL, 1051 INTEGER ELTPTR(NELT+1),ELTVAR(NZ) local 1061 IF (NZ.LT.ELTPTR(NELT+1)-1) GO TO 30 1100 INTEGER ELTPTR(NELT+1),ELTVAR(NZ) local 1113 K1 = ELTPTR(J) [all …]
|
H A D | cfac_distrib_ELT.F | 176 IELTPTR8 = int(id%ELTPTR( IEL ),8) 177 SIZEI = int(int(id%ELTPTR( IEL + 1 ),8) - IELTPTR8) 323 SIZEI = id%ELTPTR( IELT + 1 ) - id%ELTPTR( IELT ) 326 & ( id%ELTVAR( id%ELTPTR(IELT) + I - 1 ) ) 331 JGLOB = id%ELTVAR( id%ELTPTR( IELT ) + J - 1 ) 338 IGLOB = id%ELTVAR( id%ELTPTR( IELT ) + I - 1 ) 515 SUBROUTINE CMUMPS_MAXELT_SIZE( ELTPTR, NELT, MAXELT_SIZE ) argument 517 INTEGER ELTPTR( NELT + 1 ) local 521 S = ELTPTR( I + 1 ) - ELTPTR( I )
|
H A D | sfac_distrib_ELT.F | 176 IELTPTR8 = int(id%ELTPTR( IEL ),8) 177 SIZEI = int(int(id%ELTPTR( IEL + 1 ),8) - IELTPTR8) 323 SIZEI = id%ELTPTR( IELT + 1 ) - id%ELTPTR( IELT ) 326 & ( id%ELTVAR( id%ELTPTR(IELT) + I - 1 ) ) 331 JGLOB = id%ELTVAR( id%ELTPTR( IELT ) + J - 1 ) 338 IGLOB = id%ELTVAR( id%ELTPTR( IELT ) + I - 1 ) 515 SUBROUTINE SMUMPS_MAXELT_SIZE( ELTPTR, NELT, MAXELT_SIZE ) argument 517 INTEGER ELTPTR( NELT + 1 ) local 521 S = ELTPTR( I + 1 ) - ELTPTR( I )
|
H A D | dfac_distrib_ELT.F | 176 IELTPTR8 = int(id%ELTPTR( IEL ),8) 177 SIZEI = int(int(id%ELTPTR( IEL + 1 ),8) - IELTPTR8) 323 SIZEI = id%ELTPTR( IELT + 1 ) - id%ELTPTR( IELT ) 326 & ( id%ELTVAR( id%ELTPTR(IELT) + I - 1 ) ) 331 JGLOB = id%ELTVAR( id%ELTPTR( IELT ) + J - 1 ) 338 IGLOB = id%ELTVAR( id%ELTPTR( IELT ) + I - 1 ) 515 SUBROUTINE DMUMPS_MAXELT_SIZE( ELTPTR, NELT, MAXELT_SIZE ) argument 517 INTEGER ELTPTR( NELT + 1 ) local 521 S = ELTPTR( I + 1 ) - ELTPTR( I )
|
H A D | zfac_distrib_ELT.F | 176 IELTPTR8 = int(id%ELTPTR( IEL ),8) 177 SIZEI = int(int(id%ELTPTR( IEL + 1 ),8) - IELTPTR8) 323 SIZEI = id%ELTPTR( IELT + 1 ) - id%ELTPTR( IELT ) 326 & ( id%ELTVAR( id%ELTPTR(IELT) + I - 1 ) ) 331 JGLOB = id%ELTVAR( id%ELTPTR( IELT ) + J - 1 ) 338 IGLOB = id%ELTVAR( id%ELTPTR( IELT ) + I - 1 ) 515 SUBROUTINE ZMUMPS_MAXELT_SIZE( ELTPTR, NELT, MAXELT_SIZE ) argument 517 INTEGER ELTPTR( NELT + 1 ) local 521 S = ELTPTR( I + 1 ) - ELTPTR( I )
|
H A D | csol_aux.F | 466 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 486 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 499 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 500 IELPTR = ELTPTR( IEL ) - 1 545 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 559 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 560 IELPTR = ELTPTR( IEL ) - 1 604 SUBROUTINE CMUMPS_ELTYD( MTYPE, N, NELT, ELTPTR, argument 610 INTEGER ELTPTR( NELT + 1 ), ELTVAR( LELTVAR ) local 623 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) [all …]
|
H A D | ssol_aux.F | 465 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 485 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 498 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 499 IELPTR = ELTPTR( IEL ) - 1 544 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 558 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 559 IELPTR = ELTPTR( IEL ) - 1 603 SUBROUTINE SMUMPS_ELTYD( MTYPE, N, NELT, ELTPTR, argument 609 INTEGER ELTPTR( NELT + 1 ), ELTVAR( LELTVAR ) local 622 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) [all …]
|
H A D | dsol_aux.F | 465 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 485 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 498 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 499 IELPTR = ELTPTR( IEL ) - 1 544 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 558 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 559 IELPTR = ELTPTR( IEL ) - 1 603 SUBROUTINE DMUMPS_ELTYD( MTYPE, N, NELT, ELTPTR, argument 609 INTEGER ELTPTR( NELT + 1 ), ELTVAR( LELTVAR ) local 622 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) [all …]
|
H A D | zsol_aux.F | 466 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 486 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 499 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 500 IELPTR = ELTPTR( IEL ) - 1 545 INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR) local 559 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 560 IELPTR = ELTPTR( IEL ) - 1 604 SUBROUTINE ZMUMPS_ELTYD( MTYPE, N, NELT, ELTPTR, argument 610 INTEGER ELTPTR( NELT + 1 ), ELTVAR( LELTVAR ) local 623 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) [all …]
|
H A D | zmumps_f77.F | 20 & NELT, ELTPTR, ELTPTRhere, ELTVAR, argument 72 INTEGER, TARGET :: IRN(*), JCN(*), ELTPTR(*), ELTVAR(*) local 202 IF ( ELTPTRhere /= 0 ) mumps_par%ELTPTR => ELTPTR(1:NELT+1) 204 & ELTVAR(1:ELTPTR(NELT+1)-1) 208 Np = ELTPTR(I+1) -ELTPTR(I)
|
H A D | cmumps_f77.F | 20 & NELT, ELTPTR, ELTPTRhere, ELTVAR, argument 72 INTEGER, TARGET :: IRN(*), JCN(*), ELTPTR(*), ELTVAR(*) local 202 IF ( ELTPTRhere /= 0 ) mumps_par%ELTPTR => ELTPTR(1:NELT+1) 204 & ELTVAR(1:ELTPTR(NELT+1)-1) 208 Np = ELTPTR(I+1) -ELTPTR(I)
|
H A D | dmumps_f77.F | 20 & NELT, ELTPTR, ELTPTRhere, ELTVAR, argument 72 INTEGER, TARGET :: IRN(*), JCN(*), ELTPTR(*), ELTVAR(*) local 202 IF ( ELTPTRhere /= 0 ) mumps_par%ELTPTR => ELTPTR(1:NELT+1) 204 & ELTVAR(1:ELTPTR(NELT+1)-1) 208 Np = ELTPTR(I+1) -ELTPTR(I)
|
H A D | smumps_f77.F | 20 & NELT, ELTPTR, ELTPTRhere, ELTVAR, argument 72 INTEGER, TARGET :: IRN(*), JCN(*), ELTPTR(*), ELTVAR(*) local 202 IF ( ELTPTRhere /= 0 ) mumps_par%ELTPTR => ELTPTR(1:NELT+1) 204 & ELTVAR(1:ELTPTR(NELT+1)-1) 208 Np = ELTPTR(I+1) -ELTPTR(I)
|
H A D | dsol_matvec.F | 13 SUBROUTINE DMUMPS_MV_ELT( N, NELT, ELTPTR, ELTVAR, A_ELT, argument 40 INTEGER ELTPTR( NELT + 1 ), ELTVAR( * ) local 62 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 63 IELPTR = ELTPTR( IEL ) - 1
|
H A D | ssol_matvec.F | 13 SUBROUTINE SMUMPS_MV_ELT( N, NELT, ELTPTR, ELTVAR, A_ELT, argument 40 INTEGER ELTPTR( NELT + 1 ), ELTVAR( * ) local 62 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 63 IELPTR = ELTPTR( IEL ) - 1
|
H A D | zsol_matvec.F | 13 SUBROUTINE ZMUMPS_MV_ELT( N, NELT, ELTPTR, ELTVAR, A_ELT, argument 40 INTEGER ELTPTR( NELT + 1 ), ELTVAR( * ) local 62 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 63 IELPTR = ELTPTR( IEL ) - 1
|
H A D | csol_matvec.F | 13 SUBROUTINE CMUMPS_MV_ELT( N, NELT, ELTPTR, ELTVAR, A_ELT, argument 40 INTEGER ELTPTR( NELT + 1 ), ELTVAR( * ) local 62 SIZEI = ELTPTR( IEL + 1 ) - ELTPTR( IEL ) 63 IELPTR = ELTPTR( IEL ) - 1
|
H A D | zmumps_driver.F | 1137 IF ( .not. associated( id%ELTPTR ) ) THEN 1140 ELSE IF ( size( id%ELTPTR ) < id%NELT+1 ) THEN 1147 id%LELTVAR = id%ELTPTR( id%NELT+1 ) - 1 1159 J = id%ELTPTR(I+1) - id%ELTPTR(I) 1165 J = id%ELTPTR(I+1) - id%ELTPTR(I) 1354 IF ( .not. associated( id%ELTPTR ) ) THEN 1357 ELSE IF ( size( id%ELTPTR ) < id%NELT+1 ) THEN
|
H A D | cmumps_driver.F | 1137 IF ( .not. associated( id%ELTPTR ) ) THEN 1140 ELSE IF ( size( id%ELTPTR ) < id%NELT+1 ) THEN 1147 id%LELTVAR = id%ELTPTR( id%NELT+1 ) - 1 1159 J = id%ELTPTR(I+1) - id%ELTPTR(I) 1165 J = id%ELTPTR(I+1) - id%ELTPTR(I) 1354 IF ( .not. associated( id%ELTPTR ) ) THEN 1357 ELSE IF ( size( id%ELTPTR ) < id%NELT+1 ) THEN
|
H A D | smumps_driver.F | 1137 IF ( .not. associated( id%ELTPTR ) ) THEN 1140 ELSE IF ( size( id%ELTPTR ) < id%NELT+1 ) THEN 1147 id%LELTVAR = id%ELTPTR( id%NELT+1 ) - 1 1159 J = id%ELTPTR(I+1) - id%ELTPTR(I) 1165 J = id%ELTPTR(I+1) - id%ELTPTR(I) 1354 IF ( .not. associated( id%ELTPTR ) ) THEN 1357 ELSE IF ( size( id%ELTPTR ) < id%NELT+1 ) THEN
|
H A D | dmumps_driver.F | 1137 IF ( .not. associated( id%ELTPTR ) ) THEN 1140 ELSE IF ( size( id%ELTPTR ) < id%NELT+1 ) THEN 1147 id%LELTVAR = id%ELTPTR( id%NELT+1 ) - 1 1159 J = id%ELTPTR(I+1) - id%ELTPTR(I) 1165 J = id%ELTPTR(I+1) - id%ELTPTR(I) 1354 IF ( .not. associated( id%ELTPTR ) ) THEN 1357 ELSE IF ( size( id%ELTPTR ) < id%NELT+1 ) THEN
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | smumps_part3.F | 3241 INTEGER ELTPTR(NELT+1) 3308 K = min0(10,ELTPTR(NELT+1)-1) 3348 CALL SMUMPS_258(NELT, N, ELTPTR(NELT+1)-1, ELTPTR, ELTVAR, 4202 K1 = ELTPTR(J) 4203 K2 = ELTPTR(J+1) - 1 6176 SIZEI = id%ELTPTR( IELT + 1 ) - id%ELTPTR( IELT ) 6370 INTEGER ELTPTR( NELT + 1 ) local 6374 S = ELTPTR( I + 1 ) - ELTPTR( I ) 6586 IF ( ELTPTRhere /= 0 ) mumps_par%ELTPTR => ELTPTR(1:NELT+1) 6588 & ELTVAR(1:ELTPTR(NELT+1)-1) [all …]
|