1 /* frame.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 /* Device dependent plotting routines: */
33
34
35
frame_(void)36 /* Subroutine */ int frame_(void)
37 {
38
39 /* Stop plotting in the current window (or frame). */
40 /* .......................................................................
41 */
42 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
43 */
44 /* cc IF( NPLOTR.EQ.1 .OR. NPLOTR.EQ.2 )THEN */
45 /* cc CALL GPAGE */
46 /* cc ENDIF */
47
48 /* cc IF( NPLOTR .EQ. 3 )THEN */
49 /* cc CLOSE( UNIT=99 ) */
50 /* cc ENDIF */
51
52 /* cc IF( NPLOTR .EQ. 4 )THEN */
53 /* cc CALL ZZUPFR */
54 /* cc ENDIF */
55
56 /* cc IF( NPLOTR .EQ. 5 )THEN */
57 /* cc CALL ZZPCFR */
58 /* cc ENDIF */
59
60 /* cc IF( NPLOTR .EQ. 6 )THEN */
61 /* cc CALL ZZPSFR */
62 /* cc ENDIF */
63
64
65 /* Internal Data for PLOTPAK */
66
67 return 0;
68 } /* frame_ */
69
70