subroutine init_itv_83 !! <LI> (83) tgain use numerics, only: lablxc, boundl, boundu implicit none lablxc(83) = 'tgain ' boundl(83) = 1.000D0 boundu(83) = 500.0D0 end subroutine init_itv_83