! File c_code.pyf
python module c_library
interface
  subroutine findrfc(y1, hmin, ind, n, info) 
    intent(c) findrfc              ! findrfc is a C function
    intent(c)                     ! all findrfc arguments are considered as C based                                  
    integer intent(hide), depend(y1) :: n=len(y1)
	double precision dimension(n), intent(in) :: y1    ! input array 
	double precision intent(in) :: hmin    
    integer dimension(n), intent(out) :: ind         ! output array,
	integer dimension(1), intent(out) :: info
  end subroutine findrfc
  subroutine findcross(y, v, ind, n, info)
    intent(c) findcross           ! findcross is a C function
    intent(c)                     ! all findcross arguments are considered as C based                                  
    integer intent(hide), depend(y) :: n=len(y)
	double precision dimension(n), intent(in) :: y    ! input array 
	double precision intent(in) :: v    
    integer dimension(n), intent(out) :: ind         ! output array,
	integer dimension(1),intent(out) :: info
  end subroutine findcross
  subroutine disufq(rvec, ivec, rA, iA, w, kw, h, g,nmin,nmax, m, n)
    intent(c) disufq              ! disufq is a C function
    intent(c)                     ! all disufq arguments are considered as C based                                  
    !integer intent(hide), depend(rA),check(n*m==len(iA)) :: n=len(rA)/m
	!integer intent(hide), depend(rA), check(m==shape(iA,1)) :: m=shape(rA,1)
    double precision dimension(n*m), intent(in) :: rA, iA    ! input array 
	double precision dimension(n/2+1), intent(in) :: w, kw    ! input array 
	double precision intent(in) :: h, g    
	integer intent(in) :: nmin, nmax
    double precision dimension(n*m), intent(out) :: rvec, ivec         ! output array,                              
  end subroutine disufq
  subroutine disufq2(rsvec, isvec,rdvec, idvec, rA, iA, w, kw, h, g,nmin,nmax, m, n)
    intent(c) disufq2              ! disufq2 is a C function
    intent(c)                     ! all disufq2 arguments are considered as C based                                  
    !integer intent(hide), depend(rA),check(n*m==len(iA)) :: n=len(rA)/m
	!integer intent(hide), depend(rA), check(m==shape(iA,1)) :: m=shape(rA,1)
    double precision dimension(n*m), intent(in) :: rA, iA    ! input array 
	double precision dimension(n/2+1), intent(in) :: w, kw    ! input array 
	double precision intent(in) :: h, g    
	integer intent(in) :: nmin, nmax
    double precision dimension(n*m), intent(out) :: rsvec, isvec, rdvec, idvec         ! output array,                                                  
  end subroutine disufq2
end interface
end python module c_library