SimulationCore2/CSharp/OperationScenarios/UnitySignals/CFlowKellyDisconnectEnumVariables.f90

module CFlowKellyDisconnectEnumVariables
    use CVoidEventHandlerCollection
    implicit none
!    integer :: FlowKellyDisconnect = 0
!    
!    public
!    
!    type(VoidEventHandlerCollection) :: OnFlowKellyDisconnectChange
!    
!    enum, bind(c)
!        enumerator FLOW_KELLY_DISCONNECT_NEUTRAL
!        enumerator FLOW_KELLY_DISCONNECT_BEGIN
!        enumerator FLOW_KELLY_DISCONNECT_END
!    end enum
!    
!    private :: FlowKellyDisconnect
!    
!    contains
!    
!    subroutine Set_FlowKellyDisconnect(v)
!        implicit none
!        integer , intent(in) :: v
!#ifdef ExcludeExtraChanges
!        if(FlowKellyDisconnect == v) return
!#endif
!        FlowKellyDisconnect = v
!#ifdef deb
!        print*, 'FlowKellyDisconnect=', FlowKellyDisconnect
!#endif
!        call OnFlowKellyDisconnectChange%RunAll()
!    end subroutine
!    
!    integer function Get_FlowKellyDisconnect2()
!        implicit none
!        Get_FlowKellyDisconnect2 = FlowKellyDisconnect
!    end function
    
    
    
!    integer function Get_FlowKellyDisconnect_deprecated()
!    !DEC$ ATTRIBUTES DLLEXPORT :: Get_FlowKellyDisconnect_deprecated
!    !DEC$ ATTRIBUTES ALIAS: 'Get_FlowKellyDisconnect_deprecated' :: Get_FlowKellyDisconnect_deprecated
!        implicit none
!        !Get_FlowKellyDisconnect_WN = FlowKellyDisconnect
!    end function
!    
!    
!    subroutine FlowKellyDisconnectEnd()
!    !DEC$ ATTRIBUTES DLLEXPORT :: FlowKellyDisconnectEnd
!    !DEC$ ATTRIBUTES ALIAS: 'FlowKellyDisconnectEnd' :: FlowKellyDisconnectEnd
!        implicit none
!        call Set_FlowKellyDisconnect(FLOW_KELLY_DISCONNECT_END)
!#ifdef deb
!        print*, 'FLOW_KELLY_DISCONNECT_END'
!#endif
!    end subroutine
    
    
    
end module CFlowKellyDisconnectEnumVariables