c write (9,'(3i5,f10.5)') i,(iparm,potE(i,iparm),iparm=1,nParmSet)
do iparm=1,nParmSet
#ifdef DEBUG
- write (iout,'(2i5,21f8.2)') i,iparm,
- & (enetb(k,i,iparm),k=1,22)
+ write (iout,'(2i5,31f8.2)') i,iparm,
+ & (enetb(k,i,iparm),k=1,n_ene)
#endif
call restore_parm(iparm)
#ifdef DEBUG