
\begin{type-func-vars}
  \forkey{SUBROUTINE} \func{CSCD\_REDISPATCH\_FORTRAN} ( & \var{CSC\_DATA}, \var{N}, \var{IA}\\
                                                      & \var{JA}, \var{A},\\
                                                      & \var{RHS}, \var{L2G},\\
                                                      & \var{NEWN}, \var{NEWL2G},\\
                                                      & \var{FORTRAN\_COMM}, \var{IERR})\\
\end{type-func-vars}\\
\begin{type-var}
\hskip 0.8cm \type{pastix\_data\_ptr\_t}, INTENT(OUT)& :: \var{CSC\_DATA}\\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN)              & :: \var{N} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(0)& :: \var{IA} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(0)& :: \var{JA} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(0)& :: \var{A} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(0)& :: \var{RHS} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(0)& :: \var{L2G} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN)              & :: \var{NEWN} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(0)& :: \var{NEWL2G} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(OUT)              & :: \var{NEWNNZ} \\
\hskip 0.8cm \type{MPI\_COMM},      INTENT(IN)              & :: \var{FORTRAN\_COMM}\\
\hskip 0.8cm \type{INTEGER},        INTENT(OUT)             & :: \var{IERR}\\
\end{type-var}\\
\begin{type-func-vars}
  \forkey{END SUBROUTINE} \func{CSCD\_REDISPATCH\_FORTRAN} &\\
\index{Fonctions@Fonctions!\texttt{CSCD\_REDISPATCH\_FORTRAN}}
\end{type-func-vars}


%%void FORTRAN_CALL(csc_dispatch_fortran_end)(csc_data_t ** csc_data, 
%%					    INT         *lcolptr, 
%%					    INT         *lrow, 
%%					    FLOAT       *lavals, 
%%					    FLOAT       *lrhs, 
%%					    FLOAT       *lperm
%%					    INT         *l2g)

\begin{type-func-vars}
  \forkey{SUBROUTINE} \func{CSCD\_REDISPATCH\_FORTRAN\_END} ( & \var{CSC\_DATA}, \var{DCOLPTR}\\
                                                           & \var{DROW}, \var{DAVALS},\\
                                                           & \var{DRHS})\\
\end{type-func-vars}\\
\begin{type-var}
\hskip 0.8cm \type{pastix\_data\_ptr\_t}, INTENT(OUT)& :: \var{CSC\_DATA}\\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(n)& :: \var{LCOLPTR} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(nnz)& :: \var{LROW} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(nnz)& :: \var{LAVALS} \\
\hskip 0.8cm \type{pastix\_int\_t}, INTENT(IN), DIMENSION(n)& :: \var{LRHS} \\
\end{type-var}\\
\begin{type-func-vars}
  \forkey{END SUBROUTINE} \func{CSCD\_REDISPATCH\_FORTRAN\_END} &\\
\index{Fonctions@Fonctions!\texttt{CSCD\_REDISPATCH\_FORTRAN\_END}}
\end{type-func-vars}
