cdilib.c update

src/mo_cdi.f90

 ! >>> 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