anchor.diff:            IF(do11x11)THEN
                frac11x11=TotalError
                CALL SpAMM_Multiply(qC%Quad11,qA%Quad11,qB%Quad11,frac11x11,count)
  -          ELSE
  -             frac11x11=Zero
             ENDIF
  -
  -
          ENDIF
       ENDIF
     END SUBROUTINE SpAMM_Multiply
  -
   
     RECURSIVE SUBROUTINE SpAMM_Multiply2(qC,qA,qB,count)
       IMPLICIT NONE
  
positive.code:     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))
  
negative.code:     ! Associated
      IF(ASSOCIATED(qA).AND.ASSOCIATED(qB))THEN
      ! Bounds
      IF(qA%Norm*qB%Norm<SpAMM_tolerance)RETURN
      ! Allocate
      IF(.NOT.ASSOCIATED(qC))CALL NewQuNode(qC,count=count)
      ! Boxing
  