NUM_PARTHDS() (IBM extension)

Purpose

Returns the number of parallel Fortran threads the run time should create during execution of a program. This value is set by using the PARTHDS run-time option. If the user does not set the PARTHDS run-time option, the run time will set a default value for PARTHDS. In doing so, the run time may consider the following when setting the option:

The number of processors on the machine
The value specified in the run-time option USRTHDS

Class

Inquiry function

Result value

Default scalar integer

If the compiler option -qsmp has not been specified, then NUM_PARTHDS will always return a value of 1.

Examples

I = NUM_PARTHDS()
IF (I == 1) THEN
   CALL SINGLE_THREAD_ROUTINE()
ELSE
   CALL MULTI_THREAD_ROUTINE()

Specific Name	Result Type	Pass As Arg?
NUM_PARTHDS	default scalar integer	no

Related information

See the parthds and XLSMPOPTS runtime options.