Beispiel #1
0
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);
}
Beispiel #2
0
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);
}
Beispiel #3
0
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);
}
Beispiel #4
0
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);
}