C***********************************************************************
C     THIS SUBROUTINE DETERMINES THE SCALE FOR THE PLOT AND THE VALUES
C     FOR THE X AND Y AXES.
C***********************************************************************
      SUBROUTINE DVSION (XMIN,XMAX,YMIN,YMAX)
C***********************************************************************
C     DECLARATIONS
C***********************************************************************
      CHARACTER*1 PLOT(51,68)
C**********************************************************************
C     COMMON STATEMENTS
C**********************************************************************
      COMMON /PPL/ XDIV(14), YDIV(10), XINC, YINC
      COMMON /SPLOT/ PLOT
      XINC=(XMAX-XMIN)/65.
      YINC=(YMAX-YMIN)/45.
      DO 10 I=1,14
   10 XDIV(I)=XMIN+XINC*5.*FLOAT(I-1)
      DO 20 I=1,10
   20 YDIV(I)=YMAX-YINC*5.*FLOAT(I-1)
      RETURN
      END