MPI_ECP_SUB - syntax, references, description

References

Code

Location

#define MPI_ECP_SUB(X, A, B) \

MPI_ECP_SUB(&tmp[3], &P->X, &tmp[1]);

MPI_ECP_SUB(&tmp[2], &tmp[2], &tmp[1]);

MPI_ECP_SUB(&tmp[2], &tmp[2], &tmp[1]);

MPI_ECP_SUB(&tmp[1], &tmp[1], &tmp[2]);

MPI_ECP_SUB(&tmp[1], &tmp[1], &tmp[3]);

MPI_ECP_SUB(&tmp[0], &tmp[0], &P->X);

MPI_ECP_SUB(&tmp[1], &tmp[1], &P->Y);

MPI_ECP_SUB(X, X, &tmp[0]);

MPI_ECP_SUB(X, X, &tmp[3]);

MPI_ECP_SUB(&tmp[2], &tmp[2], X);

MPI_ECP_SUB(Y, &tmp[2], &tmp[3]);

MPI_ECP_SUB(&T[1], &P->X, &P->Z); /* Pm := PX - PZ */

MPI_ECP_SUB(&T[3], &Q->X, &Q->Z); /* Qm := QX - QZ */

MPI_ECP_SUB(&T[0], &T[0], &T[1]); /* Pp^2 - Pm^2 */

MPI_ECP_SUB(&S->Z, &T[3], &T[2]); /* Qm*Pp - Qp*Pm */