anchor.diff:  
       allocate(coord(hecMESH%n_node*ndof))
   
  -    tincr = fstrSOLID%step_ctrl(cstep)%initdt
  +    tincr = dtime
       if( fstrSOLID%step_ctrl(cstep)%solution == stepStatic ) tincr = 0.0d0
   
       call cpu_time(tt0)
  
positive.code: 
      allocate(coord(hecMESH%n_node*ndof))
  
      tincr = fstrSOLID%step_ctrl(cstep)%initdt
      if( fstrSOLID%step_ctrl(cstep)%solution == stepStatic ) tincr = 0.d0
  
      call cpu_time(tt0)
  
negative.code: 
      allocate(coord(hecMESH%n_node*ndof))
  
      tincr = dtime
      if( fstrSOLID%step_ctrl(cstep)%solution == stepStatic ) tincr = 0.0d0
  
      call cpu_time(tt0)
  