SimulationCore2/CSharp/OperationScenarios/UnitySignals/CFlowPipeDisconnectEnumVariables.f90

module CFlowPipeDisconnectEnumVariables
    use CVoidEventHandlerCollection
    implicit none
!    integer :: FlowPipeDisconnect = 0
!    
!    public
!    
!    type(VoidEventHandlerCollection) :: OnFlowPipeDisconnectChange
!    
!    enum, bind(c)
!        enumerator FLOW_PIPE_DISCONNECT_NEUTRAL
!        enumerator FLOW_PIPE_DISCONNECT_BEGIN
!        enumerator FLOW_PIPE_DISCONNECT_END
!    end enum
!    
!    private :: FlowPipeDisconnect
!    
!    contains
!    
!    subroutine Set_FlowPipeDisconnect(v)
!        implicit none
!        integer , intent(in) :: v
!#ifdef ExcludeExtraChanges
!        if(FlowPipeDisconnect == v) return
!#endif
!        FlowPipeDisconnect = v
!#ifdef deb
!        print*, 'FlowPipeDisconnect=', FlowPipeDisconnect
!#endif
!        call OnFlowPipeDisconnectChange%RunAll()
!    end subroutine
!    
!    integer function Get_FlowPipeDisconnect2()
!        implicit none
!        Get_FlowPipeDisconnect2 = FlowPipeDisconnect
!    end function
    
    
    
!    subroutine Set_FlowPipeDisconnect_deprecated(v)
!    !DEC$ ATTRIBUTES DLLEXPORT :: Set_FlowPipeDisconnect_deprecated
!    !DEC$ ATTRIBUTES ALIAS: 'Set_FlowPipeDisconnect_deprecated' :: Set_FlowPipeDisconnect_deprecated
!        implicit none
!        integer , intent(in) :: v
!        call Set_FlowPipeDisconnect(v)
!    end subroutine
!    
!    
!    integer function Get_FlowPipeDisconnect_deprecated()
!    !DEC$ ATTRIBUTES DLLEXPORT :: Get_FlowPipeDisconnect_deprecated
!    !DEC$ ATTRIBUTES ALIAS: 'Get_FlowPipeDisconnect_deprecated' :: Get_FlowPipeDisconnect_deprecated
!        implicit none
!        Get_FlowPipeDisconnect_WN = FlowPipeDisconnect
!    end function
!    
!    
!    
!    subroutine FlowPipeDisconnectEnd()
!    !DEC$ ATTRIBUTES DLLEXPORT :: FlowPipeDisconnectEnd
!    !DEC$ ATTRIBUTES ALIAS: 'FlowPipeDisconnectEnd' :: FlowPipeDisconnectEnd
!        implicit none
!        call Set_FlowPipeDisconnect(FLOW_PIPE_DISCONNECT_END)
!#ifdef deb
!        print*, 'FLOW_PIPE_DISCONNECT_END'
!#endif
!    end subroutine
    
    
    
end module CFlowPipeDisconnectEnumVariables