Developer Reference for Intel® oneAPI Math Kernel Library for Fortran

ID 766686
Date 10/31/2024
Public
Document Table of Contents

OpenMP* Offload for Intel® oneAPI Math Kernel Library

You can use Intel® oneAPI Math Kernel Library (oneMKL) and OpenMP* offload to run standard oneMKL computations on Intel GPUs. You can find the list of oneMKL features that support OpenMP offload in the mkl_omp_offload.f90 interface module file which includes:

  • All Level 1, 2, and 3 BLAS functions, supporting both synchronous and asynchronous execution
  • BLAS-like extensions: ?axpby, ?axpy_batch_strided, ?gemv_batch_strided, ?dgmm_batch_strided, gemm_s8u8s32, ?gemm_batch_strided, ?trsm_batch_strided, ?trmm_oop, ?trsm_oop, ?gemmt, mkl_?omatcopy_batch_strided, mkl_?imatcopy_batch_strided, and mkl_?omatadd_batch_strided, supporting synchronous and asynchronous execution
  • LAPACK, including LAPACK-like extensions
    • All computations on the Intel GPU (supports both synchronous and asynchronous execution):

      • ?getrf_batch
      • ?getrf_batch_strided
      • ?getrfnp_batch_strided
      • ?getri
      • ?getri_oop_batch_strided
      • ?getrs
      • ?getrs_batch_strided
      • ?getrsnp_batch_strided
      • ?gels_batch_strided
      • ?potrf
      • ?potri
      • ?potrs
      • ?trtri
      • ?trtrs
    • Hybrid; some computations on the Intel GPU (supports synchronous execution):

      • ?gels
      • ?geqrf
      • ?getrf (all computations on the CPU for n <= 256)
      • mkl_?getrfnp (all computations on the CPU for n <= 512)
      • ?ormqr, ?unmqr
      • dsyevd, zheevd
      • dsyevxzheevx
      • dsygvd, zheevd
      • dsygvxzhegvx
    • Interface support only; all computations on the CPU (supports synchronous execution):

      • ?gebrd
      • ?gesvd
      • ?gesvda_batch_strided
      • ?orgqr, ?ungqr
      • ?steqr
      • ?syev, ?heev
      • ssyevd, cheevd
      • ssyevxcheevx
      • ssygvd, chegvd
      • ssygvx, chegvx
      • ?sytrd, ?hetrd
  • FFTs through both DFTI and FFTW3 interfaces in one, two, and three dimensions.
    • For COMPLEX_STORAGE, only the DFTI_COMPLEX_COMPLEX format is currently supported on CPU and GPU devices.
    • Both synchronous and asynchronous computations are supported.
    • For R2C/C2R transforms on the GPU, only DFTI_CONJUGATE_EVEN_STORAGE=DFTI_COMPLEX_COMPLEX is supported (implying DFTI_PACKED_FORMAT=DFTI_CCE_FORMAT).
    • 2D and 3D FFTs are supported using rank-2/rank-3 Fortran arrays for input and output only through Fortran OpenMP offload interface.
    • NOTE:
      INCONSISTENT_CONFIGURATION errors at compute time indicate an invalid descriptor or invalid data pointer. Double check your data mapping if you encounter such errors.
    • Arbitrary strides and batch distances are not supported for multi-dimensional R2C transforms offloaded to the GPU. Considering the first dimension of the data, every element must be separated from its two nearest peers (along another dimension and/or in another batch) by a constant distance. For example, to compute a batched, two-dimensional R2C FFT of size [N1, N2] with input strides [0, 1, S2] (column-major layout with unit elementary stride and no offset), INPUT_DISTANCE must be equal to N2*S2 so that every element is separated from its nearest first-dimension counterpart(s) by a distance S2 (in this example), even across batches.
    • Transforms on GPU devices may overwrite FFT-irrelevant, padding entries in the output data.
  • Vector Statistics
    • Random number generators

      Basic random number generators:

      • VSL_BRNG_MCG31
      • VSL_BRNG_MCG59
      • VSL_BRNG_PHILOX4X32X10
      • VSL_BRNG_MRG32K3A
      • VSL_BRNG_MT19937
      • VSL_BRNG_MT2203
      • VSL_BRNG_SOBOL
    • Summary statistics

      Supports the vsl?SSCompute routine for the following estimates:

      • VSL_SS_MEAN
      • VSL_SS_SUM
      • VSL_SS_2R_MOM
      • VSL_SS_2R_SUM
      • VSL_SS_3R_MOM
      • VSL_SS_3R_SUM
      • VSL_SS_4R_MOM
      • VSL_SS_4R_SUM
      • VSL_SS_2C_MOM
      • VSL_SS_2C_SUM
      • VSL_SS_3C_MOM
      • VSL_SS_3C_SUM
      • VSL_SS_4C_MOM
      • VSL_SS_4C_SUM
      • VSL_SS_KURTOSIS
      • VSL_SS_SKEWNESS
      • VSL_SS_MIN
      • VSL_SS_MAX
      • VSL_SS_VARIATION

      Supported methods:

      • VSL_SS_METHOD_FAST
      • VSL_SS_METHOD_FAST_USER_MEAN

The OpenMP offload feature from Intel® oneAPI Math Kernel Library (oneMKL) allows you to run oneMKL computations on Intel GPUs through the standard oneMKL APIs within an omp dispatch section. For example, the standard CBLAS API for single precision real data type matrix multiply is:

subroutine sgemm ( transa, transb, m, n, k, alpha, a, lda,        &
          &b, ldb, beta, c, ldc ) BIND(C)
       character*1,intent(in)              :: transa, transb
       integer,intent(in)                  :: m, n, k, lda, ldb, ldc
       real,intent(in)                     :: alpha, beta
       real,intent(in)                     :: a( lda, * ), b( ldb, * )
       real,intent(inout)                  :: c( ldc, * )
     end subroutine sgemm

If sgemm is called outside of an omp dispatch section or if offload is disabled, then the CPU implementation is dispatched. If the same function is called within an omp dispatch section and offload is possible then the GPU implementation is dispatched. By default the execution of the oneMKL function within a dispatch construct is synchronous, the nowait clause can be used on the dispatch construct to specify that asynchronous execution is desired. In that case, synchronization needs to be handled by the application using standard OpenMP synchronization functionality, for example the omp taskwait construct.

In order to offload to a device, arguments to the oneMKL function must be mapped to the device memory if they represent a return value (marked with intent(out) or intent(inout) in the subroutine declaration) or if they point to an array of data (such as a matrix or vector, even if it is an input array). Users must map these arguments to the device using the omp target data construct before calling the oneMKL routine.

In Fortran, the OpenMP Offload interfaces have stricter type checking than the standard Fortran interfaces for the same functions. For BLAS functions and BLAS-like extensions, you can bypass this stricter type checking by changing the module that is loaded. For example, in the example below, include use onemkl_blas_omp_offload_lp64_no_array_check instead of use onemkl_blas_omp_offload_lp64.

Example

Examples for using the OpenMP offload for oneMKL are in the Intel® oneAPI Math Kernel Library (oneMKL) installation directory, under:

examples/f_offload
include "mkl_omp_offload.f90"

program sgemm_example
use onemkl_blas_omp_offload_lp64
use common_blas  

character*1 :: transa = 'N', transb = 'N'
integer :: i, j, m = 5, n = 3, k = 10
integer :: lda, ldb, ldc
real :: alpha = 1.0, beta = 1.0
real,allocatable :: a(:,:), b(:,:), c(:,:)

! initialize leading dimension and allocate and initialize arrays
lda = m
…
allocate(a(lda,k))
…
 
! initialize matrices
call sinit_matrix(transa, m, k, lda, a)
…

! Calling sgemm on the CPU using standard oneMKL Fortran interface
call sgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

! map the a, b and c matrices on the device memory
!$omp target data map(a,b,c)

! Calling sgemm on the GPU using standard oneMKL Fortran interface within a dispatch construct
!$omp dispatch
call sgemm(transa, transb, m, n, k, alpha, a, lda, b, ldb, beta, c, ldc)

!$omp end target data

! Free memory
deallocate(a)
…
stop
end program