Home
last modified time | relevance | path

Searched refs:MonBloc (Results 1 – 25 of 144) sorted by relevance

123456

/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dcmumps_ooc_buffer.F478 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 Dzmumps_ooc_buffer.F478 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 Ddmumps_ooc_buffer.F478 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 Dsmumps_ooc_buffer.F478 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 Ddmumps_ooc_buffer.F478 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 Dsmumps_ooc_buffer.F478 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 Dzmumps_ooc_buffer.F478 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 Dcmumps_ooc_buffer.F478 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 Dzmumps_ooc_buffer.F443 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 Dcmumps_ooc_buffer.F443 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 Dsmumps_ooc_buffer.F443 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 Ddmumps_ooc_buffer.F443 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 Dcfac_front_LDLT_type1.F57 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 Ddfac_front_LDLT_type1.F57 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 Dsfac_front_LDLT_type1.F57 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 Dzfac_front_LDLT_type1.F57 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 Dcfac_front_LU_type1.F66 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 Ddfac_front_LU_type1.F66 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 Dsfac_front_LU_type1.F66 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 Dzfac_front_LU_type1.F66 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 Dsfac_front_LDLT_type2.F102 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 Dcmumps_ooc_buffer.F478 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 Ddmumps_ooc_buffer.F478 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 Dzmumps_ooc_buffer.F478 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 Dsmumps_ooc_buffer.F478 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 …]

123456