       subroutine foo(a,b,c)
       c=a+b
       end
