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