ADI: fix bug in commit b0ef954

Author: andrew-platt

modules/aerodyn/src/AeroDyn_Inflow.f90

@@ -90,7 +90,7 @@ subroutine ADI_Init(InitInp, u, p, x, xd, z, OtherState, y, m, Interval, InitOut
    case default
       call SetErrStat(ErrID_Fatal, 'Invalid value for CompInflow', ErrStat, ErrMsg, RoutineName)
       return
-   endif
+   end select 
 
    call AD_Init(InitInp%AD, u%AD, p%AD, x%AD, xd%AD, z%AD, OtherState%AD, y%AD, m%AD, Interval, InitOut_AD, errStat2, errMsg2); if (Failed()) return
    InitOut%Ver = InitOut_AD%ver