\begin{type-func-vars}
  \forkey{SUBROUTINE} \func{MURGE\_ASSEMBLYUSESEQUENCE} ( & \var{ID}, \var{id\_seq}, \var{values}, \var{IERROR})\\
\end{type-func-vars}\\
\begin{type-var}
\hskip 0.8cm \type{INTS}, INTENT(IN)  & :: \var{ID}\\
\hskip 0.8cm \type{INTS}, INTENT(IN) & :: \var{id\_seq} \\
\hskip 0.8cm \type{COEF}, INTENT(IN), DIMENSION(0) & :: \var{values}\\
\hskip 0.8cm \type{INTS}, INTENT(OUT) & :: \var{IERROR} \\
\end{type-var}\\
\begin{type-func-vars}
  \forkey{END SUBROUTINE} \func{MURGE\_ASSEMBLYUSESEQUENCE} &\\
  \index{Fonctions@Fonctions!\texttt{MURGE\_ASSEMBLYUSESEQUENCE}}
\end{type-func-vars}
