subroutine init_itv_85 !! <LI> (85) pdrive use numerics, only: lablxc, boundl, boundu implicit none lablxc(85) = 'pdrive ' boundl(85) = 1.000D6 boundu(85) = 200.0D6 end subroutine init_itv_85