subroutine init_itv_90 !! <LI> (90) blbuith use numerics, only: lablxc, boundl, boundu implicit none lablxc(90) = 'blbuith ' boundl(90) = 0.001D0 boundu(90) = 2.000D0 end subroutine init_itv_90