common /epot/ eb,    ebh,    eba,    ea,    eah,    eaa, &
      edih,  edihh,  ediha,  enb,   enbh,   enba, &
      enb14, enb14h, enb14a, eel14, eel14h, eel14a, &
      eel,   econs,  etot,   epol,  e3bod,  ifc