C**** isospin parameters
      real piso(4,4), chiso(4), uiso(4)
      common /nucnewprd/ piso, chiso, uiso