anchor.diff:      ! header
       write(iDump,"(A)") '%%Block-CSR matrix real general'
       nnz = n + hecMAT%indexL(n) + hecMAT%indexU(n)
  +    write(iDump,"(A)") '% nrow ncol nnonzero ndof'
       write(iDump,"(I0,' ',I0,' ',I0,' ',I0)") n, np, nnz, ndof
       ! index
  +    write(iDump,"(A)") '% index(0:nrow)'
       idx = 0
       write(iDump, "(I0)") idx
       do i = 1, n
  
positive.code:       end do
      end do
      ! item
      do i = 1, n
        i0 = (i-1)*ndof
        do idof = 1, ndof
  
negative.code:     ! header
      write(iDump,"(A)") '%%CSR matrix real general'
      nnz = ndof2 * (n + hecMAT%indexL(n) + hecMAT%indexU(n))
      write(iDump,"(A)") '% nrow ncol nnonzero'
      write(iDump,"(I0,' ',I0,' ',I0)") n*ndof, np*ndof, nnz
      ! index
      write(iDump,"(A)") '% index(0:nrow)'
      idx = 0
      write(iDump, "(I0)") idx
      do i = 1, n
  