C     MULMAIN.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 MULMAIN
      integer :: i,j,k,l
      i = 5
      call formul(i,j)
      print *, 'i,j=',i,j
      k = 3
      call asmmul(k,l)
      print *, 'k,l=',k,l
      stop
      end
      SUBROUTINE FORMUL(II,JJ)
      jj = 7*ii + 3
      return
      end