subroutine init_itv_46 !! <LI> (46) fpinj (f-value for equation 30) use numerics, only: lablxc, boundl, boundu implicit none lablxc(46) = 'fpinj ' boundl(46) = 0.001D0 boundu(46) = 1.000D0 end subroutine init_itv_46