anchor.diff:                                                         
      INTEGER(IntKi)                         :: ErrStat2                                                                    
      CHARACTER(LEN(ErrMsg))                 :: ErrMsg2
  +   CHARACTER(*), PARAMETER                :: RoutineName = 'CBMatrix'
                                                          
      ErrStat = ErrID_None 
      ErrMsg  = ''
  
positive.code:          OmegaL(I) = 0.0_ReKi
        END DO     
     
        !....................................................
        ! Set p%PhiL_T and p%PhiLInvOmgL2 for static improvement
        !....................................................
  
negative.code:    CHARACTER(*),           INTENT(  OUT)  :: ErrMsg      ! Error message if ErrStat /= ErrID_None
  
     ! LOCAL VARIABLES
     REAL(ReKi) , allocatable               :: Mu(:, :)          ! matrix for normalization Mu(p%DOFL, p%DOFL) [bjj: made allocatable to try to avoid stack issues]
     REAL(ReKi) , allocatable               :: Temp(:, :)        ! temp matrix for intermediate steps [bjj: made allocatable to try to avoid stack issues]
     REAL(ReKi) , allocatable               :: PhiR_T_MLL(:,:)   ! PhiR_T_MLL(p%DOFR,p%DOFL) = transpose of PhiR * MLL (temporary storage)
     
     
     
     INTEGER                                :: I !, lwork !counter, and varibales for inversion routines
     INTEGER                                :: DOFvar !placeholder used to get both PhiL or PhiM into 1 process
  