subroutine init_itv_1 !! <LI> ( 1) aspect use numerics, only: lablxc, boundl, boundu implicit none lablxc(1) = 'aspect ' boundl(1) = 1.100D0 boundu(1) = 10.00D0 end subroutine init_itv_1