c call pdbout(totfree(i),16,i)
#ifdef DEBUG
write (iout,*) i," energia",(energia(j),j=0,19)
write (iout,*) "etot", etot
write (iout,*) "ft(6)", ft(6)
c call pdbout(totfree(i),16,i)
#ifdef DEBUG
write (iout,*) i," energia",(energia(j),j=0,19)
write (iout,*) "etot", etot
write (iout,*) "ft(6)", ft(6)