Fix bug in Calculate_C_alpha (AirfoilInfo.f90)

andrew-platt · Dec 23, 2024 · 8d983ac · 8d983ac
1 parent 40202bb
commit 8d983ac
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/modules/aerodyn/src/AirfoilInfo.f90 b/modules/aerodyn/src/AirfoilInfo.f90
@@ -1195,8 +1195,13 @@ SUBROUTINE Calculate_C_alpha(alpha, Cn, Cl, Default_Cn_alpha, Default_Cl_alpha,
       A(:,1) = alpha
       A(:,2) = 1.0_ReKi
 
-      B(:,1) = Cn
-      B(:,2) = Cl
+      if (size(Cn) == 1) then
+         B(:,1) = Cn(1)
+         B(:,2) = Cl(1)
+      else
+         B(:,1) = Cn
+         B(:,2) = Cl
+      end if
 
       CALL LAPACK_gels('N', A, B, ErrStat, ErrMsg)