module sam_mod
implicit none
contains
   SUBROUTINE sam( f , b , s )
   EXTERNAL f
   INTEGER:: f
   CHARACTER(LEN=7) , INTENT(OUT) :: s
   INTEGER, INTENT(OUT) :: b
   REAL :: x
      x = 1.3
      s = 'Bo G E '
      b = f ( x )
   END SUBROUTINE sam
   
   INTEGER FUNCTION f ( x )
   REAL, INTENT(IN) :: x
       f=3*3**3
   END FUNCTION f
end module sam_mod