Fokker-Planck code for the quasi-linear absorption of electron cyclotron waves in a tokamak plasma