_extra_blas = [
# ----- Additional BLAS
('', 'dsgesv', 'dsgesv', 'zcgesv', 'zcgesv' ),
('', 'sgesplit', 'dgesplit', 'cgesplit', 'zgesplit' ),
('', 'slascal', 'dlascal', 'clascal', 'zlascal' ),
('', 'slapack', 'dlapack', 'clapack', 'zlapack' ),
('', 'stile', 'dtile', 'ctile', 'ztile' ),
('', 'sgecon', 'dgecon', 'cgecon', 'zgecon' ),
('', 'spocon', 'dpocon', 'cpocon', 'zpocon' ),
('', 'strasm', 'dtrasm', 'ctrasm', 'ztrasm' ),
('', 'sgecfi', 'dgecfi', 'cgecfi', 'zgecfi' ),
('', 'splssq', 'dplssq', 'cplssq', 'zplssq' ),
('', 'sy2sb', 'sy2sb' , 'he2hb', 'he2hb' ),
('', 'she2ge', 'dhe2ge', 'che2ge', 'zhe2ge' ),
('', 'slatro', 'dlatro', 'clatro', 'zlatro' ), #=> Replace by getmo/gecmo as in essl
('', 'sbuild', 'dbuild', 'cbuild', 'zbuild' ), #=> Replace by map function
('', 'sgram', 'dgram', 'cgram', 'zgram' ),
]
_extra_BLAS = [ [ x.upper() for x in row ] for row in _extra_blas ]
subs = {
# ------------------------------------------------------------
# replacements applied to mixed precision files.
'mixed' : [
# double/single, double/single-complex
#'12345678901234567890', '12345678901234567890')
(r'\bdouble', r'\bCHAMELEON_Complex64_t'),
(r'\bChamRealDouble', r'\bChamComplexDouble' ),
(r'\bfloat', r'\bCHAMELEON_Complex32_t'),
(r'\bChamRealFloat', r'\bChamComplexFloat' ),
(r'\breal\b', r'\bcomplex\b' ),
('dsgels', 'zcgels' ),
('dsorgesv', 'zcungesv' ),
],
# ------------------------------------------------------------
# replacements applied to mixed precision files.
'normal': [
# pattern single double single-complex double-complex
#'12345678901234567890', '12345678901234567890', '12345678901234567890', '12345678901234567890', '12345678901234567890')
('int', 'float', 'double', 'CHAMELEON_Complex32_t', r'\bCHAMELEON_Complex64_t'),
('ChamPattern', 'ChamRealFloat', 'ChamRealDouble', 'ChamComplexFloat', r'\bChamComplexDouble' ),
('ChamPattern', 'ChamRealFloat', 'ChamRealDouble', 'ChamRealFloat', r'\bChamRealDouble' ),
('int', 'float', 'double', 'complex32', 'complex64' ),
('Int', 'Float', 'Double', 'Complex32', 'Complex64' ),
# ----- Additional BLAS
('', 'sTile', 'dTile', 'cTile', 'zTile' ),
('', 'sLapack', 'dLapack', 'cLapack', 'zLapack' ),
('', 'ORMQR', 'ORMQR', 'UNMQR', 'UNMQR' ),
('', 'ORMLQ', 'ORMLQ', 'UNMLQ', 'UNMLQ' ),
('', 'ORGQR', 'ORGQR', 'UNGQR', 'UNGQR' ),
('', 'ORGLQ', 'ORGLQ', 'UNGLQ', 'UNGLQ' ),
('', 'SYEV', 'SYEV', 'HEEV', 'HEEV' ),
('', 'SYG', 'SYG', 'HEG', 'HEG' ),
]
+ _extra_blas
+ _extra_BLAS
+ [
# ----- For norms: compute result in Real or Double
('', 'slange', 'dlange', 'slange', 'dlange' ),
('', 'slaset', 'dlaset', 'slaset', 'dlaset' ),
('', 'splssq', 'dplssq', 'splssq', 'dplssq' ),
('', 'slacpy', 'dlacpy', 'slacpy', 'dlacpy' ),
('', 'saxpy', 'daxpy', 'saxpy', 'daxpy' ),
(r'\b', r'szero\b', r'dzero\b', r'czero\b', r'zzero\b' ),
# (r'\b', r'sone\b', r'done\b', r'cone\b', r'zone\b' ),
# ----- Chameleon Prefixes
('CHAMELEON_P', 'CHAMELEON_S', 'CHAMELEON_D', 'CHAMELEON_C', 'CHAMELEON_Z' ),
('RUNTIME_P', 'RUNTIME_s', 'RUNTIME_d', 'RUNTIME_c', 'RUNTIME_z' ),
('chameleon_p', 'chameleon_s', 'chameleon_d', 'chameleon_c', 'chameleon_z' ),
('codelet_p', 'codelet_s', 'codelet_d', 'codelet_c', 'codelet_z' ),
('runtime_p', 'runtime_s', 'runtime_d', 'runtime_c', 'runtime_z' ),
('testing_p', 'testing_s', 'testing_d', 'testing_c', 'testing_z' ),
('timing_p', 'timing_s', 'timing_d', 'timing_c', 'timing_z' ),
('workspace_p', 'workspace_s', 'workspace_d', 'workspace_c', 'workspace_z' ),
('check_p', 'check_s', 'check_d', 'check_c', 'check_z' ),
# ('CORE_P', 'CORE_S', 'CORE_D', 'CORE_C', 'CORE_Z' ),
# ('vec_p', 'vec_s', 'vec_d', 'vec_c', 'vec_z' ),
('', 'cublasS', 'cublasD', 'cublasC', 'cublasZ' ),
# ('', 'starpu_s', 'starpu_d', 'starpu_c', 'starpu_z' ),
# ('', 'STARPU_S', 'STARPU_D', 'STARPU_C', 'STARPU_Z' ),
# ('', 's_', 'd_', 'c_', 'z_' ),
# ('', 'S_', 'D_', 'C_', 'Z_' ),
# ('', 'FLT_EPSILON', 'DBL_EPSILON', 'FLT_EPSILON', 'DBL_EPSILON' ),
# ('', 's_RAFF_FLOAT', 'd_RAFF_FLOAT', 'c_RAFF_FLOAT', 'z_RAFF_FLOAT' ),
# # ----- unused?
# ('', 's_check', 'd_check', 'c_check', 'z_check' ),
# ('', 'stesting', 'dtesting', 'ctesting', 'ztesting' ),
# ('', 'SAUXILIARY', 'DAUXILIARY', 'CAUXILIARY', 'ZAUXILIARY' ),
# ('', 'sbuild', 'dbuild', 'cbuild', 'zbuild' ),
]
}