MUMPS_4.10.0/src/smumps_part3.F

1484       INTEGER(8) :: TEMP, NB_BYTES, NB_INT  local
1505       NB_INT  = 0_8
1506       NB_INT = NB_INT + 5_8 * NSTEPS8
1507       NB_INT = NB_INT + NSTEPS8 + int(KEEP(56),8)*int(NSLAVES+2,8)
1508       NB_INT = NB_INT + 3_8 * N8
1509       IF (KEEP(23).ne.0 .and. I_AM_MASTER) NB_INT=NB_INT + N8
1511         NB_INT = NB_INT + 2_8 * N8
1513         NB_INT = NB_INT + 2_8 * ( NELT8 + 1_8 )
1516         NB_INT = NB_INT + N8 + 1_8 + NELT8
1518       NB_INT = NB_INT + int(LNA,8)
1555         NB_INT = NB_INT + OOC_NB_FILE_TYPE * NSTEPS8 * I8OVERI
1556         NB_INT = NB_INT + OOC_NB_FILE_TYPE * NSTEPS8 * I8OVERI
1557         NB_INT = NB_INT + OOC_NB_FILE_TYPE * NSTEPS8
1565         NB_INT  = NB_INT  + int(KEEP(14),8)
1568         NB_INT = NB_INT + 2_8 * N8
1601       TEMP = max( NB_BYTES + (NB_INT + TEMPI) * int(KEEP(34),8)
1631             NB_INT = NB_INT + int(KEEP(225),8)
1633             NB_INT = NB_INT + int(KEEP(15),8)
1637             NB_INT = NB_INT +  int(
1642             NB_INT = NB_INT +  int(
1648         NB_INT = NB_INT + NSTEPS8
1649         NB_INT = NB_INT + NSTEPS8 * I8OVERI
1650         NB_INT = NB_INT + N8 + 5_8 * NSTEPS8 + 3_8
1651         NB_INT = NB_INT + 2_8 * NSTEPS8 * I8OVERI
1653       MEMORY_BYTES = NB_BYTES + NB_INT * int(KEEP(34),8) +
1698       SUBROUTINE SMUMPS_710 (id, NB_INT,NB_CMPLX )  argument
1702       INTEGER(8) NB_INT, NB_CMPLX   local
1704       NB_INT        = 0_8
1707       IF (associated(id%IS))          NB_INT=NB_INT+size(id%IS)
1708       IF (associated(id%IS1))         NB_INT=NB_INT+size(id%IS1)
1709       NB_INT=NB_INT+size(id%KEEP)
1710       NB_INT=NB_INT+size(id%ICNTL)
1711       NB_INT=NB_INT+size(id%INFO)
1712       NB_INT=NB_INT+size(id%INFOG)
1713       IF (associated(id%MAPPING))     NB_INT=NB_INT+size(id%MAPPING)
1714       IF (associated(id%POIDS))       NB_INT=NB_INT+size(id%POIDS)
1715       IF (associated(id%BUFR))        NB_INT=NB_INT+size(id%BUFR)
1716       IF (associated(id%STEP))        NB_INT=NB_INT+size(id%STEP)
1717       IF (associated(id%NE_STEPS  ))  NB_INT=NB_INT+size(id%NE_STEPS  )
1718       IF (associated(id%ND_STEPS))    NB_INT=NB_INT+size(id%ND_STEPS)
1719       IF (associated(id%Step2node))   NB_INT=NB_INT+size(id%Step2node)
1720       IF (associated(id%FRERE_STEPS)) NB_INT=NB_INT+size(id%FRERE_STEPS)
1721       IF (associated(id%DAD_STEPS))   NB_INT=NB_INT+size(id%DAD_STEPS)
1722       IF (associated(id%FILS))        NB_INT=NB_INT+size(id%FILS)
1723       IF (associated(id%PTRAR))       NB_INT=NB_INT+size(id%PTRAR)
1724       IF (associated(id%FRTPTR))      NB_INT=NB_INT+size(id%FRTPTR)
1725       NB_INT=NB_INT+size(id%KEEP8) * id%KEEP(10)
1726       IF (associated(id%PTRFAC)) NB_INT=NB_INT+size(id%PTRFAC) *
1728       IF (associated(id%FRTELT))      NB_INT=NB_INT+size(id%FRTELT)
1729       IF (associated(id%NA))          NB_INT=NB_INT+size(id%NA)
1731      &  NB_INT=NB_INT+size(id%PROCNODE_STEPS)
1732       IF (associated(id%PTLUST_S)) NB_INT=NB_INT+size(id%PTLUST_S)
1733       IF (associated(id%PROCNODE)) NB_INT=NB_INT+size(id%PROCNODE)
1734       IF (associated(id%INTARR)) NB_INT=NB_INT+size(id%INTARR)
1735       IF (associated(id%ELTPROC))  NB_INT=NB_INT+size(id%ELTPROC)
1737      &  NB_INT=NB_INT+size(id%CANDIDATES)
1739      &  NB_INT=NB_INT+size(id%ISTEP_TO_INIV2)
1741      &  NB_INT=NB_INT+size(id%FUTURE_NIV2)
1743      &  NB_INT=NB_INT+size(id%TAB_POS_IN_PERE)
1745      &  NB_INT=NB_INT+size(id%I_AM_CAND)
1747      &  NB_INT=NB_INT+size(id%MEM_DIST)
1749      &  NB_INT=NB_INT+size(id%POSINRHSCOMP)
1751      &  NB_INT=NB_INT+size(id%MEM_SUBTREE)
1753      &  NB_INT=NB_INT+size(id%MY_ROOT_SBTR)
1755      &  NB_INT=NB_INT+size(id%MY_FIRST_LEAF)
1756       IF (associated(id%MY_NB_LEAF)) NB_INT=NB_INT+size(id%MY_NB_LEAF)
1757       IF (associated(id%DEPTH_FIRST)) NB_INT=NB_INT+size(id%DEPTH_FIRST)
1758       IF (associated(id%COST_TRAV)) NB_INT=NB_INT+size(id%COST_TRAV)
1759       IF (associated(id%CB_SON_SIZE)) NB_INT=NB_INT+size(id%CB_SON_SIZE)
1761      &  NB_INT=NB_INT+size(id%OOC_INODE_SEQUENCE)
1763      &  NB_INT=NB_INT+size(id%OOC_SIZE_OF_BLOCK)
1765      &  NB_INT=NB_INT+size(id%OOC_VADDR)
1767      &  NB_INT=NB_INT+size(id%OOC_TOTAL_NB_NODES)
1769      &  NB_INT=NB_INT+size(id%OOC_NB_FILES)
1771      &  NB_INT=NB_INT+size(id%OOC_FILE_NAME_LENGTH)
1772       IF (associated(id%PIVNUL_LIST)) NB_INT=NB_INT+size(id%PIVNUL_LIST)
1773       IF (associated(id%SUP_PROC))    NB_INT=NB_INT+size(id%SUP_PROC)