subroutine init_itv_14 !! <LI> (14) fwalld (f-value for equation 8) use numerics, only: lablxc, boundl, boundu implicit none lablxc(14) = 'fwalld ' boundl(14) = 0.001D0 boundu(14) = 1.000D0 end subroutine init_itv_14