Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
zzperi.c File Reference
#include "f2c.h"
Go to the source code of this file.
Define Documentation
Function Documentation
|
Definition at line 38 of file zzperi.c.
References c__0, zzaxxx_(), zzaxyy_(), and zzzplt_1.
Referenced by perim_(), periml_(), and perimm_().
00039 {
00040
00041 integer i__1;
00042
00043
00044 static integer xlab, ylab;
00045 static real sxmin, sxmax, symin, symax;
00046 static integer isidex, isidey;
00047 extern int zzaxxx_(real *, real *, real *, integer *,
00048 integer *), zzaxyy_(real *, real *, real *, integer *, integer *);
00049
00050
00051
00052
00053
00054
00055
00056
00057
00058
00059
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 }
|
Variable Documentation