Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
points.c
Go to the documentation of this file.00001
00002
00003
00004
00005
00006 #include "f2c.h"
00007
00008
00009
00010
00011 int points_(real *x, real *y, integer *n, integer *ichar,
00012 integer *ipen)
00013 {
00014
00015 integer i__1;
00016
00017
00018 static integer i__;
00019 extern int point_(real *, real *), vector_(real *, real *
00020 ), frstpt_(real *, real *);
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030 --y;
00031 --x;
00032
00033
00034 if (*ipen != 1) {
00035 i__1 = *n;
00036 for (i__ = 1; i__ <= i__1; ++i__) {
00037 point_(&x[i__], &y[i__]);
00038
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
00046 }
00047 }
00048 return 0;
00049 }
00050