two_rt_sw.f File Reference

Go to the source code of this file.

Functions/Subroutines
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.