Theory and calculation of current profile control near rational surfaces in a tokamak by electron cyclotron waves