<commit_before>      subroutine mgtest_compute_error(blockno, mx,my,mbc,mfields,
     &      dx,dy,xlower,ylower,t,rhs,error,soln)
      implicit none

      integer mx,my,mbc,mfields, blockno
      double precision dx, dy, xlower, ylower, t
      double precision rhs(1-mbc:mx+mbc,1-mbc:my+mbc,mfields)
      double precision error(1-mbc:mx+mbc,1-mbc:my+mbc,mfields)
      double precision soln(1-mbc:mx+mbc,1-mbc:my+mbc,mfields)

      integer*8 cont, get_context

      integer i,j,m
      double precision xc,yc, mgtest_qexact
      double precision xc1, yc1, zc1

      cont = get_context()

c     # Assume a single field variable only
      do j = 1,my
         do i = 1,mx
            yc = ylower + (j-0.5)*dy
            xc = xlower + (i-0.5)*dx

            soln(i,j,1) = mgtest_qexact(xc,yc)
            do m = 1,mfields
               error(i,j,m) = rhs(i,j,m) - soln(i,j,1)
            end do
         enddo
      enddo


      end<commit_msg>(elliptic/mgtest) Update error calculation<commit_after>      subroutine mgtest_compute_error(blockno, mx,my,mbc,mfields,
     &      dx,dy,xlower,ylower,t,rhs,error,soln)
      implicit none

      integer mx,my,mbc,mfields, blockno
      double precision dx, dy, xlower, ylower, t
      double precision rhs(1-mbc:mx+mbc,1-mbc:my+mbc,mfields)
      double precision error(1-mbc:mx+mbc,1-mbc:my+mbc,mfields)
      double precision soln(1-mbc:mx+mbc,1-mbc:my+mbc,mfields)

      integer*8 cont, get_context

      integer i,j,m
      double precision xc,yc, mgtest_qexact
      double precision xc1, yc1, zc1, r, s, e

      cont = get_context()

c     # Assume a single field variable only
      do j = 1,my
         do i = 1,mx
            yc = ylower + (j-0.5)*dy
            xc = xlower + (i-0.5)*dx

            soln(i,j,1) = mgtest_qexact(xc,yc)
            do m = 1,mfields
               error(i,j,m) = rhs(i,j,m) - soln(i,j,1)
            end do
            continue
         enddo
      enddo


      end
{'fraction_non_alphanumeric': 0.11477907567293043, 'fraction_numerical': 0.019299136617572373, 'mean_word_length': 2.162118780096308, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2766488', 'n_tokens_mistral': 774, 'n_tokens_neox': 754, 'n_words': 154}