anchor.diff:                  Parent(i) = Qarent(invpos)
                 endif
               enddo
  -            if ( IDBg1/=0 ) then
  +            if ( IDBg_sym/=0 ) then
                 write (6,"(' post order')")
                 write (6,"(10I6)") (Pordr(i),i=1,Neqns)
                 write (6,"(/' invp ')")
  
positive.code:     if ( IERror/=0 ) stop "ALLOCATION ERROR, adjncy: SUB. matini"
      call GENQMD(neqnsz,IA,JA,IPErm,INVp,DEG,MARker,RCHset,NBRhd,QSIze,QLInk,NOFsub,ADJncy)
      do
        !   build up the parent vector parent vector will be saved in
        !   work2 for a while
        call GENPAQ(IA,JA,INVp,IPErm,MARker,NEQns,RCHset)
        !
        !   build up the binary tree
  
negative.code:     endif
  
      !* Solve
      do i=1,hecMAT%NP*hecMESH%n_dof
        hecMAT%X(i) = hecMAT%B(i)
      end do
  