Home
last modified time | relevance | path

Searched refs:BEGS_BLR_U (Results 1 – 12 of 12) sorted by relevance

/dports/math/mumps/mumps-5.1.2/src/
H A Dzfac_lr.F205 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local
243 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
256 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
265 & * int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
300 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local
349 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
388 & + int(BEGS_BLR_U(CURRENT_BLR+J) +IS - 1,8)
565 & BEGS_BLR_U, NB_BLR_U, NPARTSASS_U, argument
628 IF ((BEGS_BLR_U(J+1)+IS).LE.NASS+1) CYCLE
629 JDEB = max(BEGS_BLR_U(J)+IS,NASS+1)
[all …]
H A Dcfac_lr.F205 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local
243 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
256 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
265 & * int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
300 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local
349 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
388 & + int(BEGS_BLR_U(CURRENT_BLR+J) +IS - 1,8)
565 & BEGS_BLR_U, NB_BLR_U, NPARTSASS_U, argument
628 IF ((BEGS_BLR_U(J+1)+IS).LE.NASS+1) CYCLE
629 JDEB = max(BEGS_BLR_U(J)+IS,NASS+1)
[all …]
H A Ddfac_lr.F205 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local
243 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
256 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
265 & * int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
300 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local
349 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
388 & + int(BEGS_BLR_U(CURRENT_BLR+J) +IS - 1,8)
565 & BEGS_BLR_U, NB_BLR_U, NPARTSASS_U, argument
628 IF ((BEGS_BLR_U(J+1)+IS).LE.NASS+1) CYCLE
629 JDEB = max(BEGS_BLR_U(J)+IS,NASS+1)
[all …]
H A Dsfac_lr.F205 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local
243 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
256 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
265 & * int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
300 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_L, BEGS_BLR_U local
349 & + int(BEGS_BLR_U(CURRENT_BLR+1)+IS-NELIM-1,8)
388 & + int(BEGS_BLR_U(CURRENT_BLR+J) +IS - 1,8)
565 & BEGS_BLR_U, NB_BLR_U, NPARTSASS_U, argument
628 IF ((BEGS_BLR_U(J+1)+IS).LE.NASS+1) CYCLE
629 JDEB = max(BEGS_BLR_U(J)+IS,NASS+1)
[all …]
H A Dcfac_process_blocfacto.F228 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2))
232 & BEGS_BLR_U(1),
486 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR,
603 & BEGS_BLR_U, NB_BLR_U+1, 1,
638 IF (associated(BEGS_BLR_U)) DEALLOCATE(BEGS_BLR_U)
651 & BEGS_BLR_U, KEEP8, argument
680 BEGS_BLR_U(1) = 1
681 BEGS_BLR_U(2) = NPIV+NELIM+1
702 BEGS_BLR_U(I+2) = BEGS_BLR_U(I+1) + M
704 BEGS_BLR_U(I+2) = BEGS_BLR_U(I+1) + N
[all …]
H A Ddfac_process_blocfacto.F228 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2))
232 & BEGS_BLR_U(1),
486 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR,
603 & BEGS_BLR_U, NB_BLR_U+1, 1,
638 IF (associated(BEGS_BLR_U)) DEALLOCATE(BEGS_BLR_U)
651 & BEGS_BLR_U, KEEP8, argument
680 BEGS_BLR_U(1) = 1
681 BEGS_BLR_U(2) = NPIV+NELIM+1
702 BEGS_BLR_U(I+2) = BEGS_BLR_U(I+1) + M
704 BEGS_BLR_U(I+2) = BEGS_BLR_U(I+1) + N
[all …]
H A Dsfac_process_blocfacto.F228 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2))
232 & BEGS_BLR_U(1),
486 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR,
603 & BEGS_BLR_U, NB_BLR_U+1, 1,
638 IF (associated(BEGS_BLR_U)) DEALLOCATE(BEGS_BLR_U)
651 & BEGS_BLR_U, KEEP8, argument
680 BEGS_BLR_U(1) = 1
681 BEGS_BLR_U(2) = NPIV+NELIM+1
702 BEGS_BLR_U(I+2) = BEGS_BLR_U(I+1) + M
704 BEGS_BLR_U(I+2) = BEGS_BLR_U(I+1) + N
[all …]
H A Dzfac_process_blocfacto.F228 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2))
232 & BEGS_BLR_U(1),
486 & BEGS_BLR_L, BEGS_BLR_U, CURRENT_BLR,
603 & BEGS_BLR_U, NB_BLR_U+1, 1,
638 IF (associated(BEGS_BLR_U)) DEALLOCATE(BEGS_BLR_U)
651 & BEGS_BLR_U, KEEP8, argument
680 BEGS_BLR_U(1) = 1
681 BEGS_BLR_U(2) = NPIV+NELIM+1
702 BEGS_BLR_U(I+2) = BEGS_BLR_U(I+1) + M
704 BEGS_BLR_U(I+2) = BEGS_BLR_U(I+1) + N
[all …]
H A Ddfac_process_blfac_slave.F94 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_U local
143 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2))
147 & BEGS_BLR_U(1),
306 & BEGS_BLR_LS, BEGS_BLR_U,
323 IF (associated(BEGS_BLR_U)) DEALLOCATE(BEGS_BLR_U)
H A Dzfac_process_blfac_slave.F94 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_U local
143 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2))
147 & BEGS_BLR_U(1),
306 & BEGS_BLR_LS, BEGS_BLR_U,
323 IF (associated(BEGS_BLR_U)) DEALLOCATE(BEGS_BLR_U)
H A Dsfac_process_blfac_slave.F94 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_U local
143 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2))
147 & BEGS_BLR_U(1),
306 & BEGS_BLR_LS, BEGS_BLR_U,
323 IF (associated(BEGS_BLR_U)) DEALLOCATE(BEGS_BLR_U)
H A Dcfac_process_blfac_slave.F94 INTEGER, POINTER, DIMENSION(:) :: BEGS_BLR_U local
143 ALLOCATE(BEGS_BLR_U(NB_BLR_U+2))
147 & BEGS_BLR_U(1),
306 & BEGS_BLR_LS, BEGS_BLR_U,
323 IF (associated(BEGS_BLR_U)) DEALLOCATE(BEGS_BLR_U)