/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cana_aux_par.F | 715 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 727 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 735 AWEIGHTS(NACTIVE) = ord%NW(I) 750 CALL CMUMPS_MERGESORT(NACTIVE, AWEIGHTS(1:NACTIVE), 753 & AWEIGHTS(1:NACTIVE), 788 AWEIGHTS(NACTIVE) = ord%NW(CURR) 794 AWEIGHTS(NACTIVE) = ord%NW(CURR) 796 CALL CMUMPS_MERGESORT(NACTIVE, AWEIGHTS(1:NACTIVE), 799 & AWEIGHTS(1:NACTIVE), 803 AWEIGHTS(I) = ord%NW(LIST(I)) [all …]
|
H A D | dana_aux_par.F | 715 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 727 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 735 AWEIGHTS(NACTIVE) = ord%NW(I) 750 CALL DMUMPS_MERGESORT(NACTIVE, AWEIGHTS(1:NACTIVE), 753 & AWEIGHTS(1:NACTIVE), 788 AWEIGHTS(NACTIVE) = ord%NW(CURR) 794 AWEIGHTS(NACTIVE) = ord%NW(CURR) 796 CALL DMUMPS_MERGESORT(NACTIVE, AWEIGHTS(1:NACTIVE), 799 & AWEIGHTS(1:NACTIVE), 803 AWEIGHTS(I) = ord%NW(LIST(I)) [all …]
|
H A D | zana_aux_par.F | 715 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 727 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 735 AWEIGHTS(NACTIVE) = ord%NW(I) 750 CALL ZMUMPS_MERGESORT(NACTIVE, AWEIGHTS(1:NACTIVE), 753 & AWEIGHTS(1:NACTIVE), 788 AWEIGHTS(NACTIVE) = ord%NW(CURR) 794 AWEIGHTS(NACTIVE) = ord%NW(CURR) 796 CALL ZMUMPS_MERGESORT(NACTIVE, AWEIGHTS(1:NACTIVE), 799 & AWEIGHTS(1:NACTIVE), 803 AWEIGHTS(I) = ord%NW(LIST(I)) [all …]
|
H A D | sana_aux_par.F | 715 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 727 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 735 AWEIGHTS(NACTIVE) = ord%NW(I) 750 CALL SMUMPS_MERGESORT(NACTIVE, AWEIGHTS(1:NACTIVE), 753 & AWEIGHTS(1:NACTIVE), 788 AWEIGHTS(NACTIVE) = ord%NW(CURR) 794 AWEIGHTS(NACTIVE) = ord%NW(CURR) 796 CALL SMUMPS_MERGESORT(NACTIVE, AWEIGHTS(1:NACTIVE), 799 & AWEIGHTS(1:NACTIVE), 803 AWEIGHTS(I) = ord%NW(LIST(I)) [all …]
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | zmumps_part2.F | 5076 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5081 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5084 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5140 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5146 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5148 CALL ZMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5151 & AWEIGHTS(1:NACTIVE), 5155 AWEIGHTS(I) = ord%NW(LIST(I)) 5157 CALL ZMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5158 CALL ZMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
H A D | cmumps_part2.F | 5076 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5081 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5084 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5140 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5146 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5148 CALL CMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5151 & AWEIGHTS(1:NACTIVE), 5155 AWEIGHTS(I) = ord%NW(LIST(I)) 5157 CALL CMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5158 CALL CMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
H A D | dmumps_part2.F | 5077 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5082 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5085 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5141 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5147 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5149 CALL DMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5152 & AWEIGHTS(1:NACTIVE), 5156 AWEIGHTS(I) = ord%NW(LIST(I)) 5158 CALL DMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5159 CALL DMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
H A D | smumps_part2.F | 5072 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5077 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5080 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5136 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5142 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5144 CALL SMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5147 & AWEIGHTS(1:NACTIVE), 5151 AWEIGHTS(I) = ord%NW(LIST(I)) 5153 CALL SMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5154 CALL SMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | cmumps_part2.F | 5076 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5081 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5084 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5140 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5146 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5148 CALL CMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5151 & AWEIGHTS(1:NACTIVE), 5155 AWEIGHTS(I) = ord%NW(LIST(I)) 5157 CALL CMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5158 CALL CMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
H A D | dmumps_part2.F | 5077 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5082 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5085 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5141 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5147 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5149 CALL DMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5152 & AWEIGHTS(1:NACTIVE), 5156 AWEIGHTS(I) = ord%NW(LIST(I)) 5158 CALL DMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5159 CALL DMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
H A D | smumps_part2.F | 5072 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5077 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5080 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5136 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5142 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5144 CALL SMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5147 & AWEIGHTS(1:NACTIVE), 5151 AWEIGHTS(I) = ord%NW(LIST(I)) 5153 CALL SMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5154 CALL SMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
H A D | zmumps_part2.F | 5076 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5081 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5084 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5140 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5146 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5148 CALL ZMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5151 & AWEIGHTS(1:NACTIVE), 5155 AWEIGHTS(I) = ord%NW(LIST(I)) 5157 CALL ZMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5158 CALL ZMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_part2.F | 5076 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5081 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5084 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5140 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5146 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5148 CALL CMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5151 & AWEIGHTS(1:NACTIVE), 5155 AWEIGHTS(I) = ord%NW(LIST(I)) 5157 CALL CMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5158 CALL CMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
H A D | dmumps_part2.F | 5072 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5077 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5080 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5136 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5142 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5144 CALL DMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5147 & AWEIGHTS(1:NACTIVE), 5151 AWEIGHTS(I) = ord%NW(LIST(I)) 5153 CALL DMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5154 CALL DMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
H A D | zmumps_part2.F | 5076 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5081 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5084 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5140 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5146 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5148 CALL ZMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5151 & AWEIGHTS(1:NACTIVE), 5155 AWEIGHTS(I) = ord%NW(LIST(I)) 5157 CALL ZMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5158 CALL ZMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|
H A D | smumps_part2.F | 5072 INTEGER, ALLOCATABLE :: ALIST(:), AWEIGHTS(:), LIST(:), WORK(:) local 5077 ALLOCATE(ALIST(NNODES), AWEIGHTS(NNODES), LIST(NNODES), 5080 AWEIGHTS(1) = ord%NW(ord%CBLKNBR) 5136 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5142 AWEIGHTS(NACTIVE) = ord%NW(CURR) 5144 CALL SMUMPS_783(NACTIVE, AWEIGHTS(1:NACTIVE), 5147 & AWEIGHTS(1:NACTIVE), 5151 AWEIGHTS(I) = ord%NW(LIST(I)) 5153 CALL SMUMPS_783(ANODE, AWEIGHTS(1:ANODE), WORK(0:ANODE+1)) 5154 CALL SMUMPS_784(ANODE, WORK(0:ANODE+1), AWEIGHTS(1:ANODE), [all …]
|