Doxygen Source Code Documentation

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

setdsh.c

00001 /* setdsh.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 /* Common Block Declarations */
00009 
00010 extern struct {
00011     integer ndash;
00012     real xldash[8], xid;
00013 } zzdash_;
00014 
00015 #define zzdash_1 zzdash_
00016 
00017 
00018 
00019 
00020 /* Subroutine */ int setdsh_(integer *nd, real *xld)
00021 {
00022     /* System generated locals */
00023     integer i__1;
00024 
00025     /* Local variables */
00026     static integer i__;
00027 
00028 
00029 /*  Set dash lengths (in internal units) */
00030 
00031 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00032  */
00033     /* Parameter adjustments */
00034     --xld;
00035 
00036     /* Function Body */
00037     zzdash_1.ndash = min(*nd,8);
00038     zzdash_1.xid = 0.f;
00039     i__1 = zzdash_1.ndash;
00040     for (i__ = 1; i__ <= i__1; ++i__) {
00041         zzdash_1.xldash[i__ - 1] = xld[i__];
00042 /* L10: */
00043     }
00044     return 0;
00045 } /* setdsh_ */
00046

AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

setdsh.c