anchor.diff:     ENDDO
   
      CALL ReadVar(UnIn,DvrInputFile,DvrData%GlbRotBladeT0,"DvrData%GlbRotBladeT0","Is the blade initial orientation also the GlbRot calculation frame",ErrStat2,ErrMSg2,UnEc)
  -      CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName
  +      CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
   
      if (ErrStat >= AbortErrLev) then
          call cleanup()
  
positive.code: 
           ! Set the GlbRot matrix
        InitInputData%GlbRot = InitInputData%RootOri
  
     else
  
           ! Initialize the GlbRot matrix as the identity
        CALL eye( InitInputData%GlbRot, ErrStat2, ErrMsg2 )
           CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  
     end if
  
negative.code:        CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName)
         if (ErrStat >= AbortErrLev) return
         
         Pos = BD_Parameter%GlbPos + MATMUL(BD_InitInput%RootOri,temp_POS)
         
         temp_CRV2 = MATMUL(BD_InitInput%RootOri,temp_CRV)
         CALL BD_CrvCompose(temp_CRV,BD_Parameter%Glb_crv,temp_CRV2,FLAG_R1R2) !temp_CRV = p%Glb_crv composed with temp_CRV2
  
         CALL BD_CrvMatrixR(temp_CRV,TmpDCM) ! returns TmpDCM (the transpose of the DCM orientation matrix)
  