diff --git a/src/mtime_c_bindings.f90 b/src/mtime_c_bindings.f90 index 6f3da716f9c9d95d83d094732a85ae22acf0dcb2..f9ff38a0b80e2a096086909ea1b56a43a5c9781c 100644 --- a/src/mtime_c_bindings.f90 +++ b/src/mtime_c_bindings.f90 @@ -1,4 +1,4 @@ -module mtime_c_bindings +MODULE mtime_c_bindings ! use, intrinsic :: iso_c_binding, only: c_bool, c_int, c_char, c_null_char, c_ptr, c_int64_t, & & c_float, c_double, c_associated @@ -84,6 +84,7 @@ module mtime_c_bindings ! type, bind(c) :: divisionquotienttimespan integer(c_int64_t) :: quotient; + integer(c_int64_t) :: remainder_days; integer(c_int64_t) :: remainder_in_ms; end type divisionquotienttimespan ! @@ -511,15 +512,25 @@ module mtime_c_bindings end function my_timedeltatojuliandelta ! FUNCTION my_divideTimeDeltaInSeconds(dividend, divisor, base_dt, quotient) & -RESULT(ret_quotient) BIND(c,name='divideTimeDeltaInSeconds') +RESULT(ret_quotient) BIND(c,name='divideTimeDeltaInSeconds') import :: c_ptr - type(c_ptr) :: ret_quotient + type(c_ptr) :: ret_quotient type(c_ptr), value :: dividend type(c_ptr), value :: divisor type(c_ptr), value :: base_dt type(c_ptr), value :: quotient end function my_divideTimeDeltaInSeconds ! + FUNCTION my_divideTimeDelta(dividend, divisor, base_dt, quotient) & + RESULT(ret_quotient) BIND(c,name='divideTimeDelta') + import :: c_ptr + type(c_ptr) :: ret_quotient + type(c_ptr), value :: dividend + type(c_ptr), value :: divisor + type(c_ptr), value :: base_dt + type(c_ptr), value :: quotient + END FUNCTION my_divideTimeDelta + ! FUNCTION my_divideDatetimeDifferenceInSeconds(dt1, dt2, divisor, quotient) RESULT(ret_quotient) & & bind(c,name='divideDatetimeDifferenceInSeconds') import :: c_ptr