subroutine init_itv_84 !! <LI> (84) chrad use numerics, only: lablxc, boundl, boundu implicit none lablxc(84) = 'chrad ' boundl(84) = 0.100D0 boundu(84) = 20.00D0 end subroutine init_itv_84