otsinparallel (3f)

Compaq Fortran for Tru64 UNIX Alpha Systems V5.4

returns the current status of processing activity in a parallel region (also called mpc_in_parallel_region)

Syntax

  interface
     integer function otsinparallel ( )
     !dec$ alias otsinparallel, '_OtsInParallel'
     end function otsinparallel
  end interface
  integer result
  result = otsinparallel ( )

Return Values

  The function returns 1 if the program is currently running within a
  parallel region; otherwise, it returns zero.