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