subroutine init_itv_69 !! <LI> (69) rcool use numerics, only: lablxc, boundl, boundu implicit none lablxc(69) = 'rcool ' boundl(69) = 0.001D0 boundu(69) = 0.010D0 end subroutine init_itv_69