fitacf_acf2.pyf
70 lines
| 2.5 KiB
| text/plain
|
TextLexer
| r1601 | ! -*- f90 -*- | |||
| ! Note: the context of this file is case sensitive. | ||||
| python module fitacf_acf2 ! in | ||||
| interface ! in :fitacf_acf2 | ||||
| r1648 | subroutine acf2(wl,tau,te1,ti1,fi1,ven1,vin1,wi1,nion1,alpha1,dens1,bfld1,acf) ! in :fitacf_acf2:fitacf.f | |||
| r1601 | real intent(in):: wl | |||
| real intent(in):: tau | ||||
| real intent(in):: te1 | ||||
| real intent(in),dimension(nion1) :: ti1 | ||||
| real intent(in),dimension(nion1),depend(nion1) :: fi1 | ||||
| real intent(in):: ven1 | ||||
| real intent(in),dimension(nion1),depend(nion1) :: vin1 | ||||
| integer intent(in),dimension(nion1),depend(nion1) :: wi1 | ||||
| integer intent(in), optional,check(len(ti1)>=nion1),depend(ti1) :: nion1=len(ti1) | ||||
| real intent(in):: alpha1 | ||||
| real intent(in):: dens1 | ||||
| real intent(in):: bfld1 | ||||
| real intent(in,out):: acf | ||||
| real :: te | ||||
| real dimension(10) :: ti | ||||
| real dimension(10) :: fi | ||||
| real :: ven | ||||
| real dimension(10) :: vin | ||||
| real :: alpha | ||||
| real :: dens | ||||
| real :: bfld | ||||
| integer :: nion | ||||
| integer dimension(10) :: wi | ||||
| real :: ak | ||||
| common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak | ||||
| end subroutine acf2 | ||||
| function spect1(omega) ! in :fitacf_fit_short:fitacf.f | ||||
| real :: omega | ||||
| real :: te | ||||
| real dimension(10) :: ti | ||||
| real dimension(10) :: fi | ||||
| real :: ven | ||||
| real dimension(10) :: vin | ||||
| real :: alpha | ||||
| real :: dens | ||||
| real :: bfld | ||||
| integer :: nion | ||||
| integer dimension(10) :: wi | ||||
| real :: ak | ||||
| integer :: imode | ||||
| real :: spect1 | ||||
| common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak | ||||
| common /mode/ imode | ||||
| end function spect1 | ||||
| subroutine gaussq(tau,acf) ! in :fitacf_fit_short:fitacf.f | ||||
| real :: tau | ||||
| real :: acf | ||||
| real :: te | ||||
| real dimension(10) :: ti | ||||
| real dimension(10) :: fi | ||||
| real :: ven | ||||
| real dimension(10) :: vin | ||||
| real :: alpha | ||||
| real :: dens | ||||
| real :: bfld | ||||
| integer :: nion | ||||
| integer dimension(10) :: wi | ||||
| real :: ak | ||||
| common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak | ||||
| end interface | ||||
| end python module fitacf_acf2 | ||||
| ! This file was auto-generated with f2py (version:2). | ||||
| ! See http://cens.ioc.ee/projects/f2py2e/ | ||||
