anchor.diff:        Adjncy(jstop+1) = -node
       ENDIF
       GOTO 100
  +
   200 Adjncy(j+1) = 0
       DO irch = 1, Rchsze
         node = Rchset(irch)
  
positive.code:     INTEGER, INTENT(OUT):: Zpiv(*)
      !------
      INTEGER:: i
      INTEGER:: IDBg
      INTEGER:: j
      INTEGER:: l
      COMMON /DEBUG / IDBg
  
      Ir = 0
      Zpiv(1:Neqns) = 1
  
negative.code:     !------
      INTEGER, INTENT(IN):: Ndeg
      INTEGER, INTENT(OUT):: Ir
      REAL(KIND=8), INTENT(OUT):: Dsln(*)
      !------
      INTEGER:: i
      INTEGER:: j
  