a=5
      b=8

      call mysub(a,b,c)

      print*, 'C is ', c
      stop
      end

*------------------------------

      subroutine mysub(x,y,z)

      z=x*y

      end