1D Shift Fragment: Localization and Linearization

Before Localization and Linearization

        do i = max(25 * myid1 + 2, 2), min(25 * myid1 + 25, 99)
          a(i) = 0.25 * b(i - 1)
        enddo

After Localization and Linearization

        do i = max(25 * myid1 + 2, 2), min(25 * myid1 + 25, 99)
          a(a$data + i - (a(a$coord + 0) * 
     *25 + 1)) = 0.25 * hpf$heap$double(b$data + i - 1 - (hpf$heap$integ
     *er(b$coord + 0) * 25 + 1))
        enddo