subroutine init_itv_19 !! <LI> (19) enbeam use numerics, only: lablxc, boundl, boundu implicit none lablxc(19) = 'enbeam ' boundl(19) = 1.000D0 boundu(19) = 1.000D6 end subroutine init_itv_19