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