Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
zzphys.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 zzphys_(real *x, real *y)
00035 {
00036
00037 real r__1;
00038
00039
00040 double r_lg10(real *);
00041
00042
00043
00044
00045
00046
00047
00048
00049
00050
00051 if (zzzplt_1.ixcoor < 0) {
00052 r__1 = dabs(*x) + 1e-37f;
00053 *x = r_lg10(&r__1);
00054 }
00055 *x = zzzplt_1.alphxx * *x + zzzplt_1.betaxx;
00056
00057 if (zzzplt_1.iycoor < 0) {
00058 r__1 = dabs(*y) + 1e-37f;
00059 *y = r_lg10(&r__1);
00060 }
00061 *y = zzzplt_1.alphyy * *y + zzzplt_1.betayy;
00062
00063 return 0;
00064 }
00065