function Zf90_Set_Child_List_Fn0s(zz,fn_ptr) integer(Zoltan_INT) :: Zf90_Set_Child_List_Fn0s type(Zoltan_Struct) , intent(in) :: zz interface subroutine fn_ptr(dummy,num_gid_entries, num_lid_entries, parent_gid, & parent_lid, child_gids, child_lids, assigned, num_vert, vertices, & reftype, in_vertex, out_vertex, ierr) use zoltan_types integer(Zoltan_INT), intent(in) :: dummy(*) integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries integer(Zoltan_INT), intent(in) :: parent_gid(*), parent_lid(*) integer(Zoltan_INT), intent(out) :: child_gids(*), child_lids(*) integer(Zoltan_INT), intent(out) :: assigned(*), num_vert(*), vertices(*) integer(Zoltan_INT), intent(out) :: in_vertex(*), out_vertex(*) integer(Zoltan_INT), intent(out) :: reftype, ierr end subroutine fn_ptr end interface integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr integer(Zoltan_INT) :: nbytes, i nbytes = Zoltan_PTR_LENGTH do i=1,nbytes zz_addr(i) = ichar(zz%addr%addr(i:i)) end do Zf90_Set_Child_List_Fn0s = Zfw_Set_Fn0s(zz_addr,nbytes,ZOLTAN_CHILD_LIST_FN_TYPE%choice,fn_ptr) end function Zf90_Set_Child_List_Fn0s function Zf90_Set_Child_List_Fn1s(zz,fn_ptr,data) integer(Zoltan_INT) :: Zf90_Set_Child_List_Fn1s type(Zoltan_Struct) , intent(in) :: zz interface subroutine fn_ptr(data, num_gid_entries, num_lid_entries, parent_gid, & parent_lid, child_gids, child_lids, assigned, num_vert, vertices, & reftype, in_vertex, out_vertex, ierr) use zoltan_types integer(Zoltan_INT) , intent(in) :: data(*) integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries integer(Zoltan_INT), intent(in) :: parent_gid(*), parent_lid(*) integer(Zoltan_INT), intent(out) :: child_gids(*), child_lids(*) integer(Zoltan_INT), intent(out) :: assigned(*), num_vert(*), vertices(*) integer(Zoltan_INT), intent(out) :: in_vertex(*), out_vertex(*) integer(Zoltan_INT), intent(out) :: reftype, ierr end subroutine fn_ptr end interface integer(Zoltan_INT) , intent(in) :: data(*) integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr integer(Zoltan_INT) :: nbytes, i nbytes = Zoltan_PTR_LENGTH do i=1,nbytes zz_addr(i) = ichar(zz%addr%addr(i:i)) end do Zf90_Set_Child_List_Fn1s = Zfw_Set_Fn1s(zz_addr,nbytes,ZOLTAN_CHILD_LIST_FN_TYPE%choice,fn_ptr,data) end function Zf90_Set_Child_List_Fn1s function Zf90_Set_Child_List_Fn2s(zz,fn_ptr,data) integer(Zoltan_INT) :: Zf90_Set_Child_List_Fn2s type(Zoltan_Struct) , intent(in) :: zz interface subroutine fn_ptr(data, num_gid_entries, num_lid_entries, parent_gid, & parent_lid, child_gids, child_lids, assigned, num_vert, vertices, & reftype, in_vertex, out_vertex, ierr) use zoltan_types real(Zoltan_FLOAT) , intent(in) :: data(*) integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries integer(Zoltan_INT), intent(in) :: parent_gid(*), parent_lid(*) integer(Zoltan_INT), intent(out) :: child_gids(*), child_lids(*) integer(Zoltan_INT), intent(out) :: assigned(*), num_vert(*), vertices(*) integer(Zoltan_INT), intent(out) :: in_vertex(*), out_vertex(*) integer(Zoltan_INT), intent(out) :: reftype, ierr end subroutine fn_ptr end interface real(Zoltan_FLOAT) , intent(in) :: data(*) integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr integer(Zoltan_INT) :: nbytes, i nbytes = Zoltan_PTR_LENGTH do i=1,nbytes zz_addr(i) = ichar(zz%addr%addr(i:i)) end do Zf90_Set_Child_List_Fn2s = Zfw_Set_Fn2s(zz_addr,nbytes,ZOLTAN_CHILD_LIST_FN_TYPE%choice,fn_ptr,data) end function Zf90_Set_Child_List_Fn2s function Zf90_Set_Child_List_Fn3s(zz,fn_ptr,data) integer(Zoltan_INT) :: Zf90_Set_Child_List_Fn3s type(Zoltan_Struct) , intent(in) :: zz interface subroutine fn_ptr(data, num_gid_entries, num_lid_entries, parent_gid, & parent_lid, child_gids, child_lids, assigned, num_vert, vertices, & reftype, in_vertex, out_vertex, ierr) use zoltan_types real(Zoltan_DOUBLE) , intent(in) :: data(*) integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries integer(Zoltan_INT), intent(in) :: parent_gid(*), parent_lid(*) integer(Zoltan_INT), intent(out) :: child_gids(*), child_lids(*) integer(Zoltan_INT), intent(out) :: assigned(*), num_vert(*), vertices(*) integer(Zoltan_INT), intent(out) :: in_vertex(*), out_vertex(*) integer(Zoltan_INT), intent(out) :: reftype, ierr end subroutine fn_ptr end interface real(Zoltan_DOUBLE) , intent(in) :: data(*) integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr integer(Zoltan_INT) :: nbytes, i nbytes = Zoltan_PTR_LENGTH do i=1,nbytes zz_addr(i) = ichar(zz%addr%addr(i:i)) end do Zf90_Set_Child_List_Fn3s = Zfw_Set_Fn3s(zz_addr,nbytes,ZOLTAN_CHILD_LIST_FN_TYPE%choice,fn_ptr,data) end function Zf90_Set_Child_List_Fn3s function Zf90_Set_Child_List_Fn4s(zz,fn_ptr,data) integer(Zoltan_INT) :: Zf90_Set_Child_List_Fn4s type(Zoltan_Struct) , intent(in) :: zz interface subroutine fn_ptr(data, num_gid_entries, num_lid_entries, parent_gid, & parent_lid, child_gids, child_lids, assigned, num_vert, vertices, & reftype, in_vertex, out_vertex, ierr) use zoltan_types use zoltan_user_data type(Zoltan_User_Data_1) , intent(in) :: data integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries integer(Zoltan_INT), intent(in) :: parent_gid(*), parent_lid(*) integer(Zoltan_INT), intent(out) :: child_gids(*), child_lids(*) integer(Zoltan_INT), intent(out) :: assigned(*), num_vert(*), vertices(*) integer(Zoltan_INT), intent(out) :: in_vertex(*), out_vertex(*) integer(Zoltan_INT), intent(out) :: reftype, ierr end subroutine fn_ptr end interface type(Zoltan_User_Data_1) , intent(in) :: data integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr integer(Zoltan_INT) :: nbytes, i nbytes = Zoltan_PTR_LENGTH do i=1,nbytes zz_addr(i) = ichar(zz%addr%addr(i:i)) end do Zf90_Set_Child_List_Fn4s = Zfw_Set_Fn4s(zz_addr,nbytes,ZOLTAN_CHILD_LIST_FN_TYPE%choice,fn_ptr,data) end function Zf90_Set_Child_List_Fn4s function Zf90_Set_Child_List_Fn5s(zz,fn_ptr,data) integer(Zoltan_INT) :: Zf90_Set_Child_List_Fn5s type(Zoltan_Struct) , intent(in) :: zz interface subroutine fn_ptr(data,num_gid_entries, num_lid_entries, parent_gid, & parent_lid, child_gids, child_lids, assigned, num_vert, vertices, & reftype, in_vertex, out_vertex, ierr) use zoltan_types use zoltan_user_data type(Zoltan_User_Data_2) , intent(in) :: data integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries integer(Zoltan_INT), intent(in) :: parent_gid(*), parent_lid(*) integer(Zoltan_INT), intent(out) :: child_gids(*), child_lids(*) integer(Zoltan_INT), intent(out) :: assigned(*), num_vert(*), vertices(*) integer(Zoltan_INT), intent(out) :: in_vertex(*), out_vertex(*) integer(Zoltan_INT), intent(out) :: reftype, ierr end subroutine fn_ptr end interface type(Zoltan_User_Data_2) , intent(in) :: data integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr integer(Zoltan_INT) :: nbytes, i nbytes = Zoltan_PTR_LENGTH do i=1,nbytes zz_addr(i) = ichar(zz%addr%addr(i:i)) end do Zf90_Set_Child_List_Fn5s = Zfw_Set_Fn5s(zz_addr,nbytes,ZOLTAN_CHILD_LIST_FN_TYPE%choice,fn_ptr,data) end function Zf90_Set_Child_List_Fn5s function Zf90_Set_Child_List_Fn6s(zz,fn_ptr,data) integer(Zoltan_INT) :: Zf90_Set_Child_List_Fn6s type(Zoltan_Struct) , intent(in) :: zz interface subroutine fn_ptr(data, num_gid_entries, num_lid_entries, parent_gid, & parent_lid, child_gids, child_lids, assigned, num_vert, vertices, & reftype, in_vertex, out_vertex, ierr) use zoltan_types use zoltan_user_data type(Zoltan_User_Data_3) , intent(in) :: data integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries integer(Zoltan_INT), intent(in) :: parent_gid(*), parent_lid(*) integer(Zoltan_INT), intent(out) :: child_gids(*), child_lids(*) integer(Zoltan_INT), intent(out) :: assigned(*), num_vert(*), vertices(*) integer(Zoltan_INT), intent(out) :: in_vertex(*), out_vertex(*) integer(Zoltan_INT), intent(out) :: reftype, ierr end subroutine fn_ptr end interface type(Zoltan_User_Data_3) , intent(in) :: data integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr integer(Zoltan_INT) :: nbytes, i nbytes = Zoltan_PTR_LENGTH do i=1,nbytes zz_addr(i) = ichar(zz%addr%addr(i:i)) end do Zf90_Set_Child_List_Fn6s = Zfw_Set_Fn6s(zz_addr,nbytes,ZOLTAN_CHILD_LIST_FN_TYPE%choice,fn_ptr,data) end function Zf90_Set_Child_List_Fn6s function Zf90_Set_Child_List_Fn7s(zz,fn_ptr,data) integer(Zoltan_INT) :: Zf90_Set_Child_List_Fn7s type(Zoltan_Struct) , intent(in) :: zz interface subroutine fn_ptr(data, num_gid_entries, num_lid_entries, parent_gid, & parent_lid, child_gids, child_lids, assigned, num_vert, vertices, & reftype, in_vertex, out_vertex, ierr) use zoltan_types use zoltan_user_data type(Zoltan_User_Data_4) , intent(in) :: data integer(Zoltan_INT), intent(in) :: num_gid_entries, num_lid_entries integer(Zoltan_INT), intent(in) :: parent_gid(*), parent_lid(*) integer(Zoltan_INT), intent(out) :: child_gids(*), child_lids(*) integer(Zoltan_INT), intent(out) :: assigned(*), num_vert(*), vertices(*) integer(Zoltan_INT), intent(out) :: in_vertex(*), out_vertex(*) integer(Zoltan_INT), intent(out) :: reftype, ierr end subroutine fn_ptr end interface type(Zoltan_User_Data_4) , intent(in) :: data integer(Zoltan_INT), dimension(Zoltan_PTR_LENGTH) :: zz_addr integer(Zoltan_INT) :: nbytes, i nbytes = Zoltan_PTR_LENGTH do i=1,nbytes zz_addr(i) = ichar(zz%addr%addr(i:i)) end do Zf90_Set_Child_List_Fn7s = Zfw_Set_Fn7s(zz_addr,nbytes,ZOLTAN_CHILD_LIST_FN_TYPE%choice,fn_ptr,data) end function Zf90_Set_Child_List_Fn7s