sifvjcomp
sifvjcomp(f->unit, ho->neg_vj, ho->cflag, ho->maxslotindex);
sifvjcomp(f->unit, 0, 0, 0);
int sifvjcomp(int, int, int, int);