Merge pull request #996 from andrew-platt/b/BD_BldNdOuts

[BugFix] BeamDyn nodal outputs occasionally segfaulted
OpenFAST · Feb 10, 2022 · 1f53061 · 1f53061
2 parents 151248c + d3b48f9
commit 1f53061
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/modules/beamdyn/src/BeamDyn.f90 b/modules/beamdyn/src/BeamDyn.f90
@@ -1062,6 +1062,7 @@ subroutine SetParameters(InitInp, InputFileData, p, ErrStat, ErrMsg)
  if (ErrStat >= AbortErrLev) return
 
  p%NdIndx(1) = 1
+ p%NdIndxInverse(1) = 1
  p%OutNd2NdElem(:,1) = 1 ! note this is an array
  indx = 2
  DO i=1,p%elem_total
@@ -1119,6 +1120,7 @@ subroutine SetParameters(InitInp, InputFileData, p, ErrStat, ErrMsg)
  if (ErrStat >= AbortErrLev) return
 
  p%NdIndx(1) = 1
+ p%NdIndxInverse(1) = 1
  p%OutNd2NdElem(:,1) = 1 ! note this is an array 
  indx = 2 
  DO i=1,p%elem_total