\begin{type-func-vars}
  \forkey{SUBROUTINE} \func{MURGE\_SETORDERING} ( & \var{ID}, \var{PERMUTATION}, \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), DIMENSION(0) & :: \var{PERMUTATION}\\
\hskip 0.8cm \type{INTS}, INTENT(OUT)              & :: \var{IERROR} \\
\end{type-var}\\
\begin{type-func-vars}
  \forkey{END SUBROUTINE} \func{MURGE\_SETORDERING} &\\
\index{Fonctions@Fonctions!\texttt{MURGE\_SETORDERING}}
\end{type-func-vars}
