Commit 6a297520 authored by Sergey Kosukhin's avatar Sergey Kosukhin
Browse files

Update mo_cdi.f90.

parent c8e53b72
......@@ -421,6 +421,7 @@ module mo_cdi
public :: cdiInqNatts
public :: cdiInqAtt
public :: cdiInqAttLen
public :: cdiInqAttType
public :: cdiDelAtt
public :: cdiCopyAtts
public :: cdiDefAttInt
......@@ -4669,6 +4670,30 @@ contains
f_result = lib_cdiInqAttLen(cdiID_dummy, varID_dummy, name_temp)
end function cdiInqAttLen
function cdiInqAttType(cdiID_dummy, varID_dummy, name_dummy) result(f_result)
integer(c_int) :: f_result
integer(c_int), value :: cdiID_dummy
integer(c_int), value :: varID_dummy
character(kind = c_char, len = *), intent(in) :: name_dummy
character(kind = c_char) :: name_temp(len(name_dummy) + 1)
integer :: name_i
interface
function lib_cdiInqAttType(cdiID_dummy, varID_dummy, name_dummy) bind(c,&
& name = 'cdiInqAttType') result(c_result)
import c_char, c_int
integer(c_int) :: c_result
integer(c_int), value :: cdiID_dummy
integer(c_int), value :: varID_dummy
character(kind = c_char) :: name_dummy(*)
end function lib_cdiInqAttType
end interface
do name_i = 1, len(name_dummy)
name_temp(name_i) = name_dummy(name_i:name_i)
end do
name_temp(len(name_dummy) + 1) = c_null_char
f_result = lib_cdiInqAttType(cdiID_dummy, varID_dummy, name_temp)
end function cdiInqAttType
function cdiDelAtt(cdiID_dummy, varID_dummy, name_dummy) result(f_result)
integer(c_int) :: f_result
integer(c_int), value :: cdiID_dummy
......
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