anchor.diff:     if (ErrStat >= AbortErrLev) RETURN
   
   
  -   END SUBROUTINE BD_DynamicSolutionForce
  -
  -   SUBROUTINE BD_ReadInput(InputFileName,InputFileData,OutFileRoot, Default_DT,ErrStat,ErrMsg)
  +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
  
positive.code:    end subroutine cleanup         
  END SUBROUTINE BD_ReadPrimaryFile
  
     SUBROUTINE BD_ReadBladeFile(BldFile,BladeInputFileData,UnEc,ErrStat,ErrMsg)
  
     ! Passed variables:
     TYPE(BladeInputData), INTENT(  OUT):: BladeInputFileData
  
negative.code:       end subroutine Cleanup
  END SUBROUTINE BD_DynamicSolutionGA2
  
  SUBROUTINE BD_GenerateDynamicElementGA2(uuN0,uuNf,vvNf,aaNf,                 &
                                          Stif0,Mass0,gravity,u,damp_flag,beta,&
                                          elem_total,node_elem,dof_node,ngp,   &
                                          StifK,RHS,MassM,DampG,&
                                          ErrStat,ErrMsg)
  
     REAL(ReKi),        INTENT(IN   ):: uuN0(:,:)
     REAL(ReKi),        INTENT(IN   ):: uuNf(:)
  