TEXT pcseptst.f
  TEXT pzseptst.f