ExtLd: change SetInitOut InitOut to inent(inout)

OpenFAST · Sep 11, 2024 · a9755c1 · a9755c1
1 parent 7c3e733
commit a9755c1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/modules/extloads/src/ExtLoads.f90 b/modules/extloads/src/ExtLoads.f90
@@ -49,8 +49,8 @@ module ExtLoads
 !! FAST)   
 subroutine ExtLd_SetInitOut(p, InitOut, errStat, errMsg)
 
-   type(ExtLd_InitOutputType),       intent(  out)  :: InitOut          ! output data
-   type(ExtLd_ParameterType),        intent(in   )  :: p                ! Parameters
+   type(ExtLd_InitOutputType),    intent(inout)  :: InitOut          ! output data
+   type(ExtLd_ParameterType),     intent(in   )  :: p                ! Parameters
    integer(IntKi),                intent(  out)  :: errStat          ! Error status of the operation
    character(*),                  intent(  out)  :: errMsg           ! Error message if ErrStat /= ErrID_None