Another issue with this is how 'mask' is declared within the filter2d
subroutine as well as 'subarray' and 'subarray1'

integer ijx,ijy,ix,iy,jx,jy,icx,icy
        integer nx,ny,halfintx,halfinty
        real count
        logical missing
        real array(nx,ny),array1(nx,ny),miss
        real
subarray(2*halfintx+1,2*halfinty+1),subarray1(2*halfinty+1,2*halfintx+1)
c       real subarray(3,3),subarray1(3,3)
        real mask(-halfintx:halfintx,-halfinty:halfinty)
        data miss/999./

I'm not sure what the definition for 'mask' means, but I don't if my
specifications in my call to .Fortran are correct for these parameters. 
This is what I have now:
out <- .Fortran("filter2d",
array=as.matrix(array),
array1=matrix(single(nx*ny),nx,ny),
nx=as.integer(nx),
ny=as.integer(ny),
halfintx=as.integer(halfintx),
halfinty=as.integer(halfinty),
mask=as.single(mask),
subarray=as.single(subarray),
subarray1=as.single(subarray1))

I'm not sure how to correctly specify all of the parameters, especially the
mask, subarray, and subarray1, since the subroutine uses them as arrays. 
Does anyone have some advice?

Thanks in advance

-- 
View this message in context: 
http://n4.nabble.com/Help-running-a-Fortran-subroutine-from-R-tp1595641p1595861.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to