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