Retrieves additional values from the PARDISO handle or sets them in it.
error = pardiso_getenv(handle, param, value)
error = pardiso_setenv(handle, param, value)
Interface:
_INTEGER_t pardiso_getenv (const _MKL_DSS_HANDLE_t handle, const enum PARDISO_ENV_PARAM* param, char* value);
_INTEGER_t pardiso_setenv (_MKL_DSS_HANDLE_t handle, const enum PARDISO_ENV_PARAM* param, const char* value);
The FORTRAN 77 interface is specified in the mkl_pardiso.f77 include file, the Fortran 90 interface is specified in the mkl_pardiso.f90 include file, and the C interface is specified in the mkl_pardiso.h include file.
pardiso_setenv requires the value parameter to be converted to the string in C notation if it is called from Fortran. You can do this using mkl_cvt_to_null_terminated_str subroutine declared in the mkl_dss.f77 or mkl_dss.f90 include files (see example below).
These functions operate with the PARDISO handle. The pardiso_getenv routine retrieves additional values from the PARDISO handle, and pardiso_setenv sets specified values in the PARDISO handle.
These functions enable retrieving and setting the name of the PARDISO OOC file.
To retrieve the PARDISO OOC file name, you can apply this function to any non-empty handle.
To set the the PARDISO OOC file name in the handle you must apply the function before reordering stage. That is you must apply the function only for the empty handle. This is because OOC file name is stored in the handle after reordering stage and it is not changed during further computations.
1024-byte internal buffer is used inside PARDISO for storing OOC file name. Allocate 1024-byte buffer (value parameter) for passing it to pardiso_getenv function.
Input parameter for pardiso_getenv. Data object of the MKL_DSS_HANDLE type (see Interface Description).
INTEGER. Specifies the required parameter. The only value is PARDISO_OCC_FILE_NAME, defined in the corresponding include file.
Input parameter for pardiso_setenv. STRING. Contains the name of the OOC file that must be used in the handle.
Output parameter for pardiso_getenv. STRING. Contains the name of the OOC file that is used in the handle.
Output parameter for pardiso_setenv. Data object of the MKL_DSS_HANDLE type (see Interface Description).
INCLUDE 'mkl_pardiso.f90'
INCLUDE 'mkl_dss.f90'
PROGRAM pardiso_sym_f90
USE mkl_pardiso
USE mkl_dss
INTEGER*8 pt(64)
CHARACTER*1024 file_name
INTEGER buff(256), bufLen, error
pt(1:64) = 0
file_name = 'pardiso_ooc_file'
bufLen = len_trim(file_name)
call mkl_cvt_to_null_terminated_str(buff, bufLen, trim(file_name))
error = pardiso_setenv(pt, PARDISO_OOC_FILE_NAME, buff)
! call pardiso() here
END PROGRAM
Copyright © 1994 - 2011, Intel Corporation. All rights reserved.