anchor.diff:      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  )
  
positive.code:     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(:)
  
      if( .not. fstr_str2index(name, no) ) then
        get_sorted_local_member_index = -1
  
negative.code:     character(len=*) :: type_name
      character(len=*) :: name
      integer(kind=kint) :: local_id
      integer(kind=kint) :: i, n, no, fg
      integer(kind=kint),pointer :: global_item(:)
  
      if( .not. fstr_str2index(name, no) ) then
  