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