From 92574d761b8cedd91eb1931a1eabb2d7f3359448 Mon Sep 17 00:00:00 2001 From: Rafael M Mudafort Date: Tue, 19 Sep 2017 11:43:40 -0600 Subject: [PATCH] removed an unused subroutine --- modules-local/beamdyn/src/BeamDyn.f90 | 32 --------------------------- 1 file changed, 32 deletions(-) diff --git a/modules-local/beamdyn/src/BeamDyn.f90 b/modules-local/beamdyn/src/BeamDyn.f90 index 63ff76b7a..70a8808cd 100644 --- a/modules-local/beamdyn/src/BeamDyn.f90 +++ b/modules-local/beamdyn/src/BeamDyn.f90 @@ -1642,38 +1642,6 @@ SUBROUTINE BD_UpdateDiscState( t, n, u, p, x, xd, z, OtherState, m, ErrStat, Err END SUBROUTINE BD_UpdateDiscState -!----------------------------------------------------------------------------------------------------------------------------------- -!> Routine for solving for the residual of the constraint state equations -SUBROUTINE BD_CalcConstrStateResidual( t, u, p, x, xd, z, OtherState, m, Z_residual, ErrStat, ErrMsg ) - - REAL(DbKi), INTENT(IN ) :: t !< Current simulation time in seconds - TYPE(BD_InputType), INTENT(IN ) :: u !< Inputs at t - TYPE(BD_ParameterType), INTENT(IN ) :: p !< Parameters - TYPE(BD_ContinuousStateType), INTENT(IN ) :: x !< Continuous states at t - TYPE(BD_DiscreteStateType), INTENT(IN ) :: xd !< Discrete states at t - TYPE(BD_ConstraintStateType), INTENT(IN ) :: z !< Constraint states at t (possibly a guess) - TYPE(BD_OtherStateType), INTENT(IN ) :: OtherState !< Other states at t - TYPE(BD_ConstraintStateType), INTENT( OUT) :: Z_residual !< Residual of the constraint state equations using - !! the input values described above - TYPE(BD_MiscVarType), INTENT(INOUT) :: m !< misc/optimization variables - INTEGER(IntKi), INTENT( OUT) :: ErrStat !< Error status of the operation - CHARACTER(*), INTENT( OUT) :: ErrMsg !< Error message if ErrStat /= ErrID_None - - - ! Initialize ErrStat - - ErrStat = ErrID_None - ErrMsg = "" - - - ! Solve for the constraint states here: - - Z_residual%DummyConstrState = 0 - -END SUBROUTINE BD_CalcConstrStateResidual - - - !----------------------------------------------------------------------------------------------------------------------------------- !> This subroutine computes initial Gauss point values: uu0, E10 ! Note similarities to BD_QuadraturePointData