jkitchin's picture
Upload folder using huggingface_hub
f5f42f3 verified
! -*- f90 -*-
! Note: the context of this file is case sensitive.
python module teprob ! in
interface ! in :teprob
subroutine teinit(nn,time,yy,yp) ! in :teprob:teprob.f
integer intent(in) :: nn
double precision intent(in) :: time
double precision dimension(50),intent(in,out) :: yy
double precision dimension(50),intent(out) :: yp
end subroutine teinit
subroutine tefunc(nn,time,yy,yp) ! in :teprob:teprob.f
integer intent(in) :: nn
double precision intent(in) :: time
double precision dimension(50),intent(in,out) :: yy
double precision dimension(50),intent(out) :: yp
end subroutine tefunc
function tesub7(i) ! in :teprob:teprob.f
integer intent(in) :: i
double precision :: tesub7
end function tesub7
end interface
! Common blocks to expose to Python
common /pv/ xmeas(41),xmv(12)
double precision dimension(41) :: xmeas
double precision dimension(12) :: xmv
common /dvec/ idv(20)
integer dimension(20) :: idv
common /randsd/ g
double precision :: g
common /flag6/ flag
integer :: flag
common /shutdn/ isd
integer :: isd
end python module teprob