absmot
j = absmot(i);
if (absmot(rem) != 0) {
j = absmot(i);
k = absmot(i);
k = absmot(j);
temp = absmot(*k);
j = absmot(i);
dx = absmot(pi[3]);
dy = absmot(pi[4]);
dx2 = absmot(pi[5]);
dy2 = absmot(pi[6]);
dx = absmot(pi[n]);
dy = absmot(pi[n+1]);
k = absmot(i);
k = absmot(j);