subroutine f(a,b)
 call n(a,b)
 call mn(a,b)
 return (a+b)
end subroutine
