Doxygen Source Code Documentation

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

setlin.c

00001 /* setlin.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 setlin_(integer *ntype)
00012 {
00013     /* Initialized data */
00014 
00015     static integer ndash[5] = { 1,2,2,6,2 };
00016     static real xdash[40]       /* was [8][5] */ = { 1.f,1.f,1.f,1.f,1.f,1.f,
00017             1.f,1.f,.007f,-.007f,1.f,1.f,1.f,1.f,1.f,1.f,.002f,-.003f,1.f,1.f,
00018             1.f,1.f,1.f,1.f,.007f,-.004f,.002f,-.004f,.002f,-.004f,1.f,1.f,
00019             2e-4f,-.005f,1.f,1.f,1.f,1.f,1.f,1.f };
00020 
00021     static integer nd;
00022     extern /* Subroutine */ int setdsh_(integer *, real *);
00023 
00024 
00025 /*  Set default dash types */
00026 /*    1 = solid */
00027 /*    2 = long dash */
00028 /*    3 = short */
00029 /*    4 = long - short - short */
00030 /*    5 = very short */
00031 /*  Outside this range ==> solid */
00032 
00033 
00034 
00035 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00036  */
00037 
00038     nd = *ntype;
00039     if (*ntype <= 0 || *ntype > 5) {
00040         nd = 1;
00041     }
00042 
00043     setdsh_(&ndash[nd - 1], &xdash[(nd << 3) - 8]);
00044     return 0;
00045 } /* setlin_ */
00046

AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

setlin.c