[混编] 请问Fortran如何调用C++的class呀

class cls{
  int a;
  void sub();
}

//用C代码封装
void cls_sub(cls *obj){
  obj->sub();
}