Commit c8eff49a authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

F90 interface update.

parent 1190cca0
......@@ -4,7 +4,7 @@
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, August 2019
! Uwe Schulzweida, MPI-MET, Hamburg, October 2019
!
INTEGER CDI_MAX_NAME
......
......@@ -2325,16 +2325,16 @@ module mo_cdi
integer(c_size_t) :: f_result
end function gridInqYboundsPart
subroutine gridDefReducedPoints(gridID_dummy, reducedPointsSize_dummy, reducedPoints_dummy) bind(c,&
& name = 'gridDefReducedPoints')
subroutine gridDefReducedPoints(gridID_dummy, reducedPointsSize_dummy,&
& reducedPoints_dummy) bind(c, name = 'gridDefReducedPoints')
import c_int
integer(c_int), value :: gridID_dummy
integer(c_int), value :: reducedPointsSize_dummy
integer(c_int), intent(in) :: reducedPoints_dummy(*)
end subroutine gridDefReducedPoints
subroutine gridInqReducedPoints(gridID_dummy, reducedPoints_dummy) bind(c, name =&
& 'gridInqReducedPoints')
subroutine gridInqReducedPoints(gridID_dummy, reducedPoints_dummy) bind(c,&
& name = 'gridInqReducedPoints')
import c_int
integer(c_int), value :: gridID_dummy
integer(c_int), intent(inout) :: reducedPoints_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