subroutine init_itv_81 !! <LI> (81) edrive use numerics, only: lablxc, boundl, boundu implicit none lablxc(81) = 'edrive ' boundl(81) = 1.000d5 boundu(81) = 5.000d7 end subroutine init_itv_81