Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: d4bbfb534c
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (12 sloc) 0.298 kB
module csine
use iso_c_binding, only: c_int, c_double
use sine, only: sine_add_3
implicit none
private
contains
subroutine c_sine_add_3(index, n, data) bind(c)
integer(c_int), intent(in) :: index, n
real(c_double), intent(inout) :: data(n)
call sine_add_3(index, data)
end subroutine
end module
Jump to Line
Something went wrong with that request. Please try again.