my $direction=MaterialsScript::Normalize($dipoleMoment);