| ! -*- 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 | |