Use another language to call a function: Difference between revisions

m
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
Anonymous user