Defines |
| #define | DOT_N(ANS, a, b) |
| #define | VL_N(ANS, i, axis) DOT_N(ANS, fw0 + (axis)*fd, iv##axis + i*fd) |
| #define | D1_N(ANS, i, axis) DOT_N(ANS, fw1 + (axis)*fd, iv##axis + i*fd) |
| #define | D2_N(ANS, i, axis) DOT_N(ANS, fw2 + (axis)*fd, iv##axis + i*fd) |
| #define | DOT_N(ANS, a, b) |
| #define | VL_N(ANS, i, axis) DOT_N(ANS, fw0 + (axis)*fd, iv##axis + i*fd) |
| #define | D1_N(ANS, i, axis) DOT_N(ANS, fw1 + (axis)*fd, iv##axis + i*fd) |
| #define | D2_N(ANS, i, axis) DOT_N(ANS, fw2 + (axis)*fd, iv##axis + i*fd) |
| #define | DOT_N(ANS, a, b) |
| #define | VL_N(ANS, i, axis) DOT_N(ANS, fw0 + (axis)*fd, iv##axis + i*fd) |
| #define | D1_N(ANS, i, axis) DOT_N(ANS, fw1 + (axis)*fd, iv##axis + i*fd) |
| #define | D2_N(ANS, i, axis) DOT_N(ANS, fw2 + (axis)*fd, iv##axis + i*fd) |
| #define | DOT_N(ANS, a, b) |
| #define | VL_N(ANS, i, axis) DOT_N(ANS, fw0 + (axis)*fd, iv##axis + i*fd) |
| #define | D1_N(ANS, i, axis) DOT_N(ANS, fw1 + (axis)*fd, iv##axis + i*fd) |
| #define | D2_N(ANS, i, axis) DOT_N(ANS, fw2 + (axis)*fd, iv##axis + i*fd) |
Functions |
| | for (j=0;j< fd *fd;j++) |
| | if (doV) |
| | if (!doD1||doD2) |
| | if (doD2) |
| | if (doD1) |
| | ell_3mv_mul_d (gvec, shape->ItoWSubInvTransp, gvec) |
| | if (!doD2) return |
| | D1_N (hess[6], 0, Z) |
| | VL_N (hess[3], 0, Z) |
| | VL_N (hess[0], 0, Z) |
| | if (1) |
Variables |
| | hess [2] = hess[6] |