anchor.diff:        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)
  +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(:)
  
positive.code: 
  END SUBROUTINE BD_GenerateStaticElement
  
     SUBROUTINE BD_StaticElementMatrix(Nuu0,Nuuu,Nrr0,Nrrr,Distr_GL,gravity,&
                                       EMass0_GL,EStif0_GL,ngp,node_elem,dof_node,elk,elf,&
                                       ErrStat,ErrMsg)
  
     REAL(ReKi),    INTENT(IN   ):: Nuu0(:)
     REAL(ReKi),    INTENT(IN   ):: Nuuu(:)
  
negative.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
  