Home
last modified time | relevance | path

Searched refs:INTARR (Results 1 – 25 of 265) sorted by relevance

1234567891011

/dports/math/mumps/mumps-5.1.2/src/
H A Dfac_asm_build_sort_index_m.F37 INTEGER :: INTARR(LINTARR) local
167 JT1 = INTARR(J18)
170 J28 = J18 + INTARR(J18 - 2) - INTARR(J18 - 1)
174 J = INTARR(JJ8)
234 JT1 = INTARR(J18)
235 INTARR(J18) = INEW1
404 J28 = J18 + INTARR(J18 - 2) - INTARR(J18-1)
413 J = INTARR( JJ8 )
441 J28 = J18 + INTARR(J18 - 2) - INTARR(J18-1)
554 J28 = J18 + INTARR(J18 - 2) - INTARR(J18 - 1)
[all …]
H A Dcarrowheads.F82 DEALLOCATE( id%INTARR )
83 NULLIFY( id%INTARR )
142 id%INTARR( IPTRI + 2 ) = I
152 id%INTARR( IPTRI + 2 ) = I
248 INTARR( I1 + 2 ) = I
432 INTARR(ISHIFT) = JARR
625 INTEGER INTARR(LINTARR) local
709 IW4(I,1) = INTARR(I18)
711 INTARR(I18+2)=I
773 INTARR(IIW8) = JARR
[all …]
H A Dsarrowheads.F82 DEALLOCATE( id%INTARR )
83 NULLIFY( id%INTARR )
142 id%INTARR( IPTRI + 2 ) = I
152 id%INTARR( IPTRI + 2 ) = I
248 INTARR( I1 + 2 ) = I
432 INTARR(ISHIFT) = JARR
625 INTEGER INTARR(LINTARR) local
709 IW4(I,1) = INTARR(I18)
711 INTARR(I18+2)=I
773 INTARR(IIW8) = JARR
[all …]
H A Dzarrowheads.F82 DEALLOCATE( id%INTARR )
83 NULLIFY( id%INTARR )
142 id%INTARR( IPTRI + 2 ) = I
152 id%INTARR( IPTRI + 2 ) = I
248 INTARR( I1 + 2 ) = I
432 INTARR(ISHIFT) = JARR
625 INTEGER INTARR(LINTARR) local
709 IW4(I,1) = INTARR(I18)
711 INTARR(I18+2)=I
773 INTARR(IIW8) = JARR
[all …]
H A Ddarrowheads.F82 DEALLOCATE( id%INTARR )
83 NULLIFY( id%INTARR )
142 id%INTARR( IPTRI + 2 ) = I
152 id%INTARR( IPTRI + 2 ) = I
248 INTARR( I1 + 2 ) = I
432 INTARR(ISHIFT) = JARR
625 INTEGER INTARR(LINTARR) local
709 IW4(I,1) = INTARR(I18)
711 INTARR(I18+2)=I
773 INTARR(IIW8) = JARR
[all …]
H A Ddfac_distrib_distentry.F95 & DBLARR, LDBLARR, INTARR, LINTARR, argument
109 INTEGER INTARR( LINTARR ) local
256 IW4( I, 1 ) = INTARR( I18 )
257 IW4( I, 2 ) = -INTARR( I18 + 1_8 )
258 INTARR( I18 + 2_8 ) = I
498 INTEGER INTARR( LINTARR ) local
614 INTEGER INTARR( LINTARR ) local
690 INTARR(IIW8) = JARR
698 INTARR(IS8) = JARR
709 TAILLE = INTARR( PTRAIW(IARR) )
[all …]
H A Dcfac_distrib_distentry.F95 & DBLARR, LDBLARR, INTARR, LINTARR, argument
109 INTEGER INTARR( LINTARR ) local
256 IW4( I, 1 ) = INTARR( I18 )
257 IW4( I, 2 ) = -INTARR( I18 + 1_8 )
258 INTARR( I18 + 2_8 ) = I
498 INTEGER INTARR( LINTARR ) local
614 INTEGER INTARR( LINTARR ) local
690 INTARR(IIW8) = JARR
698 INTARR(IS8) = JARR
709 TAILLE = INTARR( PTRAIW(IARR) )
[all …]
H A Dsfac_distrib_distentry.F95 & DBLARR, LDBLARR, INTARR, LINTARR, argument
109 INTEGER INTARR( LINTARR ) local
256 IW4( I, 1 ) = INTARR( I18 )
257 IW4( I, 2 ) = -INTARR( I18 + 1_8 )
258 INTARR( I18 + 2_8 ) = I
498 INTEGER INTARR( LINTARR ) local
614 INTEGER INTARR( LINTARR ) local
690 INTARR(IIW8) = JARR
698 INTARR(IS8) = JARR
709 TAILLE = INTARR( PTRAIW(IARR) )
[all …]
H A Dzfac_distrib_distentry.F95 & DBLARR, LDBLARR, INTARR, LINTARR, argument
109 INTEGER INTARR( LINTARR ) local
256 IW4( I, 1 ) = INTARR( I18 )
257 IW4( I, 2 ) = -INTARR( I18 + 1_8 )
258 INTARR( I18 + 2_8 ) = I
498 INTEGER INTARR( LINTARR ) local
614 INTEGER INTARR( LINTARR ) local
690 INTARR(IIW8) = JARR
698 INTARR(IS8) = JARR
709 TAILLE = INTARR( PTRAIW(IARR) )
[all …]
H A Ddfac_asm_ELT.F19 & FILS, PTRARW, PTRAIW, INTARR, DBLARR, argument
34 INTEGER INTARR(KEEP8(27)) local
58 & INTARR, DBLARR, KEEP8(27), KEEP8(26), FRT_PTR, FRT_ELT,
75 &INTARR, DBLARR, LINTARR, LDBLARR, FRT_PTR, FRT_ELT, RHS_MUMPS) argument
85 INTEGER, intent(in) :: INTARR(LINTARR) local
166 I = ITLOC(INTARR(II8))
173 JPOS = ITLOC(INTARR(JJ8))
198 J = ITLOC(INTARR(JJ8))
H A Dzfac_asm_ELT.F19 & FILS, PTRARW, PTRAIW, INTARR, DBLARR, argument
34 INTEGER INTARR(KEEP8(27)) local
58 & INTARR, DBLARR, KEEP8(27), KEEP8(26), FRT_PTR, FRT_ELT,
75 &INTARR, DBLARR, LINTARR, LDBLARR, FRT_PTR, FRT_ELT, RHS_MUMPS) argument
85 INTEGER, intent(in) :: INTARR(LINTARR) local
166 I = ITLOC(INTARR(II8))
173 JPOS = ITLOC(INTARR(JJ8))
198 J = ITLOC(INTARR(JJ8))
H A Dcfac_asm_ELT.F19 & FILS, PTRARW, PTRAIW, INTARR, DBLARR, argument
34 INTEGER INTARR(KEEP8(27)) local
58 & INTARR, DBLARR, KEEP8(27), KEEP8(26), FRT_PTR, FRT_ELT,
75 &INTARR, DBLARR, LINTARR, LDBLARR, FRT_PTR, FRT_ELT, RHS_MUMPS) argument
85 INTEGER, intent(in) :: INTARR(LINTARR) local
166 I = ITLOC(INTARR(II8))
173 JPOS = ITLOC(INTARR(JJ8))
198 J = ITLOC(INTARR(JJ8))
H A Dsfac_asm_ELT.F19 & FILS, PTRARW, PTRAIW, INTARR, DBLARR, argument
34 INTEGER INTARR(KEEP8(27)) local
58 & INTARR, DBLARR, KEEP8(27), KEEP8(26), FRT_PTR, FRT_ELT,
75 &INTARR, DBLARR, LINTARR, LDBLARR, FRT_PTR, FRT_ELT, RHS_MUMPS) argument
85 INTEGER, intent(in) :: INTARR(LINTARR) local
166 I = ITLOC(INTARR(II8))
173 JPOS = ITLOC(INTARR(JJ8))
198 J = ITLOC(INTARR(JJ8))
H A Ddfac_process_message.F26 & INTARR, DBLARR, ICNTL, KEEP,KEEP8,DKEEP, ND, FRERE, argument
71 INTEGER INTARR( KEEP8(27) ) local
181 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
197 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
213 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
311 & INTARR, DBLARR, ICNTL, KEEP,KEEP8, DKEEP,ND )
321 & FILS, MYID, PTRAIW, PTRARW, INTARR, DBLARR,
384 & INTARR, DBLARR, ICNTL, KEEP,KEEP8, DKEEP, ND )
495 INTEGER INTARR( KEEP8(27) ) local
600 INTEGER INTARR( KEEP8(27) ) local
[all …]
H A Dcfac_process_message.F26 & INTARR, DBLARR, ICNTL, KEEP,KEEP8,DKEEP, ND, FRERE, argument
71 INTEGER INTARR( KEEP8(27) ) local
181 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
197 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
213 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
311 & INTARR, DBLARR, ICNTL, KEEP,KEEP8, DKEEP,ND )
321 & FILS, MYID, PTRAIW, PTRARW, INTARR, DBLARR,
384 & INTARR, DBLARR, ICNTL, KEEP,KEEP8, DKEEP, ND )
495 INTEGER INTARR( KEEP8(27) ) local
600 INTEGER INTARR( KEEP8(27) ) local
[all …]
H A Dsfac_process_message.F26 & INTARR, DBLARR, ICNTL, KEEP,KEEP8,DKEEP, ND, FRERE, argument
71 INTEGER INTARR( KEEP8(27) ) local
181 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
197 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
213 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
311 & INTARR, DBLARR, ICNTL, KEEP,KEEP8, DKEEP,ND )
321 & FILS, MYID, PTRAIW, PTRARW, INTARR, DBLARR,
384 & INTARR, DBLARR, ICNTL, KEEP,KEEP8, DKEEP, ND )
495 INTEGER INTARR( KEEP8(27) ) local
600 INTEGER INTARR( KEEP8(27) ) local
[all …]
H A Dzfac_process_message.F26 & INTARR, DBLARR, ICNTL, KEEP,KEEP8,DKEEP, ND, FRERE, argument
71 INTEGER INTARR( KEEP8(27) ) local
181 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
197 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
213 & FILS, PTRARW, PTRAIW, INTARR, DBLARR,
311 & INTARR, DBLARR, ICNTL, KEEP,KEEP8, DKEEP,ND )
321 & FILS, MYID, PTRAIW, PTRARW, INTARR, DBLARR,
384 & INTARR, DBLARR, ICNTL, KEEP,KEEP8, DKEEP, ND )
495 INTEGER INTARR( KEEP8(27) ) local
600 INTEGER INTARR( KEEP8(27) ) local
[all …]
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dzmumps_part1.F1086 NULLIFY( id%INTARR )
1608 INTEGER INTARR(LINTARR)
1691 IW4(I,1) = INTARR(I1)
1693 INTARR(I1+2)=I
1973 NULLIFY(id%INTARR)
2617 J2 = J1 + INTARR(JK)
2619 J4 = J2 - INTARR(JJ)
2620 IJROW = INTARR(J1)
3177 J2 = J1 + INTARR(JK)
3179 J4 = J2 - INTARR(JJ)
[all …]
H A Dcmumps_part1.F1086 NULLIFY( id%INTARR )
1608 INTEGER INTARR(LINTARR)
1691 IW4(I,1) = INTARR(I1)
1693 INTARR(I1+2)=I
1973 NULLIFY(id%INTARR)
2617 J2 = J1 + INTARR(JK)
2619 J4 = J2 - INTARR(JJ)
2620 IJROW = INTARR(J1)
3177 J2 = J1 + INTARR(JK)
3179 J4 = J2 - INTARR(JJ)
[all …]
H A Ddmumps_part1.F1086 NULLIFY( id%INTARR )
1608 INTEGER INTARR(LINTARR)
1691 IW4(I,1) = INTARR(I1)
1693 INTARR(I1+2)=I
1973 NULLIFY(id%INTARR)
2617 J2 = J1 + INTARR(JK)
2619 J4 = J2 - INTARR(JJ)
2620 IJROW = INTARR(J1)
3177 J2 = J1 + INTARR(JK)
3179 J4 = J2 - INTARR(JJ)
[all …]
H A Dsmumps_part1.F1086 NULLIFY( id%INTARR )
1608 INTEGER INTARR(LINTARR)
1691 IW4(I,1) = INTARR(I1)
1693 INTARR(I1+2)=I
1973 NULLIFY(id%INTARR)
2617 J2 = J1 + INTARR(JK)
2619 J4 = J2 - INTARR(JJ)
2620 IJROW = INTARR(J1)
3177 J2 = J1 + INTARR(JK)
3179 J4 = J2 - INTARR(JJ)
[all …]
/dports/math/coinmumps/MUMPS_4.10.0/src/
H A Dcmumps_part1.F1086 NULLIFY( id%INTARR )
1608 INTEGER INTARR(LINTARR) local
1691 IW4(I,1) = INTARR(I1)
1693 INTARR(I1+2)=I
1973 NULLIFY(id%INTARR)
2617 J2 = J1 + INTARR(JK)
2619 J4 = J2 - INTARR(JJ)
2620 IJROW = INTARR(J1)
3177 J2 = J1 + INTARR(JK)
3179 J4 = J2 - INTARR(JJ)
[all …]
H A Dzmumps_part1.F1086 NULLIFY( id%INTARR )
1608 INTEGER INTARR(LINTARR)
1691 IW4(I,1) = INTARR(I1)
1693 INTARR(I1+2)=I
1973 NULLIFY(id%INTARR)
2617 J2 = J1 + INTARR(JK)
2619 J4 = J2 - INTARR(JJ)
2620 IJROW = INTARR(J1)
3177 J2 = J1 + INTARR(JK)
3179 J4 = J2 - INTARR(JJ)
[all …]
H A Dsmumps_part1.F1086 NULLIFY( id%INTARR )
1608 INTEGER INTARR(LINTARR)
1691 IW4(I,1) = INTARR(I1)
1693 INTARR(I1+2)=I
1973 NULLIFY(id%INTARR)
2617 J2 = J1 + INTARR(JK)
2619 J4 = J2 - INTARR(JJ)
2620 IJROW = INTARR(J1)
3177 J2 = J1 + INTARR(JK)
3179 J4 = J2 - INTARR(JJ)
[all …]
H A Ddmumps_part1.F1086 NULLIFY( id%INTARR )
1608 INTEGER INTARR(LINTARR)
1691 IW4(I,1) = INTARR(I1)
1693 INTARR(I1+2)=I
1973 NULLIFY(id%INTARR)
2617 J2 = J1 + INTARR(JK)
2619 J4 = J2 - INTARR(JJ)
2620 IJROW = INTARR(J1)
3177 J2 = J1 + INTARR(JK)
3179 J4 = J2 - INTARR(JJ)
[all …]

1234567891011