subroutine init_itv_10 !! <LI> (10) hfact use numerics, only: lablxc, boundl, boundu implicit none lablxc(10) = 'hfact ' boundl(10) = 0.100D0 boundu(10) = 3.000D0 end subroutine init_itv_10