← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to bindings/f77/sccont.c

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
bindings/f77/sccont.c
1
 
/* $Id: sccont.c,v 1.11 2004/02/24 10:06:04 rlaboiss Exp $
 
1
/* $Id: sccont.c,v 1.13 2005/04/27 06:43:09 rlaboiss Exp $
2
2
 
3
3
        Contour plotter front-ends for Fortran.
4
4
 
18
18
 
19
19
   You should have received a copy of the GNU Library General Public License
20
20
   along with PLplot; if not, write to the Free Software
21
 
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
21
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
22
22
 
23
23
*/
24
24
 
291
291
 
292
292
/*----------------------------------------------------------------------*\
293
293
* Vector plotter front-ends.
294
 
* These specify the row-dominant function evaluator in the plvecf_int
 
294
* These specify the row-dominant function evaluator in the plfvect
295
295
* argument list.  NO TRANSPOSE IS NECESSARY.  The routines are as follows:
296
296
*
297
297
* - plvec0      no transformation
298
298
* - plvec1      linear interpolation from singly dimensioned coord arrays
299
299
* - plvec2      linear interpolation from doubly dimensioned coord arrays
300
300
*
301
 
* The latter two work by calling plvecf_int() with the appropriate grid
 
301
* The latter two work by calling plfvect() with the appropriate grid
302
302
* structure for input to pltr2f().
303
303
\*----------------------------------------------------------------------*/
304
304
 
317
317
    fgrid2.ny = *ny;
318
318
    fgrid2.f = v;
319
319
 
320
 
    plvecf_int(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
 
320
    plfvect(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
321
321
            *nx, *ny, *scale, pltr0f, NULL);
322
322
}
323
323
 
344
344
    cgrid.xg = xg;
345
345
    cgrid.yg = yg;
346
346
 
347
 
    plvecf_int(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
 
347
    plfvect(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
348
348
            *nx, *ny, *scale, pltr1, (void *) &cgrid);
349
349
}
350
350
 
371
371
    cgrid.xg = xg;
372
372
    cgrid.yg = yg;
373
373
 
374
 
    plvecf_int(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
 
374
    plfvect(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
375
375
            *nx, *ny, *scale, pltr2f, (void *) &cgrid);
376
376
}
377
377
 
418
418
    fgrid2.ny = *ny;
419
419
    fgrid2.f = v;
420
420
 
421
 
    plvecf_int(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
 
421
    plfvect(plf2evalr, (void *) &fgrid1, (void *) &fgrid2,
422
422
            *nx, *ny, *scale,
423
423
            pltr, (void *) ftr);
424
424
}