anchor.diff:  SUBROUTINE SetVTKParameters_B4HD(p_FAST, InitOutData_ED, InitInData_HD, BD, ErrStat, ErrMsg)
   
      TYPE(FAST_ParameterType),     INTENT(INOUT) :: p_FAST           !< The parameters of the glue code
  -   TYPE(ED_InitOutputType),      INTENT(INOUT) :: InitOutData_ED   !< The initialization output from structural dynamics module
  -   TYPE(HydroDyn_InitInputType), INTENT(INOUT) :: InitInData_HD    !< The initialization input toHydroDyn
  +   TYPE(ED_InitOutputType),      INTENT(IN   ) :: InitOutData_ED   !< The initialization output from structural dynamics module
  +   TYPE(HydroDyn_InitInputType), INTENT(INOUT) :: InitInData_HD    !< The initialization input to HydroDyn
      TYPE(BeamDyn_Data),           INTENT(IN   ) :: BD               !< BeamDyn data
      INTEGER(IntKi),               INTENT(  OUT) :: ErrStat          !< Error status of the operation
      CHARACTER(*),                 INTENT(  OUT) :: ErrMsg           !< Error message if ErrStat /= ErrID_None
  
positive.code: SUBROUTINE SetVTKParameters(p_FAST, InitOutData_ED, InitOutData_AD, InitInData_HD, InitOutData_HD, ED, BD, AD, HD, ErrStat, ErrMsg)
  
     TYPE(FAST_ParameterType),     INTENT(INOUT) :: p_FAST           !< The parameters of the glue code
     TYPE(ED_InitOutputType),      INTENT(INOUT) :: InitOutData_ED   !< The initialization output from structural dynamics module
     TYPE(AD_InitOutputType),      INTENT(INOUT) :: InitOutData_AD   !< The initialization output from AeroDyn
     TYPE(HydroDyn_InitInputType), INTENT(INOUT) :: InitInData_HD    !< The initialization input to HydroDyn
     TYPE(HydroDyn_InitOutputType),INTENT(INOUT) :: InitOutData_HD   !< The initialization output from HydroDyn
  
negative.code:    CHARACTER(ErrMsgLen)                    :: ErrMSg2
     CHARACTER(*), PARAMETER                 :: RoutineName = 'WrVTK_AllMeshes'
     
     NumBl = 0
     if (allocated(ED%Output)) then
        if (allocated(ED%Output(1)%BladeRootMotion)) then
  +         NumBl = SIZE(ED%Output(1)%BladeRootMotion)      
  +     end if
     end if
     
     
  