void
c_plvect(PLFLT **u, PLFLT **v, PLINT nx, PLINT ny, PLFLT scale,
void (*pltr) (PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer),
PLPointer pltr_data)
{
PLfGrid2 grid1, grid2;
grid1.f = u;
grid2.f = v;
plfvect(plf2eval2, (PLPointer) &grid1, (PLPointer) &grid2,
nx, ny, scale, pltr, pltr_data);
}
void
PLVEC07(PLFLT *u, PLFLT *v, PLINT *nx, PLINT *ny, PLFLT *scale)
{
PLfGrid fgrid1, fgrid2;
fgrid1.nx = *nx;
fgrid1.ny = *ny;
fgrid1.f = u;
fgrid2.nx = *nx;
fgrid2.ny = *ny;
fgrid2.f = v;
plfvect(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
*nx, *ny, *scale, pltr0f, NULL);
}
void
PLVECT7(PLFLT *u, PLFLT *v, PLINT *nx, PLINT *ny, PLFLT *scale,
PLFLT *ftr)
{
PLfGrid fgrid1;
PLfGrid fgrid2;
fgrid1.nx = *nx;
fgrid1.ny = *ny;
fgrid1.f = u;
fgrid2.nx = *nx;
fgrid2.ny = *ny;
fgrid2.f = v;
plfvect(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
*nx, *ny, *scale,
pltr, (void *) ftr);
}
void
PLVEC27(PLFLT *u, PLFLT *v, PLINT *nx, PLINT *ny, PLFLT *scale,
PLFLT *xg, PLFLT *yg)
{
PLfGrid fgrid1;
PLfGrid fgrid2;
PLcGrid cgrid;
fgrid1.nx = *nx;
fgrid1.ny = *ny;
fgrid1.f = u;
fgrid2.nx = *nx;
fgrid2.ny = *ny;
fgrid2.f = v;
cgrid.nx = *nx;
cgrid.ny = *ny;
cgrid.xg = xg;
cgrid.yg = yg;
plfvect(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
*nx, *ny, *scale, pltr2f, (void *) &cgrid);
}