Tomographical code for tokamaks