replaced amos zbesj.f with cbj0.f