src-M/COMMON.ENERGIES

   1       double precision potE(MaxStr_Proc,Max_Parm),entfac(MaxStr_Proc),
   2      & q(MaxQ+2,MaxStr_Proc),enetb(max_ene,MaxStr_Proc,Max_Parm)
   3       integer einicheck
   4       common /energies/ potE,entfac,q,enetb,einicheck