fixed epskur in inmkur.f