more fortran wrappers

NOAA-EMC · Dec 22, 2024 · 76d4f4a · 76d4f4a
1 parent 198b655
commit 76d4f4a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/g2c_interface.F90 b/src/g2c_interface.F90
@@ -82,7 +82,7 @@ function g2c_inq_dim(g2id, msg_num, prod_num, dim_num, len, name, val) bind(c)
        integer(c_int), intent(out) :: prod_num, dim_num
        integer(c_size_t), intent(out) :: len
        character(c_char), intent(in)  :: name(*)
-       real(c_float), intent(out) :: val
+       real(c_float), intent(out) :: val(*)
        integer(c_int) :: g2c_inq_dim
      end function g2c_inq_dim
 

diff --git a/src/g2cf.F90 b/src/g2cf.F90
@@ -361,10 +361,11 @@ function g2cf_inq_dim(g2id, msg_num, prod_num, dim_num, len, name, val) result(s
     integer(c_int) :: g2cid, cmsg_num, cprod_num, cdim_num
     integer(c_size_t) :: clen
     character(c_char)  :: cname(G2_MAX_NAME)
-    real(c_float) :: cval(*)
+    real(c_float) :: cval(10)
 
     integer(c_int) :: cstatus
     integer :: status
+    integer(kind = 8) :: i
 
     ! Copy input params to C types.
     g2cid = g2id
@@ -377,7 +378,8 @@ function g2cf_inq_dim(g2id, msg_num, prod_num, dim_num, len, name, val) result(s
 
     ! Copy output params to Fortran types.
     len = clen
-    name = cname
+    name(1) = ''
+    !name = cname
     do i = 1, len
        val(i) = cval(i)
     end do