subroutine init_itv_75 !! <LI> (75) tfootfi use numerics, only: lablxc, boundl, boundu implicit none lablxc(75) = 'tfootfi ' boundl(75) = 0.200D0 boundu(75) = 5.000D0 end subroutine init_itv_75