subroutine init_itv_18 !! <LI> (18) q use numerics, only: lablxc, boundl, boundu implicit none lablxc(18) = 'q ' boundl(18) = 2.000D0 boundu(18) = 50.00D0 end subroutine init_itv_18