c     MAIN.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 MAIN
      integer :: i,j,k
      i = 12
      j = 43
      k = 0
      print *, 'Before: i,j,k=',i,j,k
      call sub(i,j,k)
      print *, 'After:  i,j,k=',i,j,k
      stop
      end