program min_max

      n=1000
      xmin=-10
      xmax=10
      dx=(xmax-xmin)/n
      y1=(xmin**3)*sin(xmin)
c     y1=sin(xmin)
      ymax=y1
      ymin=y1
      do i=1,1001
        x=xmin+(i-1)*dx
        y=(x**3)*sin(x) 
c       y=sin(x) 
        if(y>ymax)ymax=y
        if(y<ymin)ymin=y
      enddo
      write(*,*)'ymin=',ymin
      write(*,*)'ymax=',ymax
      end