SimulationCore2/CSharp/Common/CCommon.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Common/CCommon.f90"
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