subroutine init_itv_7 !! <LI> ( 7) rnbeam use numerics, only: lablxc, boundl, boundu implicit none lablxc(7) = 'rnbeam ' boundl(7) = 1.00D-6 boundu(7) = 1.000D0 end subroutine init_itv_7