@段晓辉 这个好像加不加都可以，现在的问题是用mpiswgfortran系列的编译器，从核函数里面无法获取从核ID号。不知道有没有什么解决方案？

@段晓辉 换用sw5gfortran可以链接成功，不过还有一个问题，就是无法获取从核ID号
获取从核编号的C语言代码(DMA_getid.c)

#include <slave.h>
#include <math.h>
#include <stdio.h>

void get_myid_(int*t)
{
    *t = athread_get_id(-1);
 }

从核测试代码(grist_nh_driver_module_slave.F90)

subroutine slave_grist_nh_dynamics_run_diagvars1
  implicit none
  
  !从核局存变量
  integer :: i,j 
  integer :: slave_id,reply

  call get_myid(slave_id)
  print*,slave_id
    
end subroutine

主程序代码(main.F90)

program main
  implicit none
  integer,external :: slave_grist_nh_dynamics_run_diagvars1
  
  call athread_init()
  call athread_spawn(slave_grist_nh_dynamics_run_diagvars1,1)
  call athread_join()
  call athread_halt()

end program

提交脚本
bsub -b -I -q q_sw_expr -n 1 -cgsp 64 -host_stack 256 -share_size 4096 ./main
错误信息

应该是去掉了的，以下是编译脚本，只要加上-mslave，它就会报错。

使用mpiswgfortran编译从核函数时，加-mslave选项会出现以下错误。

有没有可以参考的mpiswgfortran编译器的使用示例。