460      &    NELT, ELTPTR, LELTVAR, ELTVAR, NA_ELT8, A_ELT,  argument
463       INTEGER MTYPE, N, NELT, LELTVAR  local
465       INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR)
475      &    NELT, ELTPTR, LELTVAR, ELTVAR, NA_ELT8, A_ELT,
480      &    NELT, ELTPTR, LELTVAR, ELTVAR, NA_ELT8, A_ELT,  argument
483       INTEGER MTYPE, N, NELT, LELTVAR  local
485       INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR)
539      &    NELT, ELTPTR, LELTVAR, ELTVAR, NA_ELT8, A_ELT,  argument
542       INTEGER MTYPE, N, NELT, LELTVAR  local
544       INTEGER ELTPTR(NELT+1), ELTVAR(LELTVAR)
604      &                     LELTVAR, ELTVAR, NA_ELT8, A_ELT,  argument
607       INTEGER N, NELT, K50, MTYPE, LELTVAR  local
609       INTEGER ELTPTR( NELT + 1 ), ELTVAR( LELTVAR )