subroutine init_itv_70 !! <LI> (70) vcool use numerics, only: lablxc, boundl, boundu implicit none lablxc(70) = 'vcool ' boundl(70) = 1.000D0 boundu(70) = 1.000D2 end subroutine init_itv_70