85       INTEGER, POINTER ::  NELT, LELTVAR  local
121       LELTVAR => id%LELTVAR
345                IF (LELTVAR.ne.id%ELTPTR(NELT+1)-1)  THEN
350                allocate( NODEL ( LELTVAR ), stat = IERR )
353                   INFO( 2 ) = LELTVAR
7220      &    NELT, ELTPTR, LELTVAR, ELTVAR, NA_ELT, A_ELT,  argument
7223       INTEGER MTYPE, N, NELT, LELTVAR, NA_ELT  local
7224       INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR)
7234      &    NELT, ELTPTR, LELTVAR, ELTVAR, NA_ELT, A_ELT,
7239      &    NELT, ELTPTR, LELTVAR, ELTVAR, NA_ELT, A_ELT,  argument
7242       INTEGER MTYPE, N, NELT, LELTVAR, NA_ELT  local
7243       INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR)
7296      &    NELT, ELTPTR, LELTVAR, ELTVAR, NA_ELT, A_ELT,  argument
7299       INTEGER MTYPE, N, NELT, LELTVAR, NA_ELT  local
7300       INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR)
7359      &                     LELTVAR, ELTVAR, NA_ELT, A_ELT,  argument
7362       INTEGER N, NELT, K50, MTYPE, LELTVAR, NA_ELT  local
7363       INTEGER ELTPTR( NELT + 1 ), ELTVAR( LELTVAR )