Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
frstpt.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 frstpt_(real *x, real *y)
00035 {
00036 static real xx, yy;
00037 extern int zzphys_(real *, real *);
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048 xx = *x;
00049 yy = *y;
00050 zzphys_(&xx, &yy);
00051 zzzplt_1.xphold = xx;
00052 zzzplt_1.yphold = yy;
00053 return 0;
00054 }
00055