anchor.diff:  
      PRIVATE
      
  -   !............................
  -   ! NOTE: for debugging, add preprocessor definition SD_SUMMARY_DEBUG
  -   !       this will add additional matrices to the SubDyn summary file.
  -   !............................
      TYPE(ProgDesc), PARAMETER  :: SD_ProgDesc = ProgDesc( 'SubDyn', '', '' )
         
      ! ..... Public Subroutines ...................................................................................................
  
positive.code:       if (nCB>0) then
           CC(1:nY,1:nCB )   = - p%C1_11
           CC(1:nY,nCB+1:nX) = - p%C1_12
           !if (p%Floating .and. present(u)) then
           !   CC(1:3,:) = matmul(transpose(u%TPMesh%Orientation(:,:,1)), CC(1:3,:)) ! >>> Rotate All
           !   CC(4:6,:) = matmul(transpose(u%TPMesh%Orientation(:,:,1)), CC(4:6,:)) ! >>> Rotate All
           !endif
        endif
     endif
  
  
negative.code:       if (.not.(p%ExtraMoment.and.p%Floating)) then
           Y1_CB_L = - (matmul(p%D1_141, m%F_L)) ! Uses non rotated loads
        endif
        if (p%Floating) then
           Y1_CB_L = matmul(RRb2g, Y1_CB_L) !>>> Rotate All
        endif
  
        Y1 = Y1_CB + Y1_Utp + Y1_CB_L+ Y1_Guy_L + Y1_Guy_R 
        ! KEEP ME
  