subroutine init_itv_20 !! <LI> (20) tcpav use numerics, only: lablxc, boundl, boundu implicit none lablxc(20) = 'tcpav ' boundl(20) = 40.00D0 boundu(20) = 3.000D2 end subroutine init_itv_20