1 *
2 * \$Id\$
3 *
4 * \$Log\$
5 * Revision 1.1.1.1  1996/04/01 15:02:50  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10       SUBROUTINE FRAME(XBLCOR,YBLCOR,XURCOR,YURCOR)
11 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
12 C   PURPOSE                                                            C
13 C     TO SET UP THE PLOT FRAME FOR THE CONTOUR PLOTTING PROGRAM CONT.  C
14 C   USAGE                                                              C
15 C     CALL FRAME(XBLCOR,YBLCOR,XURCOR,YURCOR)                          C
16 C     THIS STATEMENT SHOULD BE EXECUTED BEFORE CONT IS CALLED.         C
17 C   PARAMETERS                                                         C
18 C     XBLCOR - THE X-COORDINATE OF THE BOTTOM LEFT CORNER OF THE       C
19 C              PLOT FRAME                                              C
20 C     YBLCOR - THE Y-COORDINATE OF THE BOTTOM LEFT CORNER OF THE       C
21 C              PLOT FRAME                                              C
22 C     XURCOR - THE X-COORDINATE OF THE UPPER RIGHT CORNER OF THE       C
23 C              PLOT FRAME                                              C
24 C     YURCOR - THE Y-COORDINATE OF THE UPPER RIGHT CORNER OF THE       C
25 C              PLOT FRAME                                              C
26 C
27       COMMON /J509C1/XBL,YBL,XUR,YUR,NX(6),NY(6),LETT1,LETT2,LINE1,LINE2
28       CALL J509BD
29 C
30       XBL = XBLCOR
31       YBL=YBLCOR
32       XUR=XURCOR
33       YUR=YURCOR
34       IF(XUR.LE.XBL.OR.YUR.LE.YBL) GOTO 1
35       RETURN
36     1 WRITE(6,100)XBL,YBL,XUR,YUR
37   100 FORMAT(' ERROR IN FRAME - EXIT CALLED'/' XBLCOR = ',F8.3,5X
38      +  ,'YBLCOR = ',F8.3,5X,'XURCOR = ',F8.3,5X,'YURCOR = ',F8.3)
39       STOP
40       END