anchor.diff:    !======================================================================!
     SUBROUTINE SXUM1(Ic,Xlnzr,Colno,Zln,Temp,Indx,Ndeg,S)
       IMPLICIT NONE
  -
  +    !------
       INTEGER, INTENT(IN):: Ndeg
       INTEGER, INTENT(IN):: Xlnzr(*)
       INTEGER, INTENT(IN):: Colno(*)
  
positive.code:   !======================================================================!
    SUBROUTINE SUM3(N,Dsln,Diag,Indx,Temp)
      IMPLICIT NONE
  
      INTEGER, INTENT(IN):: N
      INTEGER, INTENT(OUT):: Indx(*)
      DOUBLE PRECISION, INTENT(OUT):: Diag(*)
      DOUBLE PRECISION, INTENT(OUT):: Dsln(*)
      DOUBLE PRECISION, INTENT(OUT):: Temp(*)
  
      INTEGER:: i
      INTEGER:: j
      INTEGER:: joc
  
negative.code:   !======================================================================!
    SUBROUTINE SXUM(Ic,Xlnzr,Colno,Zln,Diag,Nch,Par,Temp,Indx,Ndeg,Ndegl,Zz,T)
      IMPLICIT NONE
      !------
      INTEGER, INTENT(IN):: Ic
      INTEGER, INTENT(IN):: Ndeg
      INTEGER, INTENT(IN):: Ndegl
  