MINICERN/mathlib/gen/j/frame.F

   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