Fix for Fortran

Jikan.F90

@@ -6,7 +6,7 @@ module JIKAN
             USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_INT
             USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_CHAR
             IMPLICIT NONE
-            INTEGER(C_INT) :: mode
+            INTEGER(KIND=C_INT) :: mode
             CHARACTER (KIND=C_CHAR), intent(in)  :: name(*)
         END SUBROUTINE timer_start_f
 
@@ -14,7 +14,7 @@ module JIKAN
             USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_INT
             USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_CHAR
             IMPLICIT NONE
-            INTEGER(C_INT) :: mode, cont_mode_t
+            INTEGER(KIND=C_INT) :: mode, cont_mode_t
             CHARACTER (KIND=C_CHAR), intent(in)  :: name(*)
         END SUBROUTINE timer_end_f
 

JikanF.h

@@ -4,10 +4,10 @@
 #include "JikanOptions.h"
 
 #ifdef TIMER_ON
-#   define START_JIKAN_TIMER(name, mode_t)                      call timer_start(name, mode_t);
-#   define END_JIKAN_TIMER(name, mode_t, cont_mode_t)           call timer_end(name, mode_t, cont_mode_t);
+#   define START_JIKAN_TIMER(name, mode_t)                      call timer_start_f(name, mode_t);
+#   define END_JIKAN_TIMER(name, mode_t, cont_mode_t)           call timer_end_f(name, mode_t, cont_mode_t);
 
-#   define JIKAN_TIMER_OUTPUT()                                 call write_output();
+#   define JIKAN_TIMER_OUTPUT()                                 call write_output_f();
 #else
 #   define START_JIKAN_TIMER(name, mode_t)
 #   define END_JIKAN_TIMER(name, mode_t, cont_mode_t)

JikanOptions.h

 #pragma once
 
-#undef TIMER_ON
+#define TIMER_ON
 #define SAVE_TIME_SERIES
 #define OUTPUT_NAME "Jikan-output"