A.6.2 mixed-f.f

c   Given a square array m(n,n), call cadd2 on each element
      subroutine addarr (m, n)
      real m(n,n)
      integer n
      integer i,j
      real addval

      addval = m(n,n)
      do j=1,n
         do i=1,n
            call cadd2 (m(i,j), %val(addval))
         enddo
      enddo
      
      return
      end