Home
last modified time | relevance | path

Searched refs:AWEIGHTS (Results 1 – 16 of 16) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dcana_aux_par.F715 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 Ddana_aux_par.F715 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 Dzana_aux_par.F715 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 Dsana_aux_par.F715 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 Dzmumps_part2.F5076 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 Dcmumps_part2.F5076 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 Ddmumps_part2.F5077 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 Dsmumps_part2.F5072 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 Dcmumps_part2.F5076 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 Ddmumps_part2.F5077 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 Dsmumps_part2.F5072 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 Dzmumps_part2.F5076 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 Dcmumps_part2.F5076 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 Ddmumps_part2.F5072 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 Dzmumps_part2.F5076 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 Dsmumps_part2.F5072 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 …]