subroutine init_itv_13 !! <LI> (13) tfcth (NOT RECOMMENDED) use numerics, only: lablxc, boundl, boundu implicit none lablxc(13) = 'tfcth ' boundl(13) = 0.100D0 boundu(13) = 5.000D0 end subroutine init_itv_13