! -*- f90 -*- python module tmd ! in interface ! in :tmd subroutine tmd(rat,ndistr,axmax,npnax,b,gam,nkmax,eps,np,lam,mrr,mri,ddelt,npna,ndgs,r1rat,r2rat,quiet,reff,veff,cext,csca,walb,asymm,f11,f22,f33,f44,f12,f34,errmsg) ! in :tmd:tmd.subs.f real*8 :: rat integer :: ndistr real*8 :: axmax integer :: npnax real*8 :: b real*8 :: gam integer :: nkmax real*8 :: eps integer :: np real*8 :: lam real*8 :: mrr real*8 :: mri real*8 :: ddelt integer :: npna integer :: ndgs real*8 :: r1rat real*8 :: r2rat integer :: quiet real*8 intent(out) :: reff real*8 intent(out) :: veff real*8 intent(out) :: cext real*8 intent(out) :: csca real*8 intent(out) :: walb real*8 intent(out) :: asymm real*8 dimension(npna),intent(out),depend(npna) :: f11 real*8 dimension(npna),intent(out),depend(npna) :: f22 real*8 dimension(npna),intent(out),depend(npna) :: f33 real*8 dimension(npna),intent(out),depend(npna) :: f44 real*8 dimension(npna),intent(out),depend(npna) :: f12 real*8 dimension(npna),intent(out),depend(npna) :: f34 character*100 intent(out) :: errmsg integer :: ichoice real*4 dimension(81,80,80) :: rt11 real*4 dimension(81,80,80) :: rt12 real*4 dimension(81,80,80) :: rt21 real*4 dimension(81,80,80) :: rt22 real*4 dimension(81,80,80) :: it11 real*4 dimension(81,80,80) :: it12 real*4 dimension(81,80,80) :: it21 real*4 dimension(81,80,80) :: 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 tmd end interface end python module tmd ! This file was auto-generated with f2py (version:2.32.225-1419). ! See http://cens.ioc.ee/projects/f2py2e/