Doxygen Source Code Documentation

Main Page Alphabetical List Data Structures File List Data Fields Globals Search

points.c

00001 /* points.f -- translated by f2c (version 19961017).
00002    You must link the resulting object file with the libraries:
00003         -lf2c -lm   (in that order)
00004 */
00005 
00006 #include "f2c.h"
00007 
00008 
00009 
00010 
00011 /* Subroutine */ int points_(real *x, real *y, integer *n, integer *ichar, 
00012         integer *ipen)
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_ */
00050

AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

points.c