##// END OF EJS Templates
schain
RSS
fix line 461 y 665
fix line 461 y 665
rflores - - Load All Authors

File last commit:

r1601:3b2826fe0d97
r1791:e4984c469c9f isr
Show More
full_profile.pyf
765 lines | 31.2 KiB | text/plain | TextLexer
/ schainf / Ffiles / full_profile.pyf
History | Source | Raw |Copy content |Copy permalink
rflores
add Ffiles
 r1601 ! -*- f90 -*-
! Note: the context of this file is case sensitive.
python module fdjac2__user__routines
interface fdjac2_user_interface
subroutine fcn(m,n,x,wa,iflag) ! in :full_profile:lmdif1.f:fdjac2:unknown_interface
integer, optional,check(len(wa)>=m),depend(wa) :: m=len(wa)
integer, optional,check(len(x)>=n),depend(x) :: n=len(x)
real dimension(n) :: x
real dimension(m) :: wa
integer :: iflag
end subroutine fcn
end interface fdjac2_user_interface
end python module fdjac2__user__routines
python module lmdif__user__routines
interface lmdif_user_interface
subroutine fcn(m,n,x,fvec,iflag) ! in :full_profile:lmdif1.f:lmdif:unknown_interface
integer, optional,check(len(fvec)>=m),depend(fvec) :: m=len(fvec)
integer, optional,check(len(x)>=n),depend(x) :: n=len(x)
real dimension(n) :: x
real dimension(m) :: fvec
integer :: iflag
end subroutine fcn
end interface lmdif_user_interface
end python module lmdif__user__routines
python module full_profile ! in
interface ! in :full_profile
subroutine nnlswrap(power,sigma,temp,perror,ut,nhts) ! in :full_profile:full_profile.f
real dimension(nhts) :: power
real dimension(512) :: sigma
real dimension(512) :: temp
real dimension(512) :: perror
real :: ut
integer, optional,check(len(power)>=nhts),depend(power) :: nhts=len(power)
end subroutine nnlswrap
subroutine profile(acf_sum,acf_err,power,en,alag,thb2,bfm2,ote,ete,oti,eti,oph,eph,ophe,ephe,range2,ut,nhts,nacf,ibits,acf_avg,status) ! in :full_profile:full_profile.f
complex dimension(4,nhts,ibits) :: acf_sum
real dimension(nhts,ibits),depend(nhts,ibits) :: acf_err
real dimension(nhts),depend(nhts) :: power
real dimension(nhts),depend(nhts) :: en
real dimension(ibits),depend(ibits) :: alag
real dimension(nhts),depend(nhts) :: thb2
real dimension(nhts),depend(nhts) :: bfm2
real dimension(nacf),depend(nacf) :: ote
real dimension(nacf),depend(nacf) :: ete
real dimension(nacf),depend(nacf) :: oti
real dimension(nacf),depend(nacf) :: eti
real dimension(nacf),depend(nacf) :: oph
real dimension(nacf),depend(nacf) :: eph
real dimension(nacf),depend(nacf) :: ophe
real dimension(nacf),depend(nacf) :: ephe
real dimension(nhts),depend(nhts) :: range2
real :: ut
integer, optional,check(shape(acf_sum,1)==nhts),depend(acf_sum) :: nhts=shape(acf_sum,1)
integer :: nacf
integer, optional,check(shape(acf_sum,2)==ibits),depend(acf_sum) :: ibits=shape(acf_sum,2)
complex dimension(nhts,ibits),depend(nhts,ibits) :: acf_avg
real :: status
real :: chi2
real dimension(91) :: densp
real dimension(91) :: tep
real dimension(91) :: trp
real dimension(91) :: tip
real dimension(91) :: hfp
real dimension(91) :: hefp
real dimension(91) :: altp
real :: r0
real :: dr
real :: wl
real dimension(16,91) :: plag
real dimension(16,91) :: plag_errors
real :: sconst
real dimension(91) :: edensp
real dimension(91) :: etep
real dimension(91) :: etip
real dimension(91) :: ehfp
real dimension(91) :: ehefp
real dimension(85) :: bfld_prof
real dimension(85) :: alpha_prof
integer :: imode
real :: uttime
real dimension(34) :: ta
real dimension(30,5) :: bcoef
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 /chisq/ chi2
common /fpa/ densp,tep,trp,tip,hfp,hefp,altp,r0,dr,wl
common /data/ plag,plag_errors
common /sys/ sconst
common /errs/ edensp,etep,etip,ehfp,ehefp
common /mag/ bfld_prof,alpha_prof
common /mode/ imode
common /utime/ uttime
common /spline/ ta,bcoef
common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak
end subroutine profile
subroutine grid ! in :full_profile:full_profile.f
real dimension(34) :: ta
real dimension(30,5) :: bcoef
real dimension(91) :: densp
real dimension(91) :: tep
real dimension(91) :: trp
real dimension(91) :: tip
real dimension(91) :: hfp
real dimension(91) :: hefp
real dimension(91) :: altp
real :: r0
real :: dr
real :: wl
real dimension(16,91) :: plag
real dimension(16,91) :: plag_errors
real :: sconst
real dimension(91) :: edensp
real dimension(91) :: etep
real dimension(91) :: etip
real dimension(91) :: ehfp
real dimension(91) :: ehefp
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
real :: chi2
real :: uttime
common /spline/ ta,bcoef
common /fpa/ densp,tep,trp,tip,hfp,hefp,altp,r0,dr,wl
common /data/ plag,plag_errors
common /sys/ sconst
common /errs/ edensp,etep,etip,ehfp,ehefp
common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak
common /chisq/ chi2
common /utime/ uttime
end subroutine grid
subroutine propagate(xe) ! in :full_profile:full_profile.f
real dimension(150) :: xe
real dimension(91) :: densp
real dimension(91) :: tep
real dimension(91) :: trp
real dimension(91) :: tip
real dimension(91) :: hfp
real dimension(91) :: hefp
real dimension(91) :: altp
real :: r0
real :: dr
real :: wl
real dimension(16,91) :: plag
real dimension(16,91) :: plag_errors
real :: sconst
real dimension(91) :: edensp
real dimension(91) :: etep
real dimension(91) :: etip
real dimension(91) :: ehfp
real dimension(91) :: ehefp
real dimension(34) :: ta
real dimension(30,5) :: bcoef
common /fpa/ densp,tep,trp,tip,hfp,hefp,altp,r0,dr,wl
common /data/ plag,plag_errors
common /sys/ sconst
common /errs/ edensp,etep,etip,ehfp,ehefp
common /spline/ ta,bcoef
end subroutine propagate
subroutine fcn_lpreg(m,n,x,fvec,iflag) ! in :full_profile:full_profile.f
integer, optional,check(len(fvec)>=m),depend(fvec) :: m=len(fvec)
integer, optional,check(len(x)>=n),depend(x) :: n=len(x)
real dimension(n) :: x
real dimension(m) :: fvec
integer :: iflag
real dimension(34) :: ta
real dimension(30,5) :: bcoef
real dimension(91) :: densp
real dimension(91) :: tep
real dimension(91) :: trp
real dimension(91) :: tip
real dimension(91) :: hfp
real dimension(91) :: hefp
real dimension(91) :: altp
real :: r0
real :: dr
real :: wl
real dimension(16,91) :: plag
real dimension(16,91) :: plag_errors
real :: sconst
real dimension(91) :: edensp
real dimension(91) :: etep
real dimension(91) :: etip
real dimension(91) :: ehfp
real dimension(91) :: ehefp
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
real :: chi2
real :: uttime
common /spline/ ta,bcoef
common /fpa/ densp,tep,trp,tip,hfp,hefp,altp,r0,dr,wl
common /data/ plag,plag_errors
common /sys/ sconst
common /errs/ edensp,etep,etip,ehfp,ehefp
common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak
common /chisq/ chi2
common /utime/ uttime
end subroutine fcn_lpreg
subroutine get_scale(plag2) ! in :full_profile:full_profile.f
real dimension(16,75) :: plag2
real dimension(91) :: densp
real dimension(91) :: tep
real dimension(91) :: trp
real dimension(91) :: tip
real dimension(91) :: hfp
real dimension(91) :: hefp
real dimension(91) :: altp
real :: r0
real :: dr
real :: wl
real dimension(16,91) :: plag
real dimension(16,91) :: plag_errors
real :: sconst
real dimension(91) :: edensp
real dimension(91) :: etep
real dimension(91) :: etip
real dimension(91) :: ehfp
real dimension(91) :: ehefp
common /fpa/ densp,tep,trp,tip,hfp,hefp,altp,r0,dr,wl
common /data/ plag,plag_errors
common /sys/ sconst
common /errs/ edensp,etep,etip,ehfp,ehefp
end subroutine get_scale
subroutine lagp(plag,wl,r0,dr,nl,nrange) ! in :full_profile:lagp.f
real dimension(nl,nrange) :: plag
real :: wl
real :: r0
real :: dr
integer, optional,check(shape(plag,0)==nl),depend(plag) :: nl=shape(plag,0)
integer, optional,check(shape(plag,1)==nrange),depend(plag) :: nrange=shape(plag,1)
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
real dimension(34) :: ta
real dimension(30,5) :: bcoef
real dimension(85) :: bfld_prof
real dimension(85) :: alpha_prof
common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak
common /spline/ ta,bcoef
common /mag/ bfld_prof,alpha_prof
end subroutine lagp
subroutine lagp_old(plag,wl,r0,dr,nl,nrange) ! in :full_profile:lagp.f
real dimension(nl,nrange) :: plag
real :: wl
real :: r0
real :: dr
integer, optional,check(shape(plag,0)==nl),depend(plag) :: nl=shape(plag,0)
integer, optional,check(shape(plag,1)==nrange),depend(plag) :: nrange=shape(plag,1)
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
real dimension(34) :: ta
real dimension(30,5) :: bcoef
real dimension(85) :: bfld_prof
real dimension(85) :: alpha_prof
common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak
common /spline/ ta,bcoef
common /mag/ bfld_prof,alpha_prof
end subroutine lagp_old
function atanh(x) ! in :full_profile:lagp.f
real :: x
real :: atanh
end function atanh
subroutine get_spline(alt,dens,te,ti,hf,hef) ! in :full_profile:lagp.f
real :: alt
real :: dens
real :: te
real :: ti
real :: hf
real :: hef
real dimension(34) :: ta
real dimension(30,5) :: bcoef
common /spline/ ta,bcoef
end subroutine get_spline
function bvalue(t,bcoef,n,k,x,jderiv) ! in :full_profile:lagp.f
real dimension(n+k),depend(n,k) :: t
real dimension(n) :: bcoef
integer, optional,check(len(bcoef)>=n),depend(bcoef) :: n=len(bcoef)
integer :: k
real :: x
integer :: jderiv
real :: bvalue
end function bvalue
subroutine interv(xt,lxt,x,left,mflag) ! in :full_profile:lagp.f
real dimension(lxt) :: xt
integer, optional,check(len(xt)>=lxt),depend(xt) :: lxt=len(xt)
real :: x
integer :: left
integer :: mflag
end subroutine interv
subroutine lmdif1(fcn,m,n,x,fvec,tol,info,iwa,wa,lwa) ! in :full_profile:lmdif1.f
use lmdif__user__routines
external fcn
integer, optional,check(len(fvec)>=m),depend(fvec) :: m=len(fvec)
integer, optional,check(len(x)>=n),depend(x) :: n=len(x)
real dimension(n) :: x
real dimension(m) :: fvec
real :: tol
integer :: info
integer dimension(n),depend(n) :: iwa
real dimension(lwa) :: wa
integer, optional,check(len(wa)>=lwa),depend(wa) :: lwa=len(wa)
end subroutine lmdif1
function enorm(n,x) ! in :full_profile:lmdif1.f
integer, optional,check(len(x)>=n),depend(x) :: n=len(x)
real dimension(n) :: x
real :: enorm
end function enorm
subroutine fdjac2(fcn,m,n,x,fvec,fjac,ldfjac,iflag,epsfcn,wa) ! in :full_profile:lmdif1.f
use fdjac2__user__routines
external fcn
integer, optional,check(len(fvec)>=m),depend(fvec) :: m=len(fvec)
integer, optional,check(len(x)>=n),depend(x) :: n=len(x)
real dimension(n) :: x
real dimension(m) :: fvec
real dimension(ldfjac,n),depend(n) :: fjac
integer, optional,check(shape(fjac,0)==ldfjac),depend(fjac) :: ldfjac=shape(fjac,0)
integer :: iflag
real :: epsfcn
real dimension(m),depend(m) :: wa
end subroutine fdjac2
subroutine lmdif(fcn,m,n,x,fvec,ftol,xtol,gtol,maxfev,epsfcn,diag,mode,factor,nprint,info,nfev,fjac,ldfjac,ipvt,qtf,wa1,wa2,wa3,wa4) ! in :full_profile:lmdif1.f
use lmdif__user__routines
external fcn
integer, optional,check(len(fvec)>=m),depend(fvec) :: m=len(fvec)
integer, optional,check(len(x)>=n),depend(x) :: n=len(x)
real dimension(n) :: x
real dimension(m) :: fvec
real :: ftol
real :: xtol
real :: gtol
integer :: maxfev
real :: epsfcn
real dimension(n),depend(n) :: diag
integer :: mode
real :: factor
integer :: nprint
integer :: info
integer :: nfev
real dimension(ldfjac,n),depend(n) :: fjac
integer, optional,check(shape(fjac,0)==ldfjac),depend(fjac) :: ldfjac=shape(fjac,0)
integer dimension(n),depend(n) :: ipvt
real dimension(n),depend(n) :: qtf
real dimension(n),depend(n) :: wa1
real dimension(n),depend(n) :: wa2
real dimension(n),depend(n) :: wa3
real dimension(m),depend(m) :: wa4
end subroutine lmdif
subroutine lmpar(n,r,ldr,ipvt,diag,qtb,delta,par,x,sdiag,wa1,wa2) ! in :full_profile:lmdif1.f
integer, optional,check(shape(r,1)==n),depend(r) :: n=shape(r,1)
real dimension(ldr,n) :: r
integer, optional,check(shape(r,0)==ldr),depend(r) :: ldr=shape(r,0)
integer dimension(n),depend(n) :: ipvt
real dimension(n),depend(n) :: diag
real dimension(n),depend(n) :: qtb
real :: delta
real :: par
real dimension(n),depend(n) :: x
real dimension(n),depend(n) :: sdiag
real dimension(n),depend(n) :: wa1
real dimension(n),depend(n) :: wa2
end subroutine lmpar
subroutine qrfac(m,n,a,lda,pivot,ipvt,lipvt,rdiag,acnorm,wa) ! in :full_profile:lmdif1.f
integer :: m
integer, optional,check(shape(a,1)==n),depend(a) :: n=shape(a,1)
real dimension(lda,n) :: a
integer, optional,check(shape(a,0)==lda),depend(a) :: lda=shape(a,0)
logical :: pivot
integer dimension(lipvt) :: ipvt
integer, optional,check(len(ipvt)>=lipvt),depend(ipvt) :: lipvt=len(ipvt)
real dimension(n),depend(n) :: rdiag
real dimension(n),depend(n) :: acnorm
real dimension(n),depend(n) :: wa
end subroutine qrfac
subroutine qrsolv(n,r,ldr,ipvt,diag,qtb,x,sdiag,wa) ! in :full_profile:lmdif1.f
integer, optional,check(shape(r,1)==n),depend(r) :: n=shape(r,1)
real dimension(ldr,n) :: r
integer, optional,check(shape(r,0)==ldr),depend(r) :: ldr=shape(r,0)
integer dimension(n),depend(n) :: ipvt
real dimension(n),depend(n) :: diag
real dimension(n),depend(n) :: qtb
real dimension(n),depend(n) :: x
real dimension(n),depend(n) :: sdiag
real dimension(n),depend(n) :: wa
end subroutine qrsolv
function spmpar(i) ! in :full_profile:lmdif1.f
integer :: i
real :: spmpar
end function spmpar
subroutine bndacc(g,mdg,nb,ip,ir,mt,jt) ! in :full_profile:nnls.f
double precision dimension(mdg,*) :: g
integer, optional,check(shape(g,0)==mdg),depend(g) :: mdg=shape(g,0)
integer :: nb
integer :: ip
integer :: ir
integer :: mt
integer :: jt
end subroutine bndacc
subroutine bndsol(mode,g,mdg,nb,ip,ir,x,n,rnorm) ! in :full_profile:nnls.f
integer :: mode
double precision dimension(mdg,*) :: g
integer, optional,check(shape(g,0)==mdg),depend(g) :: mdg=shape(g,0)
integer :: nb
integer :: ip
integer :: ir
double precision dimension(n) :: x
integer, optional,check(len(x)>=n),depend(x) :: n=len(x)
double precision :: rnorm
end subroutine bndsol
function diff(x,y) ! in :full_profile:nnls.f
double precision :: x
double precision :: y
double precision :: diff
end function diff
subroutine g1(a,b,cterm,sterm,sig) ! in :full_profile:nnls.f
double precision :: a
double precision :: b
double precision :: cterm
double precision :: sterm
double precision :: sig
end subroutine g1
subroutine g2(cterm,sterm,x,y) ! in :full_profile:nnls.f
double precision :: cterm
double precision :: sterm
double precision :: x
double precision :: y
end subroutine g2
function gen2(anoise) ! in :full_profile:nnls.f
double precision :: anoise
double precision :: gen2
end function gen2
subroutine h12(mode,lpivot,l1,m,u,iue,up,c,ice,icv,ncv) ! in :full_profile:nnls.f
integer :: mode
integer :: lpivot
integer :: l1
integer :: m
double precision dimension(iue,*) :: u
integer, optional,check(shape(u,0)==iue),depend(u) :: iue=shape(u,0)
double precision :: up
double precision dimension(*) :: c
integer :: ice
integer :: icv
integer :: ncv
end subroutine h12
subroutine hfti(a,mda,m,n,b,mdb,nb,tau,krank,rnorm,h,g,ip) ! in :full_profile:nnls.f
double precision dimension(mda,*) :: a
integer, optional,check(shape(a,0)==mda),depend(a) :: mda=shape(a,0)
integer :: m
integer :: n
double precision dimension(mdb,*) :: b
integer, optional,check(shape(b,0)==mdb),depend(b) :: mdb=shape(b,0)
integer :: nb
double precision :: tau
integer :: krank
double precision dimension(*) :: rnorm
double precision dimension(*) :: h
double precision dimension(*) :: g
integer dimension(*) :: ip
end subroutine hfti
subroutine ldp(g,mdg,m,n,h,x,xnorm,w,index_bn,mode) ! in :full_profile:nnls.f
double precision dimension(mdg,*) :: g
integer, optional,check(shape(g,0)==mdg),depend(g) :: mdg=shape(g,0)
integer :: m
integer :: n
double precision dimension(*) :: h
double precision dimension(*) :: x
double precision :: xnorm
double precision dimension(*) :: w
integer dimension(*) :: index_bn
integer :: mode
end subroutine ldp
subroutine mfeout(a,mda,m,n,names,mode,unit,width) ! in :full_profile:nnls.f
double precision dimension(mda,n) :: a
integer, optional,check(shape(a,0)==mda),depend(a) :: mda=shape(a,0)
integer, optional,check(shape(names,0)==m),depend(names) :: m=shape(names,0)
integer, optional,check(shape(a,1)==n),depend(a) :: n=shape(a,1)
character dimension(m,(*)) :: names
integer :: mode
integer :: unit
integer :: width
end subroutine mfeout
subroutine nnls(a,mda,m,n,b,x,rnorm,w,zz,index_bn,mode) ! in :full_profile:nnls.f
double precision dimension(mda,*) :: a
integer, optional,check(shape(a,0)==mda),depend(a) :: mda=shape(a,0)
integer :: m
integer :: n
double precision dimension(*) :: b
double precision dimension(*) :: x
double precision :: rnorm
double precision dimension(*) :: w
double precision dimension(*) :: zz
integer dimension(*) :: index_bn
integer :: mode
end subroutine nnls
subroutine qrbd(ipass,q,e,nn,v,mdv,nrv,c,mdc,ncc) ! in :full_profile:nnls.f
integer :: ipass
double precision dimension(*) :: q
double precision dimension(*) :: e
integer :: nn
double precision dimension(mdv,*) :: v
integer, optional,check(shape(v,0)==mdv),depend(v) :: mdv=shape(v,0)
integer :: nrv
double precision dimension(mdc,*) :: c
integer, optional,check(shape(c,0)==mdc),depend(c) :: mdc=shape(c,0)
integer :: ncc
end subroutine qrbd
subroutine sva(a,mda,m,n,mdata,b,sing,kpvec,names,iscale,d,work) ! in :full_profile:nnls.f
double precision dimension(mda,n) :: a
integer, optional,check(shape(a,0)==mda),depend(a) :: mda=shape(a,0)
integer, optional,check(len(b)>=m),depend(b) :: m=len(b)
integer, optional,check(shape(a,1)==n),depend(a) :: n=shape(a,1)
integer :: mdata
double precision dimension(m) :: b
double precision dimension(n),depend(n) :: sing
integer dimension(4) :: kpvec
character dimension(n,(*)),intent(c),depend(n) :: names
integer :: iscale
double precision dimension(n),depend(n) :: d
double precision dimension(2 * n),depend(n) :: work
end subroutine sva
subroutine svdrs(a,mda,m1,n1,b,mdb,nb,s,work) ! in :full_profile:nnls.f
double precision dimension(mda,*) :: a
integer, optional,check(shape(a,0)==mda),depend(a) :: mda=shape(a,0)
integer :: m1
integer, optional,check(shape(work,0)==n1),depend(work) :: n1=shape(work,0)
double precision dimension(mdb,*) :: b
integer, optional,check(shape(b,0)==mdb),depend(b) :: mdb=shape(b,0)
integer :: nb
double precision dimension(*) :: s
double precision dimension(n1,2) :: work
end subroutine svdrs
subroutine guess(acf,tau,npts,zero,amin,te,tr) ! in :full_profile:fitacf.f
real dimension(npts) :: acf
real dimension(npts),depend(npts) :: tau
integer, optional,check(len(acf)>=npts),depend(acf) :: npts=len(acf)
real :: zero
real :: amin
real :: te
real :: tr
end subroutine guess
subroutine parab1(x,y,a,b,c) ! in :full_profile:fitacf.f
real dimension(3) :: x
real dimension(3) :: y
real :: a
real :: b
real :: c
end subroutine parab1
function cdtr1(depth) ! in :full_profile:fitacf.f
real :: depth
real :: cdtr1
end function cdtr1
function czte1(zlag,tr) ! in :full_profile:fitacf.f
real :: zlag
real :: tr
real :: czte1
end function czte1
subroutine fit(wl,taup,rhop,covar,cinv,sigma2p,paramp,ebp,bfldp,alphap,densp,alt,time,nl,ifitp,ist) ! in :full_profile:fitacf.f
real :: wl
real dimension(nl) :: taup
real dimension(nl),depend(nl) :: rhop
real dimension(nl,nl),depend(nl,nl) :: covar
real dimension(nl,nl),depend(nl,nl) :: cinv
real dimension(nl),depend(nl) :: sigma2p
real dimension(10) :: paramp
real dimension(10) :: ebp
real :: bfldp
real :: alphap
real :: densp
real :: alt
real :: time
integer, optional,check(len(taup)>=nl),depend(taup) :: nl=len(taup)
integer dimension(10) :: ifitp
integer :: ist
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 dimension(100) :: tau
real dimension(100) :: rho
real dimension(100) :: sigma2
real dimension(10) :: params
integer dimension(10) :: ifit
real dimension(10000) :: ev
common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak
common /mode/ imode
common /fitter/ tau,rho,sigma2,params,ifit
common /trans/ ev
end subroutine fit
subroutine fcn(m,n,x,fvec,iflag) ! in :full_profile:fitacf.f
integer, optional,check(len(fvec)>=m),depend(fvec) :: m=len(fvec)
integer, optional,check(len(x)>=n),depend(x) :: n=len(x)
real dimension(n) :: x
real dimension(m) :: fvec
integer :: iflag
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
real dimension(100) :: tau
real dimension(100) :: rho
real dimension(100) :: sigma2
real dimension(10) :: params
integer dimension(10) :: ifit
real :: chisq
real dimension(10000) :: ev
common /spec/ te,ti,fi,ven,vin,alpha,dens,bfld,nion,wi,ak
common /fitter/ tau,rho,sigma2,params,ifit
common /errs/ chisq
common /trans/ ev
end subroutine fcn
function cj_ion(theta,psi) ! in :full_profile:fitacf.f
real :: theta
real :: psi
complex :: cj_ion
end function cj_ion
function cj_electron(theta,phi,psi,alpha) ! in :full_profile:fitacf.f
real :: theta
real :: phi
real :: psi
real :: alpha
integer :: imode
complex :: cj_electron
common /mode/ imode
end function cj_electron
function y_ion(theta,psi) ! in :full_profile:fitacf.f
real :: theta
real :: psi
complex :: y_ion
end function y_ion
function y_electron(theta,phi,psi,alpha) ! in :full_profile:fitacf.f
real :: theta
real :: phi
real :: psi
real :: alpha
complex :: y_electron
end function y_electron
function spect1(omega) ! in :full_profile: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 acf2(wl,tau,te1,ti1,fi1,ven1,vin1,wi1,nion1,alpha1,dens1,bfld1,acf) ! in :full_profile:fitacf.f
real :: wl
real :: tau
real :: te1
real dimension(nion1) :: ti1
real dimension(nion1),depend(nion1) :: fi1
real :: ven1
real dimension(nion1),depend(nion1) :: vin1
integer dimension(nion1),depend(nion1) :: wi1
integer, optional,check(len(ti1)>=nion1),depend(ti1) :: nion1=len(ti1)
real :: alpha1
real :: dens1
real :: bfld1
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 subroutine acf2
subroutine gaussq(tau,acf) ! in :full_profile: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 subroutine gaussq
function r1mach(i) ! in :full_profile:r1mach.f
integer :: i
integer :: cray1
real :: r1mach
common /d8mach/ cray1
end function r1mach
end interface
end python module full_profile
! This file was auto-generated with f2py (version:2).
! See http://cens.ioc.ee/projects/f2py2e/