>
<td VALIGN=TOP WIDTH="15%" NOSAVE>FORTRAN:</td>

<td>FUNCTION <b>Zoltan_Set_Fn</b>(<i>zz, fn_type, fn_ptr, data</i>)&nbsp;
<br>INTEGER(Zoltan_INT) :: Zoltan_Set_Fn&nbsp;
<br>TYPE(Zoltan_Struct), INTENT(IN) :: zz&nbsp;
<br>TYPE(ZOLTAN_FN_TYPE), INTENT(IN) :: fn_type&nbsp;
<br>EXTERNAL :: fn_ptr&nbsp;
<br>&lt;<i>type-data</i>>, OPTIONAL :: data&nbsp;
<p>&lt;<i>type-data</i>> can be any of INTEGER(Zoltan_INT), DIMENSION(*)
or REAL(Zoltan_FLOAT), DIMENSION(*) or REAL(Zoltan_DOUBLE), DIMENSION(*)
or TYPE(Zolta