module CCommon
    use CCommonVariables
    implicit none    
    public    
    contains
    ! Input routines
    subroutine SetStandRack(v)
	    implicit none
	    integer, intent(in) :: v
        if(Common%StandRack == v) return
	    Common%StandRack = v
        ! call Common%OnStandRackChange%Run(v)
    end subroutine

    integer function GetStandRack()
	    implicit none
	    GetStandRack = Common%StandRack
    end function    
    
end module CCommon