@steed fortran调c, c调athread_get_id
或者试试链接时加入-Wl,-defsym,myid_=_MYID，然后用integer, external :: myid试一下（这个从没试过不保证能用）。。。

sw3runarg 加在你文件前面

@steed 在 mpiswgfortran编译器如何编译从核函数？ 中说：

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

从核的函数叫grist_nh_dynamics_run_diagvars1, 编译器会自动在前面加slave_

从核没有cache。

@colezhang 可能不正常吧。。。如果直接强转doublev4然后赋值呢？

@一条咸鱼 atan不被认为是intrinsic function？试试加ffast-math，如果不行那就只好算出来贴进去咯。。。

@kun 哦，从核用asm ("memb\n\trcsr %0, 4\n\t":"=r"(x))

@steed 可能mpiswgfortran默认是编译主核的，你试试从核用sw5gfortran看看链接在一起会不会有问题？

不贴代码怎么知道为什么是0。
另外用
long x;
asm ("memb\n\trtc %0\n\t":"=r"(x))获取当前节拍数，两边减去除以1.45e9也可以。

可能因为你没有去掉-mhost吧。。。
仔细看看报错信息。。。