anchor.diff:  
              call restar ('out ',  yold  ,ac)
              if(ideformwall == 1) then
  -              call write_displ(myrank, lstep, nshg, 3, uold )
  +!              call write_displ(myrank, lstep, nshg, 3, uold )
                if(myrank.eq.master) then
                  write(*,*) 'ideformwall is 1 and is a dead code path... exiting'
                endif
  
positive.code: 
              endif
  c
  c .. write out the instantaneous solution
  c
  2001    continue  ! we could get here by 2001 label if user requested stop
  
negative.code:                endif
              endif
  
              if((irscale.ge.0).or.(itwmod.gt.0)) 
       &           call getvel (yold,     ilwork, iBC,
       &                        nsons,    ifath, velbar)
  