LOG_DIPOLE

#define LOG_DIPOLE	(		ctx,
			i,
			v
	)

Value:

logger(ctx,"DIPOLE [%d]  pos(%" STRINGIZE(DBL) ", %" STRINGIZE(DBL) ", %" STRINGIZE(DBL) ")" \
                                       " dir(%" STRINGIZE(DBL) ", %" STRINGIZE(DBL) ", %" STRINGIZE(DBL) ")" \
                                       " ampl(%" STRINGIZE(DBL) ", %" STRINGIZE(DBL) ")" \
                                       " d= %" STRINGIZE(DBL) "\n",\
                                       ctx,i,v.pos.x,v.pos.y,v.pos.z, \
                                       v.dir.x,v.dir.y,v.dir.z, \
                                       CREAL(v.amplitude),CIMAG(v.amplitude), \
                                       v.d);