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