Fixed print of dipol with ifort/charmm