org.netlib.lapack.Dlacpy.dlacpy("ALL", N, N, A1, 0, LDA, Residual, 0, N);
org.netlib.lapack.Dlacpy.dlacpy(Dplasma.lapack_const(Dplasma.PlasmaUpper), N, N, A2, 0, LDA, L1, 0, N);
org.netlib.lapack.Dlacpy.dlacpy(Dplasma.lapack_const(Dplasma.PlasmaUpper), N, N, A2, 0, LDA, L2, 0, N);
org.netlib.blas.Dtrmm.dtrmm("L", "U", "T", "N", N, N, alpha, L1, 0, N, L2, 0, N);
} else {
org.netlib.lapack.Dlacpy.dlacpy(Dplasma.lapack_const(Dplasma.PlasmaLower), N, N, A2, 0, LDA, L1, 0, N);
org.netlib.lapack.Dlacpy.dlacpy(Dplasma.lapack_const(Dplasma.PlasmaLower), N, N, A2, 0, LDA, L2, 0, N);
org.netlib.blas.Dtrmm.dtrmm("R", "L", "T", "N", N, N, alpha, L1, 0, N, L2, 0, N);