anchor.diff:        write (Ifmsg,*) 'error in nusol0. irr = ', ir
         stop
       endif
  +
  +    if ( timelog > 1 ) then
  +      write(*,*) 'sym fct time : ',t2-t1
  +      write(*,*) 'nuform time  : ',t3-t2
  +      write(*,*) 'num fct time : ',t4-t3
  +      write(*,*) 'solve time   : ',t5-t4
  +    elseif ( timelog > 0 ) then
  +      write(*,*) 'setup time : ',t4-t1
  +      write(*,*) 'solve time : ',t5-t4
  +    endif
  +
       call HECMW_MAT_DUMP_SOLUTION(hecMAT)
     end subroutine HECMW_SOLVE_DIRECT
   
  
positive.code:     !*Allocations
      allocate (val(NDEg*NDEg),stat=ierr)
      if ( ierr/=0 ) stop "Allocation error:val"
      write (6,*) "nuform:stage = ", STAge
      kk = 0
      ndof2 = ndof*ndof
  
  
negative.code:       !* Symbolic factorization
        call MATINI(NEQns,NTTbr,JCOl,IROw,LEN_colno,NSTop,LEN_dsln,IPErm,INVp,PARent,NCH,XLNzr,COLno,IALoc,RALoc,STAge,ir)
        hecMAT%IARRAY(98) = 0
  
        if ( timelog > 0 .or. iterlog > 0 ) write (*,*) "[DIRECT]: symbolic fct done"
      endif
      call PTIME(t2)
      t3 = t2
  