Displaying 2 results from an estimated 2 matches for "model_wrapper".
2009 Sep 11
1
call Fortran from R
...re complex, but input/output is similar)
DOUBLE PRECISION FUNCTION model(times, alfa, beta)
DOUBLE PRECISION alfa, beta, times
model=beta*sin(times)+alfa*cos(times)
END FUNCTION
which is saved as model.f.
I wrote a wapper like this (saved as wrapper.f)
SUBROUTINE model_wrapper(times, alfa, beta, answer)
DOUBLE PRECISION times, alfa, beta, answer
EXTERNAL model
answer = model(times, alfa, beta)
END SUBROUTINE
Then I compiled all this stuff
g77 -fno-second-underscore -c -fPIC model.f
g77 -fno-second-underscore -c -fPIC wrapper.f
g77 -fno-secon...
2009 Sep 11
3
For sending my R package as part of R-project
...re complex, but input/output is similar)
DOUBLE PRECISION FUNCTION model(times, alfa, beta)
DOUBLE PRECISION alfa, beta, times
model=beta*sin(times)+alfa*cos(times)
END FUNCTION
which is saved as model.f.
I wrote a wapper like this (saved as wrapper.f)
SUBROUTINE model_wrapper(times, alfa, beta, answer)
DOUBLE PRECISION times, alfa, beta, answer
EXTERNAL model
answer = model(times, alfa, beta)
END SUBROUTINE
Then I compiled all this stuff
g77 -fno-second-underscore -c -fPIC model.f
g77 -fno-second-underscore -c -fPIC wrapper.f
g77 -fno-secon...