Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
perim.c
Go to the documentation of this file.00001
00002
00003
00004
00005
00006 #include "f2c.h"
00007
00008
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
00032
00033 static integer c__0 = 0;
00034
00035
00036
00037
00038 int perim_(integer *mbx, integer *mlx, integer *mby, integer
00039 *mly)
00040 {
00041 extern int zzperi_(integer *);
00042
00043
00044
00045
00046
00047
00048
00049
00050
00051
00052 zzzplt_1.majrx = *mbx;
00053 zzzplt_1.minrx = *mlx;
00054 zzzplt_1.majry = *mby;
00055 zzzplt_1.minry = *mly;
00056
00057
00058
00059 zzperi_(&c__0);
00060 return 0;
00061 }
00062