C NCLFORTSTART
      subroutine mult77(x,y,z)
      implicit none
      real x,y,z
C NCLEND
      call mult90(x,y,z)
      return
      end
C------------
      subroutine mult90(x,y,z)
      use module_mult
      implicit none
      real, intent(in)  :: x,y
      real, intent(out) :: z

      call mult(x,y,z)
      return
      end