Changed elemse.for to read soutype.dat