subroutine init_itv_4 !! <LI> ( 4) te use numerics, only: lablxc, boundl, boundu implicit none lablxc(4) = 'te ' boundl(4) = 5.000D0 boundu(4) = 150.0D0 end subroutine init_itv_4