anchor.diff:      !*Allocation variables
       integer(kind=kint), save :: ialoc
       integer(kind=kint), save :: raloc
  -    !*Timing
  -    real(kind=kreal), save :: tom(10)
       !------
       integer(kind=kint):: i98
       integer(kind=kint):: i97
  
positive.code:         Jcolno(k) = i
        endif
      enddo loop1
      if ( IDBg/=0 ) then
        write (6,*) 'jcolno'
        write (6,"(10I7)") (Jcolno(i),i=1,k)
        write (6,*) 'jcpt'
  
negative.code:                 Iperm(Invp(i)) = i
                enddo
  
                if ( IDBg_sym/=0 ) write (6,"(10I6)") (Invp(i),i=1,Neqns)
                return
              else
                locc = Btree(2,joc)
  