Commit eb6bf2ec authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

fixup for r3492

parent bd20b0f5
! >>> 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
......@@ -205,7 +205,6 @@ module mo_cdi
end type t_CdiGribIterator
public cdiReset
public cdiStringError
public cdiGetStringError
public cdiDebug
public cdiLibraryVersion
public cdiPrintVersion
......@@ -676,39 +675,6 @@ contains
end if
end function cdiStringError
subroutine cdiGetStringError(vlistID_dummy, name_dummy)
integer(c_int), value :: vlistID_dummy
character(kind = c_char, len = *), intent(inout) :: name_dummy
character(kind = c_char) :: name_temp(len(name_dummy))
integer :: name_i
logical :: name_padding = .true.
interface
subroutine lib_cdiGetStringError(vlistID_dummy, name_dummy) bind(c, name = 'cdiGetStringError')
import c_char, c_int
integer(c_int), value :: vlistID_dummy
character(kind = c_char) :: name_dummy(*)
end subroutine lib_cdiGetStringError
end interface
do name_i = len(name_dummy), 1, -1
if(name_dummy(name_i:name_i) /= ' ') name_padding = .false.
if(name_padding) then
name_temp(name_i) = c_null_char
else
name_temp(name_i) = name_dummy(name_i:name_i)
end if
end do
call lib_cdiGetStringError(vlistID_dummy, name_temp)
name_padding = .false.
do name_i = 1, len(name_dummy)
if(name_temp(name_i) == c_null_char) name_padding = .true.
if(name_padding) then
name_dummy(name_i:name_i) = ' '
else
name_dummy(name_i:name_i) = name_temp(name_i)
end if
end do
end subroutine cdiGetStringError
subroutine cdiDebug(debug_dummy)
integer(c_int), value :: debug_dummy
interface
......
Supports Markdown
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