Simulation Core
No puede seleccionar más de 25 temas Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.

CQuery.f90 451 B

hace 1 año
1234567891011121314151617
  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