anchor.diff:      FILTER= hecMAT%Rarray(5)
   
       Write(*,"(a,F15.8)")"### SAINV FILTER   :",FILTER
  -    Write(*,"(a)")"This precoditioner is incomplete implementation. Please use other preconditioner"
   
       call hecmw_sainv_nn(hecMAT)
   
  
positive.code:   use m_hecmw_comm_f
    use hecmw_matrix_contact
    use hecmw_matrix_misc
    !$ use omp_lib
  
    private
  
  
negative.code:           if (o == i)then
              do idof = 1, NDOF
                do jdof = 1, NDOF
                  SAINVU(NDOF2*(n-1)+NDOF*(jdof-1)+idof)=SAINVL(NDOF2*(j-1)+NDOF*(idof-1)+jdof)
                end do 
              end do 
              n = n + 1
              cycle flag1
            endif
  