Merge pull request #2356 from getChaos22/dev

Fix a bug when reading WAMIT QTF files with multiple wave headings
OpenFAST · Aug 2, 2024 · c2df793 · c2df793
2 parents 50f9ba0 + 995fdec
commit c2df793
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/hydrodyn/src/WAMIT2.f90 b/modules/hydrodyn/src/WAMIT2.f90
@@ -4252,7 +4252,7 @@ SUBROUTINE Read_DataFile4D( InitInp, Filename4D, Data4D, ErrStat, Errmsg )
  ! See if the diagonal mirror one (WvDir2,WvDir1) value is not filled, set it and its flag
  IF ( .NOT. Data4D%DataMask(TmpCoord(1), TmpCoord(2), TmpCoord(4), TmpCoord(3), TmpCoord(5)) ) THEN
  Data4D%DataSet(TmpCoord(1), TmpCoord(2), TmpCoord(4), TmpCoord(3), TmpCoord(5) ) = &
- Data4D%DataSet(TmpCoord(1), TmpCoord(2), TmpCoord(3), TmpCoord(3), TmpCoord(5) )
+ Data4D%DataSet(TmpCoord(1), TmpCoord(2), TmpCoord(3), TmpCoord(4), TmpCoord(5) )
  Data4D%DataMask(TmpCoord(1), TmpCoord(2), TmpCoord(4), TmpCoord(3), TmpCoord(5) ) = .TRUE.
  ENDIF