NAME
RadTrans
SYNOPSIS
call RadTrans( integer(IN) :: nblk,
integer(IN) :: blklst(nblk),
real(IN) :: dt,
optional, integer(IN) :: pass)
DESCRIPTION
This subroutine performs the radiatiative transfer calculation
for this step.
ARGUMENTS
nblk : The number of blocks in the list blklst : The list of blocks on which the solution must be updated dt : The time step pass : Reverses direction of solve