!    -*- f90 -*-
! Note: the context of this file is case sensitive.

python module rkfn78__user__routines 
    interface rkfn78_user_interface 
        subroutine fcn(x,y,yp,k) ! in :rkfn78:rkfn78.for:rkfn78:unknown_interface
            intent(in) fcn
            real*8 intent(in) :: x, k
            real*8 dimension(:),intent(inout) :: y, yp
        end subroutine fcn
    end interface rkfn78_user_interface
end python module rkfn78__user__routines
python module rkfn78 ! in 
    interface  ! in :rkfn78
        subroutine rkfn78(n,fcn,x,y,yp,xend,eps,hmax,h) ! in :rkfn78:rkfn78.for
            use rkfn78__user__routines
            integer*4, optional,intent(in),check(len(y)>=n),depend(y) :: n=len(y)
            external fcn
            real*8 intent(in) :: x
            real*8 dimension(n),intent(inout) :: y, yp
            real*8 intent(in) :: xend
            real*8 intent(inout) :: eps
            real*8 intent(inout) :: hmax
            real*8 intent(inout) :: h
            real*8 dimension(13) :: alpha_
            real*8 dimension(13,13) :: beta_
            real*8 dimension(13,13) :: gamma_
            integer*4 :: nfcn
            integer*4 :: nstep
            integer*4 :: naccpt
            integer*4 :: nrejct
            common /crkfn78/ alpha_,beta_,gamma_
            common /stat/ nfcn,nstep,naccpt,nrejct
        end subroutine rkfn78
        subroutine fn78ini ! in :rkfn78:rkfn78.for
            real*8 dimension(13) :: alpha_
            real*8 dimension(13,13) :: beta_
            real*8 dimension(13,13) :: gamma_
            common /crkfn78/ alpha_,beta_,gamma_
        end subroutine fn78ini
    end interface 
end python module rkfn78

! This file was auto-generated with f2py (version:2).
! See http://cens.ioc.ee/projects/f2py2e/