Inquiry Intrinsic Function (Specific): Returns the number of processes executing a routine.
This is a specific function that has no generic f unction associated with it. It must not be passed as an actual argument. It is provided for compatibility with Compaq Fortran 77 for OpenVMS VAX systems.
Syntax
Results:
The result is always 1.