XL Fortran Enterprise Edition for AIX : User's Guide - IBM

-qswapomp Option
Syntax
-qswapomp | -qnoswapomp
SWAPOMP | NOSWAPOMP
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.
The compiler does not perform substitution of OpenMP routines when you specify
the -qnoswapomp option.
Restrictions
The -qswapomp and -qnoswapomp options only affect Fortran sub-programs that
reference OpenMP routines that exist in the program.
Rules
v 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.
v
v
v
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
END
XL Fortran Compiler-Option Reference 247