anchor.diff:  
      HD_Start = y_FAST%Lin%Modules(Module_HD)%Instance(1)%LinStartIndx(LIN_OUTPUT_COL) 
   
  -END FUNCTION Indx_y_HD_Distrib_Start
  -!----------------------------------------------------------------------------------------------------------------------------------
  -!> This routine returns the starting index for the y_HD%Morison%LumpedMesh mesh in the FAST linearization outputs.
  -FUNCTION Indx_y_HD_Lumped_Start(y_HD, y_FAST) RESULT(HD_Start)
  -   TYPE(FAST_OutputFileType),      INTENT(IN )  :: y_FAST           !< FAST output file data (for linearization)
  -   TYPE(HydroDyn_OutputType),      INTENT(IN )  :: y_HD             !< HD Outputs at t
  -
  -   INTEGER                                      :: HD_Start         !< starting index of this mesh in HydroDyn Outputs
  -
  -   HD_Start = Indx_y_HD_Distrib_Start(y_HD, y_FAST) 
  -   if (y_HD%Morison%DistribMesh%committed)  HD_Start =  HD_Start + y_HD%Morison%DistribMesh%NNodes * 6  ! 2 fields (MASKID_FORCE,MASKID_MOMENT) with 3 components
  -
  -END FUNCTION Indx_y_HD_Lumped_Start
  +END FUNCTION Indx_y_HD_Morison_Start
   !----------------------------------------------------------------------------------------------------------------------------------
   !> This routine returns the starting index for the y_HD%Mesh mesh in the FAST linearization outputs.
   FUNCTION Indx_y_HD_PlatformRef_Start(y_HD, y_FAST) RESULT(HD_Start)
  
positive.code: END FUNCTION Indx_u_AD_BladeInflow_Start
  !----------------------------------------------------------------------------------------------------------------------------------
  !----------------------------------------------------------------------------------------------------------------------------------
  !> This routine returns the starting index for the u_HD%Morison%DistribMesh mesh in the FAST linearization inputs.
  FUNCTION Indx_u_HD_Distrib_Start(u_HD, y_FAST) RESULT(HD_Start)
     TYPE(FAST_OutputFileType),      INTENT(IN )  :: y_FAST           !< FAST output file data (for linearization)
     TYPE(HydroDyn_InputType),       INTENT(IN )  :: u_HD             !< HD Inputs at t
  
  
negative.code: 
     HD_Start = y_FAST%Lin%Modules(Module_HD)%Instance(1)%LinStartIndx(LIN_INPUT_COL) 
  
  END FUNCTION Indx_u_HD_Morison_Start
  !----------------------------------------------------------------------------------------------------------------------------------
  !> This routine returns the starting index for the u_HD%WAMITMesh mesh in the FAST linearization inputs.
  FUNCTION Indx_u_HD_PlatformRef_Start(u_HD, y_FAST) RESULT(HD_Start)
     TYPE(FAST_OutputFileType),      INTENT(IN )  :: y_FAST           !< FAST output file data (for linearization)
     TYPE(HydroDyn_InputType),       INTENT(IN )  :: u_HD             !< HD Inputs at t
  
     INTEGER                                      :: HD_Start         !< starting index of this mesh in HydroDyn inputs
  
     HD_Start = Indx_u_HD_Morison_Start(u_HD, y_FAST) 
     if (u_HD%Morison%Mesh%committed)  HD_Start =  HD_Start + u_HD%Morison%Mesh%NNodes * 18  ! 6 fields (MASKID_TRANSLATIONDISP,MASKID_Orientation,MASKID_TRANSLATIONVel,MASKID_ROTATIONVel,MASKID_TRANSLATIONAcc,MASKID_ROTATIONAcc) with 3 components
  
     END FUNCTION Indx_u_HD_PlatformRef_Start
  !----------------------------------------------------------------------------------------------------------------------------------
  !> This routine returns the starting index for the y_HD%Morison%DistribMesh mesh in the FAST linearization outputs.
  FUNCTION Indx_y_HD_Morison_Start(y_HD, y_FAST) RESULT(HD_Start)
     TYPE(FAST_OutputFileType),      INTENT(IN )  :: y_FAST           !< FAST output file data (for linearization)
     TYPE(HydroDyn_OutputType),      INTENT(IN )  :: y_HD             !< HD Outputs at t
  
  