anchor.diff:  
       return
     end subroutine GNLEAF
  +
  +  !======================================================================!
  +  !> @brief QQSORT
  +  ! sort in increasing order up to i
  +  !     iw   array
  +  !     ik   number of input/output
  +  !     i    deal with numbers less than this numberi
  +  !======================================================================!
  +  subroutine QQSORT(Iw,Ik)
  +    implicit none
  +    !------
  +    integer(kind=kint), intent(in):: Ik
  +    integer(kind=kint), intent(inout):: Iw(*)
  +    !------
  +    integer(kind=kint):: itemp
  +    integer(kind=kint):: l
  +    integer(kind=kint):: m
  +
  +    if ( Ik<=1 ) return
  +    do l = 1, Ik - 1
  +      do m = l + 1, Ik
  +        if ( Iw(l)>=Iw(m) ) then
  +          itemp = Iw(l)
  +          Iw(l) = Iw(m)
  +          Iw(m) = itemp
  +        endif
  +      enddo
  +    enddo
  +  end subroutine QQSORT
   
     !======================================================================!
     !> @brief FORPAR
  
positive.code:   end subroutine SXUM3
  
    !======================================================================!
    !> @brief V2PROD
    !======================================================================!
    subroutine V2PROD(A,B,C,N)
  
negative.code:   end subroutine S6UM3
  
    !======================================================================!
    !> @brief SXUM
    !======================================================================!
    subroutine SXUM(Ic,Xlnzr,Colno,Zln,Diag,Nch,Par,Temp,Indx,Ndeg,Ndegl,Zz,T)
  