Simulation Core
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
 
 
 
 
 
 

17 řádky
451 B

  1. module CQuery
  2. implicit none
  3. public GetCurrentProcessorNumber
  4. interface
  5. function GetCurrentProcessorNumber() bind(C,Name='GetCurrentProcessorNumber')
  6. use ifwinty
  7. implicit none
  8. !DEC$ ATTRIBUTES STDCALL :: GetCurrentProcessorNumber
  9. integer(DWORD) :: GetCurrentProcessorNumber
  10. end function GetCurrentProcessorNumber
  11. end interface
  12. contains
  13. end module CQuery