subroutine init_itv_16 !! <LI> (16) ohcth use numerics, only: lablxc, boundl, boundu implicit none lablxc(16) = 'ohcth ' boundl(16) = 0.010D0 boundu(16) = 10.00D0 end subroutine init_itv_16