anchor.diff:  !       BladeInputFileData%mass0(6,:,i) = temp66(5,:)
      ENDDO
   
  -   END SUBROUTINE BD_ReadBladeFile
  +END SUBROUTINE BD_ReadBladeFile
   
   SUBROUTINE BD_ValidateInputData( InputFileData, ErrStat, ErrMsg )
   ! This routine validates the inputs from the BeamDyn input files.
  
positive.code:    if (ErrStat >= AbortErrLev) RETURN
  
  
     END SUBROUTINE BD_DynamicSolutionForce
  
     SUBROUTINE BD_ReadInput(InputFileName,InputFileData,OutFileRoot, Default_DT,ErrStat,ErrMsg)
  
     ! Passed Variables:
     CHARACTER(*),                 INTENT(IN   )  :: InputFileName    ! Name of the input file
  
negative.code:    end subroutine cleanup         
  END SUBROUTINE BD_ReadPrimaryFile
  
  SUBROUTINE BD_ReadBladeFile(BldFile,BladeInputFileData,UnEc,ErrStat,ErrMsg)
  
     ! Passed variables:
     TYPE(BladeInputData), INTENT(  OUT):: BladeInputFileData
  