Category
Purpose
Specifies that the compiler should recognize and substitute OpenMP routines in XL Fortran programs.
The OpenMP routines for Fortran and C have different interfaces. To support multi-language applications that use OpenMP routines, the compiler needs to recognize OpenMP routine names and substitute them with the XL Fortran versions of these routines, regardless of the existence of other implementations of such routines.
Syntax
.-swapomp---. >>- -q--+-noswapomp-+------------------------------------------><
@PROCESS:
@PROCESS SWAPOMP | NOSWAPOMPDefaults
-qswapomp
Usage
The compiler does not perform substitution of OpenMP routines when you specify the -qnoswapomp option.
The -qswapomp and -qnoswapomp options only affect Fortran subprograms that reference OpenMP routines that exist in the program.
Rules
- If a call to an OpenMP routine resolves to a dummy procedure, module procedure, an internal procedure, a direct invocation of a procedure itself, or a statement function, the compiler will not perform the substitution.
- When you specify an OpenMP routine, the compiler substitutes the call to a different special routine depending upon the setting of the -qintsize option. In this manner, OpenMP routines are treated as generic intrinsic procedures.
- Unlike generic intrinsic procedures, if you specify an OpenMP routine in an EXTERNAL statement, the compiler will not treat the name as a user-defined external procedure. Instead, the compiler will still substitute the call to a special routine depending upon the setting of the -qintsize option.
- An OpenMP routine cannot be extended or redefined, unlike generic intrinsic procedures.
Examples
In the following example, the OpenMP routines are declared in an INTERFACE statement.
@PROCESS SWAPOMP
INTERFACE
FUNCTION OMP_GET_THREAD_NUM()
INTEGER OMP_GET_THREAD_NUM
END FUNCTION OMP_GET_THREAD_NUM
FUNCTION OMP_GET_NUM_THREADS()
INTEGER OMP_GET_NUM_THREADS
END FUNCTION OMP_GET_NUM_THREADS
END INTERFACE
IAM = OMP_GET_THREAD_NUM()
NP = OMP_GET_NUM_THREADS()
PRINT *, IAM, NP
ENDRelated information
See the OpenMP execution environment, lock and timing routines section.