anchor.diff:      qC%Lev=qA%Lev
       qC%Box=qA%Box
       qC%Norm=qA%Norm
  -    CALL NodeMssg(' SpAMM_Copy qC ',qC,count)
       IF(qA%Siz==SpAMM_BLOCK_SIZE.AND.ALLOCATED(qA%Blok))THEN
          IF(.NOT.ALLOCATED(qC%Blok)) &
             ALLOCATE(qC%Blok(1:SpAMM_BLOCK_SIZE,1:SpAMM_BLOCK_SIZE))
  
positive.code:     CALL NewQuNode(qA,init=.TRUE.)
      CALL SpAMM_Mat2Quad(A,qA)
      qA%Norm=SQRT(SpAMM_NormReduce(qA))
    END FUNCTION Dense2Quad
  
    RECURSIVE SUBROUTINE SpAMM_Mat2Quad(A,qA)
  
negative.code:   END FUNCTION SpAMM_NormReduce
  
    FUNCTION NormReduce_dns(A) RESULT(norm)
      REAL(DOUBLE), DIMENSION(:,:) :: A
      REAL(DOUBLE) :: norm
      INTEGER :: I,J
  