/* Created on: 16 feb. 2019 Author: Daniel Mårtensson  */
void loadEigen(integer row, doublereal *wr, doublereal *wi, double *Ereal, double *Eimag)
/* Created on: 16 feb. 2019 Author: Daniel Mårtensson  */
void loadEigen(integer row, doublereal *wr, doublereal *wi, double *Ereal, double *Eimag)
{
		if (WI[j] == (double) 0.0) {
			*(Ereal++) = WR[j];
			*(Eimag++) = 0;
		} else {
			*(Ereal++) = WR[j];
			*(Eimag++) = WI[j];
		}
	}
}