more fortran wrappers

NOAA-EMC · Dec 22, 2024 · 0d4005c · 0d4005c
1 parent 400ec86
commit 0d4005c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/g2c_interface.F90 b/src/g2c_interface.F90
@@ -90,6 +90,7 @@ end function g2c_inq_dim
      ! int g2c_get_prod(int g2cid, int msg_num, int prod_num, int *num_data_points,
      !                  float *data);
      function g2c_get_prod(g2id, msg_num, prod_num, num_data_points, data) bind(c)
+       use iso_c_binding
        integer(c_int), value :: g2id
        integer(c_int), value :: msg_num
        integer(c_int), value :: prod_num