Commit a44bcb31 authored by Ralf Müller's avatar Ralf Müller
Browse files

add autogenerated code for f2003 interface

parent 1e29dab0
! >>> Warning: This is a generated file. If you modify it, you get what you deserve. <<<
!
! Generated by "../../../interfaces/f2003/bindGen.rb" from input file "../../../src/cdi.h".
! Generated by "../interfaces/f2003/bindGen.rb" from input file "../src/cdi.h".
module mo_cdi
use iso_c_binding
......@@ -491,6 +491,8 @@ module mo_cdi
integer(c_int), public, parameter :: CDI_KEY_REVNUMBER = 817
public :: cdiDefKeyInt
public :: cdiInqKeyInt
public :: cdiDefKeyBytes
public :: cdiInqKeyBytes
public :: cdiDefKeyString
public :: cdiInqKeyString
public :: cdiInqKeyLen
......@@ -1941,6 +1943,28 @@ module mo_cdi
integer(c_int) :: f_result
end function cdiInqKeyInt
function cdiDefKeyBytes(cdiID_dummy, varID_dummy, key_dummy, bytes_dummy,&
& length_dummy) bind(c, name = 'cdiDefKeyBytes') result(f_result)
import c_int, c_signed_char
integer(c_int), value :: cdiID_dummy
integer(c_int), value :: varID_dummy
integer(c_int), value :: key_dummy
integer(kind = c_signed_char), intent(in) :: bytes_dummy(*)
integer(c_int), value :: length_dummy
integer(c_int) :: f_result
end function cdiDefKeyBytes
function cdiInqKeyBytes(cdiID_dummy, varID_dummy, key_dummy, bytes_dummy,&
& length_dummy) bind(c, name = 'cdiInqKeyBytes') result(f_result)
import c_int, c_signed_char
integer(c_int), value :: cdiID_dummy
integer(c_int), value :: varID_dummy
integer(c_int), value :: key_dummy
integer(kind = c_signed_char), intent(inout) :: bytes_dummy(*)
integer(c_int), intent(inout) :: length_dummy
integer(c_int) :: f_result
end function cdiInqKeyBytes
function cdiInqKeyLen(cdiID_dummy, varID_dummy, key_dummy, length_dummy)&
& bind(c, name = 'cdiInqKeyLen') result(f_result)
import c_int
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment