program main
        intrinsic cos
                 
        call summ ( cos, 0, 10 )
      end program
     
      subroutine summ ( f, start, ende )
        real f
        integer start, ende
        real k
        
        do k=start, ende
          write (*,*) f(k)
        enddo
      end subroutine