/dports/math/mumps/mumps-5.1.2/src/ |
H A D | fac_asm_build_sort_index_m.F | 37 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 D | carrowheads.F | 82 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 D | sarrowheads.F | 82 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 D | zarrowheads.F | 82 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 D | darrowheads.F | 82 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 D | dfac_distrib_distentry.F | 95 & 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 D | cfac_distrib_distentry.F | 95 & 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 D | sfac_distrib_distentry.F | 95 & 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 D | zfac_distrib_distentry.F | 95 & 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 D | dfac_asm_ELT.F | 19 & 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 D | zfac_asm_ELT.F | 19 & 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 D | cfac_asm_ELT.F | 19 & 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 D | sfac_asm_ELT.F | 19 & 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 D | dfac_process_message.F | 26 & 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 D | cfac_process_message.F | 26 & 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 D | sfac_process_message.F | 26 & 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 D | zfac_process_message.F | 26 & 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 D | zmumps_part1.F | 1086 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 D | cmumps_part1.F | 1086 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 D | dmumps_part1.F | 1086 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 D | smumps_part1.F | 1086 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 D | cmumps_part1.F | 1086 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 D | zmumps_part1.F | 1086 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 D | smumps_part1.F | 1086 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 D | dmumps_part1.F | 1086 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 …]
|