Use another language to call a function: Difference between revisions
Content deleted Content added
mNo edit summary |
|||
Line 240:
implicit none
character(len=1,kind=c_char), dimension(length), intent(inout) :: data
integer(c_size_t), intent(inout) :: length
integer(c_int) :: answer
answer = 0
|