Doxygen Source Code Documentation

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

zzliny.c

00001 /* zzliny.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 zzliny_(real *x, real *y1, real *y2, integer *majry, 
00012         real *tmaj, integer *minry, real *tmin)
00013 {
00014     /* System generated locals */
00015     integer i__1, i__2;
00016 
00017     /* Local variables */
00018     static integer imaj, imin;
00019     static real xmajr, xminr, dy, yy;
00020     extern /* Subroutine */ int zzline_(real *, real *, real *, real *);
00021 
00022 
00023 /*  Draw a linear axis from (X,Y1) to (X,Y2)  [physical coordinates], */
00024 /*  with MAJRY major divisions (tic mark size = TMAJ) and MINRY minor */
00025 /*  divisions (tic mark size = TMIN). */
00026 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00027  */
00028     zzline_(x, y1, x, y2);
00029     if (*tmaj == 0.f && *tmin == 0.f) {
00030         goto L8000;
00031     }
00032 
00033     xmajr = *x + *tmaj;
00034     xminr = *x + *tmin;
00035     dy = (*y2 - *y1) / (*majry * *minry);
00036     yy = *y1;
00037     zzline_(x, &yy, &xmajr, &yy);
00038     i__1 = *majry;
00039     for (imaj = 1; imaj <= i__1; ++imaj) {
00040         i__2 = *minry - 1;
00041         for (imin = 1; imin <= i__2; ++imin) {
00042             yy += dy;
00043             if (*tmin != 0.f) {
00044                 zzline_(x, &yy, &xminr, &yy);
00045             }
00046 /* L100: */
00047         }
00048         yy += dy;
00049         zzline_(x, &yy, &xmajr, &yy);
00050 /* L200: */
00051     }
00052 
00053 L8000:
00054     return 0;
00055 } /* zzliny_ */
00056

AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

zzliny.c