Doxygen Source Code Documentation

Main Page Alphabetical List Data Structures File List Data Fields Globals Search
zzperi.c

00001 /* zzperi.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     real xpgmin, ypgmin, xpgmax, ypgmax, xclbot, yclbot, xcltop, ycltop, xbot,
00012              ybot, xtop, ytop, xmin, ymin, xmax, ymax;
00013     integer ixcoor, iycoor;
00014     real alphxx, betaxx, alphyy, betayy, tmajx, tminx, tmajy, tminy;
00015     integer majrx, minrx, majry, minry, isizx, isizy;
00016     real xphold, yphold;
00017 } zzzplt_;
00018 
00019 #define zzzplt_1 zzzplt_
00020 
00021 extern struct {
00022     real xphmax, yphmax;
00023     integer ixpmax, iypmax;
00024     real xpscal, ypscal;
00025     integer iflip, nplotr;
00026     char cfile[64];
00027 } zzpltr_;
00028 
00029 #define zzpltr_1 zzpltr_
00030 
00031 /* Table of constant values */
00032 
00033 static integer c__0 = 0;
00034 
00035 
00036 
00037 
00038 /* Subroutine */ int zzperi_(integer *ilab)
00039 {
00040     /* System generated locals */
00041     integer i__1;
00042 
00043     /* Local variables */
00044     static integer xlab, ylab;
00045     static real sxmin, sxmax, symin, symax;
00046     static integer isidex, isidey;
00047     extern /* Subroutine */ int zzaxxx_(real *, real *, real *, integer *, 
00048             integer *), zzaxyy_(real *, real *, real *, integer *, integer *);
00049 
00050 
00051 /*  Do the perimeter axes. */
00052 /*  ILAB = 0  --> no labels on axes */
00053 /*       = 1  --> labels on x and y */
00054 /*       = 2  --> labels on x only */
00055 /*       = 3  --> labels on y only */
00056 /* .......................................................................
00057  */
00058 
00059 /*  Internal Data for PLOTPAK */
00060 
00061 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00062  */
00063     if (zzzplt_1.xmin < zzzplt_1.xmax) {
00064         isidey = 1;
00065         sxmin = zzzplt_1.xmin;
00066         sxmax = zzzplt_1.xmax;
00067     } else {
00068         isidey = -1;
00069         sxmin = zzzplt_1.xmax;
00070         sxmax = zzzplt_1.xmin;
00071     }
00072 
00073     if (zzzplt_1.ymin < zzzplt_1.ymax) {
00074         isidex = 1;
00075         symin = zzzplt_1.ymin;
00076         symax = zzzplt_1.ymax;
00077     } else {
00078         isidex = -1;
00079         symin = zzzplt_1.ymax;
00080         symax = zzzplt_1.ymin;
00081     }
00082 
00083     xlab = 0;
00084     ylab = 0;
00085     if (*ilab == 1 || *ilab == 2) {
00086         xlab = 1;
00087     }
00088     if (*ilab == 1 || *ilab == 3) {
00089         ylab = 1;
00090     }
00091 
00092     zzaxxx_(&sxmin, &sxmax, &symin, &isidex, &xlab);
00093     i__1 = -isidex;
00094     zzaxxx_(&sxmin, &sxmax, &symax, &i__1, &c__0);
00095 
00096     zzaxyy_(&sxmin, &symin, &symax, &isidey, &ylab);
00097     i__1 = -isidey;
00098     zzaxyy_(&sxmax, &symin, &symax, &i__1, &c__0);
00099 
00100     return 0;
00101 } /* zzperi_ */
00102
AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

zzperi.c
