anchor.diff:    subroutine hecmw_precond_clear(hecMAT)
       implicit none
       type (hecmwST_matrix), intent(inout) :: hecMAT
  -    integer(kind=kint ) :: PRECOND, iterPREmax
   
  -    iterPREmax = hecmw_mat_get_iterpremax( hecMAT )
  -    if (iterPREmax.le.0) return
  +    if (hecmw_mat_get_iterpremax( hecMAT ).le.0) return
       
       SELECT CASE(hecMAT%NDOF)
         CASE(3)
  
positive.code:     type (hecmwST_matrix), intent(inout) :: hecMAT
      type (hecmwST_local_mesh), intent(inout) :: hecMESH
      integer(kind=kint) :: sym
      integer(kind=kint ) :: PRECOND, iterPREmax
  
      iterPREmax = hecmw_mat_get_iterpremax( hecMAT )
      if (iterPREmax.le.0) return
      
      SELECT CASE(hecMAT%NDOF)
        CASE(3)
  
negative.code:   use hecmw_precond_66
    use hecmw_precond_nn
    use hecmw_matrix_misc
    implicit none
  
    private
    public :: hecmw_precond_setup
    public :: hecmw_precond_clear
    public :: hecmw_precond_apply
  