1 /* labmod.f -- translated by f2c (version 19961017).
2 You must link the resulting object file with the libraries:
3 -lf2c -lm (in that order)
4 */
5
6 #include "f2c.h"
7
8 /* Common Block Declarations */
9
10 extern struct {
11 real xpgmin, ypgmin, xpgmax, ypgmax, xclbot, yclbot, xcltop, ycltop, xbot,
12 ybot, xtop, ytop, xmin, ymin, xmax, ymax;
13 integer ixcoor, iycoor;
14 real alphxx, betaxx, alphyy, betayy, tmajx, tminx, tmajy, tminy;
15 integer majrx, minrx, majry, minry, isizx, isizy;
16 real xphold, yphold;
17 } zzzplt_;
18
19 #define zzzplt_1 zzzplt_
20
21 extern struct {
22 real xphmax, yphmax;
23 integer ixpmax, iypmax;
24 real xpscal, ypscal;
25 integer iflip, nplotr;
26 char cfile[64];
27 } zzpltr_;
28
29 #define zzpltr_1 zzpltr_
30
31
32
33
labmod_(integer * ifmtx,integer * ifmty,integer * numx,integer * numy,integer * jsizx,integer * jsizy,integer * ixdec,integer * iydec,integer * ixor)34 /* Subroutine */ int labmod_(integer *ifmtx, integer *ifmty, integer *numx,
35 integer *numy, integer *jsizx, integer *jsizy, integer *ixdec,
36 integer *iydec, integer *ixor)
37 {
38
39 /* Modify the labels for the axes. Note that only the JSIZX and JSIZY */
40 /* arguments are used in this call. The other arguments are retained */
41 /* for compatibility with NCAR. */
42 /* .......................................................................
43 */
44 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
45 */
46
47 /* Internal Data for PLOTPAK */
48
49 zzzplt_1.isizx = *jsizx;
50 if (zzzplt_1.isizx <= 0) {
51 zzzplt_1.isizx = 8;
52 } else if (zzzplt_1.isizx == 1) {
53 zzzplt_1.isizx = 12;
54 } else if (zzzplt_1.isizx == 2) {
55 zzzplt_1.isizx = 16;
56 } else if (zzzplt_1.isizx == 3) {
57 zzzplt_1.isizx = 24;
58 }
59
60 zzzplt_1.isizy = *jsizy;
61 if (zzzplt_1.isizy <= 0) {
62 zzzplt_1.isizy = 8;
63 } else if (zzzplt_1.isizy == 1) {
64 zzzplt_1.isizy = 12;
65 } else if (zzzplt_1.isizy == 2) {
66 zzzplt_1.isizy = 16;
67 } else if (zzzplt_1.isizy == 3) {
68 zzzplt_1.isizy = 24;
69 }
70
71 return 0;
72 } /* labmod_ */
73
74