Doxygen Source Code Documentation
points.c File Reference
#include "f2c.h"Go to the source code of this file.
Functions | |
| int | points_ (real *x, real *y, integer *n, integer *ichar, integer *ipen) |
Function Documentation
|
||||||||||||||||||||||||
|
Definition at line 11 of file points.c. References frstpt_(), point_(), and vector_(). Referenced by curve_(), and plotpak_points().
00013 {
00014 /* System generated locals */
00015 integer i__1;
00016
00017 /* Local variables */
00018 static integer i__;
00019 extern /* Subroutine */ int point_(real *, real *), vector_(real *, real *
00020 ), frstpt_(real *, real *);
00021
00022
00023 /* Note that ICHAR is ignored in this version (argument retained for */
00024 /* compatibility with NCAR). */
00025 /* .......................................................................
00026 */
00027 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00028 */
00029 /* Parameter adjustments */
00030 --y;
00031 --x;
00032
00033 /* Function Body */
00034 if (*ipen != 1) {
00035 i__1 = *n;
00036 for (i__ = 1; i__ <= i__1; ++i__) {
00037 point_(&x[i__], &y[i__]);
00038 /* L100: */
00039 }
00040 } else {
00041 frstpt_(&x[1], &y[1]);
00042 i__1 = *n;
00043 for (i__ = 2; i__ <= i__1; ++i__) {
00044 vector_(&x[i__], &y[i__]);
00045 /* L200: */
00046 }
00047 }
00048 return 0;
00049 } /* points_ */
|
