anchor.diff:    !*DEBUG
     integer, private:: IDBg
     integer, private:: IDBg1
  +
   contains
     !----------------------------------------------------------------------
     !> @brief HECMW_SOLVE_DIRECT is a program for the matrix solver
  
positive.code:       else
          if ( izz0==0 ) izz0 = izz
          if ( izz0/=izz ) then
  
            call BRINGU(ZPIv,IPErm,INVp,MARker,izz,NEQns,IRR)
          else
            lwk4 = last - neqns1
  
negative.code:     ndegl = ndegl/2
      ndeg2 = NDEg*NDEg
      !rmiv
      select case (NDEg)
      case (1)
        call NUFCT(XLNzr,COLno,DSLn,ZLN,DIAg,INDx,TEMp,NEQns,PARent,NCH,NSTop,Ir)
      case (2)
        call NUFCT2(XLNzr,COLno,DSLn,ZLN,DIAg,INDx,TEMp,NEQns,PARent,NCH,NSTop,Ir)
      case (3)
        call NUFCT3(XLNzr,COLno,DSLn,ZLN,DIAg,INDx,TEMp,NEQns,PARent,NCH,NSTop,Ir)
      case (6)
        call NUFCT6(XLNzr,COLno,DSLn,ZLN,DIAg,INDx,TEMp,NEQns,PARent,NCH,NSTop,Ir)
      case default
        call NUFCTX(XLNzr,COLno,DSLn,ZLN,DIAg,INDx,TEMp,NEQns,PARent,NCH,NSTop,NDEg,ndegl,Ir)
      endselect
  
      STAge = 30
      deallocate (TEMp)
      deallocate (INDx)
  