subroutine init_itv_66 !! <LI> (66) ftohs (f-value for equation 41) use numerics, only: lablxc, boundl, boundu implicit none lablxc(66) = 'ftohs ' boundl(66) = 0.001D0 boundu(66) = 1.000D0 end subroutine init_itv_66