write (iout,*) "NaNs detected in some of the energy",
& " components for conformation",ii+1
write (iout,*) "The Cartesian geometry is:"
write (iout,*) "NaNs detected in some of the energy",
& " components for conformation",ii+1
write (iout,*) "The Cartesian geometry is:"