otsgetthreadnum  (3f)

returns the number of the current thread (also called mpc_my_threadnum)

Syntax

  interface
     integer function otsgetthreadnum ( )
     !dec$ alias otsgetthreadnum, '_OtsGetThreadNum'
     end function otsgetthreadnum
  end interface
  integer result
  result = otsgetthreadnum ( )

Description

  This function returns a number that identifies the current thread. The main
  thread is zero, and slave threads are numbered densely from 1.