subroutine init_itv_5 !! <LI> ( 5) beta use numerics, only: lablxc, boundl, boundu implicit none lablxc(5) = 'beta ' boundl(5) = 0.001D0 boundu(5) = 1.000D0 end subroutine init_itv_5