anchor.diff:     ! place single node at origin; position affects mapping/coupling with other modules
      TmpPos(:) = p%GlbPos(1:3) + MATMUL(p%GlbRot,p%uuN0(1:3,1))
      temp_CRV(:) = MATMUL(p%GlbRot,p%uuN0(4:6,1))
  +   CALL BD_CrvCompose(temp_CRV,temp_CRV,temp_glb,0,ErrStat2,ErrMsg2)
  +      CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
      CALL BD_CrvMatrixR(temp_CRV,TmpDCM,ErrStat2,ErrMsg2)
  +      CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
      TmpDCM(:,:) = TRANSPOSE(TmpDCM)
      CALL MeshPositionNode ( Mesh = u%RootMotion      &
                            , INode = 1                &
  
positive.code:    p%GlbPos(1:3)     = InitInp%GlbPos(1:3)
     p%GlbRot(1:3,1:3) = TRANSPOSE(InitInp%GlbRot(1:3,1:3))
     p%gravity(:) = MATMUL(TRANSPOSE(p%GlbRot),InitInp%gravity(:))
  
     ! Analysis type: 1 Static 2 Dynamic
     p%analysis_type  = InputFileData%analysis_type
  
negative.code:    REAL(ReKi),ALLOCATABLE  :: SP_Coef(:,:,:)
     REAL(ReKi)              :: TmpPos(3)
     REAL(ReKi)              :: TmpDCM(3,3)
     REAL(ReKi),ALLOCATABLE  :: temp_glb(3)
  
     INTEGER(IntKi)          :: ErrStat2                     ! Temporary Error status
     CHARACTER(ErrMsgLen)    :: ErrMsg2                      ! Temporary Error message
  