Minimal aesthethical changes in transbase.f