function mcp_set_adfun(my_func);

global mcp_adfun;
mcp_adfun = my_func;

return

