Use INTENT(IN) for IgnoreQuotes in GetWords (NWTC_IO)

OpenFAST · Dec 16, 2024 · a62d877 · a62d877
1 parent fca18ee
commit a62d877
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/nwtc-library/src/NWTC_IO.f90 b/modules/nwtc-library/src/NWTC_IO.f90
@@ -2070,7 +2070,7 @@ SUBROUTINE GetWords ( Line, Words, NumWords, NumFound, IgnoreQuotes )
    CHARACTER(*), INTENT(IN)       :: Line                                         !< The string to search.
    CHARACTER(*), INTENT(OUT)      :: Words(NumWords)                              !< The array of found words.
    INTEGER, OPTIONAL, INTENT(OUT) :: NumFound                                     !< The number of words found
-   LOGICAL, OPTIONAL, INTENT(OUT) :: IgnoreQuotes                                 !< Flag to ignore quotes (process as whitespace)
+   LOGICAL, OPTIONAL, INTENT(IN)  :: IgnoreQuotes                                 !< Flag to ignore quotes (process as whitespace)
 
    INTEGER                        :: iWord                                        ! Word index.
    INTEGER                        :: i                                            ! Character index in line.