dmove
u = dmove(open_(f, 0), -1);
SHIN = dmove(nofile, FSHIN); /* Replace FSHIN */
int unit = dmove(open_(ep, 0), -1);
int unit = dmove(open_(ep, 0), -1);
(void) dmove(pvec[1], 1);
(void) dmove(SHDIAG, 2);
pv[0] = dmove(pv[0], -1);
pv[1] = dmove(pv[1], -1);