C     CMNMAIN.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 CMNMAIN
      common i,j,k
      common /rrr/ x,y,z
      i = 4; j = 17; k = 0
      x = 1.6; y = 3.7; z = 0.0
      call forcom
      print 10, i,j,k
   10 format (' i,j,k=',3I6)
      print 20, x,y,z
   20 format (' x,y,z=',3F10.4)
      i = 4; j = 17; k = 0
      x = 1.6; y = 3.7; z = 0.0
      call asmcom
      print 10, i,j,k
      print 20, x,y,z
      stop
      end
      SUBROUTINE FORCOM
      common i,j,k
      common /rrr/ x,y,z
      k = 5*i + j
      z = x*y
      return
      end