!     -*- f90 -*-
!     This file is autogenerated with f2py (version:2.2.0.dev0+git20241104.531a694)
!     It contains Fortran 90 wrappers to fortran functions.

      
      subroutine f2pyinittypes(f2pysetupfunc)
      use types, only : int32
      use types, only : int64
      use types, only : real64
      external f2pysetupfunc
      call f2pysetupfunc(int32,int64,real64)
      end subroutine f2pyinittypes

      subroutine f2py_lanedata_getdims_theta(r,s,f2pysetdata,flag)
      use lanedata, only: d => theta

      integer flag
      external f2pysetdata
      logical ns
      integer r,i
      integer(8) s(*)
      ns = .FALSE.
      if (allocated(d)) then
         do i=1,r
            if ((size(d,i).ne.s(i)).and.(s(i).ge.0)) then
               ns = .TRUE.
            end if
         end do
         if (ns) then
            deallocate(d)
         end if
      end if
      if ((.not.allocated(d)).and.(s(1).ge.1)) then
       allocate(d(s(1),s(2)))
      end if
      if (allocated(d)) then
         do i=1,r
            s(i) = size(d,i)
         end do
      end if
      flag = 1
      call f2pysetdata(d,allocated(d))
      end subroutine f2py_lanedata_getdims_theta
      
      subroutine f2pyinitlanedata(f2pysetupfunc)
      use lanedata, only : maxdata
      use lanedata, only : theta
      use lanedata, only : ndata
      external f2pysetupfunc
      external f2py_lanedata_getdims_theta
      call f2pysetupfunc(maxdata,f2py_lanedata_getdims_theta,ndata)
      end subroutine f2pyinitlanedata