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.
c
      PROGRAM CMN_MAIN
      integer :: i
      real :: x,y,z
      common /zulu/ x, y
      common z
      i = 12
      x = 4.5
      y = 0.0
      z = 8.1
      print *, 'Before: i,x,y,z=',i,x,y,z
      call ccmn(i)
      print *, 'Before: i,x,y,z=',i,x,y,z
      stop
      end