anchor.diff:      endif
   
     end subroutine hecmw_solve_check_zerorhs
  -  
  +
     subroutine hecmw_solve_prempc (hecMESH, hecMAT, hecTKT, Btmp, first_call)
       use hecmw_util
       use hecmw_matrix_ass
       use hecmw_solver_misc
       use hecmw_matrix_misc
       use hecmw_local_matrix
  -    use hecmw_solver_las    
  +    use hecmw_solver_las
       implicit none
       type (hecmwST_local_mesh) :: hecMESH
       type (hecmwST_matrix), target :: hecMAT
  
positive.code: 
      character(len=30) :: msg_precond
      character(len=30) :: msg_method
      
      ITER      = hecmw_mat_get_iter(hecMAT)
      METHOD    = hecmw_mat_get_method(hecMAT)
      PRECOND   = hecmw_mat_get_precond(hecMAT)
  
negative.code:     NREST     = hecmw_mat_get_nrest(hecMAT)
      ITERlog= hecmw_mat_get_iterlog(hecMAT)
      TIMElog= hecmw_mat_get_timelog(hecMAT)
  
      SELECT CASE(METHOD)
        CASE (1)  !--CG
          msg_method="CG"
        CASE (2)  !--BiCGSTAB
          msg_method="BiCGSTAB"
        CASE (3)  !--GMRES
          msg_method="GMRES"
        CASE (4)  !--GPBiCG
          msg_method="GPBiCG"
        CASE DEFAULT
          msg_method="Unlabeled"
      END SELECT
  
      SELECT CASE(PRECOND)
        CASE(1,2)
          msg_precond="SSOR"
        CASE(3)
          msg_precond="DIAG"
        CASE(5)
          msg_precond="ML"
        CASE(7)
          msg_precond="Direct MUMPS"
        CASE(10,11,12)
          write(msg_precond,"(a,i0,a)") "ILU(",PRECOND-10,")"
        CASE(20)
  