anchor.diff:        ! blades
      IF (p_FAST%CompElast == Module_ED ) THEN
         
  -!debug_print2 = .true.
         DO k=1,size(y_ED%BladeLn2Mesh)
            CALL Transfer_Line2_to_Line2( y_ED%BladeLn2Mesh(k), u_AD%BladeMotion(k), MeshMapData%BDED_L_2_AD_L_B(k), ErrStat2, ErrMsg2 )
               CALL SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName//':u_AD%BladeMotion('//trim(num2lstr(k))//')' )   
  -!debug_print2 = .false.            
         END DO
         
      ELSEIF (p_FAST%CompElast == Module_BD ) THEN
  
positive.code:       
     ELSE IF ( p_FAST%CompAero == Module_AD ) THEN 
                          
  !debug_print2_unit = 91      
        CALL AD_InputSolve_NoIfW( p_FAST, AD%Input(1), ED%Output(1), BD, MeshMapData, ErrStat2, ErrMsg2 )
           CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName ) 
  !debug_print2_unit = 90      
           
     END IF
     
  
negative.code:    IF (p_FAST%WrBinOutFile) THEN
  
           ! calculate the size of the array of outputs we need to store
        y_FAST%NOutSteps = CEILING ( (p_FAST%TMax - p_FAST%TStart) / p_FAST%DT_OUT ) + 1
  
        CALL AllocAry( y_FAST%AllOutData, NumOuts-1, y_FAST%NOutSteps, 'AllOutData', ErrStat, ErrMsg )
        IF ( ErrStat >= AbortErrLev ) RETURN
  