Home
last modified time | relevance | path

Searched refs:ELTPTR (Results 1 – 25 of 112) sorted by relevance

12345

/dports/math/mumps/mumps-5.1.2/src/
H A Dcana_aux_ELT.F23 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 Dzana_aux_ELT.F23 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 Dsana_aux_ELT.F23 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 Ddana_aux_ELT.F23 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 Dcfac_distrib_ELT.F176 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 Dsfac_distrib_ELT.F176 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 Ddfac_distrib_ELT.F176 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 Dzfac_distrib_ELT.F176 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 Dcsol_aux.F466 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 Dssol_aux.F465 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 Ddsol_aux.F465 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 Dzsol_aux.F466 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 Dzmumps_f77.F20 & 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 Dcmumps_f77.F20 & 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 Ddmumps_f77.F20 & 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 Dsmumps_f77.F20 & 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 Ddsol_matvec.F13 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 Dssol_matvec.F13 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 Dzsol_matvec.F13 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 Dcsol_matvec.F13 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 Dzmumps_driver.F1137 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 Dcmumps_driver.F1137 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 Dsmumps_driver.F1137 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 Ddmumps_driver.F1137 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 Dsmumps_part3.F3241 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 …]

12345