#include "myc_fortran.h"

void F_FUN(sys_funadr)(void (*f)(void), void (**a)(void)) {
  *a=f;
}