Commit 2c64c11c authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

cdilib.c update

parent ef805e59
! >>> 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
......@@ -526,10 +526,14 @@ module mo_cdi
public :: zaxisDefUnits
public :: zaxisInqUnits
public :: zaxisInqStdname
public :: zaxisDefPsName
public :: zaxisInqPsName
public :: zaxisDefPrec
public :: zaxisInqPrec
public :: zaxisDefPositive
public :: zaxisInqPositive
public :: zaxisDefScalar
public :: zaxisInqScalar
public :: zaxisDefLtype
public :: zaxisInqLtype
public :: zaxisInqLevelsPtr
......@@ -2386,6 +2390,18 @@ module mo_cdi
integer(c_int) :: f_result
end function zaxisInqPositive
subroutine zaxisDefScalar(zaxisID_dummy) bind(c, name = 'zaxisDefScalar')
import c_int
integer(c_int), value :: zaxisID_dummy
end subroutine zaxisDefScalar
function zaxisInqScalar(zaxisID_dummy) bind(c, name = 'zaxisInqScalar')&
& result(f_result)
import c_int
integer(c_int), value :: zaxisID_dummy
integer(c_int) :: f_result
end function zaxisInqScalar
subroutine zaxisDefLtype(zaxisID_dummy, ltype_dummy) bind(c, name =&
& 'zaxisDefLtype')
import c_int
......@@ -5379,6 +5395,68 @@ contains
end do
end subroutine zaxisInqStdname
subroutine zaxisDefPsName(zaxisID_dummy, psname)
integer(c_int), value :: zaxisID_dummy
character(kind = c_char, len = *), optional, intent(in) :: psname
character(kind = c_char), allocatable, target :: psname_temp(:)
integer :: psname_i
type(c_ptr) :: psname_cptr
interface
subroutine lib_zaxisDefPsName(zaxisID_dummy, psname) bind(c, name =&
& 'zaxisDefPsName')
import c_int, c_ptr
integer(c_int), value :: zaxisID_dummy
type(c_ptr), value :: psname
end subroutine lib_zaxisDefPsName
end interface
if (present(psname)) then
allocate(psname_temp(len(psname) + 1))
psname_temp(len(psname) + 1) = c_null_char
do psname_i = len(psname), 1, -1
if(psname(psname_i:psname_i) /= ' ') exit
psname_temp(psname_i) = c_null_char
end do
do psname_i = psname_i, 1, -1
psname_temp(psname_i) = psname(psname_i:psname_i)
end do
psname_cptr = c_loc(psname_temp)
else
psname_cptr = c_null_ptr
end if
call lib_zaxisDefPsName(zaxisID_dummy, psname_cptr)
end subroutine zaxisDefPsName
subroutine zaxisInqPsName(zaxisID_dummy, psname_dummy)
integer(c_int), value :: zaxisID_dummy
character(kind = c_char, len = *), intent(inout) :: psname_dummy
character(kind = c_char) :: psname_temp(len(psname_dummy) + 1)
integer :: psname_i
interface
subroutine lib_zaxisInqPsName(zaxisID_dummy, psname_dummy) bind(c, name =&
& 'zaxisInqPsName')
import c_char, c_int
integer(c_int), value :: zaxisID_dummy
character(kind = c_char) :: psname_dummy(*)
end subroutine lib_zaxisInqPsName
end interface
psname_temp(len(psname_dummy) + 1) = c_null_char
do psname_i = len(psname_dummy), 1, -1
if(psname_dummy(psname_i:psname_i) /= ' ') exit
psname_temp(psname_i) = c_null_char
end do
do psname_i = psname_i, 1, -1
psname_temp(psname_i) = psname_dummy(psname_i:psname_i)
end do
call lib_zaxisInqPsName(zaxisID_dummy, psname_temp)
do psname_i = 1, len(psname_dummy)
if(psname_temp(psname_i) == c_null_char) exit
psname_dummy(psname_i:psname_i) = psname_temp(psname_i)
end do
do psname_i = psname_i, len(psname_dummy)
psname_dummy(psname_i:psname_i) = ' '
end do
end subroutine zaxisInqPsName
function zaxisInqLbounds(zaxisID_dummy, lbounds) result(f_result)
integer(c_int) :: f_result
integer(c_int), value :: zaxisID_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