c     FLTMAIN.FOR  Copyright(c) 1998, Lahey Computer Systems, Inc.
c     Copying for sale requires permission from Lahey Computers Systems.
c     Otherwise, distribution of all or part of this file is permitted
c     if these four lines are included.
c
      PROGRAM FLTMAIN
      x = 2.17
      y = 5.6
      z = 0.0
      print *,' x,y,z=',x,y,z
      call cmult(x,y,z)
      print *,' x,y,z=',x,y,z
      stop
      end