anchor.diff:          integer   surfID_snap(nshg)
           real*8    x_tmp(nsd),    x_crt(nsd)
           real*8    mag,           rad
  +        integer   i
   c
           do i = 1, nshg
   c... if surf ID is snapSurfID
  
positive.code:         real*8    normal(nshg, nsd)
  c
          if ( timeDepComp1Flag .eq. 1) then ! double check
  c
          surfID_TDComp1 = zero
          normal = zero
  
negative.code:         subroutine resetSnapBC ( x,       disp_snap,
       &                           iBC,     BC,     surfID_snap)
  c
          use iso_c_binding
          use simmetrix_snap
  c
          include "common.h"
  c
          real*8    x(numnp,nsd),  disp_snap(numnp,nsd)
  