Fortran 서브 루틴에서 R 래퍼로 선택적 인수를 전달하는 방법

Question

호출시 선택적 인수를 사용하는 Fortran 서브 루틴이 있습니다.

subroutine data (n,ns,alpha,covmat,x,y) 

integer, intent(in):: n,ns 
double precision, intent(in) :: alpha 
double precision, intent(in), optional ::covmat(n,ns) 
double precision, intent(out) :: x(n),y(n) 
.... 
end subroutine data 

나는이 서브 루틴에 대해 다음과 R 래퍼를 시도하고 오류 메시지가 있어요 :

Error in array(x, c(length(x), 1L), if (!is.null(names(x))) list(names(x), : 
'data' must be of a vector type, was 'NULL' 

내가 제대로 .Fortran() 호출에 인수를 전달하면 잘 모르겠어요합니다. 나는 온라인으로 유용한 것을 찾을 수 없었다.

data1 <- function(n,ns,alpha,covmat=NULL){ 

tmp <- .Fortran("data", 
n = as.integer(n),ns= as.integer(ns) 
alpha=as.numeric(alpha),covmat=as.vector(covmat), 
x=as.double(rep(0,n)),y=as.double(rep(0,n))) 
) 
} 
result <- list(x=tmp$x, y=tmp$y) 

return(result) 
} 

Answer 1

업데이트 : = as.vector (covmat를) covmat하는 covmat = as.matrix (covmat)을 변경 한 후 오류 메시지가 없습니다.

지금까지 내 질문에 대한 유일한 해결책은 .Fortran() 호출에서 선택적 인수와 함께 플래그 변수를 추가하고 서브 루틴에서 모두 전달하는 것입니다. 문제는 이제 'n'선택적 인수에 대한 것입니다.이 경우 더 많은 플래그를 갖게됩니다. 다른 제안?