All Classes Files Functions Variables
two_rt_sw.f File Reference

Go to the source code of this file.


subroutine two_rt_sw (ncol, nlm, mbs, ib, slr, amu0, wc, asym, tau, asdir, asdif, fudif, fddir, fddif, sel_rules)

Function/Subroutine Documentation

subroutine two_rt_sw ( integer (kind=int_kind), intent(in)  ncol,
integer (kind=int_kind), intent(in)  nlm,
integer (kind=int_kind), intent(in)  mbs,
integer (kind=int_kind), intent(in)  ib,
real (kind=dbl_kind), dimension(ncol), intent(in)  slr,
real (kind=dbl_kind), dimension(ncol), intent(in)  amu0,
real (kind=dbl_kind), dimension(ncol,nlm), intent(in)  wc,
real (kind=dbl_kind), dimension(ncol,nlm), intent(in)  asym,
real (kind=dbl_kind), dimension(ncol,nlm), intent(in)  tau,
real (kind=dbl_kind), dimension(ncol,mbs), intent(in)  asdir,
real (kind=dbl_kind), dimension(ncol,mbs), intent(in)  asdif,
real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out)  fudif,
real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out)  fddir,
real (kind=dbl_kind), dimension(ncol,nlm+1), intent(out)  fddif,
logical (kind=log_kind), intent(in)  sel_rules 

Definition at line 12 of file two_rt_sw.f.