subroutine sam(f, b, s) external f character*7 s integer b, f x = 1.3 s = 'Bo G E ' b = f(x) end subroutine sam integer function f(x) f=3*x**3 return end function f