      DIMENSION DLOG(100)
      READ(105,200)N
  200 FORMAT(/I)
      READ(105,201)(DLOG(J),J=1,N)
  201 FORMAT(2X,6F10.6)
      AMAX=DLOG(1)
      AMIN=DLOG(1)
      DO 4 J=1,N
      IF(DLOG(N).GT.AMAX)AMAX=DLOG(N)
      IF(DLOG(N).LT.AMIN)AMIN=DLOG(N)
    4 CONTINUE
      END1=AMIN-1.
      END2=AMAX+1.
      Y=0.
      AMID=2.-AMIN
      END3=END2+1.
      CALL START(AMID,5.)
      CALL PLOT(END1,Y,3)
      DO 5 I=1,N
      CALL PLOT(DLOG(I),Y,2)
      CALL PLOT(DLOG(I),1.,2)
    5 CALL PLOT(DLOG(I),Y,2)
      CALL PLOT(END2,Y,2)
      CALL END(END3)
      STOP
      END
