Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
tick4.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
00034 int tick4_(integer *lmajx, integer *lminx, integer *lmajy,
00035 integer *lminy)
00036 {
00037 static real scale;
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048 scale = (zzzplt_1.xpgmax - zzzplt_1.xpgmin) * .001f;
00049 zzzplt_1.tmajx = scale * *lmajx;
00050 zzzplt_1.tminx = scale * *lminx;
00051 zzzplt_1.tmajy = scale * *lmajy;
00052 zzzplt_1.tminy = scale * *lminy;
00053 return 0;
00054 }
00055