subroutine init_itv_37 !! <LI> (37) coheof use numerics, only: lablxc, boundl, boundu implicit none lablxc(37) = 'coheof ' boundl(37) = 1.000D5 boundu(37) = 1.000D8 end subroutine init_itv_37