/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | cmumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL ccopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL ccopy(MonBloc%NROW, [all …]
|
H A D | zmumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL zcopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL zcopy(MonBloc%NROW, [all …]
|
H A D | dmumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL dcopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL dcopy(MonBloc%NROW, [all …]
|
H A D | smumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL scopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL scopy(MonBloc%NROW, [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | dmumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL dcopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL dcopy(MonBloc%NROW, [all …]
|
H A D | smumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL scopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL scopy(MonBloc%NROW, [all …]
|
H A D | zmumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL zcopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL zcopy(MonBloc%NROW, [all …]
|
H A D | cmumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc local 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL ccopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL ccopy(MonBloc%NROW, [all …]
|
/dports/math/mumps/mumps-5.1.2/src/ |
H A D | zmumps_ooc_buffer.F | 443 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc local 456 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 463 LPANELeff = MonBloc%NROW*NBPIVeff 488 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 495 CALL zcopy(MonBloc%NROW-IPIVBEG+1, 496 & AFAC(IPOS), MonBloc%NCOL, 513 IF (MonBloc%Typenode.EQ.3) THEN 514 DeltaIPOS = int(MonBloc%NROW,8) 518 StrideIPOS = MonBloc%NCOL 522 CALL zcopy(MonBloc%NROW, [all …]
|
H A D | cmumps_ooc_buffer.F | 443 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc local 456 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 463 LPANELeff = MonBloc%NROW*NBPIVeff 488 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 495 CALL ccopy(MonBloc%NROW-IPIVBEG+1, 496 & AFAC(IPOS), MonBloc%NCOL, 513 IF (MonBloc%Typenode.EQ.3) THEN 514 DeltaIPOS = int(MonBloc%NROW,8) 518 StrideIPOS = MonBloc%NCOL 522 CALL ccopy(MonBloc%NROW, [all …]
|
H A D | smumps_ooc_buffer.F | 443 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc local 456 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 463 LPANELeff = MonBloc%NROW*NBPIVeff 488 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 495 CALL scopy(MonBloc%NROW-IPIVBEG+1, 496 & AFAC(IPOS), MonBloc%NCOL, 513 IF (MonBloc%Typenode.EQ.3) THEN 514 DeltaIPOS = int(MonBloc%NROW,8) 518 StrideIPOS = MonBloc%NCOL 522 CALL scopy(MonBloc%NROW, [all …]
|
H A D | dmumps_ooc_buffer.F | 443 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc local 456 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 463 LPANELeff = MonBloc%NROW*NBPIVeff 488 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 495 CALL dcopy(MonBloc%NROW-IPIVBEG+1, 496 & AFAC(IPOS), MonBloc%NCOL, 513 IF (MonBloc%Typenode.EQ.3) THEN 514 DeltaIPOS = int(MonBloc%NROW,8) 518 StrideIPOS = MonBloc%NCOL 522 CALL dcopy(MonBloc%NROW, [all …]
|
H A D | cfac_front_LDLT_type1.F | 57 TYPE(IO_BLOCK) :: MonBloc local 161 MonBloc%INODE = INODE 162 MonBloc%MASTER = .TRUE. 163 MonBloc%Typenode = 1 164 MonBloc%NROW = NFRONT 165 MonBloc%NCOL = NFRONT 166 MonBloc%NFS = NASS 169 MonBloc%INDICES => 312 MonBloc%Last = LASTBL 424 MonBloc%Last = LASTBL [all …]
|
H A D | dfac_front_LDLT_type1.F | 57 TYPE(IO_BLOCK) :: MonBloc local 161 MonBloc%INODE = INODE 162 MonBloc%MASTER = .TRUE. 163 MonBloc%Typenode = 1 164 MonBloc%NROW = NFRONT 165 MonBloc%NCOL = NFRONT 166 MonBloc%NFS = NASS 169 MonBloc%INDICES => 312 MonBloc%Last = LASTBL 424 MonBloc%Last = LASTBL [all …]
|
H A D | sfac_front_LDLT_type1.F | 57 TYPE(IO_BLOCK) :: MonBloc local 161 MonBloc%INODE = INODE 162 MonBloc%MASTER = .TRUE. 163 MonBloc%Typenode = 1 164 MonBloc%NROW = NFRONT 165 MonBloc%NCOL = NFRONT 166 MonBloc%NFS = NASS 169 MonBloc%INDICES => 312 MonBloc%Last = LASTBL 424 MonBloc%Last = LASTBL [all …]
|
H A D | zfac_front_LDLT_type1.F | 57 TYPE(IO_BLOCK) :: MonBloc local 161 MonBloc%INODE = INODE 162 MonBloc%MASTER = .TRUE. 163 MonBloc%Typenode = 1 164 MonBloc%NROW = NFRONT 165 MonBloc%NCOL = NFRONT 166 MonBloc%NFS = NASS 169 MonBloc%INDICES => 312 MonBloc%Last = LASTBL 424 MonBloc%Last = LASTBL [all …]
|
H A D | cfac_front_LU_type1.F | 66 TYPE(IO_BLOCK) :: MonBloc local 163 MonBloc%INODE = INODE 164 MonBloc%MASTER = .TRUE. 165 MonBloc%Typenode = 1 166 MonBloc%NROW = NFRONT 167 MonBloc%NCOL = NFRONT 168 MonBloc%NFS = NASS 169 MonBloc%Last = .FALSE. 170 MonBloc%LastPiv = -88877 171 NULLIFY(MonBloc%INDICES) [all …]
|
H A D | dfac_front_LU_type1.F | 66 TYPE(IO_BLOCK) :: MonBloc local 163 MonBloc%INODE = INODE 164 MonBloc%MASTER = .TRUE. 165 MonBloc%Typenode = 1 166 MonBloc%NROW = NFRONT 167 MonBloc%NCOL = NFRONT 168 MonBloc%NFS = NASS 169 MonBloc%Last = .FALSE. 170 MonBloc%LastPiv = -88877 171 NULLIFY(MonBloc%INDICES) [all …]
|
H A D | sfac_front_LU_type1.F | 66 TYPE(IO_BLOCK) :: MonBloc local 163 MonBloc%INODE = INODE 164 MonBloc%MASTER = .TRUE. 165 MonBloc%Typenode = 1 166 MonBloc%NROW = NFRONT 167 MonBloc%NCOL = NFRONT 168 MonBloc%NFS = NASS 169 MonBloc%Last = .FALSE. 170 MonBloc%LastPiv = -88877 171 NULLIFY(MonBloc%INDICES) [all …]
|
H A D | zfac_front_LU_type1.F | 66 TYPE(IO_BLOCK) :: MonBloc local 163 MonBloc%INODE = INODE 164 MonBloc%MASTER = .TRUE. 165 MonBloc%Typenode = 1 166 MonBloc%NROW = NFRONT 167 MonBloc%NCOL = NFRONT 168 MonBloc%NFS = NASS 169 MonBloc%Last = .FALSE. 170 MonBloc%LastPiv = -88877 171 NULLIFY(MonBloc%INDICES) [all …]
|
H A D | sfac_front_LDLT_type2.F | 102 TYPE(IO_BLOCK) :: MonBloc local 238 MonBloc%INODE = INODE 239 MonBloc%MASTER = .TRUE. 240 MonBloc%Typenode = 2 241 MonBloc%NROW = NASS 242 MonBloc%NCOL = NASS 243 MonBloc%NFS = NASS 246 MonBloc%INDICES => 624 MonBloc%Last = .FALSE. 625 MonBloc%LastPiv= NPIV [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc local 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL ccopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL ccopy(MonBloc%NROW, [all …]
|
H A D | dmumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc local 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL dcopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL dcopy(MonBloc%NROW, [all …]
|
H A D | zmumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc local 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL zcopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL zcopy(MonBloc%NROW, [all …]
|
H A D | smumps_ooc_buffer.F | 478 TYPE(IO_BLOCK), INTENT(IN) :: MonBloc local 491 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 498 LPANELeff = MonBloc%NROW*NBPIVeff 523 IF (MonBloc%MASTER .AND. MonBloc%Typenode .NE. 3) THEN 530 CALL scopy(MonBloc%NROW-IPIVBEG+1, 531 & AFAC(IPOS), MonBloc%NCOL, 548 IF (MonBloc%Typenode.EQ.3) THEN 549 DeltaIPOS = int(MonBloc%NROW,8) 553 StrideIPOS = MonBloc%NCOL 557 CALL scopy(MonBloc%NROW, [all …]
|