NUMBER_OF_PROCESSORS(DIM) (IBM extension)

Purpose

Returns a scalar of type default integer whose value is always 1. This intrinsic ensures compatibility with programs written for High Performance Fortran (HPF) environments.

Class

System inquiry function

Argument type and attributes

DIM (optional)
An INTENT(IN) INTEGER scalar that has a value of 1 (the rank of the processor array).

Result type and attributes

Default scalar integer which always has a value of 1.

Examples

I = NUMBER_OF_PROCESSORS()       ! 1
J = NUMBER_OF_PROCESSORS(DIM=1)  ! 1