anchor.diff:      character(len=*) :: type_name
       character(len=*) :: name
       integer(kind=kint) :: local_id, idx
  -    integer(kind=kint) :: i, n, stat, no, fg
  -    integer(kind=kint),pointer :: item(:)
  +    integer(kind=kint) :: n, no, fg
   
       if( .not. fstr_str2index(name, no) ) then
         get_sorted_local_member_index = -1
  
positive.code:     integer(kind=kint) :: is, ie, nnode, i, ic, isurf, ic_type, stype, nn, j0, j, new_nnode
      integer(kind=kint) :: snode(20)
      integer(kind=kint), allocatable :: node(:)
      type(tSurfElement) :: surf
      character(len=HECMW_NAME_LEN) :: grp_name
      is= hecMESH%surf_group%grp_index(sgrp_id-1) + 1
      ie= hecMESH%surf_group%grp_index(sgrp_id  )
  
negative.code:   !> private parameter and pointers to group members in hecMESH
    integer(kind=kint),private :: grp_type     ! 1:node_grp, 2:elem_grp, 3:surf_grp
    integer(kind=kint),pointer,private :: n_grp
    integer(kind=kint),pointer,private :: grp_index(:)
    integer(kind=kint),pointer,private :: grp_item(:)
    type(fstr_str_arr),private :: grp_name
  