!    -*- f90 -*-
python module tmatrix ! in 
    interface  ! in :tmatrix
        subroutine tmatrix(axi,np,lam,eps,mrr,mri,ddelt,nmax,csca,cext,quiet,errmsg) ! in :tmatrix:tmatrix.subs.f
            real*8 :: axi
            integer :: np
            real*8 :: lam
            real*8 :: eps
            real*8 :: mrr
            real*8 :: mri
            real*8 :: ddelt
            integer intent(out) :: nmax
            real*8 intent(out) :: csca
            real*8 intent(out) :: cext
            integer :: quiet
            integer :: ichoice
            character*100 intent(out) :: errmsg
            real*4 dimension(101,100,100) :: rt11
            real*4 dimension(101,100,100) :: rt12
            real*4 dimension(101,100,100) :: rt21
            real*4 dimension(101,100,100) :: rt22
            real*4 dimension(101,100,100) :: it11
            real*4 dimension(101,100,100) :: it12
            real*4 dimension(101,100,100) :: it21
            real*4 dimension(101,100,100) :: it22
            real*8 dimension(200,200) :: tr1
            real*8 dimension(200,200) :: ti1
            common /choice/ ichoice
            common /tmat/ rt11,rt12,rt21,rt22,it11,it12,it21,it22
            common /ct/ tr1,ti1
        end subroutine tmatrix
        subroutine ampl(nmax,dlam,tl,tl1,pl,pl1,alpha,beta,vv,vh,hv,hh) ! in :tmatrix:tmatrix.subs.f
            integer :: nmax
            real*8 :: dlam
            real*8 :: tl
            real*8 :: tl1
            real*8 :: pl
            real*8 :: pl1
            real*8 :: alpha
            real*8 :: beta
            complex*16 intent(out) :: vv
            complex*16 intent(out) :: vh
            complex*16 intent(out) :: hv
            complex*16 intent(out) :: hh
            real*4 dimension(101,100,100) :: tr11
            real*4 dimension(101,100,100) :: tr12
            real*4 dimension(101,100,100) :: tr21
            real*4 dimension(101,100,100) :: tr22
            real*4 dimension(101,100,100) :: ti11
            real*4 dimension(101,100,100) :: ti12
            real*4 dimension(101,100,100) :: ti21
            real*4 dimension(101,100,100) :: ti22
            common /tmat/ tr11,tr12,tr21,tr22,ti11,ti12,ti21,ti22
        end subroutine ampl
        subroutine ampld(axi,np,lam,eps,alpha,beta,thet0,thet,phi0,phi,mrr,mri,s11,s12,s21,s22) ! in :tmatrix:tmatrix.subs.f
            real*8 :: axi
            integer :: np
            real*8 :: lam
            real*8 :: eps
            real*8 :: alpha
            real*8 :: beta
            real*8 :: thet0
            real*8 :: thet
            real*8 :: phi0
            real*8 :: phi
            real*8 :: mrr
            real*8 :: mri
            complex*16 intent(out) :: s11
            complex*16 intent(out) :: s12
            complex*16 intent(out) :: s21
            complex*16 intent(out) :: s22
            integer :: ichoice
            real*4 dimension(101,100,100) :: rt11
            real*4 dimension(101,100,100) :: rt12
            real*4 dimension(101,100,100) :: rt21
            real*4 dimension(101,100,100) :: rt22
            real*4 dimension(101,100,100) :: it11
            real*4 dimension(101,100,100) :: it12
            real*4 dimension(101,100,100) :: it21
            real*4 dimension(101,100,100) :: it22
            real*8 dimension(200,200) :: tr1
            real*8 dimension(200,200) :: ti1
            common /choice/ ichoice
            common /tmat/ rt11,rt12,rt21,rt22,it11,it12,it21,it22
            common /ct/ tr1,ti1
        end subroutine ampld
        subroutine avgtmatrix(nmax)!in cpd.scatter.subs
          integer::nmax
          real*4 dimension(101,100,100) :: rt11
          real*4 dimension(101,100,100) :: rt12
          real*4 dimension(101,100,100) :: rt21
          real*4 dimension(101,100,100) :: rt22
          real*4 dimension(101,100,100) :: it11
          real*4 dimension(101,100,100) :: it12
          real*4 dimension(101,100,100) :: it21
          real*4 dimension(101,100,100) :: it22
          common /tmat/ rt11,rt12,rt21,rt22,it11,it12,it21,it22
        end subroutine avgtmatrix
        subroutine tmatrixq(axi,np,dlam,deps,dmrr,dmri,ddelt,nmax,csca,cext,quiet,errmsg) ! in tmatrixq.f
          real*8 :: axi
          integer :: np
          real*8 :: dlam
          real*8 :: deps
          real*8 :: dmrr
          real*8 :: dmri
          real*8 :: ddelt
          integer intent(out) :: nmax
          real*8 intent(out) :: csca
          real*8 intent(out) :: cext
          integer :: quiet
          character*100 intent(out) :: errmsg
          integer :: ichoice
          real*4 dimension(101,100,100) :: rt11
          real*4 dimension(101,100,100) :: rt12
          real*4 dimension(101,100,100) :: rt21
          real*4 dimension(101,100,100) :: rt22
          real*4 dimension(101,100,100) :: it11
          real*4 dimension(101,100,100) :: it12
          real*4 dimension(101,100,100) :: it21
          real*4 dimension(101,100,100) :: it22
          real*8 dimension(200,200) :: tr1
          real*8 dimension(200,200) :: ti1
          common /choice/ ichoice
          common /tmat/ rt11,rt12,rt21,rt22,it11,it12,it21,it22
          common /ct/ tr1,ti1
        end subroutine tmatrixq
    end interface 
end python module tmatrix

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