Skip to content
Snippets Groups Projects
Commit 08ce76a0 authored by Luis Kornblueh's avatar Luis Kornblueh
Browse files

Removed twice defined c binding interface for add of julianday and juliandelta

parent fe8d2969
No related branches found
No related tags found
1 merge request!8Feature extend julianday
......@@ -128,13 +128,6 @@ module mtime_c_bindings
import :: c_ptr
type(c_ptr), value :: jd
end subroutine my_deallocatejuliandelta
!
function my_addjuliandeltatojulianday(my_julianday, my_juliandelta, ret_julianday) result(julianday_ptr) &
& bind(c, name='addJulianDelta')
import :: c_ptr
type(c_ptr) :: julianday_ptr
type(c_ptr), value :: my_julianday, my_juliandelta, ret_julianday
end function my_addjuliandeltatojulianday
end interface
interface
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment