调用使用R中的模块函数的Fortran子例程

Question

我试图了解如何从R调用Fortran。我可以调用仅包含子例程的代码。但是，我想调用一个包含模块的Fortran代码，该模块具有在子例程中使用的函数。这是一个简单的例子，我编译了，但是无法使用命令＆＃34; dyn.load＆＃34;来调用R：

module forme
implicit none
public :: autoc

contains

function autoc(x,k) result(f_res)

 double precision, intent(in) :: x
 integer, intent(in)  :: k
 double precision :: f_res

 f_res=x+k

 return
 end function autoc

end module forme

subroutine invdeux(n,answer)
use forme
implicit none


integer, intent(in)::  n
double precision, intent(out)::  answer
double precision :: nreal 

nreal=n
answer=1/nreal
answer=autoc(answer,n)

end subroutine invdeux