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

Update generated sources.

parent 1d6e2bcd
......@@ -1947,6 +1947,15 @@
! (INTEGER gridID)
EXTERNAL gridInqUvRelativeToGrid
! gridDefScanningMode
! (INTEGER gridID,
! INTEGER mode)
EXTERNAL gridDefScanningMode
INTEGER gridInqScanningMode
! (INTEGER gridID)
EXTERNAL gridInqScanningMode
!
! ZAXIS routines
!
......
......@@ -415,6 +415,8 @@ FCALLSCSUB2 (gridDefComplexPacking, GRIDDEFCOMPLEXPACKING, griddefcomplexpacking
FCALLSCFUN1 (INT, gridInqComplexPacking, GRIDINQCOMPLEXPACKING, gridinqcomplexpacking, INT)
FCALLSCSUB2 (gridDefUvRelativeToGrid, GRIDDEFUVRELATIVETOGRID, griddefuvrelativetogrid, INT, INT)
FCALLSCFUN1 (INT, gridInqUvRelativeToGrid, GRIDINQUVRELATIVETOGRID, gridinquvrelativetogrid, INT)
FCALLSCSUB2 (gridDefScanningMode, GRIDDEFSCANNINGMODE, griddefscanningmode, INT, INT)
FCALLSCFUN1 (INT, gridInqScanningMode, GRIDINQSCANNINGMODE, gridinqscanningmode, INT)
/* ZAXIS routines */
......
......@@ -545,6 +545,8 @@ module mo_cdi
public :: gridInqComplexPacking
public :: gridDefUvRelativeToGrid
public :: gridInqUvRelativeToGrid
public :: gridDefScanningMode
public :: gridInqScanningMode
public :: zaxisName
public :: zaxisNamePtr
public :: zaxisCreate
......@@ -2247,6 +2249,20 @@ module mo_cdi
integer(c_int) :: f_result
end function gridInqUvRelativeToGrid
subroutine gridDefScanningMode(gridID_dummy, mode_dummy) bind(c, name =&
& 'gridDefScanningMode')
import c_int
integer(c_int), value :: gridID_dummy
integer(c_int), value :: mode_dummy
end subroutine gridDefScanningMode
function gridInqScanningMode(gridID_dummy) bind(c, name =&
& 'gridInqScanningMode') result(f_result)
import c_int
integer(c_int), value :: gridID_dummy
integer(c_int) :: f_result
end function gridInqScanningMode
function zaxisCreate(zaxistype_dummy, size_dummy) bind(c, name =&
& 'zaxisCreate') result(f_result)
import c_int
......
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