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.
      PROGRAM FLTMAIN
      real :: x, y, z
      x = 3.0
      y = 8.5
      call forflt(x,y,z)
      print 20, x,y,z
   20 format (' x,y,z=',3F10.4)
      x = 4.5
      y = 7.1
      call asmflt(x,y,z)
      print 20, x,y,z
      stop
      end
      SUBROUTINE FORFLT(XX,YY,ZZ)
      zz = 3.1*xx + yy + 7.6
      return
      end