/dports/math/mumps/mumps-5.1.2/src/ |
H A D | zfac_lr.F | 205 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 D | cfac_lr.F | 205 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 D | dfac_lr.F | 205 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 D | sfac_lr.F | 205 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 D | cfac_process_blocfacto.F | 228 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 D | dfac_process_blocfacto.F | 228 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 D | sfac_process_blocfacto.F | 228 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 D | zfac_process_blocfacto.F | 228 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 D | dfac_process_blfac_slave.F | 94 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 D | zfac_process_blfac_slave.F | 94 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 D | sfac_process_blfac_slave.F | 94 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 D | cfac_process_blfac_slave.F | 94 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)
|