anchor.diff:                 endif
               endif
   
  -c
  -c.... update and the aerodynamic forces
  -c
  -            call forces ( yold,  ilwork )
  -            
               if((irscale.ge.0).or.(itwmod.gt.0)) 
        &           call getvel (yold,     ilwork, iBC,
        &                        nsons,    ifath, velbar)
  
positive.code: 
             call restar ('out ',  yold  ,ac)
             if(ideformwall == 1) then
                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
  
negative.code: 
              endif
  c
  c.... update and the aerodynamic forces
  c
              call forces ( yold,  ilwork )
              
  c
  c .. write out the instantaneous solution
  c
  2001    continue  ! we could get here by 2001 label if user requested stop
  