48       SUBROUTINE DMUMPS_26(id)  subroutine
57       INTEGER IERR, MASTER
59       TYPE(DMUMPS_STRUC), TARGET :: id
60       INTEGER LIW, IKEEP, FILS, FRERE, PTRAR, NFSIZ
61       INTEGER NE, NA
62       INTEGER I, allocok
63       INTEGER MAXIS1_CHECK
64       INTEGER NB_NIV2, IDEST
65       INTEGER STATUS( MPI_STATUS_SIZE )
66       INTEGER LOCAL_M, LOCAL_N
67       INTEGER numroc
69       INTEGER IRANK
70       INTEGER MP, LP, MPG
71       LOGICAL PROK, PROKG, LISTVAR_SCHUR_2BE_FREED
72       INTEGER SIZE_SCHUR_PASSED
73       INTEGER SBUF_SEND, SBUF_REC, TOTAL_MBYTES
74       INTEGER(8) SBUF_RECOLD8, MIN_BUF_SIZE8
75       INTEGER MIN_BUF_SIZE
76       INTEGER(8) MAX_SIZE_FACTOR_TMP
77       INTEGER LEAF, INODE, ISTEP, INN, LPTRAR
78       INTEGER NBLEAF, NBROOT, MYROW_CHECK, INIV2
79       INTEGER(8) K13TMP8, K14TMP8
80       DOUBLE PRECISION PEAK
81       INTEGER, ALLOCATABLE, DIMENSION(:) :: PAR2_NODES
82       INTEGER, DIMENSION(:), ALLOCATABLE :: IWtemp
83       INTEGER, DIMENSION(:), ALLOCATABLE :: XNODEL, NODEL
84       INTEGER, DIMENSION(:), POINTER :: SSARBR
85       INTEGER, POINTER ::  NELT, LELTVAR
86       INTEGER, DIMENSION(:), POINTER :: KEEP,INFO, INFOG
87       INTEGER(8), DIMENSION(:), POINTER :: KEEP8
88       INTEGER(8)                   :: ENTRIES_IN_FACTORS_LOC_MASTERS
89       DOUBLE PRECISION, DIMENSION(:), POINTER :: RINFO
90       DOUBLE PRECISION, DIMENSION(:), POINTER :: RINFOG
91       INTEGER, DIMENSION(:), POINTER :: ICNTL
92       LOGICAL I_AM_SLAVE, PERLU_ON, COND
93       INTEGER :: OOC_STAT
94       INTEGER MUMPS_330, MUMPS_275
96       INTEGER K,J, IFS
97       INTEGER SIZE_TEMP_MEM,SIZE_DEPTH_FIRST,SIZE_COST_TRAV
98       LOGICAL IS_BUILD_LOAD_MEM_CALLED
99       DOUBLE PRECISION, DIMENSION (:,:), ALLOCATABLE :: TEMP_MEM
100       INTEGER, DIMENSION (:,:), ALLOCATABLE :: TEMP_ROOT
101       INTEGER, DIMENSION (:,:), ALLOCATABLE :: TEMP_LEAF
102       INTEGER, DIMENSION (:,:), ALLOCATABLE :: TEMP_SIZE
103       INTEGER, DIMENSION (:), ALLOCATABLE :: DEPTH_FIRST
104       INTEGER, DIMENSION (:), ALLOCATABLE :: DEPTH_FIRST_SEQ
105       INTEGER, DIMENSION (:), ALLOCATABLE :: SBTR_ID
106       DOUBLE PRECISION, DIMENSION (:), ALLOCATABLE :: COST_TRAV_TMP
107       INTEGER(8) :: TOTAL_BYTES
108       INTEGER, POINTER, DIMENSION(:) ::  WORK1PTR, WORK2PTR,
109      &     NFSIZPTR,
110      &     FILSPTR,
111      &     FREREPTR
133  220  FORMAT( /' DMUMPS ',A ) 
226  1234       CONTINUE
414  10   CONTINUE
463  11      CONTINUE
532                WRITE(*,*) "Internal Error 2 in DMUMPS_26",  argument
572  12      CONTINUE
640  94   CONTINUE
700  96   CONTINUE
902  80   CONTINUE
1056  666           CONTINUE
1245  87   CONTINUE
1357  321  CONTINUE
1684      & /' ** FAILURE DURING DMUMPS_26, DYNAMIC ALLOCATION OF',  argument