From 8130a1baea6a843fc71e8aa12625511cbdc08e13 Mon Sep 17 00:00:00 2001 From: pibo Date: Wed, 16 Mar 2022 10:45:26 -0600 Subject: [PATCH] change ReturnLogMap flag to ReturnSmallAngle in BeamDyn.f90 --- modules/beamdyn/src/BeamDyn.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/modules/beamdyn/src/BeamDyn.f90 b/modules/beamdyn/src/BeamDyn.f90 index 8f5b7f00c..ec6ab1019 100644 --- a/modules/beamdyn/src/BeamDyn.f90 +++ b/modules/beamdyn/src/BeamDyn.f90 @@ -6547,7 +6547,7 @@ SUBROUTINE BD_GetOP( t, u, p, x, xd, z, OtherState, y, m, ErrStat, ErrMsg, u_op, CHARACTER(ErrMsgLen) :: ErrMsg2 CHARACTER(*), PARAMETER :: RoutineName = 'BD_GetOP' LOGICAL :: FieldMask(FIELDMASK_SIZE) - LOGICAL :: ReturnLogMap + LOGICAL :: ReturnSmallAngle TYPE(BD_ContinuousStateType) :: dx ! derivative of continuous states at operating point @@ -6585,9 +6585,9 @@ SUBROUTINE BD_GetOP( t, u, p, x, xd, z, OtherState, y, m, ErrStat, ErrMsg, u_op, IF ( PRESENT( y_op ) ) THEN if (present(NeedLogMap)) then - ReturnLogMap = NeedLogMap + ReturnSmallAngle = NeedLogMap else - ReturnLogMap = .false. + ReturnSmallAngle = .false. end if if (.not. allocated(y_op)) then @@ -6609,7 +6609,7 @@ SUBROUTINE BD_GetOP( t, u, p, x, xd, z, OtherState, y, m, ErrStat, ErrMsg, u_op, FieldMask(MASKID_RotationVel) = .true. FieldMask(MASKID_TranslationAcc) = .true. FieldMask(MASKID_RotationAcc) = .true. - call PackMotionMesh(y%BldMotion, y_op, index, FieldMask=FieldMask, UseSmlAngle=ReturnLogMap) + call PackMotionMesh(y%BldMotion, y_op, index, FieldMask=FieldMask, UseSmlAngle=ReturnSmallAngle) index = index - 1 do i=1,p%NumOuts + p%BldNd_TotNumOuts