bug in constnt.f