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)
#ifdef deb
        print*, 'StandRack=', Common%StandRack
#endif
    end subroutine
    
    
    subroutine SetStandRack_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetStandRack_WN
    !DEC$ ATTRIBUTES ALIAS: 'SetStandRack_WN' :: SetStandRack_WN
	    implicit none
	    integer, intent(in) :: v
        call SetStandRack(v)
    end subroutine
    
    
    
    ! Output routines
    logical function GetDrillWatchOperationMode()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetDrillWatchOperationMode
    !DEC$ ATTRIBUTES ALIAS: 'GetDrillWatchOperationMode' :: GetDrillWatchOperationMode
	    implicit none
	    GetDrillWatchOperationMode = Common%DrillWatchOperationMode
    end function
    
    integer function GetStandRack()
	    implicit none
	    GetStandRack = Common%StandRack
    end function
    
    integer function GetStandRack_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetStandRack_WN
    !DEC$ ATTRIBUTES ALIAS: 'GetStandRack_WN' :: GetStandRack_WN
	    implicit none
	    GetStandRack_WN = Common%StandRack
    end function
    
    
    
    
end module CCommon