program max_min
      implicit none
      real f, fmax, fmin, theta, dtheta
      integer i

      dtheta=2*(2*3.14159)/3600
      do i=1,3600
        theta=(i-1)*dtheta
        f=sin(theta)
        if(i==1)fmax=f
        if(i==1)fmin=f
c       if(i.eq.1)fmax=f
        if(f>fmax)fmax=f
        if(f<fmin)fmin=f
      enddo
      write(*,*)'The max value of f is:',fmax
      write(*,*)'The min value of f is:',fmin
      end