anchor.diff:        !* 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
  -      write (6,*) "symbolic fct done"
  +
  +      if ( timelog > 0 .or. iterlog > 0 ) write (*,*) "[DIRECT]: symbolic fct done"
       endif
       call PTIME(t2)
       t3 = t2
  
positive.code: 
      ir = 0
  
      call HECMW_MAT_DUMP(hecMAT,hecMESH)
  
      call PTIME(t1)
  
      !*EHM HECMW June 7 2004
      i98 = hecMAT%IARRAY(98)
  
negative.code:       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
  
  