Ви не можете вибрати більше 25 тем
Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
|
- # 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
|