/dports/math/mumps/mumps-5.1.2/src/ |
H A D | ctools.F | 682 NB_CMPLX = 0_8 794 & NB_CMPLX=NB_CMPLX+size(id%root%RHS_CNTR_MASTER_ROOT) 796 & NB_CMPLX=NB_CMPLX+size(id%root%SCHUR_POINTER) 798 & NB_CMPLX=NB_CMPLX+size(id%root%QR_TAU) 800 & NB_CMPLX=NB_CMPLX+size(id%root%RHS_ROOT) 802 & NB_CMPLX=NB_CMPLX+size(id%root%SVD_U) 804 & NB_CMPLX=NB_CMPLX+size(id%root%SVD_VT) 807 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 808 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 809 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) [all …]
|
H A D | dtools.F | 682 NB_CMPLX = 0_8 794 & NB_CMPLX=NB_CMPLX+size(id%root%RHS_CNTR_MASTER_ROOT) 796 & NB_CMPLX=NB_CMPLX+size(id%root%SCHUR_POINTER) 798 & NB_CMPLX=NB_CMPLX+size(id%root%QR_TAU) 800 & NB_CMPLX=NB_CMPLX+size(id%root%RHS_ROOT) 802 & NB_CMPLX=NB_CMPLX+size(id%root%SVD_U) 804 & NB_CMPLX=NB_CMPLX+size(id%root%SVD_VT) 807 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 808 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 809 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) [all …]
|
H A D | stools.F | 682 NB_CMPLX = 0_8 794 & NB_CMPLX=NB_CMPLX+size(id%root%RHS_CNTR_MASTER_ROOT) 796 & NB_CMPLX=NB_CMPLX+size(id%root%SCHUR_POINTER) 798 & NB_CMPLX=NB_CMPLX+size(id%root%QR_TAU) 800 & NB_CMPLX=NB_CMPLX+size(id%root%RHS_ROOT) 802 & NB_CMPLX=NB_CMPLX+size(id%root%SVD_U) 804 & NB_CMPLX=NB_CMPLX+size(id%root%SVD_VT) 807 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 808 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 809 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) [all …]
|
H A D | ztools.F | 682 NB_CMPLX = 0_8 794 & NB_CMPLX=NB_CMPLX+size(id%root%RHS_CNTR_MASTER_ROOT) 796 & NB_CMPLX=NB_CMPLX+size(id%root%SCHUR_POINTER) 798 & NB_CMPLX=NB_CMPLX+size(id%root%QR_TAU) 800 & NB_CMPLX=NB_CMPLX+size(id%root%RHS_ROOT) 802 & NB_CMPLX=NB_CMPLX+size(id%root%SVD_U) 804 & NB_CMPLX=NB_CMPLX+size(id%root%SVD_VT) 807 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 808 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 809 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) [all …]
|
H A D | zsol_driver.F | 34 SUBROUTINE ZMUMPS_SIZE_IN_STRUCT( id, NB_INT,NB_CMPLX,NB_CHAR ) 37 INTEGER(8) :: NB_INT,NB_CMPLX,NB_CHAR local 266 INTEGER(8) NB_INT, NB_CMPLX, NB_CHAR, K34_8, K35_8 local 362 CALL ZMUMPS_SIZE_IN_STRUCT (id, NB_INT,NB_CMPLX,NB_CHAR) 363 NB_BYTES = NB_BYTES + NB_INT * K34_8 + NB_CMPLX * K35_8 + NB_CHAR
|
H A D | csol_driver.F | 34 SUBROUTINE CMUMPS_SIZE_IN_STRUCT( id, NB_INT,NB_CMPLX,NB_CHAR ) 37 INTEGER(8) :: NB_INT,NB_CMPLX,NB_CHAR local 266 INTEGER(8) NB_INT, NB_CMPLX, NB_CHAR, K34_8, K35_8 local 362 CALL CMUMPS_SIZE_IN_STRUCT (id, NB_INT,NB_CMPLX,NB_CHAR) 363 NB_BYTES = NB_BYTES + NB_INT * K34_8 + NB_CMPLX * K35_8 + NB_CHAR
|
H A D | dsol_driver.F | 34 SUBROUTINE DMUMPS_SIZE_IN_STRUCT( id, NB_INT,NB_CMPLX,NB_CHAR ) 37 INTEGER(8) :: NB_INT,NB_CMPLX,NB_CHAR local 266 INTEGER(8) NB_INT, NB_CMPLX, NB_CHAR, K34_8, K35_8 local 362 CALL DMUMPS_SIZE_IN_STRUCT (id, NB_INT,NB_CMPLX,NB_CHAR) 363 NB_BYTES = NB_BYTES + NB_INT * K34_8 + NB_CMPLX * K35_8 + NB_CHAR
|
H A D | ssol_driver.F | 34 SUBROUTINE SMUMPS_SIZE_IN_STRUCT( id, NB_INT,NB_CMPLX,NB_CHAR ) 37 INTEGER(8) :: NB_INT,NB_CMPLX,NB_CHAR local 266 INTEGER(8) NB_INT, NB_CMPLX, NB_CHAR, K34_8, K35_8 local 362 CALL SMUMPS_SIZE_IN_STRUCT (id, NB_INT,NB_CMPLX,NB_CHAR) 363 NB_BYTES = NB_BYTES + NB_INT * K34_8 + NB_CMPLX * K35_8 + NB_CHAR
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | smumps_part3.F | 1698 SUBROUTINE SMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL
|
H A D | dmumps_part3.F | 1698 SUBROUTINE DMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL
|
H A D | cmumps_part3.F | 1698 SUBROUTINE CMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL/2_8
|
H A D | zmumps_part3.F | 1698 SUBROUTINE ZMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL/2_8
|
H A D | zmumps_part8.F | 56 SUBROUTINE ZMUMPS_710( id, NB_INT,NB_CMPLX ) 59 INTEGER(8) :: NB_INT,NB_CMPLX local 167 INTEGER(8) NB_INT, NB_CMPLX, K34_8, K35_8, NB_BYTES_ON_ENTRY 228 CALL ZMUMPS_710 (id, NB_INT,NB_CMPLX ) 229 NB_BYTES = NB_BYTES + NB_INT * K34_8 + NB_CMPLX * K35_8
|
H A D | cmumps_part8.F | 56 SUBROUTINE CMUMPS_710( id, NB_INT,NB_CMPLX ) 59 INTEGER(8) :: NB_INT,NB_CMPLX local 167 INTEGER(8) NB_INT, NB_CMPLX, K34_8, K35_8, NB_BYTES_ON_ENTRY 228 CALL CMUMPS_710 (id, NB_INT,NB_CMPLX ) 229 NB_BYTES = NB_BYTES + NB_INT * K34_8 + NB_CMPLX * K35_8
|
H A D | smumps_part8.F | 56 SUBROUTINE SMUMPS_710( id, NB_INT,NB_CMPLX ) 59 INTEGER(8) :: NB_INT,NB_CMPLX local 167 INTEGER(8) NB_INT, NB_CMPLX, K34_8, K35_8, NB_BYTES_ON_ENTRY 228 CALL SMUMPS_710 (id, NB_INT,NB_CMPLX ) 229 NB_BYTES = NB_BYTES + NB_INT * K34_8 + NB_CMPLX * K35_8
|
H A D | dmumps_part8.F | 56 SUBROUTINE DMUMPS_710( id, NB_INT,NB_CMPLX ) 59 INTEGER(8) :: NB_INT,NB_CMPLX local 167 INTEGER(8) NB_INT, NB_CMPLX, K34_8, K35_8, NB_BYTES_ON_ENTRY 228 CALL DMUMPS_710 (id, NB_INT,NB_CMPLX ) 229 NB_BYTES = NB_BYTES + NB_INT * K34_8 + NB_CMPLX * K35_8
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | cmumps_part3.F | 1698 SUBROUTINE CMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL/2_8
|
H A D | smumps_part3.F | 1698 SUBROUTINE SMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL
|
H A D | zmumps_part3.F | 1698 SUBROUTINE ZMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL/2_8
|
H A D | dmumps_part3.F | 1698 SUBROUTINE DMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL
|
H A D | cmumps_part8.F | 56 SUBROUTINE CMUMPS_710( id, NB_INT,NB_CMPLX ) 59 INTEGER(8) :: NB_INT,NB_CMPLX local 167 INTEGER(8) NB_INT, NB_CMPLX, K34_8, K35_8, NB_BYTES_ON_ENTRY 228 CALL CMUMPS_710 (id, NB_INT,NB_CMPLX ) 229 NB_BYTES = NB_BYTES + NB_INT * K34_8 + NB_CMPLX * K35_8
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_part3.F | 1698 SUBROUTINE CMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL/2_8
|
H A D | dmumps_part3.F | 1698 SUBROUTINE DMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL
|
H A D | smumps_part3.F | 1698 SUBROUTINE SMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL
|
H A D | zmumps_part3.F | 1698 SUBROUTINE ZMUMPS_710 (id, NB_INT,NB_CMPLX ) argument 1702 INTEGER(8) NB_INT, NB_CMPLX local 1705 NB_CMPLX = 0_8 1774 IF (associated(id%DBLARR)) NB_CMPLX=NB_CMPLX+size(id%DBLARR) 1775 IF (associated(id%RHSCOMP)) NB_CMPLX=NB_CMPLX+size(id%RHSCOMP) 1776 IF (associated(id%S)) NB_CMPLX=NB_CMPLX+id%KEEP8(23) 1783 NB_CMPLX = NB_CMPLX + NB_REAL/2_8
|