subroutine init_itv_65 !! <LI> (65) tohs use numerics, only: lablxc, boundl, boundu implicit none lablxc(65) = 'tohs ' boundl(65) = 0.100D0 boundu(65) = 1.000D3 end subroutine init_itv_65