anchor.diff:  
      DvrData%w = TwoNorm( InitInputData%RootVel(4:6) )
      
  -   if (EqualRealNos(DvrData%w,0.0_ReKi)) then
  -      DvrData%w = 0.0_ReKi
  +   if (EqualRealNos(DvrData%w,0.0_R8Ki)) then
  +      DvrData%w = 0.0_R8Ki
            ! the beam is not rotating, so pick an orientation
         call eye(orientation, ErrStat2, ErrMsg2)
      else
  
positive.code:    CALL OpenFInpFile(UnIn,DvrInputFile,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
        IF (ErrStat >= AbortErrLev) RETURN
        
     !-------------------------- HEADER ---------------------------------------------
     CALL ReadCom(UnIn,DvrInputFile,'File Header: Module Version (line 1)',ErrStat2,ErrMsg2,UnEc)
  
negative.code:    TYPE , PUBLIC :: BD_DriverInternalType
        REAL(ReKi)     , DIMENSION(1:6)               :: DistrLoad        !< Constant distributed load along beam axis, 3 forces and 3 moments [-]
        REAL(ReKi)     , DIMENSION(1:6)               :: TipLoad          !< Constant point load applied at tip, 3 forces and 3 moments [-]
        INTEGER(IntKi)                                :: NumPointLoads    !< Number of constant point loads applied along beam axis, 3 forces and 3 moments, from the driver input file [-]
        REAL(BDKi) ,     DIMENSION(:,:), ALLOCATABLE  :: MultiPointLoad   !< Constant point loads applied along beam axis, size (NumPointLoads,7); (dimension 2: index 1=Relative position along blade span; indices 2-7 = Fx, Fy, Fz, Mx, My, Mz) [-]
              
        TYPE(MeshType)                                :: mplMotion        ! Mesh for blade motion at multipoint loads locations
        TYPE(MeshType)                                :: mplLoads         ! Mesh for multipoint loads
        TYPE(MeshMapType)                             :: Map_BldMotion_to_mplMotion
        TYPE(MeshMapType)                             :: Map_mplLoads_to_PointLoad
        TYPE(MeshType)                                :: y_BldMotion_at_u_point ! Intermediate mesh to transfer motion from output mesh to input mesh
        TYPE(MeshMapType)                             :: Map_y_BldMotion_to_u_point
                                                      
        TYPE(MeshType)                                :: RotationCenter
        TYPE(MeshMapType)                             :: Map_RotationCenter_to_RootMotion
                                                      
        REAL(DbKi)                                    :: t_initial
        REAL(DbKi)                                    :: t_final
        REAL(R8Ki)                                    :: w           ! magnitude of rotational velocity vector
        
     END TYPE
     
  