Skip to content

Instantly share code, notes, and snippets.

@HajimeKawahara

HajimeKawahara/wrap_ftest.jl

Created January 5, 2016 07:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save HajimeKawahara/8405698c3139ac290962 to your computer and use it in GitHub Desktop.
Save HajimeKawahara/8405698c3139ac290962 to your computer and use it in GitHub Desktop.
Download ZIP
simple julia wrapper of fortran 90
Raw
wrap_ftest.jl
#simple julia wrapper of fortran 90 subroutine printint in testf module
function calltestf(ia)
ia = Int32[ia]
product = ccall((:__testf_MOD_printint, "testf.so"),Int32,(Ptr{Int32},),ia)
return product
end
calltestf(7)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment