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