!=====================================
!        MAIN
!=====================================
   use module_mult
   implicit none
   real  x, y, z

   x = 2.3
   y = 3.0
   call mult(x, y, z)
   print *,"z=",z
end