anchor.diff:  
      END SUBROUTINE BD_GenerateDynamicElementGA2
   
  -   SUBROUTINE BD_InputGlobalLocal( p, u, flag, ErrStat, ErrMsg)
  -
  +   SUBROUTINE BD_InputGlobalLocal( p, u, ErrStat, ErrMsg)
  +   !-----------------------------------------------------------------------------
  +   ! This subroutine tranforms the folloing quantities in Input data structure
  +   ! from global frame to local (blade) frame:
  +   ! 1 Displacements; 2 Linear/Angular velocities; 3 Linear/Angular accelerations
  +   ! 4 Piont forces/moments; 5 Distributed forces/moments
  +   ! It also transforms the DCM to rotation tensor in the input data structure
  +   !-----------------------------------------------------------------------------
      TYPE(BD_ParameterType), INTENT(IN   ):: p
      TYPE(BD_InputType),     INTENT(INOUT):: u
  -   INTEGER(IntKi),         INTENT(IN   ):: flag            ! 0: Global to Blade;
      INTEGER(IntKi),         INTENT(  OUT):: ErrStat       ! Error status of the operation
      CHARACTER(*),           INTENT(  OUT):: ErrMsg        ! Error message if ErrStat /= ErrID_None
                                                              ! 1: Blade to Global
  
positive.code:    REAL(ReKi)                       :: feqv(dof_total-6)
     REAL(ReKi)                       :: Eref
     REAL(ReKi)                       :: Enorm
     REAL(ReKi),PARAMETER             :: TOLF = 1.0D-05
     REAL(ReKi)                       :: d
     INTEGER(IntKi)                   :: indx(dof_total-6)
     INTEGER(IntKi)                   :: i
  
negative.code:        ENDDO
     ENDDO
  
     CALL BD_InputGlobalLocal(p,u_tmp,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
     CALL BD_BoundaryGA2(x_tmp,p,u_tmp,t,OS_tmp,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  