From 5ee2abef73cead62d176166120b1e9ecc9e729df Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Thu, 12 Jul 2018 10:24:59 +0200
Subject: [PATCH] RIP morse
---
compute/CMakeLists.txt | 20 +-
compute/pzbuild.c | 10 +-
compute/pzgebrd_ge2gb.c | 50 ++--
compute/pzgelqf.c | 14 +-
compute/pzgelqf_param.c | 14 +-
compute/pzgelqfrh.c | 14 +-
compute/pzgemm.c | 10 +-
compute/pzgeqrf.c | 14 +-
compute/pzgeqrf_param.c | 14 +-
compute/pzgeqrfrh.c | 14 +-
compute/pzgetrf_incpiv.c | 14 +-
compute/pzgetrf_nopiv.c | 14 +-
compute/pzhemm.c | 10 +-
compute/pzher2k.c | 10 +-
compute/pzherk.c | 10 +-
compute/pzhetrd_he2hb.c | 28 +--
compute/pzlacpy.c | 10 +-
compute/pzlag2c.c | 10 +-
compute/pzlange.c | 18 +-
compute/pzlanhe.c | 16 +-
compute/pzlansy.c | 16 +-
compute/pzlantr.c | 18 +-
compute/pzlascal.c | 10 +-
compute/pzlaset.c | 10 +-
compute/pzlaset2.c | 10 +-
compute/pzlauum.c | 10 +-
compute/pzplghe.c | 12 +-
compute/pzplgsy.c | 12 +-
compute/pzplrnt.c | 12 +-
compute/pzpotrf.c | 18 +-
compute/pzpotrimm.c | 42 ++--
compute/pzsymm.c | 10 +-
compute/pzsyr2k.c | 10 +-
compute/pzsyrk.c | 10 +-
compute/pzsytrf.c | 18 +-
compute/pztile2band.c | 10 +-
compute/pztpgqrt.c | 14 +-
compute/pztpqrt.c | 14 +-
compute/pztradd.c | 10 +-
compute/pztrmm.c | 10 +-
compute/pztrsm.c | 10 +-
compute/pztrsmpl.c | 10 +-
compute/pztrtri.c | 18 +-
compute/pzunglq.c | 14 +-
compute/pzunglq_param.c | 14 +-
compute/pzunglqrh.c | 14 +-
compute/pzungqr.c | 14 +-
compute/pzungqr_param.c | 14 +-
compute/pzungqrrh.c | 14 +-
compute/pzunmlq.c | 26 +-
compute/pzunmlq_param.c | 26 +-
compute/pzunmlqrh.c | 26 +-
compute/pzunmqr.c | 26 +-
compute/pzunmqr_param.c | 26 +-
compute/pzunmqrrh.c | 26 +-
compute/zbuild.c | 66 ++---
compute/zgeadd.c | 98 ++++----
compute/zgelqf.c | 86 +++----
compute/zgelqf_param.c | 88 +++----
compute/zgelqs.c | 112 ++++-----
compute/zgelqs_param.c | 114 ++++-----
compute/zgels.c | 146 +++++------
compute/zgels_param.c | 134 +++++-----
compute/zgemm.c | 120 ++++-----
compute/zgeqrf.c | 86 +++----
compute/zgeqrf_param.c | 88 +++----
compute/zgeqrs.c | 108 ++++----
compute/zgeqrs_param.c | 110 ++++-----
compute/zgesv_incpiv.c | 100 ++++----
compute/zgesv_nopiv.c | 88 +++----
compute/zgesvd.c | 138 +++++------
compute/zgetrf_incpiv.c | 82 +++----
compute/zgetrf_nopiv.c | 70 +++---
compute/zgetrs_incpiv.c | 94 +++----
compute/zgetrs_nopiv.c | 88 +++----
compute/zheevd.c | 142 +++++------
compute/zhemm.c | 134 +++++-----
compute/zher2k.c | 122 +++++-----
compute/zherk.c | 108 ++++----
compute/zhetrd.c | 108 ++++----
compute/zlacpy.c | 88 +++----
compute/zlange.c | 76 +++---
compute/zlanhe.c | 80 +++---
compute/zlansy.c | 80 +++---
compute/zlantr.c | 88 +++----
compute/zlascal.c | 76 +++---
compute/zlaset.c | 74 +++---
compute/zlauum.c | 74 +++---
compute/zplghe.c | 68 +++---
compute/zplgsy.c | 68 +++---
compute/zplrnt.c | 70 +++---
compute/zposv.c | 94 +++----
compute/zpotrf.c | 74 +++---
compute/zpotri.c | 76 +++---
compute/zpotrimm.c | 114 ++++-----
compute/zpotrs.c | 92 +++----
compute/zsymm.c | 134 +++++-----
compute/zsyr2k.c | 122 +++++-----
compute/zsyrk.c | 108 ++++----
compute/zsysv.c | 94 +++----
compute/zsytrf.c | 74 +++---
compute/zsytrs.c | 92 +++----
compute/ztile.c | 44 ++--
compute/ztpgqrt.c | 148 +++++------
compute/ztpqrt.c | 100 ++++----
compute/ztradd.c | 100 ++++----
compute/ztrmm.c | 108 ++++----
compute/ztrsm.c | 108 ++++----
compute/ztrsmpl.c | 90 +++----
compute/ztrtri.c | 80 +++---
compute/zunglq.c | 104 ++++----
compute/zunglq_param.c | 106 ++++----
compute/zungqr.c | 104 ++++----
compute/zungqr_param.c | 106 ++++----
compute/zunmlq.c | 112 ++++-----
compute/zunmlq_param.c | 112 ++++-----
compute/zunmqr.c | 112 ++++-----
compute/zunmqr_param.c | 112 ++++-----
control/CMakeLists.txt | 6 +-
control/async.c | 62 ++---
control/async.h | 8 +-
control/auxiliary.c | 38 +--
control/auxiliary.h | 10 +-
control/{morse_f77.c => chameleon_f77.c} | 4 +-
control/chameleon_f77.h | 49 ++++
control/{morse_f90.f90 => chameleon_f90.f90} | 230 +++++++++---------
control/{morse_mf77.c => chameleon_mf77.c} | 2 +-
.../{morse_zcf90.F90 => chameleon_zcf90.F90} | 4 +-
control/{morse_zf77.c => chameleon_zf77.c} | 4 +-
.../{morse_zf90.F90 => chameleon_zf90.F90} | 4 +-
...appers.F90 => chameleon_zf90_wrappers.F90} | 200 +++++++--------
...{morsewinthread.c => chameleonwinthread.c} | 18 +-
...{morsewinthread.h => chameleonwinthread.h} | 2 +-
control/common.h | 36 +--
control/compute_z.h | 182 +++++++-------
control/context.c | 176 +++++++-------
control/context.h | 6 +-
control/control.c | 88 +++----
control/descriptor.c | 136 +++++------
control/descriptor.h | 60 ++---
control/global.h | 2 +-
control/morse_f77.h | 49 ----
control/workspace.c | 62 ++---
control/workspace.h | 4 +-
control/workspace_z.c | 38 +--
coreblas/compute/CMakeLists.txt | 2 +-
coreblas/compute/core_zgelqt.c | 12 +-
coreblas/compute/core_zgeqrt.c | 12 +-
coreblas/compute/core_zgesplit.c | 4 +-
coreblas/compute/core_zlacpy.c | 2 +-
coreblas/compute/core_zlange.c | 2 +-
coreblas/compute/core_zlanhe.c | 2 +-
coreblas/compute/core_zlansy.c | 2 +-
coreblas/compute/core_zlantr.c | 6 +-
coreblas/compute/core_zlaset.c | 2 +-
coreblas/compute/core_zlaset2.c | 6 +-
coreblas/compute/core_zlauum.c | 2 +-
coreblas/compute/core_zpamm.c | 4 +-
coreblas/compute/core_zpotrf.c | 2 +-
coreblas/compute/core_ztrtri.c | 2 +-
coreblas/compute/core_zunmlq.c | 8 +-
coreblas/compute/core_zunmqr.c | 8 +-
coreblas/compute/global.c | 2 +-
coreblas/include/coreblas.h | 4 +-
cudablas/compute/CMakeLists.txt | 2 +-
cudablas/compute/cuda_zgeadd.c | 2 +-
cudablas/compute/cuda_zgemm.c | 2 +-
cudablas/compute/cuda_zhemm.c | 2 +-
cudablas/compute/cuda_zher2k.c | 2 +-
cudablas/compute/cuda_zherk.c | 2 +-
cudablas/compute/cuda_zlarfb.c | 8 +-
cudablas/compute/cuda_zparfb.c | 20 +-
cudablas/compute/cuda_zsymm.c | 2 +-
cudablas/compute/cuda_zsyr2k.c | 2 +-
cudablas/compute/cuda_zsyrk.c | 2 +-
cudablas/compute/cuda_ztrmm.c | 8 +-
cudablas/compute/cuda_ztrsm.c | 4 +-
cudablas/compute/cudaglobal.c | 2 +-
cudablas/include/cudablas.h | 10 +-
doc/orgmode/CMakeLists.txt | 14 +-
...{morse_header.png => chameleon_header.png} | Bin
doc/orgmode/chapters/introduction.org | 4 +-
doc/orgmode/chapters/using.org | 24 +-
example/lapack_to_chameleon/CMakeLists.txt | 4 +-
example/lapack_to_chameleon/CTestLists.cmake | 2 +-
example/lapack_to_chameleon/step2.c | 2 +-
example/lapack_to_chameleon/step3.c | 6 +-
example/lapack_to_chameleon/step4.c | 2 +-
example/link_chameleon/CMakeLists.txt | 2 +-
example/link_chameleon/link_chameleon.f90 | 2 +-
example/out_of_core/out_of_core.c | 6 +-
plasma-conversion/callGeneration.bash | 28 +--
.../insert-licence-chameleon.sh | 4 +-
plasma-conversion/rulesSubstitutions.py | 98 ++++----
runtime/parsec/codelets/codelet_zasum.c | 2 +-
runtime/parsec/codelets/codelet_zaxpy.c | 4 +-
runtime/parsec/codelets/codelet_zbuild.c | 2 +-
runtime/parsec/codelets/codelet_zgeadd.c | 4 +-
runtime/parsec/codelets/codelet_zgelqt.c | 4 +-
runtime/parsec/codelets/codelet_zgemm.c | 6 +-
runtime/parsec/codelets/codelet_zgeqrt.c | 4 +-
runtime/parsec/codelets/codelet_zgessm.c | 6 +-
runtime/parsec/codelets/codelet_zgessq.c | 2 +-
runtime/parsec/codelets/codelet_zgetrf.c | 2 +-
.../parsec/codelets/codelet_zgetrf_incpiv.c | 2 +-
.../parsec/codelets/codelet_zgetrf_nopiv.c | 2 +-
runtime/parsec/codelets/codelet_zhemm.c | 6 +-
runtime/parsec/codelets/codelet_zher2k.c | 6 +-
runtime/parsec/codelets/codelet_zherk.c | 4 +-
runtime/parsec/codelets/codelet_zhessq.c | 2 +-
runtime/parsec/codelets/codelet_zlacpy.c | 4 +-
runtime/parsec/codelets/codelet_zlag2c.c | 4 +-
runtime/parsec/codelets/codelet_zlange.c | 2 +-
runtime/parsec/codelets/codelet_zlanhe.c | 2 +-
runtime/parsec/codelets/codelet_zlansy.c | 2 +-
runtime/parsec/codelets/codelet_zlantr.c | 2 +-
runtime/parsec/codelets/codelet_zlaset.c | 2 +-
runtime/parsec/codelets/codelet_zlaset2.c | 2 +-
runtime/parsec/codelets/codelet_zlauum.c | 2 +-
runtime/parsec/codelets/codelet_zpamm.c | 8 +-
runtime/parsec/codelets/codelet_zplghe.c | 2 +-
runtime/parsec/codelets/codelet_zplgsy.c | 2 +-
runtime/parsec/codelets/codelet_zplrnt.c | 2 +-
runtime/parsec/codelets/codelet_zpotrf.c | 2 +-
runtime/parsec/codelets/codelet_zssssm.c | 8 +-
runtime/parsec/codelets/codelet_zsymm.c | 6 +-
runtime/parsec/codelets/codelet_zsyr2k.c | 6 +-
runtime/parsec/codelets/codelet_zsyrk.c | 4 +-
runtime/parsec/codelets/codelet_zsyssq.c | 2 +-
.../parsec/codelets/codelet_zsytrf_nopiv.c | 2 +-
runtime/parsec/codelets/codelet_ztile_zero.c | 2 +-
runtime/parsec/codelets/codelet_ztplqt.c | 6 +-
runtime/parsec/codelets/codelet_ztpmlqt.c | 8 +-
runtime/parsec/codelets/codelet_ztpmqrt.c | 8 +-
runtime/parsec/codelets/codelet_ztpqrt.c | 6 +-
runtime/parsec/codelets/codelet_ztradd.c | 4 +-
runtime/parsec/codelets/codelet_ztrasm.c | 2 +-
runtime/parsec/codelets/codelet_ztrmm.c | 4 +-
runtime/parsec/codelets/codelet_ztrsm.c | 4 +-
runtime/parsec/codelets/codelet_ztrssq.c | 2 +-
runtime/parsec/codelets/codelet_ztrtri.c | 2 +-
runtime/parsec/codelets/codelet_ztslqt.c | 6 +-
runtime/parsec/codelets/codelet_ztsmlq.c | 8 +-
runtime/parsec/codelets/codelet_ztsmqr.c | 8 +-
runtime/parsec/codelets/codelet_ztsqrt.c | 6 +-
runtime/parsec/codelets/codelet_ztstrf.c | 6 +-
runtime/parsec/codelets/codelet_zttlqt.c | 6 +-
runtime/parsec/codelets/codelet_zttmlq.c | 8 +-
runtime/parsec/codelets/codelet_zttmqr.c | 8 +-
runtime/parsec/codelets/codelet_zttqrt.c | 6 +-
runtime/parsec/codelets/codelet_zunmlq.c | 6 +-
runtime/parsec/codelets/codelet_zunmqr.c | 6 +-
runtime/parsec/control/runtime_async.c | 16 +-
runtime/parsec/control/runtime_context.c | 8 +-
runtime/parsec/control/runtime_control.c | 48 ++--
runtime/parsec/control/runtime_descriptor.c | 86 +++----
runtime/parsec/control/runtime_options.c | 6 +-
runtime/parsec/control/runtime_profiling.c | 20 +-
runtime/parsec/control/runtime_zlocality.c | 8 +-
runtime/parsec/control/runtime_zprofiling.c | 4 +-
runtime/parsec/include/chameleon_parsec.h | 8 +-
runtime/quark/control/runtime_async.c | 18 +-
runtime/quark/control/runtime_context.c | 8 +-
runtime/quark/control/runtime_control.c | 44 ++--
runtime/quark/control/runtime_options.c | 8 +-
runtime/quark/control/runtime_profiling.c | 20 +-
runtime/quark/control/runtime_zlocality.c | 8 +-
runtime/quark/control/runtime_zprofiling.c | 4 +-
runtime/starpu/codelets/codelet_zlag2c.c | 4 +-
runtime/starpu/codelets/codelet_zlange.c | 4 +-
runtime/starpu/codelets/codelet_zplssq.c | 2 +-
runtime/starpu/control/runtime_async.c | 20 +-
runtime/starpu/control/runtime_context.c | 16 +-
runtime/starpu/control/runtime_control.c | 52 ++--
runtime/starpu/control/runtime_descriptor.c | 24 +-
runtime/starpu/control/runtime_options.c | 6 +-
runtime/starpu/control/runtime_profiling.c | 8 +-
runtime/starpu/control/runtime_workspace.c | 8 +-
runtime/starpu/include/chameleon_starpu.h.in | 24 +-
runtime/starpu/include/runtime_workspace.h | 4 +-
testing/CMakeLists.txt | 4 +-
testing/chameleon_testing.py | 6 +-
testing/lin/CMakeLists.txt | 38 +--
testing/lin/cchkaa.f | 2 +-
testing/lin/cchkge.f | 2 +-
testing/lin/cchklq.f | 2 +-
testing/lin/cchkpo.f | 2 +-
testing/lin/cchkqr.f | 2 +-
testing/lin/cdrvge.f | 2 +-
testing/lin/cdrvls.f | 2 +-
testing/lin/cdrvpo.f | 2 +-
testing/lin/cerrge.f | 2 +-
testing/lin/cerrlq.f | 2 +-
testing/lin/cerrls.f | 2 +-
testing/lin/cerrpo.f | 2 +-
testing/lin/cerrqr.f | 2 +-
testing/lin/cerrvx.f | 2 +-
..._lintesting.py => chameleon_lintesting.py} | 2 +-
testing/lin/clqt01.f | 2 +-
testing/lin/clqt02.f | 2 +-
testing/lin/clqt03.f | 2 +-
testing/lin/cporfs.f | 2 +-
testing/lin/cposvx.f | 2 +-
testing/lin/cqrt01.f | 2 +-
testing/lin/cqrt02.f | 2 +-
testing/lin/cqrt03.f | 2 +-
testing/lin/dchkaa.f | 2 +-
testing/lin/dchkge.f | 2 +-
testing/lin/dchklq.f | 2 +-
testing/lin/dchkpo.f | 2 +-
testing/lin/dchkqr.f | 2 +-
testing/lin/ddrvge.f | 2 +-
testing/lin/ddrvls.f | 2 +-
testing/lin/ddrvpo.f | 2 +-
testing/lin/derrge.f | 2 +-
testing/lin/derrlq.f | 2 +-
testing/lin/derrls.f | 2 +-
testing/lin/derrpo.f | 2 +-
testing/lin/derrqr.f | 2 +-
testing/lin/derrvx.f | 2 +-
testing/lin/dlqt01.f | 2 +-
testing/lin/dlqt02.f | 2 +-
testing/lin/dlqt03.f | 2 +-
testing/lin/dporfs.f | 2 +-
testing/lin/dposvx.f | 2 +-
testing/lin/dqrt01.f | 2 +-
testing/lin/dqrt02.f | 2 +-
testing/lin/dqrt03.f | 2 +-
testing/lin/schkaa.f | 2 +-
testing/lin/schkge.f | 2 +-
testing/lin/schklq.f | 2 +-
testing/lin/schkpo.f | 2 +-
testing/lin/schkqr.f | 2 +-
testing/lin/sdrvge.f | 2 +-
testing/lin/sdrvls.f | 2 +-
testing/lin/sdrvpo.f | 2 +-
testing/lin/serrge.f | 2 +-
testing/lin/serrlq.f | 2 +-
testing/lin/serrls.f | 2 +-
testing/lin/serrpo.f | 2 +-
testing/lin/serrqr.f | 2 +-
testing/lin/serrvx.f | 2 +-
testing/lin/slqt01.f | 2 +-
testing/lin/slqt02.f | 2 +-
testing/lin/slqt03.f | 2 +-
testing/lin/sporfs.f | 2 +-
testing/lin/sposvx.f | 2 +-
testing/lin/sqrt01.f | 2 +-
testing/lin/sqrt02.f | 2 +-
testing/lin/sqrt03.f | 2 +-
testing/lin/zchkaa.f | 2 +-
testing/lin/zchkge.f | 2 +-
testing/lin/zchklq.f | 2 +-
testing/lin/zchkpo.f | 2 +-
testing/lin/zchkqr.f | 2 +-
testing/lin/zdrvge.f | 2 +-
testing/lin/zdrvls.f | 2 +-
testing/lin/zdrvpo.f | 2 +-
testing/lin/zerrge.f | 2 +-
testing/lin/zerrlq.f | 2 +-
testing/lin/zerrls.f | 2 +-
testing/lin/zerrpo.f | 2 +-
testing/lin/zerrqr.f | 2 +-
testing/lin/zerrvx.f | 2 +-
testing/lin/zlqt01.f | 2 +-
testing/lin/zlqt02.f | 2 +-
testing/lin/zlqt03.f | 2 +-
testing/lin/zporfs.f | 2 +-
testing/lin/zposvx.f | 2 +-
testing/lin/zqrt01.f | 2 +-
testing/lin/zqrt02.f | 2 +-
testing/lin/zqrt03.f | 2 +-
testing/testing_zgeadd.c | 34 +--
testing/testing_zgemm.c | 16 +-
testing/testing_zgesvd.c | 14 +-
testing/testing_zheevd.c | 16 +-
testing/testing_zhemm.c | 16 +-
testing/testing_zher2k.c | 16 +-
testing/testing_zherk.c | 18 +-
testing/testing_zlange.c | 36 +--
testing/testing_zsymm.c | 16 +-
testing/testing_zsyr2k.c | 16 +-
testing/testing_zsyrk.c | 18 +-
testing/testing_ztrmm.c | 20 +-
testing/testing_ztrsm.c | 20 +-
timing/CMakeLists.txt | 6 +-
timing/time_zgelqf.c | 2 +-
timing/time_zgelqf_tile.c | 2 +-
timing/time_zgels.c | 2 +-
timing/time_zgels_tile.c | 2 +-
timing/time_zgemm.c | 2 +-
timing/time_zgemm_tile.c | 2 +-
timing/time_zgeqrf.c | 2 +-
timing/time_zgeqrf_hqr.c | 2 +-
timing/time_zgeqrf_hqr_tile.c | 2 +-
timing/time_zgeqrf_tile.c | 2 +-
timing/time_zgeqrs_tile.c | 2 +-
timing/time_zgesv_incpiv.c | 2 +-
timing/time_zgesv_incpiv_tile.c | 2 +-
timing/time_zgesv_nopiv.c | 2 +-
timing/time_zgesv_nopiv_tile.c | 2 +-
timing/time_zgesvd_tile.c | 2 +-
timing/time_zgetrf_incpiv.c | 2 +-
timing/time_zgetrf_incpiv_tile.c | 2 +-
timing/time_zgetrf_nopiv.c | 2 +-
timing/time_zgetrf_nopiv_tile.c | 2 +-
timing/time_zgetri_tile.c | 2 +-
timing/time_zgetrs_incpiv_tile.c | 2 +-
timing/time_zgetrs_nopiv_tile.c | 2 +-
timing/time_zheevd_tile.c | 2 +-
timing/time_zlange.c | 10 +-
timing/time_zlange_tile.c | 12 +-
timing/time_zposv.c | 2 +-
timing/time_zposv_tile.c | 2 +-
timing/time_zpotrf.c | 2 +-
timing/time_zpotrf_tile.c | 2 +-
timing/time_zpotri_tile.c | 2 +-
timing/time_zpotrs_tile.c | 2 +-
timing/time_zsytrf_tile.c | 2 +-
timing/time_ztrsm.c | 2 +-
timing/timing.c | 2 +-
timing/timing.h | 4 +-
timing/timing_zauxiliary.c | 16 +-
423 files changed, 5110 insertions(+), 5110 deletions(-)
rename control/{morse_f77.c => chameleon_f77.c} (98%)
create mode 100644 control/chameleon_f77.h
rename control/{morse_f90.f90 => chameleon_f90.f90} (75%)
rename control/{morse_mf77.c => chameleon_mf77.c} (99%)
rename control/{morse_zcf90.F90 => chameleon_zcf90.F90} (99%)
rename control/{morse_zf77.c => chameleon_zf77.c} (99%)
rename control/{morse_zf90.F90 => chameleon_zf90.F90} (99%)
rename control/{morse_zf90_wrappers.F90 => chameleon_zf90_wrappers.F90} (85%)
rename control/{morsewinthread.c => chameleonwinthread.c} (93%)
rename control/{morsewinthread.h => chameleonwinthread.h} (98%)
delete mode 100644 control/morse_f77.h
rename doc/orgmode/chapters/{morse_header.png => chameleon_header.png} (100%)
rename testing/lin/{morse_lintesting.py => chameleon_lintesting.py} (93%)
diff --git a/compute/CMakeLists.txt b/compute/CMakeLists.txt
index eb50daba0..9e5eb0cb4 100644
--- a/compute/CMakeLists.txt
+++ b/compute/CMakeLists.txt
@@ -57,9 +57,9 @@ set(CHAMELEON_CONTROL
../control/descriptor.c
../control/workspace.c
../control/tile.c
- ../control/morse_f77.c
- ../control/morse_mf77.c
-# ../control/morsewinthread.c
+ ../control/chameleon_f77.c
+ ../control/chameleon_mf77.c
+# ../control/chameleonwinthread.c
)
set(flags_to_add "")
@@ -68,7 +68,7 @@ foreach(_prec ${CHAMELEON_PRECISION})
endforeach()
set_source_files_properties(../control/tile.c PROPERTIES COMPILE_FLAGS "${flags_to_add}")
-# Generate the morse sources for all possible precisions
+# Generate the chameleon sources for all possible precisions
# ------------------------------------------------------
set(CHAMELEON_SRCS_GENERATED "")
set(ZSRC
@@ -251,7 +251,7 @@ precisions_rules_py(CHAMELEON_SRCS_GENERATED "${ZSRC}"
set(CONTROL_SRCS_GENERATED "")
set(ZSRC
../control/workspace_z.c
- ../control/morse_zf77.c
+ ../control/chameleon_zf77.c
)
precisions_rules_py(CONTROL_SRCS_GENERATED "${ZSRC}"
@@ -264,21 +264,21 @@ set(CHAMELEON_SRCS
${CONTROL_SRCS_GENERATED}
)
-# Generate the morse fortran sources for all possible precisions
+# Generate the chameleon fortran sources for all possible precisions
# --------------------------------------------------------------
if(HAVE_ISO_C_BINDING)
set(CHAMELEON_SRCS_F_GENERATED "")
set(ZSRCF
- ../control/morse_zcf90.F90
- ../control/morse_zf90.F90
- ../control/morse_zf90_wrappers.F90
+ ../control/chameleon_zcf90.F90
+ ../control/chameleon_zf90.F90
+ ../control/chameleon_zf90_wrappers.F90
)
precisions_rules_py(CHAMELEON_SRCS_F_GENERATED "${ZSRCF}"
PRECISIONS "${CHAMELEON_PRECISION}"
TARGETDIR "control" )
set(CHAMELEON_SRCSF
- ../control/morse_f90.f90
+ ../control/chameleon_f90.f90
${CHAMELEON_SRCS_F_GENERATED}
)
endif(HAVE_ISO_C_BINDING)
diff --git a/compute/pzbuild.c b/compute/pzbuild.c
index cf16d95e3..417d429bd 100644
--- a/compute/pzbuild.c
+++ b/compute/pzbuild.c
@@ -53,19 +53,19 @@
* Identifies this function call (for exception handling purposes).
*
*/
-void morse_pzbuild( cham_uplo_t uplo, CHAM_desc_t *A, void *user_data, void* user_build_callback,
+void chameleon_pzbuild( cham_uplo_t uplo, CHAM_desc_t *A, void *user_data, void* user_build_callback,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int m, n;
int ldam;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) {
ldam = BLKLDD(A, m);
@@ -81,5 +81,5 @@ void morse_pzbuild( cham_uplo_t uplo, CHAM_desc_t *A, void *user_data, void* use
}
}
- RUNTIME_options_finalize( &options, morse);
+ RUNTIME_options_finalize( &options, chamctxt);
}
diff --git a/compute/pzgebrd_ge2gb.c b/compute/pzgebrd_ge2gb.c
index 5dbd6dc88..14e3bea72 100644
--- a/compute/pzgebrd_ge2gb.c
+++ b/compute/pzgebrd_ge2gb.c
@@ -20,7 +20,7 @@
*/
#include "control/common.h"
-void morse_pzgebrd_ge2gb(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
+void chameleon_pzgebrd_ge2gb(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
int k;
@@ -31,34 +31,34 @@ void morse_pzgebrd_ge2gb(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
for (k = 0; k < A->nt; k++) {
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
- A1 = morse_desc_submatrix(A, k*A->mb, k*A->nb, A->m-k*A->mb, tempkn);
- A2 = morse_desc_submatrix(A, k*A->mb, (k+1)*A->nb, A->m-k*A->mb, A->n-(k+1)*A->nb);
- T1 = morse_desc_submatrix(T, k*T->mb, k*T->nb, T->m-k*T->mb, T->nb );
+ A1 = chameleon_desc_submatrix(A, k*A->mb, k*A->nb, A->m-k*A->mb, tempkn);
+ A2 = chameleon_desc_submatrix(A, k*A->mb, (k+1)*A->nb, A->m-k*A->mb, A->n-(k+1)*A->nb);
+ T1 = chameleon_desc_submatrix(T, k*T->mb, k*T->nb, T->m-k*T->mb, T->nb );
if ( D != NULL ) {
- D1 = morse_desc_submatrix(D, k*D->mb, k*D->nb, D->m-k*D->mb, tempkn);
+ D1 = chameleon_desc_submatrix(D, k*D->mb, k*D->nb, D->m-k*D->mb, tempkn);
}
- morse_pzgeqrf( A1, T1, D1,
+ chameleon_pzgeqrf( A1, T1, D1,
sequence, request);
- morse_pzunmqr( ChamLeft, ChamConjTrans,
+ chameleon_pzunmqr( ChamLeft, ChamConjTrans,
A1, A2, T1, D1,
sequence, request);
if (k+1 < A->nt){
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
- A1 = morse_desc_submatrix(A, k*A->mb, (k+1)*A->nb, tempkm, A->n-(k+1)*A->nb);
- A2 = morse_desc_submatrix(A, (k+1)*A->mb, (k+1)*A->nb, A->m-(k+1)*A->mb, A->n-(k+1)*A->nb);
- T1 = morse_desc_submatrix(T, k*T->mb, (k+1)*T->nb, T->mb, T->n-(k+1)*T->nb);
+ A1 = chameleon_desc_submatrix(A, k*A->mb, (k+1)*A->nb, tempkm, A->n-(k+1)*A->nb);
+ A2 = chameleon_desc_submatrix(A, (k+1)*A->mb, (k+1)*A->nb, A->m-(k+1)*A->mb, A->n-(k+1)*A->nb);
+ T1 = chameleon_desc_submatrix(T, k*T->mb, (k+1)*T->nb, T->mb, T->n-(k+1)*T->nb);
if ( D != NULL ) {
- D1 = morse_desc_submatrix(D, k*D->mb, (k+1)*D->nb, tempkm, D->n-(k+1)*D->nb);
+ D1 = chameleon_desc_submatrix(D, k*D->mb, (k+1)*D->nb, tempkm, D->n-(k+1)*D->nb);
}
- morse_pzgelqf( A1, T1, D1,
+ chameleon_pzgelqf( A1, T1, D1,
sequence, request);
- morse_pzunmlq( ChamRight, ChamConjTrans,
+ chameleon_pzunmlq( ChamRight, ChamConjTrans,
A1, A2, T1, D1,
sequence, request);
}
@@ -68,33 +68,33 @@ void morse_pzgebrd_ge2gb(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
for (k = 0; k < A->mt; k++) {
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
- A1 = morse_desc_submatrix(A, k*A->mb, k*A->nb, tempkm, A->n-k*A->nb);
- A2 = morse_desc_submatrix(A, (k+1)*A->mb, k*A->nb, A->m-(k+1)*A->mb, A->n-k*A->nb);
- T1 = morse_desc_submatrix(T, k*T->mb, k*T->nb, T->mb, T->n-k*T->nb);
+ A1 = chameleon_desc_submatrix(A, k*A->mb, k*A->nb, tempkm, A->n-k*A->nb);
+ A2 = chameleon_desc_submatrix(A, (k+1)*A->mb, k*A->nb, A->m-(k+1)*A->mb, A->n-k*A->nb);
+ T1 = chameleon_desc_submatrix(T, k*T->mb, k*T->nb, T->mb, T->n-k*T->nb);
if ( D != NULL ) {
- D1 = morse_desc_submatrix(D, k*D->mb, k*D->nb, tempkm, D->n-k*D->nb);
+ D1 = chameleon_desc_submatrix(D, k*D->mb, k*D->nb, tempkm, D->n-k*D->nb);
}
- morse_pzgelqf( A1, T1, D1,
+ chameleon_pzgelqf( A1, T1, D1,
sequence, request);
- morse_pzunmlq( ChamRight, ChamConjTrans,
+ chameleon_pzunmlq( ChamRight, ChamConjTrans,
A1, A2, T1, D1,
sequence, request);
if (k+1 < A->mt){
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
- A1 = morse_desc_submatrix(A, (k+1)*A->mb, k*A->nb, A->m-(k+1)*A->mb, tempkn);
- A2 = morse_desc_submatrix(A, (k+1)*A->mb, (k+1)*A->nb, A->m-(k+1)*A->mb, A->n-(k+1)*A->nb);
- T1 = morse_desc_submatrix(T, (k+1)*T->mb, k*T->nb, T->m-(k+1)*T->mb, T->nb );
+ A1 = chameleon_desc_submatrix(A, (k+1)*A->mb, k*A->nb, A->m-(k+1)*A->mb, tempkn);
+ A2 = chameleon_desc_submatrix(A, (k+1)*A->mb, (k+1)*A->nb, A->m-(k+1)*A->mb, A->n-(k+1)*A->nb);
+ T1 = chameleon_desc_submatrix(T, (k+1)*T->mb, k*T->nb, T->m-(k+1)*T->mb, T->nb );
if ( D != NULL ) {
- D1 = morse_desc_submatrix(D, (k+1)*D->mb, k*D->nb, D->m-(k+1)*D->mb, tempkn);
+ D1 = chameleon_desc_submatrix(D, (k+1)*D->mb, k*D->nb, D->m-(k+1)*D->mb, tempkn);
}
- morse_pzgeqrf( A1, T1, D1,
+ chameleon_pzgeqrf( A1, T1, D1,
sequence, request);
- morse_pzunmqr( ChamLeft, ChamConjTrans,
+ chameleon_pzunmqr( ChamLeft, ChamConjTrans,
A1, A2, T1, D1,
sequence, request);
}
diff --git a/compute/pzgelqf.c b/compute/pzgelqf.c
index 3f1d1bc66..2dd877734 100644
--- a/compute/pzgelqf.c
+++ b/compute/pzgelqf.c
@@ -36,10 +36,10 @@
/**
* Parallel tile LQ factorization - dynamic scheduling
*/
-void morse_pzgelqf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
+void chameleon_pzgelqf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -49,10 +49,10 @@ void morse_pzgelqf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
int tempkm, tempkn, tempmm, tempnn;
int ib, minMNT;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -90,7 +90,7 @@ void morse_pzgelqf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
RUNTIME_options_ws_alloc( &options, ws_worker, ws_host );
for (k = 0; k < minMNT; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -169,10 +169,10 @@ void morse_pzgelqf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
A->get_rankof( A, m, k ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/pzgelqf_param.c b/compute/pzgelqf_param.c
index 1e0b96390..d17220830 100644
--- a/compute/pzgelqf_param.c
+++ b/compute/pzgelqf_param.c
@@ -30,11 +30,11 @@
/*
* Parallel tile LQ factorization (reduction Householder) - dynamic scheduling
*/
-void morse_pzgelqf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
+void chameleon_pzgelqf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
CHAM_desc_t *T;
size_t ws_worker = 0;
@@ -47,10 +47,10 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
int ib;
int *tiles;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -91,7 +91,7 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
/* The number of the factorization */
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -199,10 +199,10 @@ void morse_pzgelqf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
A->get_rankof( A, m, k ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
free(tiles);
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzgelqfrh.c b/compute/pzgelqfrh.c
index bcf657f83..cf0668b85 100644
--- a/compute/pzgelqfrh.c
+++ b/compute/pzgelqfrh.c
@@ -38,10 +38,10 @@
/*
* Parallel tile LQ factorization (reduction Householder) - dynamic scheduling
*/
-void morse_pzgelqfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
+void chameleon_pzgelqfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -52,10 +52,10 @@ void morse_pzgelqfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
int tempkmin, tempkm, tempNn, tempnn, tempmm, tempNRDn;
int ib;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -88,7 +88,7 @@ void morse_pzgelqfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
/* The number of the factorization */
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -210,10 +210,10 @@ void morse_pzgelqfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
A->get_rankof( A, m, k ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/pzgemm.c b/compute/pzgemm.c
index bd5408668..24cb787fc 100644
--- a/compute/pzgemm.c
+++ b/compute/pzgemm.c
@@ -29,12 +29,12 @@
/**
* Parallel tile matrix-matrix multiplication - dynamic scheduling
*/
-void morse_pzgemm(cham_trans_t transA, cham_trans_t transB,
+void chameleon_pzgemm(cham_trans_t transA, cham_trans_t transB,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int m, n, k;
@@ -44,10 +44,10 @@ void morse_pzgemm(cham_trans_t transA, cham_trans_t transB,
CHAMELEON_Complex64_t zbeta;
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < C->mt; m++) {
tempmm = m == C->mt-1 ? C->m-m*C->mb : C->mb;
@@ -141,5 +141,5 @@ void morse_pzgemm(cham_trans_t transA, cham_trans_t transB,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzgeqrf.c b/compute/pzgeqrf.c
index b01af072d..7aad319b2 100644
--- a/compute/pzgeqrf.c
+++ b/compute/pzgeqrf.c
@@ -36,10 +36,10 @@
/**
* Parallel tile QR factorization - dynamic scheduling
*/
-void morse_pzgeqrf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
+void chameleon_pzgeqrf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -50,10 +50,10 @@ void morse_pzgeqrf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
int ib;
int minMNT = chameleon_min(A->mt, A->nt);
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -85,7 +85,7 @@ void morse_pzgeqrf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
RUNTIME_options_ws_alloc( &options, ws_worker, ws_host );
for (k = 0; k < minMNT; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -165,10 +165,10 @@ void morse_pzgeqrf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D,
A->get_rankof( A, k, n ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/pzgeqrf_param.c b/compute/pzgeqrf_param.c
index 38134c9d0..2d97b80c3 100644
--- a/compute/pzgeqrf_param.c
+++ b/compute/pzgeqrf_param.c
@@ -29,11 +29,11 @@
/**
* Parallel tile QR factorization (reduction Householder) - dynamic scheduling
*/
-void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
+void chameleon_pzgeqrf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
CHAM_desc_t *T;
size_t ws_worker = 0;
@@ -46,10 +46,10 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
int ib;
int *tiles;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -89,7 +89,7 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
/* The number of the factorization */
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
/* The number of geqrt to apply */
@@ -197,10 +197,10 @@ void morse_pzgeqrf_param( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
A->get_rankof( A, k, n ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
free(tiles);
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzgeqrfrh.c b/compute/pzgeqrfrh.c
index 4fed177bb..42903831e 100644
--- a/compute/pzgeqrfrh.c
+++ b/compute/pzgeqrfrh.c
@@ -38,10 +38,10 @@
/**
* Parallel tile QR factorization (reduction Householder) - dynamic scheduling
*/
-void morse_pzgeqrfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
+void chameleon_pzgeqrfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -52,10 +52,10 @@ void morse_pzgeqrfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
int tempkmin, tempkn, tempMm, tempnn, tempmm, tempMRDm;
int ib;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -86,7 +86,7 @@ void morse_pzgeqrfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
K = chameleon_min(A->mt, A->nt);
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
for (M = k; M < A->mt; M += BS) {
@@ -209,10 +209,10 @@ void morse_pzgeqrfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
A->get_rankof( A, k, n ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/pzgetrf_incpiv.c b/compute/pzgetrf_incpiv.c
index a03cc3118..4d3bd0958 100644
--- a/compute/pzgetrf_incpiv.c
+++ b/compute/pzgetrf_incpiv.c
@@ -40,10 +40,10 @@
/**
* Parallel tile LU factorization - dynamic scheduling
*/
-void morse_pzgetrf_incpiv( CHAM_desc_t *A, CHAM_desc_t *L, CHAM_desc_t *D, int *IPIV,
+void chameleon_pzgetrf_incpiv( CHAM_desc_t *A, CHAM_desc_t *L, CHAM_desc_t *D, int *IPIV,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -54,10 +54,10 @@ void morse_pzgetrf_incpiv( CHAM_desc_t *A, CHAM_desc_t *L, CHAM_desc_t *D, int *
int ib;
int minMNT = chameleon_min(A->mt, A->nt);
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -75,7 +75,7 @@ void morse_pzgetrf_incpiv( CHAM_desc_t *A, CHAM_desc_t *L, CHAM_desc_t *D, int *
RUNTIME_options_ws_alloc( &options, ws_worker, ws_host );
for (k = 0; k < minMNT; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -133,10 +133,10 @@ void morse_pzgetrf_incpiv( CHAM_desc_t *A, CHAM_desc_t *L, CHAM_desc_t *D, int *
}
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/pzgetrf_nopiv.c b/compute/pzgetrf_nopiv.c
index e5407d34c..aef3d87b4 100644
--- a/compute/pzgetrf_nopiv.c
+++ b/compute/pzgetrf_nopiv.c
@@ -27,11 +27,11 @@
/**
* Parallel tile LU factorization with no pivoting - dynamic scheduling
*/
-void morse_pzgetrf_nopiv(CHAM_desc_t *A,
+void chameleon_pzgetrf_nopiv(CHAM_desc_t *A,
RUNTIME_sequence_t *sequence,
RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n, ib;
@@ -41,15 +41,15 @@ void morse_pzgetrf_nopiv(CHAM_desc_t *A,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t) 1.0;
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
for (k = 0; k < chameleon_min(A->mt, A->nt); k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -96,8 +96,8 @@ void morse_pzgetrf_nopiv(CHAM_desc_t *A,
}
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzhemm.c b/compute/pzhemm.c
index 0c99e2701..418199cb9 100644
--- a/compute/pzhemm.c
+++ b/compute/pzhemm.c
@@ -29,12 +29,12 @@
/**
* Parallel tile Hermitian matrix-matrix multiplication - dynamic scheduling
*/
-void morse_pzhemm(cham_side_t side, cham_uplo_t uplo,
+void chameleon_pzhemm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
@@ -44,10 +44,10 @@ void morse_pzhemm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t zbeta;
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for(m = 0; m < C->mt; m++) {
tempmm = m == C->mt-1 ? C->m-m*C->mb : C->mb;
@@ -221,5 +221,5 @@ void morse_pzhemm(cham_side_t side, cham_uplo_t uplo,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzher2k.c b/compute/pzher2k.c
index 91b0229bf..3654a8b9e 100644
--- a/compute/pzher2k.c
+++ b/compute/pzher2k.c
@@ -29,12 +29,12 @@
/**
* Parallel tile Hermitian rank-k update - dynamic scheduling
*/
-void morse_pzher2k(cham_uplo_t uplo, cham_trans_t trans,
+void chameleon_pzher2k(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
double beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int m, n, k;
@@ -46,10 +46,10 @@ void morse_pzher2k(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t zbeta;
double dbeta;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) {
tempnn = n == C->nt-1 ? C->n-n*C->nb : C->nb;
@@ -209,5 +209,5 @@ void morse_pzher2k(cham_uplo_t uplo, cham_trans_t trans,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzherk.c b/compute/pzherk.c
index bf13820ff..8aa5a694b 100644
--- a/compute/pzherk.c
+++ b/compute/pzherk.c
@@ -28,12 +28,12 @@
/**
* Parallel tile Hermitian rank-k update - dynamic scheduling
*/
-void morse_pzherk(cham_uplo_t uplo, cham_trans_t trans,
+void chameleon_pzherk(cham_uplo_t uplo, cham_trans_t trans,
double alpha, CHAM_desc_t *A,
double beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int m, n, k;
@@ -45,10 +45,10 @@ void morse_pzherk(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t zbeta;
double dbeta;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) {
tempnn = n == C->nt-1 ? C->n-n*C->nb : C->nb;
@@ -168,5 +168,5 @@ void morse_pzherk(cham_uplo_t uplo, cham_trans_t trans,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzhetrd_he2hb.c b/compute/pzhetrd_he2hb.c
index 98b072282..1aedeae69 100644
--- a/compute/pzhetrd_he2hb.c
+++ b/compute/pzhetrd_he2hb.c
@@ -36,11 +36,11 @@
/**
* Parallel tile BAND Tridiagonal Reduction - dynamic scheduler
*/
-void morse_pzhetrd_he2hb(cham_uplo_t uplo,
+void chameleon_pzhetrd_he2hb(cham_uplo_t uplo,
CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *E,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
CHAM_desc_t *D = NULL;
CHAM_desc_t *AT = NULL;
@@ -52,11 +52,11 @@ void morse_pzhetrd_he2hb(cham_uplo_t uplo,
int tempkm, tempkn, tempmm, tempnn, tempjj;
int ib;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
/*
@@ -87,13 +87,13 @@ void morse_pzhetrd_he2hb(cham_uplo_t uplo,
/* Copy of the diagonal tiles to keep the general version of the tile all along the computation */
D = (CHAM_desc_t*)malloc(sizeof(CHAM_desc_t));
- morse_zdesc_alloc_diag(*D, A->mb, A->nb, chameleon_min(A->m, A->n) - A->mb, A->nb, 0, 0, chameleon_min(A->m, A->n) - A->mb, A->nb, A->p, A->q);
+ chameleon_zdesc_alloc_diag(*D, A->mb, A->nb, chameleon_min(A->m, A->n) - A->mb, A->nb, 0, 0, chameleon_min(A->m, A->n) - A->mb, A->nb, A->p, A->q);
AT = (CHAM_desc_t*)malloc(sizeof(CHAM_desc_t));
- *AT = morse_desc_init(
+ *AT = chameleon_desc_init(
ChamComplexDouble, A->mb, A->nb, (A->mb*A->nb),
chameleon_min(A->mt, A->nt) * A->mb, A->nb, 0, 0, chameleon_min(A->mt, A->nt) * A->mb, A->nb, 1, 1);
- morse_desc_mat_alloc( AT );
+ chameleon_desc_mat_alloc( AT );
RUNTIME_desc_create( AT );
/* Let's extract the diagonal in a temporary copy that contains A and A' */
@@ -110,7 +110,7 @@ void morse_pzhetrd_he2hb(cham_uplo_t uplo,
if (uplo == ChamLower) {
for (k = 0; k < A->nt-1; k++){
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k+1 == A->mt-1 ? A->m-(k+1)*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n- k *A->nb : A->nb;
@@ -262,12 +262,12 @@ void morse_pzhetrd_he2hb(cham_uplo_t uplo,
options.priority = 0;
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
else {
for (k = 0; k < A->nt-1; k++){
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k+1 == A->nt-1 ? A->n-(k+1)*A->nb : A->nb;
tempkm = k == A->mt-1 ? A->m- k *A->mb : A->mb;
@@ -416,7 +416,7 @@ void morse_pzhetrd_he2hb(cham_uplo_t uplo,
}
options.priority = 0;
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
@@ -433,13 +433,13 @@ void morse_pzhetrd_he2hb(cham_uplo_t uplo,
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
CHAMELEON_Sequence_Wait(sequence);
- morse_desc_mat_free(D);
+ chameleon_desc_mat_free(D);
free(D);
- morse_desc_mat_free(AT);
+ chameleon_desc_mat_free(AT);
free(AT);
(void)E;
diff --git a/compute/pzlacpy.c b/compute/pzlacpy.c
index 9be0a0209..29fe90bc5 100644
--- a/compute/pzlacpy.c
+++ b/compute/pzlacpy.c
@@ -31,20 +31,20 @@
/**
*
*/
-void morse_pzlacpy(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
+void chameleon_pzlacpy(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int X, Y;
int m, n;
int ldam, ldbm;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
switch (uplo) {
/*
@@ -123,5 +123,5 @@ void morse_pzlacpy(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzlag2c.c b/compute/pzlag2c.c
index 4370143ca..194c50afa 100644
--- a/compute/pzlag2c.c
+++ b/compute/pzlag2c.c
@@ -33,20 +33,20 @@
/**
*
*/
-void morse_pclag2z(CHAM_desc_t *SA, CHAM_desc_t *B,
+void chameleon_pclag2z(CHAM_desc_t *SA, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int X, Y;
int m, n;
int ldam, ldbm;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for(m = 0; m < SA->mt; m++) {
X = m == SA->mt-1 ? SA->m-m*SA->mb : SA->mb;
@@ -61,5 +61,5 @@ void morse_pclag2z(CHAM_desc_t *SA, CHAM_desc_t *B,
B(m, n), ldbm);
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzlange.c b/compute/pzlange.c
index 6ef9575cc..5a6b15bba 100644
--- a/compute/pzlange.c
+++ b/compute/pzlange.c
@@ -34,13 +34,13 @@
/**
*
*/
-void morse_pzlange( cham_normtype_t norm, CHAM_desc_t *A, double *result,
+void chameleon_pzlange( cham_normtype_t norm, CHAM_desc_t *A, double *result,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
CHAM_desc_t *VECNORMS_STEP1 = NULL;
CHAM_desc_t *VECNORMS_STEP2 = NULL;
CHAM_desc_t *RESULT = NULL;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int workm, workn;
@@ -48,10 +48,10 @@ void morse_pzlange( cham_normtype_t norm, CHAM_desc_t *A, double *result,
int ldam;
int m, n;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
*result = 0.0;
switch ( norm ) {
@@ -152,7 +152,7 @@ void morse_pzlange( cham_normtype_t norm, CHAM_desc_t *A, double *result,
CHAMELEON_Desc_Flush( VECNORMS_STEP2, sequence );
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP2) );
break;
@@ -272,7 +272,7 @@ void morse_pzlange( cham_normtype_t norm, CHAM_desc_t *A, double *result,
CHAMELEON_Desc_Flush( VECNORMS_STEP2, sequence );
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP2) );
break;
@@ -342,7 +342,7 @@ void morse_pzlange( cham_normtype_t norm, CHAM_desc_t *A, double *result,
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
break;
/*
@@ -405,7 +405,7 @@ void morse_pzlange( cham_normtype_t norm, CHAM_desc_t *A, double *result,
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
}
*result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q );
@@ -413,5 +413,5 @@ void morse_pzlange( cham_normtype_t norm, CHAM_desc_t *A, double *result,
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP1) );
CHAMELEON_Desc_Destroy( &(RESULT) );
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzlanhe.c b/compute/pzlanhe.c
index 4e0e7d600..e7c181296 100644
--- a/compute/pzlanhe.c
+++ b/compute/pzlanhe.c
@@ -36,13 +36,13 @@
/**
*
*/
-void morse_pzlanhe(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *result,
+void chameleon_pzlanhe(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *result,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
CHAM_desc_t *VECNORMS_STEP1 = NULL;
CHAM_desc_t *VECNORMS_STEP2 = NULL;
CHAM_desc_t *RESULT = NULL;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int workm, workn;
@@ -54,10 +54,10 @@ void morse_pzlanhe(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, doubl
/* part_p = A->myrank / A->q; */
/* part_q = A->myrank % A->q; */
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
*result = 0.0;
switch ( norm ) {
@@ -199,7 +199,7 @@ void morse_pzlanhe(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, doubl
CHAMELEON_Desc_Flush( VECNORMS_STEP2, sequence );
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
*result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP1) );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP2) );
@@ -337,7 +337,7 @@ void morse_pzlanhe(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, doubl
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
*result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP1) );
CHAMELEON_Desc_Destroy( &(RESULT) );
@@ -450,11 +450,11 @@ void morse_pzlanhe(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, doubl
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
*result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP1) );
CHAMELEON_Desc_Destroy( &(RESULT) );
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzlansy.c b/compute/pzlansy.c
index 6890ac2ff..96411e26c 100644
--- a/compute/pzlansy.c
+++ b/compute/pzlansy.c
@@ -36,13 +36,13 @@
/**
*
*/
-void morse_pzlansy(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *result,
+void chameleon_pzlansy(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *result,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
CHAM_desc_t *VECNORMS_STEP1 = NULL;
CHAM_desc_t *VECNORMS_STEP2 = NULL;
CHAM_desc_t *RESULT = NULL;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int workm, workn;
@@ -54,10 +54,10 @@ void morse_pzlansy(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, doubl
/* part_p = A->myrank / A->q; */
/* part_q = A->myrank % A->q; */
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
*result = 0.0;
switch ( norm ) {
@@ -199,7 +199,7 @@ void morse_pzlansy(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, doubl
CHAMELEON_Desc_Flush( VECNORMS_STEP2, sequence );
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP2) );
break;
/*
@@ -343,7 +343,7 @@ void morse_pzlansy(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, doubl
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
break;
/*
@@ -453,7 +453,7 @@ void morse_pzlansy(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, doubl
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
}
*result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q );
@@ -461,5 +461,5 @@ void morse_pzlansy(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, doubl
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP1) );
CHAMELEON_Desc_Destroy( &(RESULT) );
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzlantr.c b/compute/pzlantr.c
index 427f2b795..cbdefa954 100644
--- a/compute/pzlantr.c
+++ b/compute/pzlantr.c
@@ -30,14 +30,14 @@
/**
*
*/
-void morse_pzlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag,
+void chameleon_pzlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag,
CHAM_desc_t *A, double *result,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
CHAM_desc_t *VECNORMS_STEP1 = NULL;
CHAM_desc_t *VECNORMS_STEP2 = NULL;
CHAM_desc_t *RESULT = NULL;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int workm, workn;
@@ -51,10 +51,10 @@ void morse_pzlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag,
/* part_p = A->myrank / A->q; */
/* part_q = A->myrank % A->q; */
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
*result = 0.0;
switch ( norm ) {
@@ -223,7 +223,7 @@ void morse_pzlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag,
CHAMELEON_Desc_Flush( VECNORMS_STEP2, sequence );
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
*result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP1) );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP2) );
@@ -395,7 +395,7 @@ void morse_pzlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag,
CHAMELEON_Desc_Flush( VECNORMS_STEP2, sequence );
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
*result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP1) );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP2) );
@@ -537,7 +537,7 @@ void morse_pzlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag,
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
*result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP1) );
CHAMELEON_Desc_Destroy( &(RESULT) );
@@ -663,11 +663,11 @@ void morse_pzlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag,
CHAMELEON_Desc_Flush( VECNORMS_STEP1, sequence );
CHAMELEON_Desc_Flush( RESULT, sequence );
- RUNTIME_sequence_wait(morse, sequence);
+ RUNTIME_sequence_wait(chamctxt, sequence);
*result = *(double *)VECNORMS_STEP1->get_blkaddr(VECNORMS_STEP1, A->myrank / A->q, A->myrank % A->q );
CHAMELEON_Desc_Destroy( &(VECNORMS_STEP1) );
CHAMELEON_Desc_Destroy( &(RESULT) );
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzlascal.c b/compute/pzlascal.c
index 17d547d6e..de54e477e 100644
--- a/compute/pzlascal.c
+++ b/compute/pzlascal.c
@@ -23,10 +23,10 @@
/**
* Parallel scale of a matrix A
*/
-void morse_pzlascal(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A,
+void chameleon_pzlascal(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int tempmm, tempnn, tempmn, tempnm;
@@ -34,11 +34,11 @@ void morse_pzlascal(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *
int ldam, ldan;
int minmnt = chameleon_min(A->mt, A->nt);
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
switch(uplo) {
case ChamLower:
@@ -102,5 +102,5 @@ void morse_pzlascal(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzlaset.c b/compute/pzlaset.c
index a4bcc5c9d..f0a5f88a8 100644
--- a/compute/pzlaset.c
+++ b/compute/pzlaset.c
@@ -29,12 +29,12 @@
* Parallel initialization a 2-D array A to BETA on the diagonal and
* ALPHA on the offdiagonals.
*/
-void morse_pzlaset(cham_uplo_t uplo,
+void chameleon_pzlaset(cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t beta,
CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int i, j;
@@ -43,11 +43,11 @@ void morse_pzlaset(cham_uplo_t uplo,
int tempjm, tempjn;
int minmn = chameleon_min(A->mt, A->nt);
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
if (uplo == ChamLower) {
for (j = 0; j < minmn; j++){
@@ -113,5 +113,5 @@ void morse_pzlaset(cham_uplo_t uplo,
A(j, j), ldaj);
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzlaset2.c b/compute/pzlaset2.c
index 695b8cc20..80a836a78 100644
--- a/compute/pzlaset2.c
+++ b/compute/pzlaset2.c
@@ -29,11 +29,11 @@
* Parallel initializztion a 2-D array A to
* ALPHA on the offdiagonals.
*/
-void morse_pzlaset2(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha,
+void chameleon_pzlaset2(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha,
CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int i, j;
@@ -42,11 +42,11 @@ void morse_pzlaset2(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha,
int tempjm, tempjn;
int minmn = chameleon_min(A->mt, A->nt);
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
if (uplo == ChamLower) {
for (j = 0; j < minmn; j++){
@@ -103,5 +103,5 @@ void morse_pzlaset2(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzlauum.c b/compute/pzlauum.c
index 39bc093c6..89ea4b72d 100644
--- a/compute/pzlauum.c
+++ b/compute/pzlauum.c
@@ -29,20 +29,20 @@
/**
* Parallel UU' or L'L operation - dynamic scheduling
*/
-void morse_pzlauum(cham_uplo_t uplo, CHAM_desc_t *A,
+void chameleon_pzlauum(cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
int ldak, ldam, ldan;
int tempkm, tempkn;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLower
*/
@@ -131,5 +131,5 @@ void morse_pzlauum(cham_uplo_t uplo, CHAM_desc_t *A,
A(k, k), ldak);
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzplghe.c b/compute/pzplghe.c
index 31d383c8d..d569c1045 100644
--- a/compute/pzplghe.c
+++ b/compute/pzplghe.c
@@ -28,23 +28,23 @@
#define A(m,n) A, m, n
/**
- * morse_pzplghe - Generate a random hermitian (positive definite if 'bump' is large enough) half-matrix by tiles.
+ * chameleon_pzplghe - Generate a random hermitian (positive definite if 'bump' is large enough) half-matrix by tiles.
*/
-void morse_pzplghe( double bump, cham_uplo_t uplo, CHAM_desc_t *A,
+void chameleon_pzplghe( double bump, cham_uplo_t uplo, CHAM_desc_t *A,
unsigned long long int seed,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int m, n;
int ldam;
int tempmm, tempnn;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) {
tempmm = m == A->mt-1 ? A->m-m*A->mb : A->mb;
@@ -92,5 +92,5 @@ void morse_pzplghe( double bump, cham_uplo_t uplo, CHAM_desc_t *A,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzplgsy.c b/compute/pzplgsy.c
index ef83361ba..3c2491776 100644
--- a/compute/pzplgsy.c
+++ b/compute/pzplgsy.c
@@ -28,23 +28,23 @@
#define A(m,n) A, m, n
/**
- * morse_pzplgsy - Generate a random symmetric (positive definite if 'bump' is large enough) half-matrix by tiles.
+ * chameleon_pzplgsy - Generate a random symmetric (positive definite if 'bump' is large enough) half-matrix by tiles.
*/
-void morse_pzplgsy( CHAMELEON_Complex64_t bump, cham_uplo_t uplo, CHAM_desc_t *A,
+void chameleon_pzplgsy( CHAMELEON_Complex64_t bump, cham_uplo_t uplo, CHAM_desc_t *A,
unsigned long long int seed,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int m, n;
int ldam;
int tempmm, tempnn;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) {
tempmm = m == A->mt-1 ? A->m-m*A->mb : A->mb;
@@ -92,5 +92,5 @@ void morse_pzplgsy( CHAMELEON_Complex64_t bump, cham_uplo_t uplo, CHAM_desc_t *A
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzplrnt.c b/compute/pzplrnt.c
index 93b678316..68f2fb725 100644
--- a/compute/pzplrnt.c
+++ b/compute/pzplrnt.c
@@ -25,22 +25,22 @@
#define A(m, n) A, m, n
/**
- * morse_pzplghe - Generate a random matrix by tiles.
+ * chameleon_pzplghe - Generate a random matrix by tiles.
*/
-void morse_pzplrnt( CHAM_desc_t *A, unsigned long long int seed,
+void chameleon_pzplrnt( CHAM_desc_t *A, unsigned long long int seed,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int m, n;
int ldam;
int tempmm, tempnn;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for (m = 0; m < A->mt; m++) {
tempmm = m == A->mt-1 ? A->m-m*A->mb : A->mb;
@@ -55,5 +55,5 @@ void morse_pzplrnt( CHAM_desc_t *A, unsigned long long int seed,
A->m, m*A->mb, n*A->nb, seed );
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzpotrf.c b/compute/pzpotrf.c
index 0e5700739..35a506b99 100644
--- a/compute/pzpotrf.c
+++ b/compute/pzpotrf.c
@@ -30,10 +30,10 @@
/**
* Parallel tile Cholesky factorization - dynamic scheduling
*/
-void morse_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
+void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
@@ -44,10 +44,10 @@ void morse_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t) 1.0;
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
RUNTIME_options_ws_alloc( &options, 0, ws_host );
@@ -56,7 +56,7 @@ void morse_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
*/
if (uplo == ChamLower) {
for (k = 0; k < A->mt; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -108,7 +108,7 @@ void morse_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
}
RUNTIME_data_flush( sequence, A(n, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -116,7 +116,7 @@ void morse_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
*/
else {
for (k = 0; k < A->nt; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k);
@@ -168,9 +168,9 @@ void morse_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_data_flush( sequence, A(k, m) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzpotrimm.c b/compute/pzpotrimm.c
index d15d60bca..4b7861b7c 100644
--- a/compute/pzpotrimm.c
+++ b/compute/pzpotrimm.c
@@ -29,10 +29,10 @@
/**
* Parallel tile Cholesky factorization - dynamic scheduling
*/
-void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *C,
+void chameleon_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
@@ -47,10 +47,10 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLower
@@ -60,7 +60,7 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
* ZPOTRF
*/
for (k = 0; k < A->mt; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -106,13 +106,13 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
RUNTIME_data_flush( sequence, A(n, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
/*
* ZTRTRI
*/
for (k = 0; k < A->nt; k++) {
- RUNTIME_iteration_push(morse, A->nt + k);
+ RUNTIME_iteration_push(chamctxt, A->nt + k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k);
@@ -156,13 +156,13 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
tempkn, A->mb,
A(k, k), ldak, A->nb*k);
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
/*
* ZLAUUM
*/
for (k = 0; k < A->mt; k++) {
- RUNTIME_iteration_push(morse, 2*A->nt + k);
+ RUNTIME_iteration_push(chamctxt, 2*A->nt + k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -201,13 +201,13 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
uplo, tempkm, A->mb,
A(k, k), ldak);
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
/*
* ZSYMM Right / Lower
*/
for (k = 0; k < C->nt; k++) {
- RUNTIME_iteration_push(morse, 3*A->nt + k);
+ RUNTIME_iteration_push(chamctxt, 3*A->nt + k);
tempkn = k == C->nt-1 ? C->n-k*C->nb : C->nb;
ldak = BLKLDD(A, k);
@@ -258,7 +258,7 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
RUNTIME_data_flush( sequence, A(k, n) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -269,7 +269,7 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
* ZPOTRF
*/
for (k = 0; k < A->nt; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k);
@@ -315,13 +315,13 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
RUNTIME_data_flush( sequence, A(k, m) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
/*
* ZTRTRI
*/
for (k = 0; k < A->mt; k++) {
- RUNTIME_iteration_push(morse, A->nt + k);
+ RUNTIME_iteration_push(chamctxt, A->nt + k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -365,13 +365,13 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
tempkm, A->mb,
A(k, k), ldak, A->mb*k);
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
/*
* ZLAUUM
*/
for (k = 0; k < A->mt; k++) {
- RUNTIME_iteration_push(morse, 2*A->nt + k);
+ RUNTIME_iteration_push(chamctxt, 2*A->nt + k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k);
@@ -412,13 +412,13 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
uplo, tempkn, A->mb,
A(k, k), ldak);
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
/*
* ZSYMM Right / Upper
*/
for (k = 0; k < C->nt; k++) {
- RUNTIME_iteration_push(morse, 3*A->nt + k);
+ RUNTIME_iteration_push(chamctxt, 3*A->nt + k);
tempkn = k == C->nt-1 ? C->n-k*C->nb : C->nb;
ldak = BLKLDD(A, k);
@@ -469,9 +469,9 @@ void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc
RUNTIME_data_flush( sequence, A(m, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzsymm.c b/compute/pzsymm.c
index 06eb8a2fc..c534665f5 100644
--- a/compute/pzsymm.c
+++ b/compute/pzsymm.c
@@ -29,12 +29,12 @@
/**
* Parallel tile symmetric matrix-matrix multiplication - dynamic scheduling
*/
-void morse_pzsymm(cham_side_t side, cham_uplo_t uplo,
+void chameleon_pzsymm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
@@ -44,10 +44,10 @@ void morse_pzsymm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t zbeta;
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLeft
@@ -251,5 +251,5 @@ void morse_pzsymm(cham_side_t side, cham_uplo_t uplo,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzsyr2k.c b/compute/pzsyr2k.c
index 76d38f99c..22a8ededb 100644
--- a/compute/pzsyr2k.c
+++ b/compute/pzsyr2k.c
@@ -29,12 +29,12 @@
/**
* Parallel tile Hermitian rank-k update - dynamic scheduling
*/
-void morse_pzsyr2k(cham_uplo_t uplo, cham_trans_t trans,
+void chameleon_pzsyr2k(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int m, n, k;
@@ -45,10 +45,10 @@ void morse_pzsyr2k(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
CHAMELEON_Complex64_t zbeta;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) {
tempnn = n == C->nt-1 ? C->n-n*C->nb : C->nb;
@@ -208,5 +208,5 @@ void morse_pzsyr2k(cham_uplo_t uplo, cham_trans_t trans,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzsyrk.c b/compute/pzsyrk.c
index 3b03b3c4e..8dd954a3d 100644
--- a/compute/pzsyrk.c
+++ b/compute/pzsyrk.c
@@ -29,12 +29,12 @@
/**
* Parallel tile symmetric rank-k update - dynamic scheduling
*/
-void morse_pzsyrk(cham_uplo_t uplo, cham_trans_t trans,
+void chameleon_pzsyrk(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int m, n, k;
@@ -44,10 +44,10 @@ void morse_pzsyrk(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t zbeta;
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
for (n = 0; n < C->nt; n++) {
tempnn = n == C->nt-1 ? C->n-n*C->nb : C->nb;
@@ -167,5 +167,5 @@ void morse_pzsyrk(cham_uplo_t uplo, cham_trans_t trans,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzsytrf.c b/compute/pzsytrf.c
index 77b9f23cb..96456c11b 100644
--- a/compute/pzsytrf.c
+++ b/compute/pzsytrf.c
@@ -29,10 +29,10 @@
/**
* Parallel tile Cholesky factorization - dynamic scheduling
*/
-void morse_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A,
+void chameleon_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
@@ -43,10 +43,10 @@ void morse_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t) 1.0;
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
RUNTIME_options_ws_alloc( &options, 0, ws_host );
@@ -55,7 +55,7 @@ void morse_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A,
*/
if (uplo == ChamLower) {
for (k = 0; k < A->mt; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -101,7 +101,7 @@ void morse_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_data_flush( sequence, A(n, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -109,7 +109,7 @@ void morse_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A,
*/
else {
for (k = 0; k < A->nt; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k);
@@ -155,10 +155,10 @@ void morse_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_data_flush( sequence, A(k, m) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pztile2band.c b/compute/pztile2band.c
index 2ef767eb2..2dbe93eea 100644
--- a/compute/pztile2band.c
+++ b/compute/pztile2band.c
@@ -27,10 +27,10 @@
/**
* Parallel copy of a band matrix from full NxN tile storage to band storage (LDABxN).
*/
-void morse_pztile2band(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
+void chameleon_pztile2band(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int j;
@@ -38,10 +38,10 @@ void morse_pztile2band(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
int tempjm, tempjn;
int minmnt = chameleon_min(A->mt, A->nt);
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ldx = B->mb-1;
@@ -111,7 +111,7 @@ void morse_pztile2band(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
A->nb, B(0, j), ldx);
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
#undef B
#undef A
diff --git a/compute/pztpgqrt.c b/compute/pztpgqrt.c
index 04ef6b20f..4687703d6 100644
--- a/compute/pztpgqrt.c
+++ b/compute/pztpgqrt.c
@@ -35,14 +35,14 @@
/**
* Parallel tile QR factorization - dynamic scheduling
*/
-void morse_pztpgqrt( int L,
+void chameleon_pztpgqrt( int L,
CHAM_desc_t *V1, CHAM_desc_t *T1,
CHAM_desc_t *V2, CHAM_desc_t *T2,
CHAM_desc_t *Q1, CHAM_desc_t *Q2,
CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -58,10 +58,10 @@ void morse_pztpgqrt( int L,
int maxmt = (maxm % Q2->mb == 0) ? (maxm / Q2->mb) : (maxm / Q2->mb + 1);
int maxmtk;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
/*
@@ -84,7 +84,7 @@ void morse_pztpgqrt( int L,
RUNTIME_options_ws_alloc( &options, ws_worker, ws_host );
for (k = V1->nt-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == V1->mt-1 ? V1->m-k*V1->mb : V1->mb;
tempkk = k == V1->nt-1 ? V1->n-k*V1->nb : V1->nb;
@@ -157,10 +157,10 @@ void morse_pztpgqrt( int L,
Q1(k, n), ldqk);
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/pztpqrt.c b/compute/pztpqrt.c
index 7b2a7b87e..4b2ac340e 100644
--- a/compute/pztpqrt.c
+++ b/compute/pztpqrt.c
@@ -27,10 +27,10 @@
/**
* Parallel tile QR factorization - dynamic scheduling
*/
-void morse_pztpqrt( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T,
+void chameleon_pztpqrt( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -44,10 +44,10 @@ void morse_pztpqrt( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T,
int maxm = chameleon_max( B->m - L, 1 );
int maxmt = (maxm % B->mb == 0) ? (maxm / B->mb) : (maxm / B->mb + 1);
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -72,7 +72,7 @@ void morse_pztpqrt( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T,
RUNTIME_options_ws_alloc( &options, ws_worker, ws_host );
for (k = 0; k < A->nt; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -105,9 +105,9 @@ void morse_pztpqrt( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T,
maxmt = chameleon_min( B->mt, maxmt+1 );
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pztradd.c b/compute/pztradd.c
index 40294f24d..cb5528562 100644
--- a/compute/pztradd.c
+++ b/compute/pztradd.c
@@ -28,22 +28,22 @@
/**
* Parallel tile matrix-matrix multiplication - dynamic scheduling
*/
-void morse_pztradd(cham_uplo_t uplo, cham_trans_t trans,
+void chameleon_pztradd(cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A,
CHAMELEON_Complex64_t beta, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int tempmm, tempnn, tempmn, tempnm;
int m, n;
int ldam, ldan, ldbm, ldbn;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
switch(uplo){
case ChamLower:
@@ -188,5 +188,5 @@ void morse_pztradd(cham_uplo_t uplo, cham_trans_t trans,
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pztrmm.c b/compute/pztrmm.c
index 49943a38a..3f9e136d4 100644
--- a/compute/pztrmm.c
+++ b/compute/pztrmm.c
@@ -31,12 +31,12 @@
/**
* Parallel tile triangular matrix-matrix multiplication - dynamic scheduling
*/
-void morse_pztrmm(cham_side_t side, cham_uplo_t uplo,
+void chameleon_pztrmm(cham_side_t side, cham_uplo_t uplo,
cham_trans_t trans, cham_diag_t diag,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
@@ -45,10 +45,10 @@ void morse_pztrmm(cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t)1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLeft / ChamUpper / ChamNoTrans
*/
@@ -306,5 +306,5 @@ void morse_pztrmm(cham_side_t side, cham_uplo_t uplo,
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pztrsm.c b/compute/pztrsm.c
index 1aa6a9cf3..dccac4889 100644
--- a/compute/pztrsm.c
+++ b/compute/pztrsm.c
@@ -30,11 +30,11 @@
/**
* Parallel tile triangular solve - dynamic scheduling
*/
-void morse_pztrsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_diag_t diag,
+void chameleon_pztrsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_diag_t diag,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
@@ -46,10 +46,10 @@ void morse_pztrsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_d
CHAMELEON_Complex64_t minvalpha = (CHAMELEON_Complex64_t)-1.0 / alpha;
CHAMELEON_Complex64_t lalpha;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLeft / ChamUpper / ChamNoTrans
*/
@@ -365,5 +365,5 @@ void morse_pztrsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_d
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pztrsmpl.c b/compute/pztrsmpl.c
index 89fd45299..c2a7601d6 100644
--- a/compute/pztrsmpl.c
+++ b/compute/pztrsmpl.c
@@ -32,10 +32,10 @@
/**
* Parallel forward substitution for tile LU - dynamic scheduling
*/
-void morse_pztrsmpl( CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *L, int *IPIV,
+void chameleon_pztrsmpl( CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *L, int *IPIV,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
@@ -43,10 +43,10 @@ void morse_pztrsmpl( CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *L, int *IPIV,
int tempkm, tempnn, tempkmin, tempmm, tempkn;
int ib;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
for (k = 0; k < chameleon_min(A->mt, A->nt); k++) {
@@ -82,5 +82,5 @@ void morse_pztrsmpl( CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *L, int *IPIV,
}
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pztrtri.c b/compute/pztrtri.c
index 33071608a..062808bbc 100644
--- a/compute/pztrtri.c
+++ b/compute/pztrtri.c
@@ -29,10 +29,10 @@
/**
* Parallel tile triangular matrix inverse - dynamic scheduling
*/
-void morse_pztrtri(cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A,
+void chameleon_pztrtri(cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
int k, m, n;
@@ -42,16 +42,16 @@ void morse_pztrtri(cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A,
CHAMELEON_Complex64_t zone = (CHAMELEON_Complex64_t) 1.0;
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
/*
* ChamLower
*/
if (uplo == ChamLower) {
for (k = 0; k < A->nt; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k);
@@ -95,7 +95,7 @@ void morse_pztrtri(cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A,
tempkn, A->mb,
A(k, k), ldak, A->nb*k);
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -103,7 +103,7 @@ void morse_pztrtri(cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A,
*/
else {
for (k = 0; k < A->mt; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -147,8 +147,8 @@ void morse_pztrtri(cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A,
tempkm, A->mb,
A(k, k), ldak, A->mb*k);
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzunglq.c b/compute/pzunglq.c
index 13d332fa6..2a0ae4cbf 100644
--- a/compute/pzunglq.c
+++ b/compute/pzunglq.c
@@ -37,10 +37,10 @@
/**
* Parallel construction of Q using tile V (application to identity) - dynamic scheduling
*/
-void morse_pzunglq(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D,
+void chameleon_pzunglq(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -51,10 +51,10 @@ void morse_pzunglq(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *
int tempAkm, tempAkn;
int ib, minMT;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -90,7 +90,7 @@ void morse_pzunglq(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *
RUNTIME_options_ws_alloc( &options, ws_worker, ws_host );
for (k = minMT-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempAkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempAkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -151,9 +151,9 @@ void morse_pzunglq(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzunglq_param.c b/compute/pzunglq_param.c
index af53cfbdc..44ef7f86e 100644
--- a/compute/pzunglq_param.c
+++ b/compute/pzunglq_param.c
@@ -29,11 +29,11 @@
/**
* Parallel construction of Q using tile V - dynamic scheduling
*/
-void morse_pzunglq_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *Q,
+void chameleon_pzunglq_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *Q,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
CHAM_desc_t *T;
size_t ws_worker = 0;
@@ -46,10 +46,10 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_
int ib;
int *tiles;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -85,7 +85,7 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_
K = chameleon_min(A->mt, A->nt);
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -171,10 +171,10 @@ void morse_pzunglq_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_
RUNTIME_data_flush( sequence, T(k, p) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
free(tiles);
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzunglqrh.c b/compute/pzunglqrh.c
index 6f319c776..40e9d6cff 100644
--- a/compute/pzunglqrh.c
+++ b/compute/pzunglqrh.c
@@ -38,11 +38,11 @@
* Parallel construction of Q using tile V (application to identity;
* reduction Householder) - dynamic scheduling
*/
-void morse_pzunglqrh(CHAM_desc_t *A, CHAM_desc_t *Q,
+void chameleon_pzunglqrh(CHAM_desc_t *A, CHAM_desc_t *Q,
CHAM_desc_t *T, CHAM_desc_t *D, int BS,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -54,10 +54,10 @@ void morse_pzunglqrh(CHAM_desc_t *A, CHAM_desc_t *Q,
int tempkm, tempkmin, tempNn, tempnn, tempmm, tempNRDn;
int ib;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -84,7 +84,7 @@ void morse_pzunglqrh(CHAM_desc_t *A, CHAM_desc_t *Q,
K = chameleon_min(A->mt, A->nt);
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -180,10 +180,10 @@ void morse_pzunglqrh(CHAM_desc_t *A, CHAM_desc_t *Q,
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/pzungqr.c b/compute/pzungqr.c
index fcf5b10ab..61c81f1a9 100644
--- a/compute/pzungqr.c
+++ b/compute/pzungqr.c
@@ -37,10 +37,10 @@
/**
* Parallel construction of Q using tile V (application to identity) - dynamic scheduling
*/
-void morse_pzungqr(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D,
+void chameleon_pzungqr(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -51,10 +51,10 @@ void morse_pzungqr(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *
int tempAkm, tempAkn;
int ib, minMT;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -90,7 +90,7 @@ void morse_pzungqr(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *
RUNTIME_options_ws_alloc( &options, ws_worker, ws_host );
for (k = minMT-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempAkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempAkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -154,9 +154,9 @@ void morse_pzungqr(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzungqr_param.c b/compute/pzungqr_param.c
index e343c88b9..3f24a50fc 100644
--- a/compute/pzungqr_param.c
+++ b/compute/pzungqr_param.c
@@ -29,12 +29,12 @@
/**
* Parallel construction of Q using tile V (application to identity) - dynamic scheduling
*/
-void morse_pzungqr_param(const libhqr_tree_t *qrtree,
+void chameleon_pzungqr_param(const libhqr_tree_t *qrtree,
CHAM_desc_t *A, CHAM_desc_t *Q,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
CHAM_desc_t *T;
size_t ws_worker = 0;
@@ -46,10 +46,10 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
int ib, minMT;
int *tiles;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -89,7 +89,7 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
RUNTIME_options_ws_alloc( &options, ws_worker, ws_host );
for (k = minMT-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -180,10 +180,10 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree,
RUNTIME_data_flush( sequence, T(m, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
free(tiles);
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzungqrrh.c b/compute/pzungqrrh.c
index 763099593..e899e32dd 100644
--- a/compute/pzungqrrh.c
+++ b/compute/pzungqrrh.c
@@ -40,11 +40,11 @@
* Parallel construction of Q using tile V (application to identity;
* reduction Householder) - dynamic scheduling
*/
-void morse_pzungqrrh(CHAM_desc_t *A, CHAM_desc_t *Q,
+void chameleon_pzungqrrh(CHAM_desc_t *A, CHAM_desc_t *Q,
CHAM_desc_t *T, CHAM_desc_t *D, int BS,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -56,10 +56,10 @@ void morse_pzungqrrh(CHAM_desc_t *A, CHAM_desc_t *Q,
int tempkn, tempMm, tempnn, tempmm, tempMRDm, tempkmin;
int ib;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -86,7 +86,7 @@ void morse_pzungqrrh(CHAM_desc_t *A, CHAM_desc_t *Q,
K = chameleon_min(A->mt, A->nt);
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
lastRD = 0;
@@ -186,10 +186,10 @@ void morse_pzungqrrh(CHAM_desc_t *A, CHAM_desc_t *Q,
RUNTIME_data_flush( sequence, D(M, k) );
RUNTIME_data_flush( sequence, T(M, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/pzunmlq.c b/compute/pzunmlq.c
index e362d56f6..c618a3d7e 100644
--- a/compute/pzunmlq.c
+++ b/compute/pzunmlq.c
@@ -38,11 +38,11 @@
/**
* Parallel application of Q using tile V - LQ factorization - dynamic scheduling
*/
-void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
+void chameleon_pzunmlq(cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -52,10 +52,10 @@ void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
int tempmm, tempnn, tempkn, tempkm, tempkmin;
int ib, minMT, minM;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -97,7 +97,7 @@ void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
* ChamLeft / ChamNoTrans
*/
for (k = 0; k < minMT; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
@@ -161,7 +161,7 @@ void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
B->get_rankof( B, k, n ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -169,7 +169,7 @@ void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
*/
else {
for (k = minMT-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
@@ -228,7 +228,7 @@ void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
@@ -238,7 +238,7 @@ void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
else {
if (trans == ChamNoTrans) {
for (k = minMT-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == B->nt - 1 ? B->n - k * B->nb : B->nb;
tempkmin = k == minMT - 1 ? minM - k * A->nb : A->nb;
@@ -299,7 +299,7 @@ void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -307,7 +307,7 @@ void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
*/
else {
for (k = 0; k < minMT; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == B->nt-1 ? B->n-k*B->nb : B->nb;
tempkmin = k == minMT-1 ? minM-k*A->mb : A->mb;
@@ -371,11 +371,11 @@ void morse_pzunmlq(cham_side_t side, cham_trans_t trans,
B->get_rankof( B, m, k ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzunmlq_param.c b/compute/pzunmlq_param.c
index 22ca68f39..5f752ff84 100644
--- a/compute/pzunmlq_param.c
+++ b/compute/pzunmlq_param.c
@@ -29,13 +29,13 @@
/**
* Parallel application of Q using tile V - LQ factorization - dynamic scheduling
*/
-void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
+void chameleon_pzunmlq_param(const libhqr_tree_t *qrtree,
cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *B,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
CHAM_desc_t *T;
size_t ws_worker = 0;
@@ -47,10 +47,10 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
int ib, K, L;
int *tiles;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -90,7 +90,7 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
* ChamLeft / ChamNoTrans
*/
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -180,7 +180,7 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
B->get_rankof( B, k, n ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -188,7 +188,7 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
*/
else {
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -276,7 +276,7 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
RUNTIME_data_flush( sequence, T(k, p) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
@@ -286,7 +286,7 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
else {
if (trans == ChamNoTrans) {
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -373,7 +373,7 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
RUNTIME_data_flush( sequence, T(k, p) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -381,7 +381,7 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
*/
else {
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -465,12 +465,12 @@ void morse_pzunmlq_param(const libhqr_tree_t *qrtree,
RUNTIME_data_flush( sequence, T(k, n) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
free(tiles);
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzunmlqrh.c b/compute/pzunmlqrh.c
index 45d7cf27b..ec25a26fe 100644
--- a/compute/pzunmlqrh.c
+++ b/compute/pzunmlqrh.c
@@ -40,11 +40,11 @@
* Parallel application of Q using tile V - LQ factorization (reduction
* Householder) - dynamic scheduling
*/
-void morse_pzunmlqrh(cham_side_t side, cham_trans_t trans,
+void chameleon_pzunmlqrh(cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -55,10 +55,10 @@ void morse_pzunmlqrh(cham_side_t side, cham_trans_t trans,
int tempNn, tempkm, tempnn, tempmm, tempNRDn, tempkmin;
int ib;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -90,7 +90,7 @@ void morse_pzunmlqrh(cham_side_t side, cham_trans_t trans,
* ChamLeft / ChamNoTrans
*/
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -184,14 +184,14 @@ void morse_pzunmlqrh(cham_side_t side, cham_trans_t trans,
B->get_rankof( B, k, n ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
} else {
/*
* ChamLeft / ChamConjTrans
*/
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -285,7 +285,7 @@ void morse_pzunmlqrh(cham_side_t side, cham_trans_t trans,
RUNTIME_data_flush( sequence, D(k, N) );
RUNTIME_data_flush( sequence, T(k, N) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
@@ -295,7 +295,7 @@ void morse_pzunmlqrh(cham_side_t side, cham_trans_t trans,
* ChamRight / ChamNoTrans
*/
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -389,14 +389,14 @@ void morse_pzunmlqrh(cham_side_t side, cham_trans_t trans,
RUNTIME_data_flush( sequence, T(k, N) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
} else {
/*
* ChamRight / ChamConjTrans
*/
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k);
@@ -490,12 +490,12 @@ void morse_pzunmlqrh(cham_side_t side, cham_trans_t trans,
B->get_rankof( B, m, k ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/pzunmqr.c b/compute/pzunmqr.c
index e73fb0b6c..c971933c9 100644
--- a/compute/pzunmqr.c
+++ b/compute/pzunmqr.c
@@ -38,11 +38,11 @@
/**
* Parallel application of Q using tile V - QR factorization - dynamic scheduling
*/
-void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
+void chameleon_pzunmqr(cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -52,10 +52,10 @@ void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
int tempkm, tempnn, tempkmin, tempmm, tempkn;
int ib, minMT, minM;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -97,7 +97,7 @@ void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
* ChamLeft / ChamConjTrans
*/
for (k = 0; k < minMT; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
@@ -162,7 +162,7 @@ void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
B->get_rankof( B, k, n ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -170,7 +170,7 @@ void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
*/
else {
for (k = minMT-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
@@ -230,7 +230,7 @@ void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
}
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
@@ -240,7 +240,7 @@ void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
else {
if (trans == ChamConjTrans) {
for (k = minMT-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == B->nt - 1 ? B->n - k * B->nb : B->nb;
tempkmin = k == minMT - 1 ? minM - k * A->nb : A->nb;
@@ -302,7 +302,7 @@ void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
RUNTIME_data_flush( sequence, D(k) );
RUNTIME_data_flush( sequence, T(k, k) );
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -310,7 +310,7 @@ void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
*/
else {
for (k = 0; k < minMT; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == B->nt-1 ? B->n-k*B->nb : B->nb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
@@ -375,11 +375,11 @@ void morse_pzunmqr(cham_side_t side, cham_trans_t trans,
B->get_rankof( B, m, k ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzunmqr_param.c b/compute/pzunmqr_param.c
index 5f96cb163..8aaf0f3fc 100644
--- a/compute/pzunmqr_param.c
+++ b/compute/pzunmqr_param.c
@@ -29,13 +29,13 @@
/**
* Parallel application of Q using tile V - QR factorization - dynamic scheduling
*/
-void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
+void chameleon_pzunmqr_param(const libhqr_tree_t *qrtree,
cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *B,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
CHAM_desc_t *T;
size_t ws_worker = 0;
@@ -47,10 +47,10 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
int ib, K, L;
int *tiles;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -90,7 +90,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
* ChamLeft / ChamConjTrans
*/
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -180,7 +180,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
B->get_rankof( B, k, n ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -188,7 +188,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
*/
else {
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
@@ -277,7 +277,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
RUNTIME_data_flush( sequence, T(m, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
@@ -287,7 +287,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
else {
if (trans == ChamConjTrans) {
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n - k*A->nb : A->nb;
@@ -374,7 +374,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
RUNTIME_data_flush( sequence, D(n, k) );
RUNTIME_data_flush( sequence, T(n, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
/*
@@ -382,7 +382,7 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
*/
else {
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == B->nt-1 ? B->n-k*B->nb : B->nb;
@@ -466,12 +466,12 @@ void morse_pzunmqr_param(const libhqr_tree_t *qrtree,
RUNTIME_data_flush( sequence, T(n, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
free(tiles);
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
}
diff --git a/compute/pzunmqrrh.c b/compute/pzunmqrrh.c
index e06b2f5e5..f0ffa1e80 100644
--- a/compute/pzunmqrrh.c
+++ b/compute/pzunmqrrh.c
@@ -40,11 +40,11 @@
* Parallel application of Q using tile V - QR factorization (reduction
* Householder) - dynamic scheduling
*/
-void morse_pzunmqrrh( cham_side_t side, cham_trans_t trans,
+void chameleon_pzunmqrrh( cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, int BS,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_option_t options;
size_t ws_worker = 0;
size_t ws_host = 0;
@@ -56,10 +56,10 @@ void morse_pzunmqrrh( cham_side_t side, cham_trans_t trans,
int tempMm, tempkn, tempnn, tempmm, tempMRDm, tempkmin;
int ib;
- morse = morse_context_self();
+ chamctxt = chameleon_context_self();
if (sequence->status != CHAMELEON_SUCCESS)
return;
- RUNTIME_options_init(&options, morse, sequence, request);
+ RUNTIME_options_init(&options, chamctxt, sequence, request);
ib = CHAMELEON_IB;
@@ -91,7 +91,7 @@ void morse_pzunmqrrh( cham_side_t side, cham_trans_t trans,
* ChamLeft / ChamConjTrans
*/
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
for (M = k; M < A->mt; M += BS) {
@@ -185,14 +185,14 @@ void morse_pzunmqrrh( cham_side_t side, cham_trans_t trans,
B->get_rankof( B, k, n ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
} else {
/*
* ChamLeft / ChamNoTrans
*/
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
lastRD = 0;
@@ -284,7 +284,7 @@ void morse_pzunmqrrh( cham_side_t side, cham_trans_t trans,
RUNTIME_data_flush( sequence, D(M, k) );
RUNTIME_data_flush( sequence, T(M, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
@@ -294,7 +294,7 @@ void morse_pzunmqrrh( cham_side_t side, cham_trans_t trans,
* ChamRight / ChamConjTrans
*/
for (k = K-1; k >= 0; k--) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
lastRD = 0;
@@ -387,14 +387,14 @@ void morse_pzunmqrrh( cham_side_t side, cham_trans_t trans,
RUNTIME_data_flush( sequence, T(M, k) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
} else {
/*
* ChamRight / ChamNoTrans
*/
for (k = 0; k < K; k++) {
- RUNTIME_iteration_push(morse, k);
+ RUNTIME_iteration_push(chamctxt, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
for (M = k; M < A->mt; M += BS) {
@@ -487,12 +487,12 @@ void morse_pzunmqrrh( cham_side_t side, cham_trans_t trans,
B->get_rankof( B, m, k ) );
}
- RUNTIME_iteration_pop(morse);
+ RUNTIME_iteration_pop(chamctxt);
}
}
}
RUNTIME_options_ws_free(&options);
- RUNTIME_options_finalize(&options, morse);
+ RUNTIME_options_finalize(&options, chamctxt);
(void)D;
}
diff --git a/compute/zbuild.c b/compute/zbuild.c
index 59b59bf36..ae792fe48 100644
--- a/compute/zbuild.c
+++ b/compute/zbuild.c
@@ -85,27 +85,27 @@ int CHAMELEON_zbuild( cham_uplo_t uplo, int M, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zbuild", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zbuild", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zbuild", "illegal value of M");
+ chameleon_error("CHAMELEON_zbuild", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zbuild", "illegal value of N");
+ chameleon_error("CHAMELEON_zbuild", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zbuild", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zbuild", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -113,34 +113,34 @@ int CHAMELEON_zbuild( cham_uplo_t uplo, int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zbuild", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zbuild", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescOutput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescOutput, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zbuild_Tile_Async( uplo, &descAt, user_data, user_build_callback, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescOutput, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -190,25 +190,25 @@ int CHAMELEON_zbuild( cham_uplo_t uplo, int M, int N,
int CHAMELEON_zbuild_Tile( cham_uplo_t uplo, CHAM_desc_t *A,
void *user_data, void* user_build_callback )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zbuild_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zbuild_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zbuild_Tile_Async( uplo, A, user_data, user_build_callback, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -260,19 +260,19 @@ int CHAMELEON_zbuild_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence,
RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zbuild_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zbuild_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zbuild_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zbuild_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zbuild_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zbuild_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -280,13 +280,13 @@ int CHAMELEON_zbuild_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zbuild_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zbuild_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
@@ -294,7 +294,7 @@ int CHAMELEON_zbuild_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
return CHAMELEON_SUCCESS;
}
- morse_pzbuild( uplo, A, user_data, user_build_callback, sequence, request );
+ chameleon_pzbuild( uplo, A, user_data, user_build_callback, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zgeadd.c b/compute/zgeadd.c
index 708e80d01..65dec44d8 100644
--- a/compute/zgeadd.c
+++ b/compute/zgeadd.c
@@ -95,19 +95,19 @@ int CHAMELEON_zgeadd( cham_trans_t trans, int M, int N,
int status;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeadd", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeadd", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((trans < ChamNoTrans) || (trans > ChamConjTrans)) {
- morse_error("CHAMELEON_zgeadd", "illegal value of trans");
+ chameleon_error("CHAMELEON_zgeadd", "illegal value of trans");
return -1;
}
if ( trans == ChamNoTrans ) {
@@ -116,19 +116,19 @@ int CHAMELEON_zgeadd( cham_trans_t trans, int M, int N,
Am = N; An = M;
}
if (M < 0) {
- morse_error("CHAMELEON_zgeadd", "illegal value of M");
+ chameleon_error("CHAMELEON_zgeadd", "illegal value of M");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zgeadd", "illegal value of N");
+ chameleon_error("CHAMELEON_zgeadd", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zgeadd", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgeadd", "illegal value of LDA");
return -6;
}
if (LDB < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgeadd", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgeadd", "illegal value of LDB");
return -9;
}
@@ -138,40 +138,40 @@ int CHAMELEON_zgeadd( cham_trans_t trans, int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeadd", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgeadd", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgeadd_Tile_Async( trans, alpha, &descAt, beta, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -227,26 +227,26 @@ int CHAMELEON_zgeadd_Tile( cham_trans_t trans,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A,
CHAMELEON_Complex64_t beta, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeadd_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeadd_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgeadd_Tile_Async( trans, alpha, A, beta, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -284,21 +284,21 @@ int CHAMELEON_zgeadd_Tile_Async( cham_trans_t trans,
CHAMELEON_Complex64_t beta, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int M, N;
int Am, An, Ai, Aj, Amb, Anb;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeadd_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeadd_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgeadd_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgeadd_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgeadd_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgeadd_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -306,22 +306,22 @@ int CHAMELEON_zgeadd_Tile_Async( cham_trans_t trans,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeadd_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeadd_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeadd_Tile_Async", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeadd_Tile_Async", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ((trans < ChamNoTrans) || (trans > ChamConjTrans)) {
- morse_error("CHAMELEON_zgeadd_Tile_Async", "illegal value of trans");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zgeadd_Tile_Async", "illegal value of trans");
+ return chameleon_request_fail(sequence, request, -1);
}
if ( trans == ChamNoTrans ) {
@@ -341,16 +341,16 @@ int CHAMELEON_zgeadd_Tile_Async( cham_trans_t trans,
}
if ( (Amb != B->mb) || (Anb != B->nb) ) {
- morse_error("CHAMELEON_zgeadd_Tile_Async", "tile sizes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgeadd_Tile_Async", "tile sizes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (Am != B->m) || (An != B->n) ) {
- morse_error("CHAMELEON_zgeadd_Tile_Async", "sizes of matrices have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgeadd_Tile_Async", "sizes of matrices have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (Ai != B->i) || (Aj != B->j) ) {
- morse_error("CHAMELEON_zgeadd_Tile_Async", "start indexes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgeadd_Tile_Async", "start indexes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
M = B->m;
@@ -363,7 +363,7 @@ int CHAMELEON_zgeadd_Tile_Async( cham_trans_t trans,
return CHAMELEON_SUCCESS;
}
- morse_pztradd( ChamUpperLower, trans, alpha, A, beta, B, sequence, request );
+ chameleon_pztradd( ChamUpperLower, trans, alpha, A, beta, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zgelqf.c b/compute/zgelqf.c
index 3b4c43af2..d6dfbee95 100644
--- a/compute/zgelqf.c
+++ b/compute/zgelqf.c
@@ -76,28 +76,28 @@ int CHAMELEON_zgelqf( int M, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqf", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgelqf", "illegal value of M");
+ chameleon_error("CHAMELEON_zgelqf", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zgelqf", "illegal value of N");
+ chameleon_error("CHAMELEON_zgelqf", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgelqf", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgelqf", "illegal value of LDA");
return -4;
}
@@ -106,36 +106,36 @@ int CHAMELEON_zgelqf( int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqf", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgelqf", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgelqf_Tile_Async( &descAt, descT, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -180,26 +180,26 @@ int CHAMELEON_zgelqf( int M, int N,
*/
int CHAMELEON_zgelqf_Tile( CHAM_desc_t *A, CHAM_desc_t *T )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqf_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgelqf_Tile_Async( A, T, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( T, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -235,20 +235,20 @@ int CHAMELEON_zgelqf_Tile( CHAM_desc_t *A, CHAM_desc_t *T )
int CHAMELEON_zgelqf_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqf_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgelqf_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgelqf_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -256,22 +256,22 @@ int CHAMELEON_zgelqf_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqf_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqf_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqf_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqf_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zgelqf_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgelqf_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -281,23 +281,23 @@ int CHAMELEON_zgelqf_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T,
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- if (morse->householder == ChamFlatHouseholder) {
- morse_pzgelqf( A, T, Dptr, sequence, request );
+ if (chamctxt->householder == ChamFlatHouseholder) {
+ chameleon_pzgelqf( A, T, Dptr, sequence, request );
}
else {
- morse_pzgelqfrh( A, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzgelqfrh( A, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgelqf_param.c b/compute/zgelqf_param.c
index 36f7175bb..a86809cf4 100644
--- a/compute/zgelqf_param.c
+++ b/compute/zgelqf_param.c
@@ -74,28 +74,28 @@ int CHAMELEON_zgelqf_param( const libhqr_tree_t *qrtree, int M, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf_param", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqf_param", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgelqf_param", "illegal value of M");
+ chameleon_error("CHAMELEON_zgelqf_param", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zgelqf_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zgelqf_param", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgelqf_param", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgelqf_param", "illegal value of LDA");
return -4;
}
@@ -104,37 +104,37 @@ int CHAMELEON_zgelqf_param( const libhqr_tree_t *qrtree, int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqf_param", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgelqf_param", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgelqf_param_Tile_Async( qrtree, &descAt, descTS, descTT, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descTS, sequence );
CHAMELEON_Desc_Flush( descTT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -179,17 +179,17 @@ int CHAMELEON_zgelqf_param( const libhqr_tree_t *qrtree, int M, int N,
*/
int CHAMELEON_zgelqf_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqf_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgelqf_param_Tile_Async( qrtree, A, TS, TT, sequence, &request );
@@ -197,9 +197,9 @@ int CHAMELEON_zgelqf_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CH
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -235,20 +235,20 @@ int CHAMELEON_zgelqf_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CH
int CHAMELEON_zgelqf_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqf_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf_param_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgelqf_param_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgelqf_param_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgelqf_param_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -256,26 +256,26 @@ int CHAMELEON_zgelqf_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqf_param_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqf_param_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TS) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqf_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TS) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqf_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TT) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqf_param_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TT) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqf_param_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zgelqf_param_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgelqf_param_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -285,19 +285,19 @@ int CHAMELEON_zgelqf_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- morse_pzgelqf_param( qrtree, A, TS, TT, Dptr, sequence, request );
+ chameleon_pzgelqf_param( qrtree, A, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgelqs.c b/compute/zgelqs.c
index 965903283..4b74ebf46 100644
--- a/compute/zgelqs.c
+++ b/compute/zgelqs.c
@@ -83,37 +83,37 @@ int CHAMELEON_zgelqs( int M, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqs", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgelqs", "illegal value of M");
+ chameleon_error("CHAMELEON_zgelqs", "illegal value of M");
return -1;
}
if (N < 0 || M > N) {
- morse_error("CHAMELEON_zgelqs", "illegal value of N");
+ chameleon_error("CHAMELEON_zgelqs", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgelqs", "illegal value of N");
+ chameleon_error("CHAMELEON_zgelqs", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgelqs", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgelqs", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, chameleon_max(1, N))) {
- morse_error("CHAMELEON_zgelqs", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgelqs", "illegal value of LDB");
return -8;
}
/* Quick return */
@@ -122,41 +122,41 @@ int CHAMELEON_zgelqs( int M, int N, int NRHS,
}
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqs", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgelqs", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgelqs_Tile_Async( &descAt, descT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -201,17 +201,17 @@ int CHAMELEON_zgelqs( int M, int N, int NRHS,
*/
int CHAMELEON_zgelqs_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqs_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgelqs_Tile_Async( A, T, B, sequence, &request );
@@ -219,9 +219,9 @@ int CHAMELEON_zgelqs_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B )
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -260,20 +260,20 @@ int CHAMELEON_zgelqs_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B,
{
CHAM_desc_t *subB;
CHAM_desc_t *subA;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqs_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgelqs_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgelqs_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -281,26 +281,26 @@ int CHAMELEON_zgelqs_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqs_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqs_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqs_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqs_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqs_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqs_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgelqs_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgelqs_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -308,29 +308,29 @@ int CHAMELEON_zgelqs_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B,
return CHAMELEON_SUCCESS;
}
*/
- /* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
- morse_pzlaset( ChamUpperLower, 0., 0., subB, sequence, request );
+ /* subB = chameleon_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
+ chameleon_pzlaset( ChamUpperLower, 0., 0., subB, sequence, request );
free(subB); */
- subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
- subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
- morse_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
+ subB = chameleon_desc_submatrix(B, 0, 0, A->m, B->n);
+ subA = chameleon_desc_submatrix(A, 0, 0, A->m, A->m);
+ chameleon_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
free(subA);
free(subB);
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- if (morse->householder == ChamFlatHouseholder) {
- morse_pzunmlq( ChamLeft, ChamConjTrans, A, B, T, Dptr, sequence, request );
+ if (chamctxt->householder == ChamFlatHouseholder) {
+ chameleon_pzunmlq( ChamLeft, ChamConjTrans, A, B, T, Dptr, sequence, request );
}
else {
- morse_pzunmlqrh( ChamLeft, ChamConjTrans, A, B, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzunmlqrh( ChamLeft, ChamConjTrans, A, B, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
if (Dptr != NULL) {
@@ -338,8 +338,8 @@ int CHAMELEON_zgelqs_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B,
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgelqs_param.c b/compute/zgelqs_param.c
index ec11d6b75..997117abd 100644
--- a/compute/zgelqs_param.c
+++ b/compute/zgelqs_param.c
@@ -85,37 +85,37 @@ int CHAMELEON_zgelqs_param( const libhqr_tree_t *qrtree, int M, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs_param", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqs_param", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgelqs_param", "illegal value of M");
+ chameleon_error("CHAMELEON_zgelqs_param", "illegal value of M");
return -1;
}
if (N < 0 || M > N) {
- morse_error("CHAMELEON_zgelqs_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zgelqs_param", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgelqs_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zgelqs_param", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgelqs_param", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgelqs_param", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, chameleon_max(1, N))) {
- morse_error("CHAMELEON_zgelqs_param", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgelqs_param", "illegal value of LDB");
return -8;
}
/* Quick return */
@@ -124,42 +124,42 @@ int CHAMELEON_zgelqs_param( const libhqr_tree_t *qrtree, int M, int N, int NRHS,
}
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqs_param", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgelqs_param", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgelqs_param_Tile_Async( qrtree, &descAt, descTS, descTT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descTS, sequence );
CHAMELEON_Desc_Flush( descTT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -208,17 +208,17 @@ int CHAMELEON_zgelqs_param( const libhqr_tree_t *qrtree, int M, int N, int NRHS,
int CHAMELEON_zgelqs_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqs_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgelqs_param_Tile_Async( qrtree, A, TS, TT, B, sequence, &request );
@@ -227,9 +227,9 @@ int CHAMELEON_zgelqs_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -268,20 +268,20 @@ int CHAMELEON_zgelqs_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
{
CHAM_desc_t *subB;
CHAM_desc_t *subA;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgelqs_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs_param_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgelqs_param_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgelqs_param_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgelqs_param_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -289,30 +289,30 @@ int CHAMELEON_zgelqs_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqs_param_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqs_param_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TS) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqs_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TS) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqs_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TT) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqs_param_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TT) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqs_param_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgelqs_param_Tile", "invalid fourth descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgelqs_param_Tile", "invalid fourth descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgelqs_param_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgelqs_param_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -320,33 +320,33 @@ int CHAMELEON_zgelqs_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
return CHAMELEON_SUCCESS;
}
*/
- /* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
- morse_pzlaset( ChamUpperLower, 0., 0., subB, sequence, request );
+ /* subB = chameleon_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
+ chameleon_pzlaset( ChamUpperLower, 0., 0., subB, sequence, request );
free(subB); */
- subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
- subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
- morse_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
+ subB = chameleon_desc_submatrix(B, 0, 0, A->m, B->n);
+ subA = chameleon_desc_submatrix(A, 0, 0, A->m, A->m);
+ chameleon_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
free(subA);
free(subB);
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- morse_pzunmlq_param( qrtree, ChamLeft, ChamConjTrans, A, B, TS, TT, Dptr, sequence, request );
+ chameleon_pzunmlq_param( qrtree, ChamLeft, ChamConjTrans, A, B, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgels.c b/compute/zgels.c
index c7455bbc1..cd75e4513 100644
--- a/compute/zgels.c
+++ b/compute/zgels.c
@@ -110,41 +110,41 @@ int CHAMELEON_zgels( cham_trans_t trans, int M, int N, int NRHS,
int i, j;
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgels", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgels", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (trans != ChamNoTrans) {
- morse_error("CHAMELEON_zgels", "only ChamNoTrans supported");
+ chameleon_error("CHAMELEON_zgels", "only ChamNoTrans supported");
return CHAMELEON_ERR_NOT_SUPPORTED;
}
if (M < 0) {
- morse_error("CHAMELEON_zgels", "illegal value of M");
+ chameleon_error("CHAMELEON_zgels", "illegal value of M");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zgels", "illegal value of N");
+ chameleon_error("CHAMELEON_zgels", "illegal value of N");
return -3;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgels", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zgels", "illegal value of NRHS");
return -4;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgels", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgels", "illegal value of LDA");
return -6;
}
if (LDB < chameleon_max(1, chameleon_max(M, N))) {
- morse_error("CHAMELEON_zgels", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgels", "illegal value of LDB");
return -9;
}
/* Quick return */
@@ -156,28 +156,28 @@ int CHAMELEON_zgels( cham_trans_t trans, int M, int N, int NRHS,
}
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgels", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgels", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
if ( M >= N ) {
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
} else {
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
}
@@ -185,20 +185,20 @@ int CHAMELEON_zgels( cham_trans_t trans, int M, int N, int NRHS,
CHAMELEON_zgels_Tile_Async( ChamNoTrans, &descAt, descT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -259,17 +259,17 @@ int CHAMELEON_zgels( cham_trans_t trans, int M, int N, int NRHS,
int CHAMELEON_zgels_Tile( cham_trans_t trans, CHAM_desc_t *A,
CHAM_desc_t *T, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgels_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgels_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgels_Tile_Async( trans, A, T, B, sequence, &request );
@@ -277,9 +277,9 @@ int CHAMELEON_zgels_Tile( cham_trans_t trans, CHAM_desc_t *A,
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -318,20 +318,20 @@ int CHAMELEON_zgels_Tile_Async( cham_trans_t trans, CHAM_desc_t *A,
{
CHAM_desc_t *subA;
CHAM_desc_t *subB;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgels_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgels_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgels_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgels_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgels_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgels_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -339,30 +339,30 @@ int CHAMELEON_zgels_Tile_Async( cham_trans_t trans, CHAM_desc_t *A,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgels_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgels_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgels_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgels_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgels_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgels_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgels_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgels_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (trans != ChamNoTrans) {
- morse_error("CHAMELEON_zgels_Tile", "only ChamNoTrans supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_NOT_SUPPORTED);
+ chameleon_error("CHAMELEON_zgels_Tile", "only ChamNoTrans supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_NOT_SUPPORTED);
}
/* Quick return - currently NOT equivalent to LAPACK's:
if (chameleon_min(M, chameleon_min(N, NRHS)) == 0) {
@@ -377,52 +377,52 @@ int CHAMELEON_zgels_Tile_Async( cham_trans_t trans, CHAM_desc_t *A,
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- if (morse->householder == ChamFlatHouseholder) {
+ if (chamctxt->householder == ChamFlatHouseholder) {
- morse_pzgeqrf( A, T, Dptr, sequence, request );
+ chameleon_pzgeqrf( A, T, Dptr, sequence, request );
- morse_pzunmqr( ChamLeft, ChamConjTrans, A, B, T, Dptr, sequence, request );
+ chameleon_pzunmqr( ChamLeft, ChamConjTrans, A, B, T, Dptr, sequence, request );
}
else {
- morse_pzgeqrfrh( A, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzgeqrfrh( A, T, Dptr, CHAMELEON_RHBLK, sequence, request );
- morse_pzunmqrrh( ChamLeft, ChamConjTrans, A, B, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzunmqrrh( ChamLeft, ChamConjTrans, A, B, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
- subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
- subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
- morse_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
+ subB = chameleon_desc_submatrix(B, 0, 0, A->n, B->n);
+ subA = chameleon_desc_submatrix(A, 0, 0, A->n, A->n);
+ chameleon_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
}
else {
- /* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
- morse_pzlaset( ChamUpperLower, 0., 0., subB, sequence, request );
+ /* subB = chameleon_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
+ chameleon_pzlaset( ChamUpperLower, 0., 0., subB, sequence, request );
free(subB); */
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- if (morse->householder == ChamFlatHouseholder) {
- morse_pzgelqf( A, T, Dptr, sequence, request );
+ if (chamctxt->householder == ChamFlatHouseholder) {
+ chameleon_pzgelqf( A, T, Dptr, sequence, request );
}
else {
- morse_pzgelqfrh( A, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzgelqfrh( A, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
- subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
- subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
- morse_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
+ subB = chameleon_desc_submatrix(B, 0, 0, A->m, B->n);
+ subA = chameleon_desc_submatrix(A, 0, 0, A->m, A->m);
+ chameleon_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
- if (morse->householder == ChamFlatHouseholder) {
- morse_pzunmlq( ChamLeft, ChamConjTrans, A, B, T, Dptr, sequence, request );
+ if (chamctxt->householder == ChamFlatHouseholder) {
+ chameleon_pzunmlq( ChamLeft, ChamConjTrans, A, B, T, Dptr, sequence, request );
}
else {
- morse_pzunmlqrh( ChamLeft, ChamConjTrans, A, B, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzunmlqrh( ChamLeft, ChamConjTrans, A, B, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
}
@@ -434,8 +434,8 @@ int CHAMELEON_zgels_Tile_Async( cham_trans_t trans, CHAM_desc_t *A,
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgels_param.c b/compute/zgels_param.c
index de86b23af..6547a5371 100644
--- a/compute/zgels_param.c
+++ b/compute/zgels_param.c
@@ -113,41 +113,41 @@ int CHAMELEON_zgels_param( const libhqr_tree_t *qrtree, cham_trans_t trans, int
int i, j;
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgels_param", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgels_param", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (trans != ChamNoTrans) {
- morse_error("CHAMELEON_zgels_param", "only ChamNoTrans supported");
+ chameleon_error("CHAMELEON_zgels_param", "only ChamNoTrans supported");
return CHAMELEON_ERR_NOT_SUPPORTED;
}
if (M < 0) {
- morse_error("CHAMELEON_zgels_param", "illegal value of M");
+ chameleon_error("CHAMELEON_zgels_param", "illegal value of M");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zgels_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zgels_param", "illegal value of N");
return -3;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgels_param", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zgels_param", "illegal value of NRHS");
return -4;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgels_param", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgels_param", "illegal value of LDA");
return -6;
}
if (LDB < chameleon_max(1, chameleon_max(M, N))) {
- morse_error("CHAMELEON_zgels_param", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgels_param", "illegal value of LDB");
return -9;
}
/* Quick return */
@@ -159,27 +159,27 @@ int CHAMELEON_zgels_param( const libhqr_tree_t *qrtree, cham_trans_t trans, int
}
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgels_param", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgels_param", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
if ( M >= N ) {
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
} else {
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
}
@@ -187,21 +187,21 @@ int CHAMELEON_zgels_param( const libhqr_tree_t *qrtree, cham_trans_t trans, int
CHAMELEON_zgels_param_Tile_Async( qrtree, ChamNoTrans, &descAt, descTS, descTT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descTS, sequence );
CHAMELEON_Desc_Flush( descTT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -265,17 +265,17 @@ int CHAMELEON_zgels_param( const libhqr_tree_t *qrtree, cham_trans_t trans, int
int CHAMELEON_zgels_param_Tile( const libhqr_tree_t *qrtree, cham_trans_t trans, CHAM_desc_t *A,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgels_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgels_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgels_param_Tile_Async( qrtree, trans, A, TS, TT, B, sequence, &request );
@@ -284,9 +284,9 @@ int CHAMELEON_zgels_param_Tile( const libhqr_tree_t *qrtree, cham_trans_t trans,
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -325,20 +325,20 @@ int CHAMELEON_zgels_param_Tile_Async( const libhqr_tree_t *qrtree, cham_trans_t
{
CHAM_desc_t *subA;
CHAM_desc_t *subB;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgels_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgels_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgels_param_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgels_param_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgels_param_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgels_param_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -346,34 +346,34 @@ int CHAMELEON_zgels_param_Tile_Async( const libhqr_tree_t *qrtree, cham_trans_t
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgels_param_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgels_param_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TS) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgels_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TS) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgels_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TT) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgels_param_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TT) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgels_param_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgels_param_Tile", "invalid fourth descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgels_param_Tile", "invalid fourth descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgels_param_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgels_param_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (trans != ChamNoTrans) {
- morse_error("CHAMELEON_zgels_param_Tile", "only ChamNoTrans supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_NOT_SUPPORTED);
+ chameleon_error("CHAMELEON_zgels_param_Tile", "only ChamNoTrans supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_NOT_SUPPORTED);
}
/* Quick return - currently NOT equivalent to LAPACK's:
if (chameleon_min(M, chameleon_min(N, NRHS)) == 0) {
@@ -388,33 +388,33 @@ int CHAMELEON_zgels_param_Tile_Async( const libhqr_tree_t *qrtree, cham_trans_t
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
- subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
+ subB = chameleon_desc_submatrix(B, 0, 0, A->n, B->n);
+ subA = chameleon_desc_submatrix(A, 0, 0, A->n, A->n);
- morse_pzgeqrf_param( qrtree, A, TS, TT, Dptr, sequence, request );
- morse_pzunmqr_param( qrtree, ChamLeft, ChamConjTrans, A, B, TS, TT, Dptr, sequence, request );
- morse_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
+ chameleon_pzgeqrf_param( qrtree, A, TS, TT, Dptr, sequence, request );
+ chameleon_pzunmqr_param( qrtree, ChamLeft, ChamConjTrans, A, B, TS, TT, Dptr, sequence, request );
+ chameleon_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
}
else {
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
- subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);
+ subB = chameleon_desc_submatrix(B, 0, 0, A->m, B->n);
+ subA = chameleon_desc_submatrix(A, 0, 0, A->m, A->m);
- morse_pzgelqf_param( qrtree, A, TS, TT, Dptr, sequence, request );
- morse_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
- morse_pzunmlq_param( qrtree, ChamLeft, ChamConjTrans, A, B, TS, TT, Dptr, sequence, request );
+ chameleon_pzgelqf_param( qrtree, A, TS, TT, Dptr, sequence, request );
+ chameleon_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
+ chameleon_pzunmlq_param( qrtree, ChamLeft, ChamConjTrans, A, B, TS, TT, Dptr, sequence, request );
}
free(subA);
@@ -426,8 +426,8 @@ int CHAMELEON_zgels_param_Tile_Async( const libhqr_tree_t *qrtree, cham_trans_t
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgemm.c b/compute/zgemm.c
index 183e8dedc..9f13d6a44 100644
--- a/compute/zgemm.c
+++ b/compute/zgemm.c
@@ -136,23 +136,23 @@ int CHAMELEON_zgemm( cham_trans_t transA, cham_trans_t transB, int M, int N, int
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
CHAM_desc_t descCl, descCt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgemm", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgemm", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((transA < ChamNoTrans) || (transA > ChamConjTrans)) {
- morse_error("CHAMELEON_zgemm", "illegal value of transA");
+ chameleon_error("CHAMELEON_zgemm", "illegal value of transA");
return -1;
}
if ((transB < ChamNoTrans) || (transB > ChamConjTrans)) {
- morse_error("CHAMELEON_zgemm", "illegal value of transB");
+ chameleon_error("CHAMELEON_zgemm", "illegal value of transB");
return -2;
}
if ( transA == ChamNoTrans ) {
@@ -166,27 +166,27 @@ int CHAMELEON_zgemm( cham_trans_t transA, cham_trans_t transB, int M, int N, int
Bm = N; Bn = K;
}
if (M < 0) {
- morse_error("CHAMELEON_zgemm", "illegal value of M");
+ chameleon_error("CHAMELEON_zgemm", "illegal value of M");
return -3;
}
if (N < 0) {
- morse_error("CHAMELEON_zgemm", "illegal value of N");
+ chameleon_error("CHAMELEON_zgemm", "illegal value of N");
return -4;
}
if (K < 0) {
- morse_error("CHAMELEON_zgemm", "illegal value of N");
+ chameleon_error("CHAMELEON_zgemm", "illegal value of N");
return -5;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zgemm", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgemm", "illegal value of LDA");
return -8;
}
if (LDB < chameleon_max(1, Bm)) {
- morse_error("CHAMELEON_zgemm", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgemm", "illegal value of LDB");
return -10;
}
if (LDC < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgemm", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zgemm", "illegal value of LDC");
return -13;
}
@@ -196,45 +196,45 @@ int CHAMELEON_zgemm( cham_trans_t transA, cham_trans_t transB, int M, int N, int
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgemm", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgemm", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInput, ChamUpperLower,
B, NB, NB, LDB, Bn, Bm, Bn, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, ChamUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgemm_Tile_Async( transA, transB, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -299,17 +299,17 @@ int CHAMELEON_zgemm_Tile( cham_trans_t transA, cham_trans_t transB,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgemm_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgemm_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgemm_Tile_Async( transA, transB, alpha, A, B, beta, C, sequence, &request );
@@ -317,9 +317,9 @@ int CHAMELEON_zgemm_Tile( cham_trans_t transA, cham_trans_t transB,
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -356,22 +356,22 @@ int CHAMELEON_zgemm_Tile_Async( cham_trans_t transA, cham_trans_t transB,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int M, N, K;
int Am, An, Ai, Aj, Amb, Anb;
int Bm, Bn, Bi, Bj, Bmb, Bnb;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgemm_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgemm_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgemm_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgemm_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgemm_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgemm_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -379,30 +379,30 @@ int CHAMELEON_zgemm_Tile_Async( cham_trans_t transA, cham_trans_t transB,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgemm_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgemm_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgemm_Tile_Async", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgemm_Tile_Async", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgemm_Tile_Async", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgemm_Tile_Async", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ((transA < ChamNoTrans) || (transA > ChamConjTrans)) {
- morse_error("CHAMELEON_zgemm_Tile_Async", "illegal value of transA");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zgemm_Tile_Async", "illegal value of transA");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((transB < ChamNoTrans) || (transB > ChamConjTrans)) {
- morse_error("CHAMELEON_zgemm_Tile_Async", "illegal value of transB");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_zgemm_Tile_Async", "illegal value of transB");
+ return chameleon_request_fail(sequence, request, -2);
}
if ( transA == ChamNoTrans ) {
@@ -438,16 +438,16 @@ int CHAMELEON_zgemm_Tile_Async( cham_trans_t transA, cham_trans_t transB,
}
if ( (Amb != C->mb) || (Anb != Bmb) || (Bnb != C->nb) ) {
- morse_error("CHAMELEON_zgemm_Tile_Async", "tile sizes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgemm_Tile_Async", "tile sizes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (Am != C->m) || (An != Bm) || (Bn != C->n) ) {
- morse_error("CHAMELEON_zgemm_Tile_Async", "sizes of matrices have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgemm_Tile_Async", "sizes of matrices have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (Ai != C->i) || (Aj != Bi) || (Bj != C->j) ) {
- morse_error("CHAMELEON_zgemm_Tile_Async", "start indexes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgemm_Tile_Async", "start indexes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
M = C->m;
@@ -461,7 +461,7 @@ int CHAMELEON_zgemm_Tile_Async( cham_trans_t transA, cham_trans_t transB,
return CHAMELEON_SUCCESS;
}
- morse_pzgemm( transA, transB, alpha, A, B, beta, C, sequence, request );
+ chameleon_pzgemm( transA, transB, alpha, A, B, beta, C, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zgeqrf.c b/compute/zgeqrf.c
index 8b5131ca2..67679772b 100644
--- a/compute/zgeqrf.c
+++ b/compute/zgeqrf.c
@@ -75,28 +75,28 @@ int CHAMELEON_zgeqrf( int M, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrf", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrf", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgeqrf", "illegal value of M");
+ chameleon_error("CHAMELEON_zgeqrf", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zgeqrf", "illegal value of N");
+ chameleon_error("CHAMELEON_zgeqrf", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgeqrf", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgeqrf", "illegal value of LDA");
return -4;
}
@@ -105,36 +105,36 @@ int CHAMELEON_zgeqrf( int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrf", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgeqrf", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgeqrf_Tile_Async( &descAt, descT, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -179,26 +179,26 @@ int CHAMELEON_zgeqrf( int M, int N,
*/
int CHAMELEON_zgeqrf_Tile( CHAM_desc_t *A, CHAM_desc_t *T )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrf_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrf_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgeqrf_Tile_Async( A, T, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( T, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -234,20 +234,20 @@ int CHAMELEON_zgeqrf_Tile( CHAM_desc_t *A, CHAM_desc_t *T )
int CHAMELEON_zgeqrf_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_zgeqrf_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_zgeqrf_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrf_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgeqrf_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrf_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgeqrf_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -255,22 +255,22 @@ int CHAMELEON_zgeqrf_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrf_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrf_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrf_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrf_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zgeqrf_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgeqrf_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -280,23 +280,23 @@ int CHAMELEON_zgeqrf_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T,
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- if (morse->householder == ChamFlatHouseholder) {
- morse_pzgeqrf( A, T, Dptr, sequence, request );
+ if (chamctxt->householder == ChamFlatHouseholder) {
+ chameleon_pzgeqrf( A, T, Dptr, sequence, request );
}
else {
- morse_pzgeqrfrh( A, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzgeqrfrh( A, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgeqrf_param.c b/compute/zgeqrf_param.c
index 094d043fd..cb7280422 100644
--- a/compute/zgeqrf_param.c
+++ b/compute/zgeqrf_param.c
@@ -79,28 +79,28 @@ int CHAMELEON_zgeqrf_param( const libhqr_tree_t *qrtree, int M, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrf_param", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrf_param", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgeqrf_param", "illegal value of M");
+ chameleon_error("CHAMELEON_zgeqrf_param", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zgeqrf_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zgeqrf_param", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgeqrf_param", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgeqrf_param", "illegal value of LDA");
return -4;
}
@@ -109,37 +109,37 @@ int CHAMELEON_zgeqrf_param( const libhqr_tree_t *qrtree, int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrf_param", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgeqrf_param", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgeqrf_param_Tile_Async( qrtree, &descAt, descTS, descTT, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descTS, sequence );
CHAMELEON_Desc_Flush( descTT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -188,17 +188,17 @@ int CHAMELEON_zgeqrf_param( const libhqr_tree_t *qrtree, int M, int N,
*/
int CHAMELEON_zgeqrf_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrf_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrf_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgeqrf_param_Tile_Async( qrtree, A, TS, TT, sequence, &request );
@@ -206,9 +206,9 @@ int CHAMELEON_zgeqrf_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CH
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -244,20 +244,20 @@ int CHAMELEON_zgeqrf_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CH
int CHAMELEON_zgeqrf_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_zgeqrf_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_zgeqrf_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrf_param_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgeqrf_param_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrf_param_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgeqrf_param_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -265,26 +265,26 @@ int CHAMELEON_zgeqrf_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrf_param_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrf_param_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TS) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrf_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TS) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrf_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TT) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrf_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TT) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrf_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zgeqrf_param_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgeqrf_param_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -294,20 +294,20 @@ int CHAMELEON_zgeqrf_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- morse_pzgeqrf_param( qrtree, A, TS, TT, Dptr, sequence, request );
+ chameleon_pzgeqrf_param( qrtree, A, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgeqrs.c b/compute/zgeqrs.c
index 86c5dc2e9..4d7942269 100644
--- a/compute/zgeqrs.c
+++ b/compute/zgeqrs.c
@@ -83,37 +83,37 @@ int CHAMELEON_zgeqrs( int M, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrs", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgeqrs", "illegal value of M");
+ chameleon_error("CHAMELEON_zgeqrs", "illegal value of M");
return -1;
}
if (N < 0 || N > M) {
- morse_error("CHAMELEON_zgeqrs", "illegal value of N");
+ chameleon_error("CHAMELEON_zgeqrs", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgeqrs", "illegal value of N");
+ chameleon_error("CHAMELEON_zgeqrs", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgeqrs", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgeqrs", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, chameleon_max(1, M))) {
- morse_error("CHAMELEON_zgeqrs", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgeqrs", "illegal value of LDB");
return -8;
}
/* Quick return */
@@ -122,41 +122,41 @@ int CHAMELEON_zgeqrs( int M, int N, int NRHS,
}
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrs", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgeqrs", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgeqrs_Tile_Async( &descAt, descT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -200,17 +200,17 @@ int CHAMELEON_zgeqrs( int M, int N, int NRHS,
*/
int CHAMELEON_zgeqrs_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrs_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgeqrs_Tile_Async( A, T, B, sequence, &request );
@@ -218,9 +218,9 @@ int CHAMELEON_zgeqrs_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B )
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -259,20 +259,20 @@ int CHAMELEON_zgeqrs_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B,
{
CHAM_desc_t *subA;
CHAM_desc_t *subB;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrs_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgeqrs_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgeqrs_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -280,26 +280,26 @@ int CHAMELEON_zgeqrs_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrs_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrs_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrs_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrs_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrs_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrs_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgeqrs_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgeqrs_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -310,21 +310,21 @@ int CHAMELEON_zgeqrs_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B,
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- if (morse->householder == ChamFlatHouseholder) {
- morse_pzunmqr( ChamLeft, ChamConjTrans, A, B, T, Dptr, sequence, request );
+ if (chamctxt->householder == ChamFlatHouseholder) {
+ chameleon_pzunmqr( ChamLeft, ChamConjTrans, A, B, T, Dptr, sequence, request );
}
else {
- morse_pzunmqrrh( ChamLeft, ChamConjTrans, A, B, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzunmqrrh( ChamLeft, ChamConjTrans, A, B, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
- subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
- subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
- morse_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
+ subB = chameleon_desc_submatrix(B, 0, 0, A->n, B->n);
+ subA = chameleon_desc_submatrix(A, 0, 0, A->n, A->n);
+ chameleon_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
free(subA);
free(subB);
@@ -333,8 +333,8 @@ int CHAMELEON_zgeqrs_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *B,
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgeqrs_param.c b/compute/zgeqrs_param.c
index 1cb8f9c26..66db5b743 100644
--- a/compute/zgeqrs_param.c
+++ b/compute/zgeqrs_param.c
@@ -79,37 +79,37 @@ int CHAMELEON_zgeqrs_param( const libhqr_tree_t *qrtree, int M, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs_param", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrs_param", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgeqrs_param", "illegal value of M");
+ chameleon_error("CHAMELEON_zgeqrs_param", "illegal value of M");
return -1;
}
if (N < 0 || N > M) {
- morse_error("CHAMELEON_zgeqrs_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zgeqrs_param", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgeqrs_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zgeqrs_param", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgeqrs_param", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgeqrs_param", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, chameleon_max(1, M))) {
- morse_error("CHAMELEON_zgeqrs_param", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgeqrs_param", "illegal value of LDB");
return -8;
}
/* Quick return */
@@ -118,42 +118,42 @@ int CHAMELEON_zgeqrs_param( const libhqr_tree_t *qrtree, int M, int N, int NRHS,
}
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrs_param", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgeqrs_param", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgeqrs_param_Tile_Async( qrtree, &descAt, descTS, descTT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descTS, sequence );
CHAMELEON_Desc_Flush( descTT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -198,17 +198,17 @@ int CHAMELEON_zgeqrs_param( const libhqr_tree_t *qrtree, int M, int N, int NRHS,
int CHAMELEON_zgeqrs_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrs_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgeqrs_param_Tile_Async( qrtree, A, TS, TT, B, sequence, &request );
@@ -217,9 +217,9 @@ int CHAMELEON_zgeqrs_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A,
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -259,20 +259,20 @@ int CHAMELEON_zgeqrs_param_Tile_Async( const libhqr_tree_t *qrtree,
{
CHAM_desc_t *subA;
CHAM_desc_t *subB;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgeqrs_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs_param_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgeqrs_param_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgeqrs_param_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgeqrs_param_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -280,30 +280,30 @@ int CHAMELEON_zgeqrs_param_Tile_Async( const libhqr_tree_t *qrtree,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrs_param_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrs_param_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TS) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrs_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TS) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrs_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TT) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrs_param_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TT) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrs_param_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgeqrs_param_Tile", "invalid fourth descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgeqrs_param_Tile", "invalid fourth descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgeqrs_param_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgeqrs_param_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -314,16 +314,16 @@ int CHAMELEON_zgeqrs_param_Tile_Async( const libhqr_tree_t *qrtree,
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- subB = morse_desc_submatrix(B, 0, 0, A->n, B->n);
- subA = morse_desc_submatrix(A, 0, 0, A->n, A->n);
+ subB = chameleon_desc_submatrix(B, 0, 0, A->n, B->n);
+ subA = chameleon_desc_submatrix(A, 0, 0, A->n, A->n);
- morse_pzunmqr_param( qrtree, ChamLeft, ChamConjTrans, A, B, TS, TT, Dptr, sequence, request );
- morse_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
+ chameleon_pzunmqr_param( qrtree, ChamLeft, ChamConjTrans, A, B, TS, TT, Dptr, sequence, request );
+ chameleon_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, subA, subB, sequence, request );
free(subA);
free(subB);
@@ -334,8 +334,8 @@ int CHAMELEON_zgeqrs_param_Tile_Async( const libhqr_tree_t *qrtree,
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgesv_incpiv.c b/compute/zgesv_incpiv.c
index b3da516df..90a800eb1 100644
--- a/compute/zgesv_incpiv.c
+++ b/compute/zgesv_incpiv.c
@@ -89,32 +89,32 @@ int CHAMELEON_zgesv_incpiv( int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_zgesv_incpiv", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_zgesv_incpiv", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (N < 0) {
- morse_error("CHAMELEON_zgesv_incpiv", "illegal value of N");
+ chameleon_error("CHAMELEON_zgesv_incpiv", "illegal value of N");
return -1;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgesv_incpiv", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zgesv_incpiv", "illegal value of NRHS");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zgesv_incpiv", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgesv_incpiv", "illegal value of LDA");
return -4;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zgesv_incpiv", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgesv_incpiv", "illegal value of LDB");
return -8;
}
/* Quick return */
@@ -122,41 +122,41 @@ int CHAMELEON_zgesv_incpiv( int N, int NRHS,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesv_incpiv", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgesv_incpiv", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgesv_incpiv_Tile_Async( &descAt, descL, IPIV, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descL, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
/**
@@ -206,17 +206,17 @@ int CHAMELEON_zgesv_incpiv( int N, int NRHS,
*/
int CHAMELEON_zgesv_incpiv_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgesv_incpiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgesv_incpiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgesv_incpiv_Tile_Async( A, L, IPIV, B, sequence, &request );
@@ -224,9 +224,9 @@ int CHAMELEON_zgesv_incpiv_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM
CHAMELEON_Desc_Flush( L, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -263,20 +263,20 @@ int CHAMELEON_zgesv_incpiv_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM
int CHAMELEON_zgesv_incpiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgesv_incpiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgesv_incpiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgesv_incpiv_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgesv_incpiv_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgesv_incpiv_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgesv_incpiv_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -284,26 +284,26 @@ int CHAMELEON_zgesv_incpiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesv_incpiv_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgesv_incpiv_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(L) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesv_incpiv_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(L) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgesv_incpiv_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesv_incpiv_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgesv_incpiv_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgesv_incpiv_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgesv_incpiv_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -314,24 +314,24 @@ int CHAMELEON_zgesv_incpiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- morse_pzgetrf_incpiv( A, L, Dptr, IPIV, sequence, request );
+ chameleon_pzgetrf_incpiv( A, L, Dptr, IPIV, sequence, request );
- morse_pztrsmpl( A, B, L, IPIV, sequence, request );
+ chameleon_pztrsmpl( A, B, L, IPIV, sequence, request );
- morse_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( L, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgesv_nopiv.c b/compute/zgesv_nopiv.c
index b011dfa1e..78d770656 100644
--- a/compute/zgesv_nopiv.c
+++ b/compute/zgesv_nopiv.c
@@ -87,32 +87,32 @@ int CHAMELEON_zgesv_nopiv( int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_zgesv_nopiv", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_zgesv_nopiv", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (N < 0) {
- morse_error("CHAMELEON_zgesv_nopiv", "illegal value of N");
+ chameleon_error("CHAMELEON_zgesv_nopiv", "illegal value of N");
return -1;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgesv_nopiv", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zgesv_nopiv", "illegal value of NRHS");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zgesv_nopiv", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgesv_nopiv", "illegal value of LDA");
return -4;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zgesv_nopiv", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgesv_nopiv", "illegal value of LDB");
return -8;
}
/* Quick return */
@@ -120,40 +120,40 @@ int CHAMELEON_zgesv_nopiv( int N, int NRHS,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesv_nopiv", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgesv_nopiv", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgesv_nopiv_Tile_Async( &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
/**
@@ -196,26 +196,26 @@ int CHAMELEON_zgesv_nopiv( int N, int NRHS,
*/
int CHAMELEON_zgesv_nopiv_Tile( CHAM_desc_t *A, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgesv_nopiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgesv_nopiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgesv_nopiv_Tile_Async( A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -252,19 +252,19 @@ int CHAMELEON_zgesv_nopiv_Tile( CHAM_desc_t *A, CHAM_desc_t *B )
int CHAMELEON_zgesv_nopiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgesv_nopiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgesv_nopiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgesv_nopiv_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgesv_nopiv_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgesv_nopiv_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgesv_nopiv_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -272,22 +272,22 @@ int CHAMELEON_zgesv_nopiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *B,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesv_nopiv_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgesv_nopiv_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesv_nopiv_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgesv_nopiv_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgesv_nopiv_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgesv_nopiv_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -295,11 +295,11 @@ int CHAMELEON_zgesv_nopiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *B,
return CHAMELEON_SUCCESS;
*/
- morse_pzgetrf_nopiv( A, sequence, request );
+ chameleon_pzgetrf_nopiv( A, sequence, request );
- morse_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
- morse_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zgesvd.c b/compute/zgesvd.c
index a9c8ec234..de759169c 100644
--- a/compute/zgesvd.c
+++ b/compute/zgesvd.c
@@ -152,44 +152,44 @@ int CHAMELEON_zgesvd( cham_job_t jobu, cham_job_t jobvt,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgesvd", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgesvd", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (jobu != ChamNoVec && jobu != ChamVec) {
- morse_error("CHAMELEON_zgesvd", "illegal value of jobu");
+ chameleon_error("CHAMELEON_zgesvd", "illegal value of jobu");
return -1;
}
if (jobvt != ChamNoVec && jobvt != ChamVec) {
- morse_error("CHAMELEON_zgesvd", "illegal value of jobvt");
+ chameleon_error("CHAMELEON_zgesvd", "illegal value of jobvt");
return -2;
}
if (M < 0) {
- morse_error("CHAMELEON_zgesvd", "illegal value of M");
+ chameleon_error("CHAMELEON_zgesvd", "illegal value of M");
return -3;
}
if (N < 0) {
- morse_error("CHAMELEON_zgesvd", "illegal value of N");
+ chameleon_error("CHAMELEON_zgesvd", "illegal value of N");
return -4;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgesvd", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgesvd", "illegal value of LDA");
return -6;
}
if (LDU < 1) {
- morse_error("CHAMELEON_zgesvd", "illegal value of LDU");
+ chameleon_error("CHAMELEON_zgesvd", "illegal value of LDU");
return -9;
}
if (LDVT < 1) {
- morse_error("CHAMELEON_zgesvd", "illegal value of LDVT");
+ chameleon_error("CHAMELEON_zgesvd", "illegal value of LDVT");
return -11;
}
/* Quick return */
@@ -198,35 +198,35 @@ int CHAMELEON_zgesvd( cham_job_t jobu, cham_job_t jobvt,
}
/* Tune NB & IB depending on M & N; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGESVD, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGESVD, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesvd", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgesvd", "chameleon_tune() failed");
return status;
}
/* Set MT, NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgesvd_Tile_Async( jobu, jobvt, &descAt, S, descT, U, LDU, VT, LDVT, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -337,26 +337,26 @@ int CHAMELEON_zgesvd_Tile( cham_job_t jobu, cham_job_t jobvt,
CHAMELEON_Complex64_t *U, int LDU,
CHAMELEON_Complex64_t *VT, int LDVT )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgesvd_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgesvd_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgesvd_Tile_Async( jobu, jobvt, A, S, T, U, LDU, VT, LDVT, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( T, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -411,19 +411,19 @@ int CHAMELEON_zgesvd_Tile_Async( cham_job_t jobu, cham_job_t jobvt,
int info = 0;
char gbbrd_vect;
- CHAM_context_t *morse;
- morse = morse_context_self();
+ CHAM_context_t *chamctxt;
+ chamctxt = chameleon_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgesvd_Tile_Async", "CHAMELEON not initialized");
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgesvd_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgesvd_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgesvd_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgesvd_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgesvd_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -431,34 +431,34 @@ int CHAMELEON_zgesvd_Tile_Async( cham_job_t jobu, cham_job_t jobvt,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesvd_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgesvd_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
} else {
descA = *A;
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgesvd_Tile_Async", "invalid fourth descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgesvd_Tile_Async", "invalid fourth descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
} else {
descT = *T;
}
/* Check input arguments */
if (jobu != ChamNoVec && jobu != ChamVec) {
- morse_error("CHAMELEON_zgesvd_Tile_Async", "illegal value of jobu");
+ chameleon_error("CHAMELEON_zgesvd_Tile_Async", "illegal value of jobu");
return CHAMELEON_ERR_NOT_SUPPORTED;
}
if (jobvt != ChamNoVec && jobvt != ChamVec) {
- morse_error("CHAMELEON_zgesvd_Tile_Async", "illegal value of jobvt");
+ chameleon_error("CHAMELEON_zgesvd_Tile_Async", "illegal value of jobvt");
return CHAMELEON_ERR_NOT_SUPPORTED;
}
if (descA.nb != descA.mb) {
- morse_error("CHAMELEON_zgesvd_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgesvd_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
M = descA.m;
@@ -470,16 +470,16 @@ int CHAMELEON_zgesvd_Tile_Async( cham_job_t jobu, cham_job_t jobvt,
#if defined(CHAMELEON_COPY_DIAG)
{
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, A->n, 0, 0, A->m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, A->n, 0, 0, A->m, A->n, );
Dptr = &D;
}
#endif
/* Reduction to band */
- morse_pzgebrd_ge2gb( &descA, &descT, Dptr,
+ chameleon_pzgebrd_ge2gb( &descA, &descT, Dptr,
sequence, request );
/* Allocate band structure */
- morse_zdesc_alloc_diag( descAB,
+ chameleon_zdesc_alloc_diag( descAB,
LDAB, NB,
LDAB, MINMN,
0, 0,
@@ -487,13 +487,13 @@ int CHAMELEON_zgesvd_Tile_Async( cham_job_t jobu, cham_job_t jobvt,
1, 1 );
/* Convert matrix to band form */
- morse_pztile2band( uplo,
+ chameleon_pztile2band( uplo,
&descA, &descAB,
sequence, request );
E = malloc( MINMN * sizeof(double) );
if (E == NULL) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "malloc(E) failed");
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "malloc(E) failed");
free(E);
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
@@ -535,7 +535,7 @@ int CHAMELEON_zgesvd_Tile_Async( cham_job_t jobu, cham_job_t jobvt,
}
}
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
info = LAPACKE_zgbbrd( LAPACK_COL_MAJOR,
gbbrd_vect,
@@ -550,72 +550,72 @@ int CHAMELEON_zgesvd_Tile_Async( cham_job_t jobu, cham_job_t jobvt,
fprintf(stderr, "CHAMELEON_zgesvd_Tile_Async: LAPACKE_zgbbrd = %d\n", info );
}
#else
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
#endif /* !defined(CHAMELEON_SIMULATION) */
- morse_desc_mat_free( &descAB );
+ chameleon_desc_mat_free( &descAB );
subA = NULL;
subT = NULL;
subUVT = NULL;
if ( jobu != ChamNoVec ) {
- morse_zlap2tile( morse, &descUl, &descUt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descUl, &descUt, ChamDescInout, ChamUpperLower,
U, NB, NB, LDU, M, M, M, sequence, request );
if ( M < N ){
- subA = morse_desc_submatrix(&descA, descA.mb, 0, descA.m -descA.mb, descA.n-descA.nb);
- subUVT = morse_desc_submatrix(&descUt, descUt.mb, 0, descUt.m-descUt.mb, descUt.n);
- subT = morse_desc_submatrix(&descT, descT.mb, 0, descT.m -descT.mb, descT.n-descT.nb);
+ subA = chameleon_desc_submatrix(&descA, descA.mb, 0, descA.m -descA.mb, descA.n-descA.nb);
+ subUVT = chameleon_desc_submatrix(&descUt, descUt.mb, 0, descUt.m-descUt.mb, descUt.n);
+ subT = chameleon_desc_submatrix(&descT, descT.mb, 0, descT.m -descT.mb, descT.n-descT.nb);
- morse_pzunmqr( ChamLeft, ChamNoTrans,
+ chameleon_pzunmqr( ChamLeft, ChamNoTrans,
subA, subUVT, subT, Dptr,
sequence, request );
free(subA); free(subUVT); free(subT);
}
else {
- morse_pzunmqr( ChamLeft, ChamNoTrans,
+ chameleon_pzunmqr( ChamLeft, ChamNoTrans,
&descA, &descUt, &descT, Dptr,
sequence, request );
}
- morse_ztile2lap( morse, &descUl, &descUt,
+ chameleon_ztile2lap( chamctxt, &descUl, &descUt,
ChamDescInout, ChamUpperLower, sequence, request );
}
if ( jobvt != ChamNoVec ) {
- morse_zlap2tile( morse, &descVTl, &descVTt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descVTl, &descVTt, ChamDescInout, ChamUpperLower,
VT, NB, NB, LDVT, N, N, N, sequence, request );
if ( M < N ){
- morse_pzunmlq( ChamRight, ChamNoTrans,
+ chameleon_pzunmlq( ChamRight, ChamNoTrans,
&descA, &descVTt, &descT, Dptr,
sequence, request );
}
else {
- subA = morse_desc_submatrix(&descA, 0, descA.nb, descA.m-descA.mb, descA.n -descA.nb );
- subUVT = morse_desc_submatrix(&descVTt, 0, descVTt.nb, descVTt.m, descVTt.n-descVTt.nb);
- subT = morse_desc_submatrix(&descT, 0, descT.nb, descT.m-descT.mb, descT.n -descT.nb );
+ subA = chameleon_desc_submatrix(&descA, 0, descA.nb, descA.m-descA.mb, descA.n -descA.nb );
+ subUVT = chameleon_desc_submatrix(&descVTt, 0, descVTt.nb, descVTt.m, descVTt.n-descVTt.nb);
+ subT = chameleon_desc_submatrix(&descT, 0, descT.nb, descT.m-descT.mb, descT.n -descT.nb );
- morse_pzunmlq( ChamRight, ChamNoTrans,
+ chameleon_pzunmlq( ChamRight, ChamNoTrans,
subA, subUVT, subT, Dptr,
sequence, request );
free(subA); free(subUVT); free(subT);
}
- morse_ztile2lap( morse, &descVTl, &descVTt,
+ chameleon_ztile2lap( chamctxt, &descVTl, &descVTt,
ChamDescInout, ChamUpperLower, sequence, request );
}
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
if ( jobu != ChamNoVec ) {
- morse_ztile2lap_cleanup( morse, &descUl, &descUt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descUl, &descUt );
}
if ( jobvt != ChamNoVec ) {
- morse_ztile2lap_cleanup( morse, &descVTl, &descVTt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descVTl, &descVTt );
}
/* Solve the bidiagonal SVD problem */
@@ -632,7 +632,7 @@ int CHAMELEON_zgesvd_Tile_Async( cham_job_t jobu, cham_job_t jobvt,
free(E);
if ( Dptr ) {
- morse_desc_mat_free( Dptr );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgetrf_incpiv.c b/compute/zgetrf_incpiv.c
index deece1b6a..bdd9c476c 100644
--- a/compute/zgetrf_incpiv.c
+++ b/compute/zgetrf_incpiv.c
@@ -79,27 +79,27 @@ int CHAMELEON_zgetrf_incpiv( int M, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_incpiv", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrf_incpiv", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgetrf_incpiv", "illegal value of M");
+ chameleon_error("CHAMELEON_zgetrf_incpiv", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zgetrf_incpiv", "illegal value of N");
+ chameleon_error("CHAMELEON_zgetrf_incpiv", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgetrf_incpiv", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgetrf_incpiv", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -107,36 +107,36 @@ int CHAMELEON_zgetrf_incpiv( int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGESV, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGESV, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrf_incpiv", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgetrf_incpiv", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgetrf_incpiv_Tile_Async( &descAt, descL, IPIV, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descL, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -184,26 +184,26 @@ int CHAMELEON_zgetrf_incpiv( int M, int N,
*/
int CHAMELEON_zgetrf_incpiv_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_incpiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrf_incpiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgetrf_incpiv_Tile_Async( A, L, IPIV, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( L, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -239,20 +239,20 @@ int CHAMELEON_zgetrf_incpiv_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV )
int CHAMELEON_zgetrf_incpiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_incpiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrf_incpiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_incpiv_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgetrf_incpiv_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_incpiv_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgetrf_incpiv_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -260,22 +260,22 @@ int CHAMELEON_zgetrf_incpiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPI
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrf_incpiv_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgetrf_incpiv_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(L) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrf_incpiv_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(L) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgetrf_incpiv_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zgetrf_incpiv_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgetrf_incpiv_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -286,19 +286,19 @@ int CHAMELEON_zgetrf_incpiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPI
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- morse_pzgetrf_incpiv( A, L, Dptr, IPIV, sequence, request );
+ chameleon_pzgetrf_incpiv( A, L, Dptr, IPIV, sequence, request );
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( L, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zgetrf_nopiv.c b/compute/zgetrf_nopiv.c
index ffc5c9d9f..bcb7d27cc 100644
--- a/compute/zgetrf_nopiv.c
+++ b/compute/zgetrf_nopiv.c
@@ -73,26 +73,26 @@ int CHAMELEON_zgetrf_nopiv( int M, int N,
int NB;
int status;
CHAM_desc_t descAl, descAt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_nopiv", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrf_nopiv", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zgetrf_nopiv", "illegal value of M");
+ chameleon_error("CHAMELEON_zgetrf_nopiv", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zgetrf_nopiv", "illegal value of N");
+ chameleon_error("CHAMELEON_zgetrf_nopiv", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zgetrf_nopiv", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgetrf_nopiv", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -100,35 +100,35 @@ int CHAMELEON_zgetrf_nopiv( int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGESV, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGESV, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrf_nopiv", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgetrf_nopiv", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgetrf_nopiv_Tile_Async( &descAt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -169,25 +169,25 @@ int CHAMELEON_zgetrf_nopiv( int M, int N,
*/
int CHAMELEON_zgetrf_nopiv_Tile( CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_nopiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrf_nopiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgetrf_nopiv_Tile_Async( A, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -228,19 +228,19 @@ int CHAMELEON_zgetrf_nopiv_Tile_Async( CHAM_desc_t *A,
RUNTIME_sequence_t *sequence,
RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_nopiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrf_nopiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_nopiv_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgetrf_nopiv_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgetrf_nopiv_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgetrf_nopiv_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -248,22 +248,22 @@ int CHAMELEON_zgetrf_nopiv_Tile_Async( CHAM_desc_t *A,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrf_nopiv_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgetrf_nopiv_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zgetrf_nopiv_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgetrf_nopiv_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- morse_pzgetrf_nopiv( A, sequence, request );
+ chameleon_pzgetrf_nopiv( A, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zgetrs_incpiv.c b/compute/zgetrs_incpiv.c
index caa4c5a79..b9abc9cdf 100644
--- a/compute/zgetrs_incpiv.c
+++ b/compute/zgetrs_incpiv.c
@@ -90,36 +90,36 @@ int CHAMELEON_zgetrs_incpiv( cham_trans_t trans, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_incpiv", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrs_incpiv", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (trans != ChamNoTrans) {
- morse_error("CHAMELEON_zgetrs_incpiv", "only ChamNoTrans supported");
+ chameleon_error("CHAMELEON_zgetrs_incpiv", "only ChamNoTrans supported");
return CHAMELEON_ERR_NOT_SUPPORTED;
}
if (N < 0) {
- morse_error("CHAMELEON_zgetrs_incpiv", "illegal value of N");
+ chameleon_error("CHAMELEON_zgetrs_incpiv", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgetrs_incpiv", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zgetrs_incpiv", "illegal value of NRHS");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zgetrs_incpiv", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgetrs_incpiv", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zgetrs_incpiv", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgetrs_incpiv", "illegal value of LDB");
return -9;
}
/* Quick return */
@@ -127,41 +127,41 @@ int CHAMELEON_zgetrs_incpiv( cham_trans_t trans, int N, int NRHS,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrs_incpiv", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgetrs_incpiv", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgetrs_incpiv_Tile_Async( &descAt, descL, IPIV, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descL, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -209,17 +209,17 @@ int CHAMELEON_zgetrs_incpiv( cham_trans_t trans, int N, int NRHS,
*/
int CHAMELEON_zgetrs_incpiv_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_incpiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrs_incpiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgetrs_incpiv_Tile_Async( A, L, IPIV, B, sequence, &request );
@@ -227,9 +227,9 @@ int CHAMELEON_zgetrs_incpiv_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHA
CHAMELEON_Desc_Flush( L, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -266,19 +266,19 @@ int CHAMELEON_zgetrs_incpiv_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHA
int CHAMELEON_zgetrs_incpiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_incpiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrs_incpiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_incpiv_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgetrs_incpiv_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_incpiv_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgetrs_incpiv_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -286,35 +286,35 @@ int CHAMELEON_zgetrs_incpiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPI
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrs_incpiv_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgetrs_incpiv_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(L) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrs_incpiv_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(L) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgetrs_incpiv_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrs_incpiv_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgetrs_incpiv_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgetrs_incpiv_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgetrs_incpiv_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
if (chameleon_min(N, NRHS) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pztrsmpl( A, B, L, IPIV, sequence, request );
+ chameleon_pztrsmpl( A, B, L, IPIV, sequence, request );
- morse_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zgetrs_nopiv.c b/compute/zgetrs_nopiv.c
index 84942e861..f38fb1025 100644
--- a/compute/zgetrs_nopiv.c
+++ b/compute/zgetrs_nopiv.c
@@ -84,36 +84,36 @@ int CHAMELEON_zgetrs_nopiv( cham_trans_t trans, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_nopiv", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrs_nopiv", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (trans != ChamNoTrans) {
- morse_error("CHAMELEON_zgetrs_nopiv", "only ChamNoTrans supported");
+ chameleon_error("CHAMELEON_zgetrs_nopiv", "only ChamNoTrans supported");
return CHAMELEON_ERR_NOT_SUPPORTED;
}
if (N < 0) {
- morse_error("CHAMELEON_zgetrs_nopiv", "illegal value of N");
+ chameleon_error("CHAMELEON_zgetrs_nopiv", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zgetrs_nopiv", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zgetrs_nopiv", "illegal value of NRHS");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zgetrs_nopiv", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zgetrs_nopiv", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zgetrs_nopiv", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zgetrs_nopiv", "illegal value of LDB");
return -9;
}
/* Quick return */
@@ -121,40 +121,40 @@ int CHAMELEON_zgetrs_nopiv( cham_trans_t trans, int N, int NRHS,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrs_nopiv", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zgetrs_nopiv", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zgetrs_nopiv_Tile_Async( &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -196,26 +196,26 @@ int CHAMELEON_zgetrs_nopiv( cham_trans_t trans, int N, int NRHS,
*/
int CHAMELEON_zgetrs_nopiv_Tile( CHAM_desc_t *A, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_nopiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrs_nopiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zgetrs_nopiv_Tile_Async( A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -252,19 +252,19 @@ int CHAMELEON_zgetrs_nopiv_Tile( CHAM_desc_t *A, CHAM_desc_t *B )
int CHAMELEON_zgetrs_nopiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_nopiv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zgetrs_nopiv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_nopiv_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zgetrs_nopiv_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zgetrs_nopiv_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zgetrs_nopiv_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -272,31 +272,31 @@ int CHAMELEON_zgetrs_nopiv_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *B,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrs_nopiv_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgetrs_nopiv_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zgetrs_nopiv_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zgetrs_nopiv_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zgetrs_nopiv_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zgetrs_nopiv_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
if (chameleon_min(N, NRHS) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, ChamLower, ChamNoTrans, ChamUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
- morse_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, ChamUpper, ChamNoTrans, ChamNonUnit, (CHAMELEON_Complex64_t)1.0, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zheevd.c b/compute/zheevd.c
index 147ef29d5..a203a877c 100644
--- a/compute/zheevd.c
+++ b/compute/zheevd.c
@@ -102,32 +102,32 @@ int CHAMELEON_zheevd( cham_job_t jobz, cham_uplo_t uplo, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zheevd", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zheevd", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (jobz != ChamNoVec && jobz != ChamVec) {
- morse_error("CHAMELEON_zheevd", "illegal value of jobz");
+ chameleon_error("CHAMELEON_zheevd", "illegal value of jobz");
return -1;
}
if ((uplo != ChamLower) && (uplo != ChamUpper)) {
- morse_error("CHAMELEON_zheevd", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zheevd", "illegal value of uplo");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zheevd", "illegal value of N");
+ chameleon_error("CHAMELEON_zheevd", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zheevd", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zheevd", "illegal value of LDA");
return -5;
}
@@ -136,35 +136,35 @@ int CHAMELEON_zheevd( cham_job_t jobz, cham_uplo_t uplo, int N,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on N; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZHEEVD, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZHEEVD, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zheevd", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zheevd", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zheevd_Tile_Async( jobz, uplo, &descAt, W, descT, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
/**
@@ -238,26 +238,26 @@ int CHAMELEON_zheevd( cham_job_t jobz, cham_uplo_t uplo, int N,
int CHAMELEON_zheevd_Tile( cham_job_t jobz, cham_uplo_t uplo,
CHAM_desc_t *A, double *W, CHAM_desc_t *T )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zheevd_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zheevd_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zheevd_Tile_Async( jobz, uplo, A, W, T, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( T, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -331,7 +331,7 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
CHAM_desc_t *A, double *W, CHAM_desc_t *T,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t descA;
CHAM_desc_t descT;
CHAM_desc_t D, *Dptr = NULL;
@@ -343,17 +343,17 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
CHAM_desc_t descVl, descVt;
CHAM_desc_t *subA, *subQ, *subT;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zheevd_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zheevd_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zheevd_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zheevd_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zheevd_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zheevd_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -361,38 +361,38 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
} else {
descA = *A;
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
} else {
descT = *T;
}
/* Check input arguments */
if (jobz != ChamNoVec && jobz != ChamVec) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "illegal value of jobz");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "illegal value of jobz");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamLower) && (uplo != ChamUpper)) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "illegal value of uplo");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (descA.m != descA.n) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "matrix need to be square");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "matrix need to be square");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (descA.nb != descA.mb) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
N = descA.m;
@@ -401,7 +401,7 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
/* Allocate data structures for reduction to tridiagonal form */
E = malloc( (N - 1) * sizeof(double) );
if (E == NULL) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "malloc(E) failed");
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "malloc(E) failed");
free(E);
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
@@ -418,18 +418,18 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
Q2, N,
sequence, request );
if (status != 0) {
- morse_error("CHAMELEON_zheevd_Tile", "CHAMELEON_zhetrd failed");
+ chameleon_error("CHAMELEON_zheevd_Tile", "CHAMELEON_zhetrd failed");
}
if (jobz == ChamNoVec){
#if !defined(CHAMELEON_SIMULATION)
/* Tridiagonal eigensolver */
status = LAPACKE_zstedc( LAPACK_COL_MAJOR,
- morse_lapack_const(jobz),
+ chameleon_lapack_const(jobz),
N, W, E,
NULL, N );
if (status != 0) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "LAPACKE_zstedc failed");
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "LAPACKE_zstedc failed");
}
#endif /* !defined(CHAMELEON_SIMULATION) */
free(E);
@@ -438,7 +438,7 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
V = malloc( N * N * sizeof(CHAMELEON_Complex64_t) );
if (V == NULL) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "malloc(V) failed");
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "malloc(V) failed");
free(V);
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
@@ -451,11 +451,11 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
*/
#if !defined(CHAMELEON_SIMULATION)
status = LAPACKE_zstedc( LAPACK_COL_MAJOR,
- morse_lapack_const(ChamIvec),
+ chameleon_lapack_const(ChamIvec),
N, W, E,
V, N );
if (status != 0) {
- morse_error("CHAMELEON_zheevd_Tile_Async", "LAPACKE_zstedc failed");
+ chameleon_error("CHAMELEON_zheevd_Tile_Async", "LAPACKE_zstedc failed");
}
#endif /* !defined(CHAMELEON_SIMULATION) */
@@ -464,10 +464,10 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
/* Q from CHAMELEON_zhetrd refers to Q2 (lapack layout) */
/* V from LAPACKE_zstedc refers to V (lapack layout) */
/* The final eigenvectors are (Q1 Q2 V) or (Q1^h Q2 V) */
- morse_zlap2tile( morse, &descQ2l, &descQ2t, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descQ2l, &descQ2t, ChamDescInput, ChamUpperLower,
Q2, NB, NB, N, N, N, N, sequence, request );
- morse_zlap2tile( morse, &descVl, &descVt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descVl, &descVt, ChamDescInput, ChamUpperLower,
V, NB, NB, N, N, N, N, sequence, request );
if (uplo == ChamLower)
@@ -475,21 +475,21 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- subA = morse_desc_submatrix(&descA, descA.mb, 0, descA.m -descA.mb, descA.n-descA.nb);
- subQ = morse_desc_submatrix(&descQ2t, descQ2t.mb, 0, descQ2t.m-descQ2t.mb, descQ2t.n );
- subT = morse_desc_submatrix(&descT, descT.mb, 0, descT.m -descT.mb, descT.n-descT.nb);
+ subA = chameleon_desc_submatrix(&descA, descA.mb, 0, descA.m -descA.mb, descA.n-descA.nb);
+ subQ = chameleon_desc_submatrix(&descQ2t, descQ2t.mb, 0, descQ2t.m-descQ2t.mb, descQ2t.n );
+ subT = chameleon_desc_submatrix(&descT, descT.mb, 0, descT.m -descT.mb, descT.n-descT.nb);
/* Compute Q2 = Q1 * Q2 */
- morse_pzunmqr( ChamLeft, ChamNoTrans,
+ chameleon_pzunmqr( ChamLeft, ChamNoTrans,
subA, subQ, subT, Dptr,
sequence, request );
/* Compute the final eigenvectors A = (Q1 * Q2) * V */
- morse_pzgemm( ChamNoTrans, ChamNoTrans,
+ chameleon_pzgemm( ChamNoTrans, ChamNoTrans,
1.0, &descQ2t, &descVt,
0.0, &descA,
sequence, request );
@@ -499,43 +499,43 @@ int CHAMELEON_zheevd_Tile_Async( cham_job_t jobz, cham_uplo_t uplo,
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- subA = morse_desc_submatrix(&descA, 0, descA.nb, descA.m -descA.mb, descA.n -descA.nb );
- subQ = morse_desc_submatrix(&descQ2t, descQ2t.mb, 0, descQ2t.m-descQ2t.mb, descQ2t.n );
- subT = morse_desc_submatrix(&descT, 0, descT.nb, descT.m -descT.mb, descT.n -descT.nb );
+ subA = chameleon_desc_submatrix(&descA, 0, descA.nb, descA.m -descA.mb, descA.n -descA.nb );
+ subQ = chameleon_desc_submatrix(&descQ2t, descQ2t.mb, 0, descQ2t.m-descQ2t.mb, descQ2t.n );
+ subT = chameleon_desc_submatrix(&descT, 0, descT.nb, descT.m -descT.mb, descT.n -descT.nb );
/* Compute Q2 = Q1^h * Q2 */
- morse_pzunmlq( ChamLeft, ChamConjTrans,
+ chameleon_pzunmlq( ChamLeft, ChamConjTrans,
subA, subQ, subT, Dptr,
sequence, request );
/* Compute the final eigenvectors A = (Q1^h * Q2) * V */
- morse_pzgemm( ChamNoTrans, ChamNoTrans,
+ chameleon_pzgemm( ChamNoTrans, ChamNoTrans,
1.0, &descQ2t, &descVt,
0.0, &descA,
sequence, request );
}
- morse_ztile2lap( morse, &descQ2l, &descQ2t,
+ chameleon_ztile2lap( chamctxt, &descQ2l, &descQ2t,
ChamDescInput, ChamUpperLower, sequence, request );
- morse_ztile2lap( morse, &descVl, &descVt,
+ chameleon_ztile2lap( chamctxt, &descVl, &descVt,
ChamDescInput, ChamUpperLower, sequence, request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descQ2l, &descQ2t );
- morse_ztile2lap_cleanup( morse, &descVl, &descVt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descQ2l, &descQ2t );
+ chameleon_ztile2lap_cleanup( chamctxt, &descVl, &descVt );
free(subA); free(subQ); free(subT);
free(Q2);
free(V);
free(E);
if (Dptr != NULL) {
- morse_desc_mat_free( Dptr );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zhemm.c b/compute/zhemm.c
index fc18bffd9..55c1332f4 100644
--- a/compute/zhemm.c
+++ b/compute/zhemm.c
@@ -112,44 +112,44 @@ int CHAMELEON_zhemm( cham_side_t side, cham_uplo_t uplo, int M, int N,
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
CHAM_desc_t descCl, descCt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zhemm", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zhemm", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ( (side != ChamLeft) && (side != ChamRight) ){
- morse_error("CHAMELEON_zhemm", "illegal value of side");
+ chameleon_error("CHAMELEON_zhemm", "illegal value of side");
return -1;
}
if ((uplo != ChamLower) && (uplo != ChamUpper)) {
- morse_error("CHAMELEON_zhemm", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zhemm", "illegal value of uplo");
return -2;
}
Am = ( side == ChamLeft ) ? M : N;
if (M < 0) {
- morse_error("CHAMELEON_zhemm", "illegal value of M");
+ chameleon_error("CHAMELEON_zhemm", "illegal value of M");
return -3;
}
if (N < 0) {
- morse_error("CHAMELEON_zhemm", "illegal value of N");
+ chameleon_error("CHAMELEON_zhemm", "illegal value of N");
return -4;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zhemm", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zhemm", "illegal value of LDA");
return -7;
}
if (LDB < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zhemm", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zhemm", "illegal value of LDB");
return -9;
}
if (LDC < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zhemm", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zhemm", "illegal value of LDC");
return -12;
}
@@ -159,45 +159,45 @@ int CHAMELEON_zhemm( cham_side_t side, cham_uplo_t uplo, int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZHEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZHEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zhemm", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zhemm", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, Am, Am, Am, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInput, ChamUpperLower,
B, NB, NB, LDB, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, ChamUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zhemm_Tile_Async( side, uplo, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -264,17 +264,17 @@ int CHAMELEON_zhemm_Tile( cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zhemm_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zhemm_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zhemm_Tile_Async(side, uplo, alpha, A, B, beta, C, sequence, &request );
@@ -282,9 +282,9 @@ int CHAMELEON_zhemm_Tile( cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -321,19 +321,19 @@ int CHAMELEON_zhemm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zhemm_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zhemm_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zhemm_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zhemm_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zhemm_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zhemm_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -341,72 +341,72 @@ int CHAMELEON_zhemm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ( (side != ChamLeft) && (side != ChamRight) ){
- morse_error("CHAMELEON_zhemm_Tile_Async", "illegal value of side");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "illegal value of side");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((uplo != ChamLower) && (uplo != ChamUpper)) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "illegal value of uplo");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -2);
}
/* Check matrices sizes */
if ( (B->m != C->m) || (B->n != C->n) ) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "B and C must have the same size");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "B and C must have the same size");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (A->m != A->n) ||
( (side == ChamLeft) && (A->m != B->m ) ) ||
( (side == ChamRight) && (A->m != B->n ) ) ) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "Matrix A must be square of size M or N regarding side.");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "Matrix A must be square of size M or N regarding side.");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check tiles sizes */
if ( (B->mb != C->mb) || (B->nb != C->nb) ) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "B and C must have the same tile sizes");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "B and C must have the same tile sizes");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (A->mb != A->nb) ||
( (side == ChamLeft) && (A->mb != B->mb ) ) ||
( (side == ChamRight) && (A->mb != B->nb ) ) ) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "Matrix A must be square with square tiles wich fits the reagding tile size of B and C");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "Matrix A must be square with square tiles wich fits the reagding tile size of B and C");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check submatrix starting point */
/* if ( (B->i != C->i) || (B->j != C->j) ) { */
- /* morse_error("CHAMELEON_zhemm_Tile_Async", "B and C submatrices doesn't match"); */
- /* return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE); */
+ /* chameleon_error("CHAMELEON_zhemm_Tile_Async", "B and C submatrices doesn't match"); */
+ /* return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE); */
/* } */
/* if ( (A->i != A->j) || */
/* ( (side == ChamLeft) && (A->i != B->i ) ) || */
/* ( (side == ChamRight) && (A->i != B->j ) ) ) { */
- /* morse_error("CHAMELEON_zhemm_Tile_Async", "Submatrix A must start on diagnonal and match submatrices B and C."); */
- /* return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE); */
+ /* chameleon_error("CHAMELEON_zhemm_Tile_Async", "Submatrix A must start on diagnonal and match submatrices B and C."); */
+ /* return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE); */
/* } */
if( (A->i != 0) || (A->j != 0) ||
(B->i != 0) || (B->j != 0) ||
(C->i != 0) || (C->j != 0) ) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "Submatrices are not supported for now");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "Submatrices are not supported for now");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
@@ -416,7 +416,7 @@ int CHAMELEON_zhemm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
return CHAMELEON_SUCCESS;
}
- morse_pzhemm( side, uplo, alpha, A, B, beta, C, sequence, request );
+ chameleon_pzhemm( side, uplo, alpha, A, B, beta, C, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zher2k.c b/compute/zher2k.c
index b25aca5ae..6baf15273 100644
--- a/compute/zher2k.c
+++ b/compute/zher2k.c
@@ -113,23 +113,23 @@ int CHAMELEON_zher2k( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
CHAM_desc_t descCl, descCt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zher2k", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zher2k", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zher2k", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zher2k", "illegal value of uplo");
return -1;
}
if ((trans != ChamNoTrans) && (trans != ChamConjTrans)) {
- morse_error("CHAMELEON_zher2k", "illegal value of trans");
+ chameleon_error("CHAMELEON_zher2k", "illegal value of trans");
return -2;
}
if ( trans == ChamNoTrans ) {
@@ -138,23 +138,23 @@ int CHAMELEON_zher2k( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
Am = K; An = N;
}
if (N < 0) {
- morse_error("CHAMELEON_zher2k", "illegal value of N");
+ chameleon_error("CHAMELEON_zher2k", "illegal value of N");
return -3;
}
if (K < 0) {
- morse_error("CHAMELEON_zher2k", "illegal value of K");
+ chameleon_error("CHAMELEON_zher2k", "illegal value of K");
return -4;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zher2k", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zher2k", "illegal value of LDA");
return -7;
}
if (LDB < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zher2k", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zher2k", "illegal value of LDB");
return -9;
}
if (LDC < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zher2k", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zher2k", "illegal value of LDC");
return -12;
}
@@ -164,45 +164,45 @@ int CHAMELEON_zher2k( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZHERK, N, K, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZHERK, N, K, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zher2k", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zher2k", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInput, ChamUpperLower,
B, NB, NB, LDB, An, Am, An, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zher2k_Tile_Async( uplo, trans, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -264,17 +264,17 @@ int CHAMELEON_zher2k_Tile( cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
double beta, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zher2k_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zher2k_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zher2k_Tile_Async( uplo, trans, alpha, A, B, beta, C, sequence, &request );
@@ -282,9 +282,9 @@ int CHAMELEON_zher2k_Tile( cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -321,21 +321,21 @@ int CHAMELEON_zher2k_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
double beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int N, K;
int Am, An, Amb;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zher2k_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zher2k_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zher2k_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zher2k_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zher2k_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zher2k_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -343,30 +343,30 @@ int CHAMELEON_zher2k_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zher2k_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zher2k_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zher2k_Tile_Async", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zher2k_Tile_Async", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zher2k_Tile_Async", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zher2k_Tile_Async", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zher2k", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zher2k", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((trans != ChamNoTrans) && (trans != ChamConjTrans)) {
- morse_error("CHAMELEON_zher2k", "illegal value of trans");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_zher2k", "illegal value of trans");
+ return chameleon_request_fail(sequence, request, -2);
}
if ( trans == ChamNoTrans ) {
@@ -380,20 +380,20 @@ int CHAMELEON_zher2k_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
}
if (C->mb != C->nb) {
- morse_error("CHAMELEON_zher2k_Tile_Async", "only square tiles for C are supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zher2k_Tile_Async", "only square tiles for C are supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (B->mb != A->mb) || (B->nb != A->nb) || (Amb != C->mb) ){
- morse_error("CHAMELEON_zher2k_Tile_Async", "tile sizes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zher2k_Tile_Async", "tile sizes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (C->m != C->n) {
- morse_error("CHAMELEON_zher2k_Tile_Async", "only square matrix C is supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zher2k_Tile_Async", "only square matrix C is supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (B->m != A->m) || (B->n != A->n) || (Am != C->m) ){
- morse_error("CHAMELEON_zher2k_Tile_Async", "sizes of matrices have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zher2k_Tile_Async", "sizes of matrices have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
N = C->m;
@@ -406,7 +406,7 @@ int CHAMELEON_zher2k_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
return CHAMELEON_SUCCESS;
}
- morse_pzher2k( uplo, trans, alpha, A, B, beta, C, sequence, request );
+ chameleon_pzher2k( uplo, trans, alpha, A, B, beta, C, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zherk.c b/compute/zherk.c
index 256b97aa6..c6ab8ee0f 100644
--- a/compute/zherk.c
+++ b/compute/zherk.c
@@ -102,23 +102,23 @@ int CHAMELEON_zherk( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
int status;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descCl, descCt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zherk", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zherk", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zherk", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zherk", "illegal value of uplo");
return -1;
}
if ((trans != ChamNoTrans) && (trans != ChamConjTrans)) {
- morse_error("CHAMELEON_zherk", "illegal value of trans");
+ chameleon_error("CHAMELEON_zherk", "illegal value of trans");
return -2;
}
if ( trans == ChamNoTrans ) {
@@ -127,19 +127,19 @@ int CHAMELEON_zherk( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
Am = K; An = N;
}
if (N < 0) {
- morse_error("CHAMELEON_zherk", "illegal value of N");
+ chameleon_error("CHAMELEON_zherk", "illegal value of N");
return -3;
}
if (K < 0) {
- morse_error("CHAMELEON_zherk", "illegal value of K");
+ chameleon_error("CHAMELEON_zherk", "illegal value of K");
return -4;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zherk", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zherk", "illegal value of LDA");
return -7;
}
if (LDC < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zherk", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zherk", "illegal value of LDC");
return -10;
}
@@ -149,40 +149,40 @@ int CHAMELEON_zherk( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZHERK, N, K, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZHERK, N, K, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zherk", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zherk", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zherk_Tile_Async( uplo, trans, alpha, &descAt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -240,26 +240,26 @@ int CHAMELEON_zherk_Tile( cham_uplo_t uplo, cham_trans_t trans,
double alpha, CHAM_desc_t *A,
double beta, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zherk_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zherk_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zherk_Tile_Async( uplo, trans, alpha, A, beta, C, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -296,21 +296,21 @@ int CHAMELEON_zherk_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
double beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int N, K;
int Am, An, Amb;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zherk_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zherk_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zherk_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zherk_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zherk_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zherk_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -318,26 +318,26 @@ int CHAMELEON_zherk_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zherk_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zherk_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zherk_Tile_Async", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zherk_Tile_Async", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zherk", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zherk", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((trans != ChamNoTrans) && (trans != ChamConjTrans)) {
- morse_error("CHAMELEON_zherk", "illegal value of transA");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_zherk", "illegal value of transA");
+ return chameleon_request_fail(sequence, request, -2);
}
if ( trans == ChamNoTrans ) {
@@ -351,20 +351,20 @@ int CHAMELEON_zherk_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
}
if (C->mb != C->nb) {
- morse_error("CHAMELEON_zherk_Tile_Async", "only square tiles are supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zherk_Tile_Async", "only square tiles are supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (Amb != C->mb) {
- morse_error("CHAMELEON_zherk_Tile_Async", "tile sizes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zherk_Tile_Async", "tile sizes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (C->m != C->n) {
- morse_error("CHAMELEON_zherk_Tile_Async", "only square matrix C is supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zherk_Tile_Async", "only square matrix C is supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (Am != C->m) {
- morse_error("CHAMELEON_zherk_Tile_Async", "sizes of matrices have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zherk_Tile_Async", "sizes of matrices have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
N = C->m;
@@ -377,7 +377,7 @@ int CHAMELEON_zherk_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
return CHAMELEON_SUCCESS;
}
- morse_pzherk( uplo, trans, alpha, A, beta, C, sequence, request );
+ chameleon_pzherk( uplo, trans, alpha, A, beta, C, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zhetrd.c b/compute/zhetrd.c
index 52f782e76..660bd5b91 100644
--- a/compute/zhetrd.c
+++ b/compute/zhetrd.c
@@ -117,32 +117,32 @@ int CHAMELEON_zhetrd( cham_job_t jobz, cham_uplo_t uplo, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_zhetrd", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_zhetrd", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (jobz != ChamNoVec && jobz != ChamVec) {
- morse_error("CHAMELEON_zhetrd", "illegal value of jobz");
+ chameleon_error("CHAMELEON_zhetrd", "illegal value of jobz");
return -1;
}
if ((uplo != ChamLower) && (uplo != ChamUpper)) {
- morse_error("CHAMELEON_zhetrd", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zhetrd", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zhetrd", "illegal value of N");
+ chameleon_error("CHAMELEON_zhetrd", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zhetrd", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zhetrd", "illegal value of LDA");
return -4;
}
@@ -151,34 +151,34 @@ int CHAMELEON_zhetrd( cham_job_t jobz, cham_uplo_t uplo, int N,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on N; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZHETRD, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZHETRD, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zhetrd", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zhetrd", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zhetrd_Tile_Async( jobz, uplo, &descAt, D, E, descT, Q, LDQ, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
/**
@@ -266,26 +266,26 @@ int CHAMELEON_zhetrd_Tile( cham_job_t jobz, cham_uplo_t uplo,
CHAM_desc_t *A, double *D, double *E,
CHAM_desc_t *T, CHAMELEON_Complex64_t *Q, int LDQ )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zhetrd_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zhetrd_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zhetrd_Tile_Async( jobz, uplo, A, D, E, T, Q, LDQ, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( T, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -330,24 +330,24 @@ int CHAMELEON_zhetrd_Tile_Async( cham_job_t jobz,
CHAMELEON_Complex64_t *Q, int LDQ,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t descA;
CHAM_desc_t descAB;
int N, NB, LDAB;
int status;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zhetrd_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zhetrd_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zhetrd_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zhetrd_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zhetrd_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zhetrd_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
@@ -356,55 +356,55 @@ int CHAMELEON_zhetrd_Tile_Async( cham_job_t jobz,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zhetrd_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zhetrd_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
} else {
descA = *A;
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zhetrd_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zhetrd_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (jobz != ChamNoVec && jobz != ChamVec) {
- morse_error("CHAMELEON_zhetrd_Tile_Async", "illegal value of jobz");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhetrd_Tile_Async", "illegal value of jobz");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamLower) && (uplo != ChamUpper)) {
- morse_error("CHAMELEON_zhetrd_Tile_Async", "illegal value of uplo");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhetrd_Tile_Async", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (descA.m != descA.n) {
- morse_error("CHAMELEON_zhetrd_Tile_Async", "matrix need to be square");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhetrd_Tile_Async", "matrix need to be square");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (descA.nb != descA.mb) {
- morse_error("CHAMELEON_zhetrd_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhetrd_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
N = descA.m;
NB = descA.mb;
#if defined(CHAMELEON_COPY_DIAG)
{
- morse_zdesc_alloc_diag(D, A->mb, A->nb, chameleon_min(A->m, A->n), A->nb, 0, 0, chameleon_min(A->m, A->n), A->nb, A->p, A->q);
+ chameleon_zdesc_alloc_diag(D, A->mb, A->nb, chameleon_min(A->m, A->n), A->nb, 0, 0, chameleon_min(A->m, A->n), A->nb, A->p, A->q);
Dptr = &D;
}
#endif
/* Reduction to band. On exit, T contains reflectors */
- morse_pzhetrd_he2hb( uplo, A, T, Dptr,
+ chameleon_pzhetrd_he2hb( uplo, A, T, Dptr,
sequence, request );
LDAB = NB+1;
/* Allocate band structure */
- morse_zdesc_alloc_diag( descAB,
+ chameleon_zdesc_alloc_diag( descAB,
LDAB, NB, /* mb, nb */
LDAB, N, /* lm, ln */
0, 0, /* i, j */
@@ -412,27 +412,27 @@ int CHAMELEON_zhetrd_Tile_Async( cham_job_t jobz,
1, 1 );
/* Copy data into band structure */
- morse_pztile2band( uplo, A, &descAB,
+ chameleon_pztile2band( uplo, A, &descAB,
sequence, request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Reduce band matrix to tridiagonal matrix */
#if !defined(CHAMELEON_SIMULATION)
status = LAPACKE_zhbtrd( LAPACK_COL_MAJOR,
- morse_lapack_const(jobz),
- morse_lapack_const(uplo),
+ chameleon_lapack_const(jobz),
+ chameleon_lapack_const(uplo),
N, NB,
(CHAMELEON_Complex64_t *) descAB.mat, LDAB,
W, E, Q, LDQ );
if (status != 0) {
- morse_error("CHAMELEON_zhetrd_Tile_Async", "LAPACKE_zhbtrd failed");
+ chameleon_error("CHAMELEON_zhetrd_Tile_Async", "LAPACKE_zhbtrd failed");
}
#endif /* !defined(CHAMELEON_SIMULATION) */
if (Dptr != NULL) {
- morse_desc_mat_free( Dptr );
+ chameleon_desc_mat_free( Dptr );
}
- morse_desc_mat_free( &descAB );
+ chameleon_desc_mat_free( &descAB );
(void)D;
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zlacpy.c b/compute/zlacpy.c
index a03972ed7..b9feabf06 100644
--- a/compute/zlacpy.c
+++ b/compute/zlacpy.c
@@ -75,38 +75,38 @@ int CHAMELEON_zlacpy( cham_uplo_t uplo, int M, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlacpy", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlacpy", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ( (uplo != ChamUpperLower) &&
(uplo != ChamUpper) &&
(uplo != ChamLower) ) {
- morse_error("CHAMELEON_zlacpy", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zlacpy", "illegal value of uplo");
return -1;
}
if (M < 0) {
- morse_error("CHAMELEON_zlacpy", "illegal value of M");
+ chameleon_error("CHAMELEON_zlacpy", "illegal value of M");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zlacpy", "illegal value of N");
+ chameleon_error("CHAMELEON_zlacpy", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zlacpy", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zlacpy", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zlacpy", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zlacpy", "illegal value of LDB");
return -7;
}
@@ -115,39 +115,39 @@ int CHAMELEON_zlacpy( cham_uplo_t uplo, int M, int N,
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlacpy", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zlacpy", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, uplo,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zlacpy_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return CHAMELEON_SUCCESS;
}
@@ -194,26 +194,26 @@ int CHAMELEON_zlacpy( cham_uplo_t uplo, int M, int N,
*/
int CHAMELEON_zlacpy_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlacpy_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlacpy_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zlacpy_Tile_Async( uplo, A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -247,19 +247,19 @@ int CHAMELEON_zlacpy_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
int CHAMELEON_zlacpy_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlacpy_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlacpy_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zlacpy_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zlacpy_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zlacpy_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zlacpy_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -267,28 +267,28 @@ int CHAMELEON_zlacpy_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlacpy_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zlacpy_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlacpy_Tile_Async", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zlacpy_Tile_Async", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zlacpy_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlacpy_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ( (uplo != ChamUpperLower) &&
(uplo != ChamUpper) &&
(uplo != ChamLower) ) {
- morse_error("CHAMELEON_zlacpy_Tile_Async", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zlacpy_Tile_Async", "illegal value of uplo");
return -1;
}
/* Quick return */
@@ -296,7 +296,7 @@ int CHAMELEON_zlacpy_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *
return CHAMELEON_SUCCESS;
}
- morse_pzlacpy( uplo, A, B, sequence, request );
+ chameleon_pzlacpy( uplo, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zlange.c b/compute/zlange.c
index 4d0ea80c3..82968715d 100644
--- a/compute/zlange.c
+++ b/compute/zlange.c
@@ -84,32 +84,32 @@ double CHAMELEON_zlange(cham_normtype_t norm, int M, int N,
int NB;
int status;
double value = -1.;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlange", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlange", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ( (norm != ChamMaxNorm) && (norm != ChamOneNorm)
&& (norm != ChamInfNorm) && (norm != ChamFrobeniusNorm) ) {
- morse_error("CHAMELEON_zlange", "illegal value of norm");
+ chameleon_error("CHAMELEON_zlange", "illegal value of norm");
return -1;
}
if (M < 0) {
- morse_error("CHAMELEON_zlange", "illegal value of M");
+ chameleon_error("CHAMELEON_zlange", "illegal value of M");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zlange", "illegal value of N");
+ chameleon_error("CHAMELEON_zlange", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zlange", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zlange", "illegal value of LDA");
return -5;
}
@@ -118,34 +118,34 @@ double CHAMELEON_zlange(cham_normtype_t norm, int M, int N,
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlange", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zlange", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zlange_Tile_Async( norm, &descAt, &value, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return value;
}
@@ -190,26 +190,26 @@ double CHAMELEON_zlange(cham_normtype_t norm, int M, int N,
*/
double CHAMELEON_zlange_Tile(cham_normtype_t norm, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
double value = -1.;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlange_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlange_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zlange_Tile_Async( norm, A, &value, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return ( status == CHAMELEON_SUCCESS ) ? value : (double)status;
}
@@ -243,19 +243,19 @@ double CHAMELEON_zlange_Tile(cham_normtype_t norm, CHAM_desc_t *A )
int CHAMELEON_zlange_Tile_Async( cham_normtype_t norm, CHAM_desc_t *A, double *value,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlange_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlange_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zlange_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zlange_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zlange_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zlange_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -263,23 +263,23 @@ int CHAMELEON_zlange_Tile_Async( cham_normtype_t norm, CHAM_desc_t *A, double *v
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlange_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zlange_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zlange_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlange_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (norm != ChamMaxNorm) && (norm != ChamOneNorm)
&& (norm != ChamInfNorm) && (norm != ChamFrobeniusNorm) ) {
- morse_error("CHAMELEON_zlange", "illegal value of norm");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlange", "illegal value of norm");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
if (chameleon_min(A->m, A->n) == 0) {
@@ -287,7 +287,7 @@ int CHAMELEON_zlange_Tile_Async( cham_normtype_t norm, CHAM_desc_t *A, double *v
return CHAMELEON_SUCCESS;
}
- morse_pzlange( norm, A, value, sequence, request );
+ chameleon_pzlange( norm, A, value, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zlanhe.c b/compute/zlanhe.c
index 43e8e8135..5297f8eab 100644
--- a/compute/zlanhe.c
+++ b/compute/zlanhe.c
@@ -84,32 +84,32 @@ double CHAMELEON_zlanhe(cham_normtype_t norm, cham_uplo_t uplo, int N,
int NB;
int status;
double value = -1.;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlanhe", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlanhe", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ( (norm != ChamMaxNorm) && (norm != ChamOneNorm)
&& (norm != ChamInfNorm) && (norm != ChamFrobeniusNorm) ) {
- morse_error("CHAMELEON_zlanhe", "illegal value of norm");
+ chameleon_error("CHAMELEON_zlanhe", "illegal value of norm");
return -1;
}
if ( (uplo != ChamUpper) && (uplo != ChamLower) ) {
- morse_error("CHAMELEON_zlanhe", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zlanhe", "illegal value of uplo");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zlanhe", "illegal value of N");
+ chameleon_error("CHAMELEON_zlanhe", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zlanhe", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zlanhe", "illegal value of LDA");
return -5;
}
@@ -118,34 +118,34 @@ double CHAMELEON_zlanhe(cham_normtype_t norm, cham_uplo_t uplo, int N,
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlanhe", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zlanhe", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zlanhe_Tile_Async( norm, uplo, &descAt, &value, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return value;
}
@@ -194,26 +194,26 @@ double CHAMELEON_zlanhe(cham_normtype_t norm, cham_uplo_t uplo, int N,
*/
double CHAMELEON_zlanhe_Tile( cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
double value = -1.;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlanhe_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlanhe_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zlanhe_Tile_Async( norm, uplo, A, &value, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return ( status == CHAMELEON_SUCCESS ) ? value : (double)status;
}
@@ -247,19 +247,19 @@ double CHAMELEON_zlanhe_Tile( cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_
int CHAMELEON_zlanhe_Tile_Async( cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *value,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlanhe_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlanhe_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zlanhe_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zlanhe_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zlanhe_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zlanhe_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -267,27 +267,27 @@ int CHAMELEON_zlanhe_Tile_Async( cham_normtype_t norm, cham_uplo_t uplo, CHAM_de
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlanhe_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zlanhe_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zlanhe_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlanhe_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (norm != ChamMaxNorm) && (norm != ChamOneNorm)
&& (norm != ChamInfNorm) && (norm != ChamFrobeniusNorm) ) {
- morse_error("CHAMELEON_zlanhe_Tile", "illegal value of norm");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlanhe_Tile", "illegal value of norm");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (uplo != ChamUpper) && (uplo != ChamLower) ) {
- morse_error("CHAMELEON_zlanhe_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlanhe_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
if ( A->m == 0) {
@@ -295,7 +295,7 @@ int CHAMELEON_zlanhe_Tile_Async( cham_normtype_t norm, cham_uplo_t uplo, CHAM_de
return CHAMELEON_SUCCESS;
}
- morse_pzlanhe( norm, uplo, A, value, sequence, request );
+ chameleon_pzlanhe( norm, uplo, A, value, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zlansy.c b/compute/zlansy.c
index 6dfd785c5..995f21c80 100644
--- a/compute/zlansy.c
+++ b/compute/zlansy.c
@@ -84,32 +84,32 @@ double CHAMELEON_zlansy(cham_normtype_t norm, cham_uplo_t uplo, int N,
int NB;
int status;
double value = -1.;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlansy", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlansy", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ( (norm != ChamMaxNorm) && (norm != ChamOneNorm)
&& (norm != ChamInfNorm) && (norm != ChamFrobeniusNorm) ) {
- morse_error("CHAMELEON_zlansy", "illegal value of norm");
+ chameleon_error("CHAMELEON_zlansy", "illegal value of norm");
return -1;
}
if ( (uplo != ChamUpper) && (uplo != ChamLower) ) {
- morse_error("CHAMELEON_zlansy", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zlansy", "illegal value of uplo");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zlansy", "illegal value of N");
+ chameleon_error("CHAMELEON_zlansy", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zlansy", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zlansy", "illegal value of LDA");
return -5;
}
@@ -118,34 +118,34 @@ double CHAMELEON_zlansy(cham_normtype_t norm, cham_uplo_t uplo, int N,
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlansy", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zlansy", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zlansy_Tile_Async( norm, uplo, &descAt, &value, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return value;
}
@@ -194,26 +194,26 @@ double CHAMELEON_zlansy(cham_normtype_t norm, cham_uplo_t uplo, int N,
*/
double CHAMELEON_zlansy_Tile( cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
double value = -1.;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlansy_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlansy_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zlansy_Tile_Async( norm, uplo, A, &value, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return ( status == CHAMELEON_SUCCESS ) ? value : (double)status;
}
@@ -247,19 +247,19 @@ double CHAMELEON_zlansy_Tile( cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_
int CHAMELEON_zlansy_Tile_Async( cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *value,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlansy_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlansy_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zlansy_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zlansy_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zlansy_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zlansy_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -267,27 +267,27 @@ int CHAMELEON_zlansy_Tile_Async( cham_normtype_t norm, cham_uplo_t uplo, CHAM_de
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlansy_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zlansy_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zlansy_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlansy_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (norm != ChamMaxNorm) && (norm != ChamOneNorm)
&& (norm != ChamInfNorm) && (norm != ChamFrobeniusNorm) ) {
- morse_error("CHAMELEON_zlansy_Tile", "illegal value of norm");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlansy_Tile", "illegal value of norm");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (uplo != ChamUpper) && (uplo != ChamLower) ) {
- morse_error("CHAMELEON_zlansy_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlansy_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
if ( A->m == 0) {
@@ -295,7 +295,7 @@ int CHAMELEON_zlansy_Tile_Async( cham_normtype_t norm, cham_uplo_t uplo, CHAM_de
return CHAMELEON_SUCCESS;
}
- morse_pzlansy( norm, uplo, A, value, sequence, request );
+ chameleon_pzlansy( norm, uplo, A, value, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zlantr.c b/compute/zlantr.c
index 02ed20191..fb78aa2e8 100644
--- a/compute/zlantr.c
+++ b/compute/zlantr.c
@@ -96,40 +96,40 @@ double CHAMELEON_zlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag
int NB;
int status;
double value = -1.;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlantr", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlantr", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ( (norm != ChamMaxNorm) && (norm != ChamOneNorm)
&& (norm != ChamInfNorm) && (norm != ChamFrobeniusNorm) ) {
- morse_error("CHAMELEON_zlantr", "illegal value of norm");
+ chameleon_error("CHAMELEON_zlantr", "illegal value of norm");
return -1;
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zlantr", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zlantr", "illegal value of uplo");
return -2;
}
if ((diag != ChamUnit) && (diag != ChamNonUnit)) {
- morse_error("CHAMELEON_zlantr", "illegal value of diag");
+ chameleon_error("CHAMELEON_zlantr", "illegal value of diag");
return -3;
}
if (M < 0) {
- morse_error("CHAMELEON_zlantr", "illegal value of M");
+ chameleon_error("CHAMELEON_zlantr", "illegal value of M");
return -4;
}
if (N < 0) {
- morse_error("CHAMELEON_zlantr", "illegal value of N");
+ chameleon_error("CHAMELEON_zlantr", "illegal value of N");
return -5;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zlantr", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zlantr", "illegal value of LDA");
return -7;
}
@@ -138,34 +138,34 @@ double CHAMELEON_zlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlantr", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zlantr", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zlantr_Tile_Async( norm, uplo, diag, &descAt, &value, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return value;
}
@@ -216,26 +216,26 @@ double CHAMELEON_zlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag
*/
double CHAMELEON_zlantr_Tile(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
double value = -1.;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlantr_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlantr_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zlantr_Tile_Async( norm, uplo, diag, A, &value, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return ( status == CHAMELEON_SUCCESS ) ? value : (double)status;
}
@@ -270,19 +270,19 @@ int CHAMELEON_zlantr_Tile_Async( cham_normtype_t norm, cham_uplo_t uplo, cham_di
CHAM_desc_t *A, double *value,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlantr_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlantr_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zlantr_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zlantr_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zlantr_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zlantr_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -290,31 +290,31 @@ int CHAMELEON_zlantr_Tile_Async( cham_normtype_t norm, cham_uplo_t uplo, cham_di
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlantr_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zlantr_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zlantr_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlantr_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (norm != ChamMaxNorm) && (norm != ChamOneNorm)
&& (norm != ChamInfNorm) && (norm != ChamFrobeniusNorm) ) {
- morse_error("CHAMELEON_zlantr_Tile", "illegal value of norm");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlantr_Tile", "illegal value of norm");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zlantr_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlantr_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((diag != ChamUnit) && (diag != ChamNonUnit)) {
- morse_error("CHAMELEON_zlantr_Tile", "illegal value of diag");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlantr_Tile", "illegal value of diag");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
@@ -323,7 +323,7 @@ int CHAMELEON_zlantr_Tile_Async( cham_normtype_t norm, cham_uplo_t uplo, cham_di
return CHAMELEON_SUCCESS;
}
- morse_pzlantr( norm, uplo, diag, A, value, sequence, request );
+ chameleon_pzlantr( norm, uplo, diag, A, value, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zlascal.c b/compute/zlascal.c
index 5ad4e9563..bae3815fb 100644
--- a/compute/zlascal.c
+++ b/compute/zlascal.c
@@ -74,31 +74,31 @@ int CHAMELEON_zlascal( cham_uplo_t uplo, int M, int N,
int NB;
int status;
CHAM_desc_t descAl, descAt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlascal", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlascal", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower) && (uplo != ChamUpperLower)) {
- morse_error("CHAMELEON_zlascal", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zlascal", "illegal value of uplo");
return -1;
}
if (M < 0) {
- morse_error("CHAMELEON_zlascal", "illegal value of M");
+ chameleon_error("CHAMELEON_zlascal", "illegal value of M");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zlascal", "illegal value of N");
+ chameleon_error("CHAMELEON_zlascal", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zlascal", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zlascal", "illegal value of LDA");
return -6;
}
@@ -108,35 +108,35 @@ int CHAMELEON_zlascal( cham_uplo_t uplo, int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlascal", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zlascal", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zlascal_Tile_Async( uplo, alpha, &descAt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -183,25 +183,25 @@ int CHAMELEON_zlascal( cham_uplo_t uplo, int M, int N,
int CHAMELEON_zlascal_Tile( cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlascal_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlascal_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zlascal_Tile_Async( uplo, alpha, A, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -238,20 +238,20 @@ int CHAMELEON_zlascal_Tile_Async( cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t descA;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlascal_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlascal_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zlascal_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zlascal_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zlascal_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zlascal_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -259,25 +259,25 @@ int CHAMELEON_zlascal_Tile_Async( cham_uplo_t uplo,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlascal_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zlascal_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
} else {
descA = *A;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower) && (uplo != ChamUpperLower)) {
- morse_error("CHAMELEON_zlascal", "illegal value of uplo");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlascal", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (descA.i%descA.mb != 0) || (descA.j%descA.nb != 0) ) {
- morse_error("CHAMELEON_zlascal", "start indexes have to be multiple of tile size");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlascal", "start indexes have to be multiple of tile size");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
@@ -287,7 +287,7 @@ int CHAMELEON_zlascal_Tile_Async( cham_uplo_t uplo,
return CHAMELEON_SUCCESS;
}
- morse_pzlascal( uplo, alpha, A, sequence, request );
+ chameleon_pzlascal( uplo, alpha, A, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zlaset.c b/compute/zlaset.c
index 41eb92036..3a489215d 100644
--- a/compute/zlaset.c
+++ b/compute/zlaset.c
@@ -76,33 +76,33 @@ int CHAMELEON_zlaset( cham_uplo_t uplo, int M, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlaset", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlaset", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ( (uplo != ChamUpperLower) &&
(uplo != ChamUpper) &&
(uplo != ChamLower) ) {
- morse_error("CHAMELEON_zlaset", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zlaset", "illegal value of uplo");
return -1;
}
if (M < 0) {
- morse_error("CHAMELEON_zlaset", "illegal value of M");
+ chameleon_error("CHAMELEON_zlaset", "illegal value of M");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_zlaset", "illegal value of N");
+ chameleon_error("CHAMELEON_zlaset", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zlaset", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zlaset", "illegal value of LDA");
return -5;
}
@@ -111,34 +111,34 @@ int CHAMELEON_zlaset( cham_uplo_t uplo, int M, int N,
return (double)0.0;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlaset", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zlaset", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zlaset_Tile_Async( uplo, alpha, beta, &descAt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return CHAMELEON_SUCCESS;
}
@@ -183,25 +183,25 @@ int CHAMELEON_zlaset_Tile( cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t beta,
CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlaset_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlaset_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zlaset_Tile_Async( uplo, alpha, beta, A, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -237,19 +237,19 @@ int CHAMELEON_zlaset_Tile_Async( cham_uplo_t uplo,
CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlaset_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlaset_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zlaset_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zlaset_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zlaset_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zlaset_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -257,24 +257,24 @@ int CHAMELEON_zlaset_Tile_Async( cham_uplo_t uplo,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlaset_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zlaset_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zlaset_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlaset_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ( (uplo != ChamUpperLower) &&
(uplo != ChamUpper) &&
(uplo != ChamLower) ) {
- morse_error("CHAMELEON_zlaset_Tile_Async", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zlaset_Tile_Async", "illegal value of uplo");
return -1;
}
/* Quick return */
@@ -282,7 +282,7 @@ int CHAMELEON_zlaset_Tile_Async( cham_uplo_t uplo,
return CHAMELEON_SUCCESS;
}
- morse_pzlaset( uplo, alpha, beta, A, sequence, request );
+ chameleon_pzlaset( uplo, alpha, beta, A, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zlauum.c b/compute/zlauum.c
index f40559e7f..2c2394715 100644
--- a/compute/zlauum.c
+++ b/compute/zlauum.c
@@ -77,27 +77,27 @@ int CHAMELEON_zlauum( cham_uplo_t uplo, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlauum", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlauum", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zlauum", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zlauum", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zlauum", "illegal value of N");
+ chameleon_error("CHAMELEON_zlauum", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zlauum", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zlauum", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -105,35 +105,35 @@ int CHAMELEON_zlauum( cham_uplo_t uplo, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlauum", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zlauum", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zlauum_Tile_Async( uplo, &descAt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -180,25 +180,25 @@ int CHAMELEON_zlauum( cham_uplo_t uplo, int N,
*/
int CHAMELEON_zlauum_Tile( cham_uplo_t uplo, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlauum_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlauum_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zlauum_Tile_Async( uplo, A, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -236,19 +236,19 @@ int CHAMELEON_zlauum_Tile( cham_uplo_t uplo, CHAM_desc_t *A )
int CHAMELEON_zlauum_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zlauum_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zlauum_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zlauum_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zlauum_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zlauum_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zlauum_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -256,29 +256,29 @@ int CHAMELEON_zlauum_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zlauum_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zlauum_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zlauum_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zlauum_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zlauum_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zlauum_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
/* Quick return */
/*
if (chameleon_max(N, 0) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pzlauum( uplo, A, sequence, request );
+ chameleon_pzlauum( uplo, A, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zplghe.c b/compute/zplghe.c
index bf30388b9..95e0b8359 100644
--- a/compute/zplghe.c
+++ b/compute/zplghe.c
@@ -76,23 +76,23 @@ int CHAMELEON_zplghe( double bump, cham_uplo_t uplo, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zplghe", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zplghe", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (N < 0) {
- morse_error("CHAMELEON_zplghe", "illegal value of N");
+ chameleon_error("CHAMELEON_zplghe", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zplghe", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zplghe", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -100,34 +100,34 @@ int CHAMELEON_zplghe( double bump, cham_uplo_t uplo, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zplghe", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zplghe", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescOutput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescOutput, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zplghe_Tile_Async( bump, uplo, &descAt, seed, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescOutput, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -176,25 +176,25 @@ int CHAMELEON_zplghe( double bump, cham_uplo_t uplo, int N,
int CHAMELEON_zplghe_Tile( double bump, cham_uplo_t uplo, CHAM_desc_t *A,
unsigned long long int seed )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zplghe_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zplghe_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zplghe_Tile_Async( bump, uplo, A, seed, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -234,19 +234,19 @@ int CHAMELEON_zplghe_Tile_Async( double bump,
RUNTIME_sequence_t *sequence,
RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zplghe_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zplghe_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zplghe_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zplghe_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zplghe_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zplghe_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -254,25 +254,25 @@ int CHAMELEON_zplghe_Tile_Async( double bump,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zplghe_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zplghe_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zplghe_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zplghe_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
if (chameleon_min( A->m, A->n ) == 0)
return CHAMELEON_SUCCESS;
- morse_pzplghe( bump, uplo, A, seed, sequence, request );
+ chameleon_pzplghe( bump, uplo, A, seed, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zplgsy.c b/compute/zplgsy.c
index 72776344e..4c5d38d5f 100644
--- a/compute/zplgsy.c
+++ b/compute/zplgsy.c
@@ -76,23 +76,23 @@ int CHAMELEON_zplgsy( CHAMELEON_Complex64_t bump, cham_uplo_t uplo, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zplgsy", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zplgsy", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (N < 0) {
- morse_error("CHAMELEON_zplgsy", "illegal value of N");
+ chameleon_error("CHAMELEON_zplgsy", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zplgsy", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zplgsy", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -100,34 +100,34 @@ int CHAMELEON_zplgsy( CHAMELEON_Complex64_t bump, cham_uplo_t uplo, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zplgsy", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zplgsy", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescOutput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescOutput, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zplgsy_Tile_Async( bump, uplo, &descAt, seed, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescOutput, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -177,25 +177,25 @@ int CHAMELEON_zplgsy_Tile( CHAMELEON_Complex64_t bump, cham_uplo_t uplo,
CHAM_desc_t *A,
unsigned long long int seed )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zplgsy_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zplgsy_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zplgsy_Tile_Async( bump, uplo, A, seed, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -236,19 +236,19 @@ int CHAMELEON_zplgsy_Tile_Async( CHAMELEON_Complex64_t bump,
RUNTIME_sequence_t *sequence,
RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zplgsy_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zplgsy_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zplgsy_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zplgsy_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zplgsy_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zplgsy_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -256,25 +256,25 @@ int CHAMELEON_zplgsy_Tile_Async( CHAMELEON_Complex64_t bump,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zplgsy_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zplgsy_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zplgsy_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zplgsy_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
if (chameleon_min( A->m, A->n ) == 0)
return CHAMELEON_SUCCESS;
- morse_pzplgsy( bump, uplo, A, seed, sequence, request );
+ chameleon_pzplgsy( bump, uplo, A, seed, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zplrnt.c b/compute/zplrnt.c
index 0cc1daf88..43e47a7a2 100644
--- a/compute/zplrnt.c
+++ b/compute/zplrnt.c
@@ -70,27 +70,27 @@ int CHAMELEON_zplrnt( int M, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zplrnt", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zplrnt", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zplrnt", "illegal value of M");
+ chameleon_error("CHAMELEON_zplrnt", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zplrnt", "illegal value of N");
+ chameleon_error("CHAMELEON_zplrnt", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zplrnt", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zplrnt", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -98,34 +98,34 @@ int CHAMELEON_zplrnt( int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zplrnt", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zplrnt", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescOutput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescOutput, ChamUpperLower,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zplrnt_Tile_Async( &descAt, seed, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescOutput, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -167,25 +167,25 @@ int CHAMELEON_zplrnt( int M, int N,
int CHAMELEON_zplrnt_Tile( CHAM_desc_t *A,
unsigned long long int seed )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zplrnt_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zplrnt_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zplrnt_Tile_Async( A, seed, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -224,19 +224,19 @@ int CHAMELEON_zplrnt_Tile_Async( CHAM_desc_t *A,
RUNTIME_sequence_t *sequence,
RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zplrnt_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zplrnt_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zplrnt_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zplrnt_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zplrnt_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zplrnt_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -244,25 +244,25 @@ int CHAMELEON_zplrnt_Tile_Async( CHAM_desc_t *A,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zplrnt_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zplrnt_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zplrnt_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zplrnt_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
if (chameleon_min( A->m, A->n ) == 0)
return CHAMELEON_SUCCESS;
- morse_pzplrnt( A, seed, sequence, request );
+ chameleon_pzplrnt( A, seed, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zposv.c b/compute/zposv.c
index e3c629a27..e09fad9fb 100644
--- a/compute/zposv.c
+++ b/compute/zposv.c
@@ -96,36 +96,36 @@ int CHAMELEON_zposv( cham_uplo_t uplo, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zposv", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zposv", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zposv", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zposv", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zposv", "illegal value of N");
+ chameleon_error("CHAMELEON_zposv", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zposv", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zposv", "illegal value of NRHS");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zposv", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zposv", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zposv", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zposv", "illegal value of LDB");
return -7;
}
/* Quick return - currently NOT equivalent to LAPACK's
@@ -134,40 +134,40 @@ int CHAMELEON_zposv( cham_uplo_t uplo, int N, int NRHS,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZPOSV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZPOSV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zposv", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zposv", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zposv_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
/**
@@ -222,26 +222,26 @@ int CHAMELEON_zposv( cham_uplo_t uplo, int N, int NRHS,
*/
int CHAMELEON_zposv_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zposv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zposv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zposv_Tile_Async( uplo, A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -277,19 +277,19 @@ int CHAMELEON_zposv_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
int CHAMELEON_zposv_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zposv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zposv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zposv_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zposv_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zposv_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zposv_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -297,26 +297,26 @@ int CHAMELEON_zposv_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zposv_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zposv_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zposv_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zposv_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zposv_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zposv_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zposv_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zposv_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
/* Quick return - currently NOT equivalent to LAPACK's
* LAPACK does not have such check for DPOSV */
@@ -324,11 +324,11 @@ int CHAMELEON_zposv_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B
if (chameleon_min(N, NRHS) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pzpotrf( uplo, A, sequence, request );
+ chameleon_pzpotrf( uplo, A, sequence, request );
- morse_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamConjTrans : ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamConjTrans : ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
- morse_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamNoTrans : ChamConjTrans, ChamNonUnit, 1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamNoTrans : ChamConjTrans, ChamNonUnit, 1.0, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zpotrf.c b/compute/zpotrf.c
index c26a5c285..7ce17be82 100644
--- a/compute/zpotrf.c
+++ b/compute/zpotrf.c
@@ -83,27 +83,27 @@ int CHAMELEON_zpotrf( cham_uplo_t uplo, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotrf", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotrf", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zpotrf", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zpotrf", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zpotrf", "illegal value of N");
+ chameleon_error("CHAMELEON_zpotrf", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zpotrf", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zpotrf", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -111,35 +111,35 @@ int CHAMELEON_zpotrf( cham_uplo_t uplo, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotrf", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zpotrf", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zpotrf_Tile_Async( uplo, &descAt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -192,25 +192,25 @@ int CHAMELEON_zpotrf( cham_uplo_t uplo, int N,
*/
int CHAMELEON_zpotrf_Tile( cham_uplo_t uplo, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotrf_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotrf_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zpotrf_Tile_Async( uplo, A, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -247,19 +247,19 @@ int CHAMELEON_zpotrf_Tile( cham_uplo_t uplo, CHAM_desc_t *A )
int CHAMELEON_zpotrf_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotrf_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotrf_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zpotrf_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zpotrf_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zpotrf_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zpotrf_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -267,29 +267,29 @@ int CHAMELEON_zpotrf_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotrf_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zpotrf_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zpotrf_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zpotrf_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zpotrf_Tile_Async", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zpotrf_Tile_Async", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
/* Quick return */
/*
if (chameleon_max(N, 0) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pzpotrf( uplo, A, sequence, request );
+ chameleon_pzpotrf( uplo, A, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zpotri.c b/compute/zpotri.c
index b9f22b37f..11c02ea4e 100644
--- a/compute/zpotri.c
+++ b/compute/zpotri.c
@@ -74,27 +74,27 @@ int CHAMELEON_zpotri( cham_uplo_t uplo, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotri", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotri", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zpotri", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zpotri", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zpotri", "illegal value of N");
+ chameleon_error("CHAMELEON_zpotri", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zpotri", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zpotri", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -102,35 +102,35 @@ int CHAMELEON_zpotri( cham_uplo_t uplo, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotri", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zpotri", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zpotri_Tile_Async( uplo, &descAt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -180,25 +180,25 @@ int CHAMELEON_zpotri( cham_uplo_t uplo, int N,
*/
int CHAMELEON_zpotri_Tile( cham_uplo_t uplo, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotri_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotri_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zpotri_Tile_Async( uplo, A, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -236,19 +236,19 @@ int CHAMELEON_zpotri_Tile( cham_uplo_t uplo, CHAM_desc_t *A )
int CHAMELEON_zpotri_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotri_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotri_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zpotri_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zpotri_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zpotri_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zpotri_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -256,31 +256,31 @@ int CHAMELEON_zpotri_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotri_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zpotri_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zpotri_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zpotri_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zpotri_Tile_Async", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zpotri_Tile_Async", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
/* Quick return */
/*
if (chameleon_max(N, 0) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pztrtri( uplo, ChamNonUnit, A, sequence, request );
+ chameleon_pztrtri( uplo, ChamNonUnit, A, sequence, request );
- morse_pzlauum( uplo, A, sequence, request );
+ chameleon_pzlauum( uplo, A, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zpotrimm.c b/compute/zpotrimm.c
index 73728c8df..db73bdf2d 100644
--- a/compute/zpotrimm.c
+++ b/compute/zpotrimm.c
@@ -76,37 +76,37 @@ int CHAMELEON_zpotrimm( cham_uplo_t uplo, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
CHAM_desc_t descCl, descCt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotrimm", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotrimm", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zpotrimm", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zpotrimm", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zpotrimm", "illegal value of N");
+ chameleon_error("CHAMELEON_zpotrimm", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zpotrimm", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zpotrimm", "illegal value of LDA");
return -4;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zpotrimm", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zpotrimm", "illegal value of LDB");
return -6;
}
if (LDC < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zpotrimm", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zpotrimm", "illegal value of LDC");
return -8;
}
/* Quick return */
@@ -114,45 +114,45 @@ int CHAMELEON_zpotrimm( cham_uplo_t uplo, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotrimm", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zpotrimm", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInput, ChamUpperLower,
B, NB, NB, LDB, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, ChamUpperLower,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zpotrimm_Tile_Async( uplo, &descAt, &descBt, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -202,17 +202,17 @@ int CHAMELEON_zpotrimm( cham_uplo_t uplo, int N,
*/
int CHAMELEON_zpotrimm_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotrimm_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotrimm_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zpotrimm_Tile_Async( uplo, A, B, C, sequence, &request );
@@ -220,9 +220,9 @@ int CHAMELEON_zpotrimm_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, C
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -260,19 +260,19 @@ int CHAMELEON_zpotrimm_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, C
int CHAMELEON_zpotrimm_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotrimm_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotrimm_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zpotrimm_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zpotrimm_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zpotrimm_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zpotrimm_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -280,48 +280,48 @@ int CHAMELEON_zpotrimm_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotrimm_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zpotrimm_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotrimm_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zpotrimm_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotrimm_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zpotrimm_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zpotrimm_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zpotrimm_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (B->nb != B->mb) {
- morse_error("CHAMELEON_zpotrimm_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zpotrimm_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (C->nb != C->mb) {
- morse_error("CHAMELEON_zpotrimm_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zpotrimm_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zpotrimm_Tile_Async", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zpotrimm_Tile_Async", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
/* Quick return */
/*
if (chameleon_max(N, 0) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pzpotrimm( uplo, A, B, C, sequence, request );
+ chameleon_pzpotrimm( uplo, A, B, C, sequence, request );
/*
- morse_pztrtri( uplo, ChamNonUnit, A, sequence, request );
- morse_pzlauum( uplo, A, sequence, request );
+ chameleon_pztrtri( uplo, ChamNonUnit, A, sequence, request );
+ chameleon_pzlauum( uplo, A, sequence, request );
*/
return CHAMELEON_SUCCESS;
diff --git a/compute/zpotrs.c b/compute/zpotrs.c
index 46e2e82e9..0db1d651e 100644
--- a/compute/zpotrs.c
+++ b/compute/zpotrs.c
@@ -81,36 +81,36 @@ int CHAMELEON_zpotrs( cham_uplo_t uplo, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotrs", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotrs", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zpotrs", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zpotrs", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zpotrs", "illegal value of N");
+ chameleon_error("CHAMELEON_zpotrs", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zpotrs", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zpotrs", "illegal value of NRHS");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zpotrs", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zpotrs", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zpotrs", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zpotrs", "illegal value of LDB");
return -7;
}
/* Quick return */
@@ -118,40 +118,40 @@ int CHAMELEON_zpotrs( cham_uplo_t uplo, int N, int NRHS,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZPOSV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZPOSV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotrs", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zpotrs", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zpotrs_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -198,26 +198,26 @@ int CHAMELEON_zpotrs( cham_uplo_t uplo, int N, int NRHS,
*/
int CHAMELEON_zpotrs_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotrs_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotrs_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zpotrs_Tile_Async( uplo, A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -254,19 +254,19 @@ int CHAMELEON_zpotrs_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
int CHAMELEON_zpotrs_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zpotrs_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zpotrs_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zpotrs_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zpotrs_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zpotrs_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zpotrs_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -274,35 +274,35 @@ int CHAMELEON_zpotrs_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotrs_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zpotrs_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zpotrs_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zpotrs_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zpotrs_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zpotrs_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zpotrs_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zpotrs_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
/* Quick return */
/*
if (chameleon_min(N, NRHS) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamConjTrans : ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamConjTrans : ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
- morse_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamNoTrans : ChamConjTrans, ChamNonUnit, 1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamNoTrans : ChamConjTrans, ChamNonUnit, 1.0, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zsymm.c b/compute/zsymm.c
index 1513bc8c0..6a694d61a 100644
--- a/compute/zsymm.c
+++ b/compute/zsymm.c
@@ -112,44 +112,44 @@ int CHAMELEON_zsymm( cham_side_t side, cham_uplo_t uplo, int M, int N,
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
CHAM_desc_t descCl, descCt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsymm", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsymm", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ( (side != ChamLeft) && (side != ChamRight) ){
- morse_error("CHAMELEON_zsymm", "illegal value of side");
+ chameleon_error("CHAMELEON_zsymm", "illegal value of side");
return -1;
}
if ((uplo != ChamLower) && (uplo != ChamUpper)) {
- morse_error("CHAMELEON_zsymm", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zsymm", "illegal value of uplo");
return -2;
}
Am = ( side == ChamLeft ) ? M : N;
if (M < 0) {
- morse_error("CHAMELEON_zsymm", "illegal value of M");
+ chameleon_error("CHAMELEON_zsymm", "illegal value of M");
return -3;
}
if (N < 0) {
- morse_error("CHAMELEON_zsymm", "illegal value of N");
+ chameleon_error("CHAMELEON_zsymm", "illegal value of N");
return -4;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zsymm", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zsymm", "illegal value of LDA");
return -7;
}
if (LDB < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zsymm", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zsymm", "illegal value of LDB");
return -9;
}
if (LDC < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zsymm", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zsymm", "illegal value of LDC");
return -12;
}
@@ -159,45 +159,45 @@ int CHAMELEON_zsymm( cham_side_t side, cham_uplo_t uplo, int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZSYMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZSYMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsymm", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zsymm", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, Am, Am, Am, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInput, ChamUpperLower,
B, NB, NB, LDB, N, M, N, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, ChamUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zsymm_Tile_Async( side, uplo, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -264,17 +264,17 @@ int CHAMELEON_zsymm_Tile( cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsymm_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsymm_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zsymm_Tile_Async(side, uplo, alpha, A, B, beta, C, sequence, &request );
@@ -282,9 +282,9 @@ int CHAMELEON_zsymm_Tile( cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -321,19 +321,19 @@ int CHAMELEON_zsymm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsymm_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsymm_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zsymm_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zsymm_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zsymm_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zsymm_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -341,72 +341,72 @@ int CHAMELEON_zsymm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsymm_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsymm_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsymm_Tile_Async", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsymm_Tile_Async", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsymm_Tile_Async", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsymm_Tile_Async", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ( (side != ChamLeft) && (side != ChamRight) ){
- morse_error("CHAMELEON_zsymm_Tile_Async", "illegal value of side");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zsymm_Tile_Async", "illegal value of side");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((uplo != ChamLower) && (uplo != ChamUpper)) {
- morse_error("CHAMELEON_zsymm_Tile_Async", "illegal value of uplo");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_zsymm_Tile_Async", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -2);
}
/* Check matrices sizes */
if ( (B->m != C->m) || (B->n != C->n) ) {
- morse_error("CHAMELEON_zsymm_Tile_Async", "B and C must have the same size");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsymm_Tile_Async", "B and C must have the same size");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (A->m != A->n) ||
( (side == ChamLeft) && (A->m != B->m ) ) ||
( (side == ChamRight) && (A->m != B->n ) ) ) {
- morse_error("CHAMELEON_zsymm_Tile_Async", "Matrix A must be square of size M or N regarding side.");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsymm_Tile_Async", "Matrix A must be square of size M or N regarding side.");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check tiles sizes */
if ( (B->mb != C->mb) || (B->nb != C->nb) ) {
- morse_error("CHAMELEON_zsymm_Tile_Async", "B and C must have the same tile sizes");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsymm_Tile_Async", "B and C must have the same tile sizes");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (A->mb != A->nb) ||
( (side == ChamLeft) && (A->mb != B->mb ) ) ||
( (side == ChamRight) && (A->mb != B->nb ) ) ) {
- morse_error("CHAMELEON_zsymm_Tile_Async", "Matrix A must be square with square tiles wich fits the reagding tile size of B and C");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsymm_Tile_Async", "Matrix A must be square with square tiles wich fits the reagding tile size of B and C");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check submatrix starting point */
/* if ( (B->i != C->i) || (B->j != C->j) ) { */
- /* morse_error("CHAMELEON_zsymm_Tile_Async", "B and C submatrices doesn't match"); */
- /* return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE); */
+ /* chameleon_error("CHAMELEON_zsymm_Tile_Async", "B and C submatrices doesn't match"); */
+ /* return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE); */
/* } */
/* if ( (A->i != A->j) || */
/* ( (side == ChamLeft) && (A->i != B->i ) ) || */
/* ( (side == ChamRight) && (A->i != B->j ) ) ) { */
- /* morse_error("CHAMELEON_zsymm_Tile_Async", "Submatrix A must start on diagnonal and match submatrices B and C."); */
- /* return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE); */
+ /* chameleon_error("CHAMELEON_zsymm_Tile_Async", "Submatrix A must start on diagnonal and match submatrices B and C."); */
+ /* return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE); */
/* } */
if( (A->i != 0) || (A->j != 0) ||
(B->i != 0) || (B->j != 0) ||
(C->i != 0) || (C->j != 0) ) {
- morse_error("CHAMELEON_zhemm_Tile_Async", "Submatrices are not supported for now");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zhemm_Tile_Async", "Submatrices are not supported for now");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
@@ -416,7 +416,7 @@ int CHAMELEON_zsymm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
return CHAMELEON_SUCCESS;
}
- morse_pzsymm( side, uplo, alpha, A, B, beta, C, sequence, request );
+ chameleon_pzsymm( side, uplo, alpha, A, B, beta, C, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zsyr2k.c b/compute/zsyr2k.c
index 508055b83..7b1daed5e 100644
--- a/compute/zsyr2k.c
+++ b/compute/zsyr2k.c
@@ -113,23 +113,23 @@ int CHAMELEON_zsyr2k( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
CHAM_desc_t descCl, descCt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsyr2k", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsyr2k", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsyr2k", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zsyr2k", "illegal value of uplo");
return -1;
}
if ((trans != ChamNoTrans) && (trans != ChamTrans)) {
- morse_error("CHAMELEON_zsyr2k", "illegal value of trans");
+ chameleon_error("CHAMELEON_zsyr2k", "illegal value of trans");
return -2;
}
if ( trans == ChamNoTrans ) {
@@ -138,23 +138,23 @@ int CHAMELEON_zsyr2k( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
Am = K; An = N;
}
if (N < 0) {
- morse_error("CHAMELEON_zsyr2k", "illegal value of N");
+ chameleon_error("CHAMELEON_zsyr2k", "illegal value of N");
return -3;
}
if (K < 0) {
- morse_error("CHAMELEON_zsyr2k", "illegal value of K");
+ chameleon_error("CHAMELEON_zsyr2k", "illegal value of K");
return -4;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zsyr2k", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zsyr2k", "illegal value of LDA");
return -7;
}
if (LDB < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zsyr2k", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zsyr2k", "illegal value of LDB");
return -9;
}
if (LDC < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zsyr2k", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zsyr2k", "illegal value of LDC");
return -12;
}
@@ -164,45 +164,45 @@ int CHAMELEON_zsyr2k( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZSYRK, N, K, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZSYRK, N, K, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsyr2k", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zsyr2k", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInput, ChamUpperLower,
B, NB, NB, LDB, An, Am, An, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zsyr2k_Tile_Async( uplo, trans, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -264,17 +264,17 @@ int CHAMELEON_zsyr2k_Tile( cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsyr2k_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsyr2k_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zsyr2k_Tile_Async( uplo, trans, alpha, A, B, beta, C, sequence, &request );
@@ -282,9 +282,9 @@ int CHAMELEON_zsyr2k_Tile( cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -321,21 +321,21 @@ int CHAMELEON_zsyr2k_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int N, K;
int Am, An, Amb;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsyr2k_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsyr2k_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zsyr2k_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zsyr2k_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zsyr2k_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zsyr2k_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -343,30 +343,30 @@ int CHAMELEON_zsyr2k_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsyr2k_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsyr2k_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsyr2k_Tile_Async", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsyr2k_Tile_Async", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsyr2k_Tile_Async", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsyr2k_Tile_Async", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsyr2k", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zsyr2k", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((trans != ChamNoTrans) && (trans != ChamTrans)) {
- morse_error("CHAMELEON_zsyr2k", "illegal value of trans");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_zsyr2k", "illegal value of trans");
+ return chameleon_request_fail(sequence, request, -2);
}
if ( trans == ChamNoTrans ) {
@@ -380,20 +380,20 @@ int CHAMELEON_zsyr2k_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
}
if (C->mb != C->nb) {
- morse_error("CHAMELEON_zsyr2k_Tile_Async", "only square tiles for C are supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsyr2k_Tile_Async", "only square tiles for C are supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (B->mb != A->mb) || (B->nb != A->nb) || (Amb != C->mb) ){
- morse_error("CHAMELEON_zsyr2k_Tile_Async", "tile sizes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsyr2k_Tile_Async", "tile sizes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (C->m != C->n) {
- morse_error("CHAMELEON_zsyr2k_Tile_Async", "only square matrix C is supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsyr2k_Tile_Async", "only square matrix C is supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (B->m != A->m) || (B->n != A->n) || (Am != C->m) ){
- morse_error("CHAMELEON_zsyr2k_Tile_Async", "sizes of matrices have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsyr2k_Tile_Async", "sizes of matrices have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
N = C->m;
@@ -404,7 +404,7 @@ int CHAMELEON_zsyr2k_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
((alpha == (CHAMELEON_Complex64_t)0.0 || K == 0) && beta == (CHAMELEON_Complex64_t)1.0))
return CHAMELEON_SUCCESS;
- morse_pzsyr2k( uplo, trans, alpha, A, B, beta, C, sequence, request );
+ chameleon_pzsyr2k( uplo, trans, alpha, A, B, beta, C, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zsyrk.c b/compute/zsyrk.c
index 51377d7d6..403f8acd7 100644
--- a/compute/zsyrk.c
+++ b/compute/zsyrk.c
@@ -102,23 +102,23 @@ int CHAMELEON_zsyrk( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
int status;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descCl, descCt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsyrk", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsyrk", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsyrk", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zsyrk", "illegal value of uplo");
return -1;
}
if ((trans != ChamNoTrans) && (trans != ChamTrans)) {
- morse_error("CHAMELEON_zsyrk", "illegal value of trans");
+ chameleon_error("CHAMELEON_zsyrk", "illegal value of trans");
return -2;
}
if ( trans == ChamNoTrans ) {
@@ -127,19 +127,19 @@ int CHAMELEON_zsyrk( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
Am = K; An = N;
}
if (N < 0) {
- morse_error("CHAMELEON_zsyrk", "illegal value of N");
+ chameleon_error("CHAMELEON_zsyrk", "illegal value of N");
return -3;
}
if (K < 0) {
- morse_error("CHAMELEON_zsyrk", "illegal value of K");
+ chameleon_error("CHAMELEON_zsyrk", "illegal value of K");
return -4;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zsyrk", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zsyrk", "illegal value of LDA");
return -7;
}
if (LDC < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zsyrk", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zsyrk", "illegal value of LDC");
return -10;
}
@@ -149,40 +149,40 @@ int CHAMELEON_zsyrk( cham_uplo_t uplo, cham_trans_t trans, int N, int K,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZSYRK, N, K, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZSYRK, N, K, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsyrk", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zsyrk", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpperLower,
A, NB, NB, LDA, An, Am, An, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, uplo,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zsyrk_Tile_Async( uplo, trans, alpha, &descAt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -240,26 +240,26 @@ int CHAMELEON_zsyrk_Tile( cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsyrk_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsyrk_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zsyrk_Tile_Async( uplo, trans, alpha, A, beta, C, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -296,21 +296,21 @@ int CHAMELEON_zsyrk_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t beta, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int N, K;
int Am, An, Amb;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsyrk_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsyrk_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zsyrk_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zsyrk_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zsyrk_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zsyrk_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -318,26 +318,26 @@ int CHAMELEON_zsyrk_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsyrk_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsyrk_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsyrk_Tile_Async", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsyrk_Tile_Async", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsyrk", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zsyrk", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((trans != ChamNoTrans) && (trans != ChamTrans)) {
- morse_error("CHAMELEON_zsyrk", "illegal value of transA");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_zsyrk", "illegal value of transA");
+ return chameleon_request_fail(sequence, request, -2);
}
if ( trans == ChamNoTrans ) {
@@ -351,20 +351,20 @@ int CHAMELEON_zsyrk_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
}
if (C->mb != C->nb) {
- morse_error("CHAMELEON_zsyrk_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsyrk_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (Amb != C->mb) {
- morse_error("CHAMELEON_zsyrk_Tile_Async", "tile sizes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsyrk_Tile_Async", "tile sizes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (C->m != C->n) {
- morse_error("CHAMELEON_zsyrk_Tile_Async", "only square matrix C is supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsyrk_Tile_Async", "only square matrix C is supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (Am != C->m) {
- morse_error("CHAMELEON_zsyrk_Tile_Async", "sizes of matrices have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsyrk_Tile_Async", "sizes of matrices have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
N = C->m;
@@ -375,7 +375,7 @@ int CHAMELEON_zsyrk_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
((alpha == (CHAMELEON_Complex64_t)0.0 || K == 0) && beta == (CHAMELEON_Complex64_t)1.0))
return CHAMELEON_SUCCESS;
- morse_pzsyrk( uplo, trans, alpha, A, beta, C, sequence, request );
+ chameleon_pzsyrk( uplo, trans, alpha, A, beta, C, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zsysv.c b/compute/zsysv.c
index c5e6d3a39..f82d714e3 100644
--- a/compute/zsysv.c
+++ b/compute/zsysv.c
@@ -93,36 +93,36 @@ int CHAMELEON_zsysv( cham_uplo_t uplo, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsysv", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsysv", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsysv", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zsysv", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zsysv", "illegal value of N");
+ chameleon_error("CHAMELEON_zsysv", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zsysv", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zsysv", "illegal value of NRHS");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zsysv", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zsysv", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zsysv", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zsysv", "illegal value of LDB");
return -7;
}
/* Quick return - currently NOT equivalent to LAPACK's
@@ -131,40 +131,40 @@ int CHAMELEON_zsysv( cham_uplo_t uplo, int N, int NRHS,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZSYSV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZSYSV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsysv", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zsysv", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zsysv_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
/**
@@ -215,26 +215,26 @@ int CHAMELEON_zsysv( cham_uplo_t uplo, int N, int NRHS,
*/
int CHAMELEON_zsysv_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsysv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsysv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zsysv_Tile_Async( uplo, A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -268,19 +268,19 @@ int CHAMELEON_zsysv_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
int CHAMELEON_zsysv_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsysv_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsysv_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zsysv_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zsysv_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zsysv_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zsysv_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -288,26 +288,26 @@ int CHAMELEON_zsysv_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsysv_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsysv_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsysv_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsysv_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zsysv_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsysv_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsysv_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zsysv_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
/* Quick return - currently NOT equivalent to LAPACK's
* LAPACK does not have such check for Dsysv */
@@ -315,11 +315,11 @@ int CHAMELEON_zsysv_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B
if (chameleon_min(N, NRHS) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pzsytrf( uplo, A, sequence, request );
+ chameleon_pzsytrf( uplo, A, sequence, request );
- morse_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamTrans : ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamTrans : ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
- morse_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamNoTrans : ChamTrans, ChamNonUnit, 1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamNoTrans : ChamTrans, ChamNonUnit, 1.0, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zsytrf.c b/compute/zsytrf.c
index 1ef9e2a9e..95fb044b2 100644
--- a/compute/zsytrf.c
+++ b/compute/zsytrf.c
@@ -78,27 +78,27 @@ int CHAMELEON_zsytrf( cham_uplo_t uplo, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsytrf", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsytrf", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsytrf", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zsytrf", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zsytrf", "illegal value of N");
+ chameleon_error("CHAMELEON_zsytrf", "illegal value of N");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zsytrf", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zsytrf", "illegal value of LDA");
return -4;
}
/* Quick return */
@@ -106,35 +106,35 @@ int CHAMELEON_zsytrf( cham_uplo_t uplo, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZSYSV, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZSYSV, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsytrf", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zsytrf", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zsytrf_Tile_Async( uplo, &descAt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -181,25 +181,25 @@ int CHAMELEON_zsytrf( cham_uplo_t uplo, int N,
*/
int CHAMELEON_zsytrf_Tile( cham_uplo_t uplo, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsytrf_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsytrf_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zsytrf_Tile_Async( uplo, A, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -233,19 +233,19 @@ int CHAMELEON_zsytrf_Tile( cham_uplo_t uplo, CHAM_desc_t *A )
int CHAMELEON_zsytrf_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsytrf_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsytrf_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zsytrf_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zsytrf_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zsytrf_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zsytrf_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -253,29 +253,29 @@ int CHAMELEON_zsytrf_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsytrf_Tile_Async", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsytrf_Tile_Async", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_zsytrf_Tile_Async", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsytrf_Tile_Async", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsytrf_Tile_Async", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zsytrf_Tile_Async", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
/* Quick return */
/*
if (chameleon_max(N, 0) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pzsytrf( uplo, A, sequence, request );
+ chameleon_pzsytrf( uplo, A, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zsytrs.c b/compute/zsytrs.c
index 1d2a08a46..26ad14b34 100644
--- a/compute/zsytrs.c
+++ b/compute/zsytrs.c
@@ -80,36 +80,36 @@ int CHAMELEON_zsytrs( cham_uplo_t uplo, int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsytrs", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsytrs", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsytrs", "illegal value of uplo");
+ chameleon_error("CHAMELEON_zsytrs", "illegal value of uplo");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_zsytrs", "illegal value of N");
+ chameleon_error("CHAMELEON_zsytrs", "illegal value of N");
return -2;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_zsytrs", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_zsytrs", "illegal value of NRHS");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zsytrs", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zsytrs", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_zsytrs", "illegal value of LDB");
+ chameleon_error("CHAMELEON_zsytrs", "illegal value of LDB");
return -7;
}
/* Quick return */
@@ -117,40 +117,40 @@ int CHAMELEON_zsytrs( cham_uplo_t uplo, int N, int NRHS,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZSYSV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZSYSV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsytrs", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zsytrs", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_zsytrs_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -194,26 +194,26 @@ int CHAMELEON_zsytrs( cham_uplo_t uplo, int N, int NRHS,
*/
int CHAMELEON_zsytrs_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsytrs_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsytrs_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zsytrs_Tile_Async( uplo, A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -247,19 +247,19 @@ int CHAMELEON_zsytrs_Tile( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B )
int CHAMELEON_zsytrs_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zsytrs_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zsytrs_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zsytrs_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zsytrs_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zsytrs_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zsytrs_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -267,35 +267,35 @@ int CHAMELEON_zsytrs_Tile_Async( cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsytrs_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsytrs_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zsytrs_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zsytrs_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_zsytrs_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zsytrs_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_zsytrs_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_zsytrs_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
/* Quick return */
/*
if (chameleon_min(N, NRHS) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamTrans : ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamTrans : ChamNoTrans, ChamNonUnit, 1.0, A, B, sequence, request );
- morse_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamNoTrans : ChamTrans, ChamNonUnit, 1.0, A, B, sequence, request );
+ chameleon_pztrsm( ChamLeft, uplo, uplo == ChamUpper ? ChamNoTrans : ChamTrans, ChamNonUnit, 1.0, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/ztile.c b/compute/ztile.c
index a57e6b40d..1a09b2bca 100644
--- a/compute/ztile.c
+++ b/compute/ztile.c
@@ -58,43 +58,43 @@
*/
int CHAMELEON_zLapack_to_Tile( CHAMELEON_Complex64_t *Af77, int LDA, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request;
CHAM_desc_t *B;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zLapack_to_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zLapack_to_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check descriptor for correctness */
- if (morse_desc_check( A ) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zLapack_to_Tile", "invalid descriptor");
+ if (chameleon_desc_check( A ) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zLapack_to_Tile", "invalid descriptor");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
/* Create the B descriptor to handle the Lapack format matrix */
CHAMELEON_Desc_Create_User( &B, Af77, ChamComplexDouble, A->mb, A->nb, A->bsiz,
LDA, A->n, 0, 0, A->m, A->n, 1, 1,
- morse_getaddr_cm, morse_getblkldd_cm, NULL );
+ chameleon_getaddr_cm, chameleon_getblkldd_cm, NULL );
/* Start the computation */
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
- morse_pzlacpy( ChamUpperLower, B, A, sequence, &request );
+ chameleon_pzlacpy( ChamUpperLower, B, A, sequence, &request );
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Destroy temporary B descriptor */
CHAMELEON_Desc_Destroy( &B );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -135,41 +135,41 @@ int CHAMELEON_zLapack_to_Tile( CHAMELEON_Complex64_t *Af77, int LDA, CHAM_desc_t
*/
int CHAMELEON_zTile_to_Lapack( CHAM_desc_t *A, CHAMELEON_Complex64_t *Af77, int LDA )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request;
CHAM_desc_t *B;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zTile_to_Lapack", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zTile_to_Lapack", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check descriptor for correctness */
- if (morse_desc_check( A ) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zTile_to_Lapack", "invalid descriptor");
+ if (chameleon_desc_check( A ) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zTile_to_Lapack", "invalid descriptor");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
/* Create the B descriptor to handle the Lapack format matrix */
CHAMELEON_Desc_Create_User( &B, Af77, ChamComplexDouble, A->mb, A->nb, A->bsiz,
LDA, A->n, 0, 0, A->m, A->n, 1, 1,
- morse_getaddr_cm, morse_getblkldd_cm, NULL );
+ chameleon_getaddr_cm, chameleon_getblkldd_cm, NULL );
/* Start the computation */
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
- morse_pzlacpy( ChamUpperLower, A, B, sequence, &request );
+ chameleon_pzlacpy( ChamUpperLower, A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
CHAMELEON_Desc_Destroy( &B );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
diff --git a/compute/ztpgqrt.c b/compute/ztpgqrt.c
index 51b82c36c..f3a65b6a6 100644
--- a/compute/ztpgqrt.c
+++ b/compute/ztpgqrt.c
@@ -137,7 +137,7 @@ int CHAMELEON_ztpgqrt( int M, int N, int K, int L,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descQ1l, descQ1t;
@@ -146,47 +146,47 @@ int CHAMELEON_ztpgqrt( int M, int N, int K, int L,
CHAM_desc_t descV2l, descV2t;
int minMK = chameleon_min( M, K );
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztpgqrt", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztpgqrt", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_ztpgqrt", "illegal value of M");
+ chameleon_error("CHAMELEON_ztpgqrt", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_ztpgqrt", "illegal value of N");
+ chameleon_error("CHAMELEON_ztpgqrt", "illegal value of N");
return -2;
}
if (K < 0) {
- morse_error("CHAMELEON_ztpgqrt", "illegal value of K");
+ chameleon_error("CHAMELEON_ztpgqrt", "illegal value of K");
return -3;
}
if ((L < 0) || ((L > minMK) && (minMK > 0))) {
- morse_error("CHAMELEON_ztpgqrt", "illegal value of N");
+ chameleon_error("CHAMELEON_ztpgqrt", "illegal value of N");
return -4;
}
if (K != N) {
- morse_error("CHAMELEON_ztpgqrt", "illegal value of K and N. K must be equal to N");
+ chameleon_error("CHAMELEON_ztpgqrt", "illegal value of K and N. K must be equal to N");
return -3;
}
if (LDV1 < chameleon_max(1, K)) {
- morse_error("CHAMELEON_ztpgqrt", "illegal value of LDV1");
+ chameleon_error("CHAMELEON_ztpgqrt", "illegal value of LDV1");
return -6;
}
if (LDV2 < chameleon_max(1, M)) {
- morse_error("CHAMELEON_ztpgqrt", "illegal value of LDV2");
+ chameleon_error("CHAMELEON_ztpgqrt", "illegal value of LDV2");
return -9;
}
if (LDQ1 < chameleon_max(1, K)) {
- morse_error("CHAMELEON_ztpgqrt", "illegal value of LDQ1");
+ chameleon_error("CHAMELEON_ztpgqrt", "illegal value of LDQ1");
return -11;
}
if (LDQ2 < chameleon_max(1, M)) {
- morse_error("CHAMELEON_ztpgqrt", "illegal value of LDQ2");
+ chameleon_error("CHAMELEON_ztpgqrt", "illegal value of LDQ2");
return -13;
}
@@ -195,52 +195,52 @@ int CHAMELEON_ztpgqrt( int M, int N, int K, int L,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, K, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, K, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpgqrt", "morse_tune() failed");
+ chameleon_error("CHAMELEON_ztpgqrt", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descV1l, &descV1t, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descV1l, &descV1t, ChamDescInput, ChamUpperLower,
V1, NB, NB, LDV1, K, M, K, sequence, &request );
- morse_zlap2tile( morse, &descV2l, &descV2t, ChamDescInput, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descV2l, &descV2t, ChamDescInput, ChamUpperLower,
V2, NB, NB, LDV2, K, M, K, sequence, &request );
- morse_zlap2tile( morse, &descQ1l, &descQ1t, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descQ1l, &descQ1t, ChamDescInout, ChamUpperLower,
Q1, NB, NB, LDQ1, N, K, N, sequence, &request );
- morse_zlap2tile( morse, &descQ2l, &descQ2t, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descQ2l, &descQ2t, ChamDescInout, ChamUpperLower,
Q2, NB, NB, LDQ2, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_ztpgqrt_Tile_Async( L, &descV1t, descT1, &descV2t, descT2, &descQ1t, &descQ2t, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descV1l, &descV1t,
+ chameleon_ztile2lap( chamctxt, &descV1l, &descV1t,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descV2l, &descV2t,
+ chameleon_ztile2lap( chamctxt, &descV2l, &descV2t,
ChamDescInput, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descQ1l, &descQ1t,
+ chameleon_ztile2lap( chamctxt, &descQ1l, &descQ1t,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_ztile2lap( morse, &descQ2l, &descQ2t,
+ chameleon_ztile2lap( chamctxt, &descQ2l, &descQ2t,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT1, sequence );
CHAMELEON_Desc_Flush( descT2, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descV1l, &descV1t );
- morse_ztile2lap_cleanup( morse, &descV2l, &descV2t );
- morse_ztile2lap_cleanup( morse, &descQ1l, &descQ1t );
- morse_ztile2lap_cleanup( morse, &descQ2l, &descQ2t );
+ chameleon_ztile2lap_cleanup( chamctxt, &descV1l, &descV1t );
+ chameleon_ztile2lap_cleanup( chamctxt, &descV2l, &descV2t );
+ chameleon_ztile2lap_cleanup( chamctxt, &descQ1l, &descQ1t );
+ chameleon_ztile2lap_cleanup( chamctxt, &descQ2l, &descQ2t );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -276,17 +276,17 @@ int CHAMELEON_ztpgqrt_Tile( int L,
CHAM_desc_t *V2, CHAM_desc_t *T2,
CHAM_desc_t *Q1, CHAM_desc_t *Q2 )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztpgqrt_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztpgqrt_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_ztpgqrt_Tile_Async( L, V1, T1, V2, T2, Q1, Q2, sequence, &request );
@@ -297,9 +297,9 @@ int CHAMELEON_ztpgqrt_Tile( int L,
CHAMELEON_Desc_Flush( Q1, sequence );
CHAMELEON_Desc_Flush( Q2, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -338,20 +338,20 @@ int CHAMELEON_ztpgqrt_Tile_Async( int L,
CHAM_desc_t *Q1, CHAM_desc_t *Q2,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_ztpgqrt_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_ztpgqrt_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_ztpgqrt_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_ztpgqrt_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_ztpgqrt_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_ztpgqrt_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -359,42 +359,42 @@ int CHAMELEON_ztpgqrt_Tile_Async( int L,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(V1) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpgqrt_Tile", "invalid V1 descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(V1) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztpgqrt_Tile", "invalid V1 descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T1) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpgqrt_Tile", "invalid T1 descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T1) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztpgqrt_Tile", "invalid T1 descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(V2) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpgqrt_Tile", "invalid V2 descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(V2) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztpgqrt_Tile", "invalid V2 descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T2) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpgqrt_Tile", "invalid T2 descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T2) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztpgqrt_Tile", "invalid T2 descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(Q1) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpgqrt_Tile", "invalid Q1 descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(Q1) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztpgqrt_Tile", "invalid Q1 descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(Q2) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpgqrt_Tile", "invalid Q2 descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(Q2) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztpgqrt_Tile", "invalid Q2 descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (Q1->nb != Q1->mb) {
- morse_error("CHAMELEON_ztpgqrt_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztpgqrt_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (L != 0) && (((Q2->m - L) % Q2->mb) != 0) ) {
- morse_error("CHAMELEON_ztpgqrt_Tile", "Triangular part must be aligned with tiles");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztpgqrt_Tile", "Triangular part must be aligned with tiles");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
#if defined(CHAMELEON_COPY_DIAG)
{
@@ -404,18 +404,18 @@ int CHAMELEON_ztpgqrt_Tile_Async( int L,
} else {
minMT = V1->mt;
}
- morse_zdesc_alloc_diag(D, V1->mb, V1->nb, minMT*V1->mb, V1->nb, 0, 0, minMT*V1->mb, V1->nb, V1->p, V1->q);
+ chameleon_zdesc_alloc_diag(D, V1->mb, V1->nb, minMT*V1->mb, V1->nb, 0, 0, minMT*V1->mb, V1->nb, V1->p, V1->q);
Dptr = &D;
}
#endif
- /* if (morse->householder == ChamFlatHouseholder) { */
- morse_pzlaset( ChamUpperLower, 0., 1., Q1, sequence, request );
- morse_pzlaset( ChamUpperLower, 0., 0., Q2, sequence, request );
- morse_pztpgqrt( L, V1, T1, V2, T2, Q1, Q2, Dptr, sequence, request );
+ /* if (chamctxt->householder == ChamFlatHouseholder) { */
+ chameleon_pzlaset( ChamUpperLower, 0., 1., Q1, sequence, request );
+ chameleon_pzlaset( ChamUpperLower, 0., 0., Q2, sequence, request );
+ chameleon_pztpgqrt( L, V1, T1, V2, T2, Q1, Q2, Dptr, sequence, request );
/* } */
/* else { */
- /* morse_pztpgqrtrh( Q1, T, CHAMELEON_RHBLK, sequence, request ); */
+ /* chameleon_pztpgqrtrh( Q1, T, CHAMELEON_RHBLK, sequence, request ); */
/* } */
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( V1, sequence );
@@ -425,8 +425,8 @@ int CHAMELEON_ztpgqrt_Tile_Async( int L,
CHAMELEON_Desc_Flush( Q1, sequence );
CHAMELEON_Desc_Flush( Q2, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/ztpqrt.c b/compute/ztpqrt.c
index 97d7cd993..fd4fb0a17 100644
--- a/compute/ztpqrt.c
+++ b/compute/ztpqrt.c
@@ -131,38 +131,38 @@ int CHAMELEON_ztpqrt( int M, int N, int L,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
int minMN = chameleon_min( M, N );
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztpqrt", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztpqrt", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_ztpqrt", "illegal value of M");
+ chameleon_error("CHAMELEON_ztpqrt", "illegal value of M");
return -1;
}
if (N < 0) {
- morse_error("CHAMELEON_ztpqrt", "illegal value of N");
+ chameleon_error("CHAMELEON_ztpqrt", "illegal value of N");
return -2;
}
if ((L < 0) || ((L > minMN) && (minMN > 0))) {
- morse_error("CHAMELEON_ztpqrt", "illegal value of N");
+ chameleon_error("CHAMELEON_ztpqrt", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_ztpqrt", "illegal value of LDA");
+ chameleon_error("CHAMELEON_ztpqrt", "illegal value of LDA");
return -5;
}
if (LDB < chameleon_max(1, M)) {
- morse_error("CHAMELEON_ztpqrt", "illegal value of LDB");
+ chameleon_error("CHAMELEON_ztpqrt", "illegal value of LDB");
return -7;
}
@@ -171,41 +171,41 @@ int CHAMELEON_ztpqrt( int M, int N, int L,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpqrt", "morse_tune() failed");
+ chameleon_error("CHAMELEON_ztpqrt", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, ChamUpper,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, ChamUpper,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_ztpqrt_Tile_Async( L, &descAt, &descBt, descT, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, ChamUpper, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -250,17 +250,17 @@ int CHAMELEON_ztpqrt( int M, int N, int L,
*/
int CHAMELEON_ztpqrt_Tile( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztpqrt_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztpqrt_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_ztpqrt_Tile_Async( L, A, B, T, sequence, &request );
@@ -268,9 +268,9 @@ int CHAMELEON_ztpqrt_Tile( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T
CHAMELEON_Desc_Flush( B, sequence );
CHAMELEON_Desc_Flush( T, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -306,19 +306,19 @@ int CHAMELEON_ztpqrt_Tile( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T
int CHAMELEON_ztpqrt_Tile_Async( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_ztpqrt_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_ztpqrt_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_ztpqrt_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_ztpqrt_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_ztpqrt_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_ztpqrt_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -326,37 +326,37 @@ int CHAMELEON_ztpqrt_Tile_Async( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_des
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpqrt_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztpqrt_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpqrt_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztpqrt_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztpqrt_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztpqrt_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_ztpqrt_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztpqrt_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (L != 0) && (((B->m - L) % B->mb) != 0) ) {
- morse_error("CHAMELEON_ztpqrt_Tile", "Triangular part must be aligned with tiles");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztpqrt_Tile", "Triangular part must be aligned with tiles");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- /* if (morse->householder == ChamFlatHouseholder) { */
- morse_pztpqrt( L, A, B, T, sequence, request );
+ /* if (chamctxt->householder == ChamFlatHouseholder) { */
+ chameleon_pztpqrt( L, A, B, T, sequence, request );
/* } */
/* else { */
- /* morse_pztpqrtrh( A, T, CHAMELEON_RHBLK, sequence, request ); */
+ /* chameleon_pztpqrtrh( A, T, CHAMELEON_RHBLK, sequence, request ); */
/* } */
return CHAMELEON_SUCCESS;
diff --git a/compute/ztradd.c b/compute/ztradd.c
index ac4286840..a08ef1e3d 100644
--- a/compute/ztradd.c
+++ b/compute/ztradd.c
@@ -101,23 +101,23 @@ int CHAMELEON_ztradd( cham_uplo_t uplo, cham_trans_t trans, int M, int N,
int status;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztradd", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztradd", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpperLower) && (uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_ztradd", "illegal value of uplo");
+ chameleon_error("CHAMELEON_ztradd", "illegal value of uplo");
return -1;
}
if ((trans < ChamNoTrans) || (trans > ChamConjTrans)) {
- morse_error("CHAMELEON_ztradd", "illegal value of trans");
+ chameleon_error("CHAMELEON_ztradd", "illegal value of trans");
return -2;
}
if ( trans == ChamNoTrans ) {
@@ -126,19 +126,19 @@ int CHAMELEON_ztradd( cham_uplo_t uplo, cham_trans_t trans, int M, int N,
Am = N; An = M;
}
if (M < 0) {
- morse_error("CHAMELEON_ztradd", "illegal value of M");
+ chameleon_error("CHAMELEON_ztradd", "illegal value of M");
return -3;
}
if (N < 0) {
- morse_error("CHAMELEON_ztradd", "illegal value of N");
+ chameleon_error("CHAMELEON_ztradd", "illegal value of N");
return -4;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_ztradd", "illegal value of LDA");
+ chameleon_error("CHAMELEON_ztradd", "illegal value of LDA");
return -7;
}
if (LDB < chameleon_max(1, M)) {
- morse_error("CHAMELEON_ztradd", "illegal value of LDB");
+ chameleon_error("CHAMELEON_ztradd", "illegal value of LDB");
return -10;
}
@@ -148,40 +148,40 @@ int CHAMELEON_ztradd( cham_uplo_t uplo, cham_trans_t trans, int M, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNBSIZE */
- status = morse_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGEMM, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztradd", "morse_tune() failed");
+ chameleon_error("CHAMELEON_ztradd", "chameleon_tune() failed");
return status;
}
/* Set MT & NT & KT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, An, Am, An, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, uplo,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_ztradd_Tile_Async( uplo, trans, alpha, &descAt, beta, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -243,26 +243,26 @@ int CHAMELEON_ztradd_Tile( cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A,
CHAMELEON_Complex64_t beta, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztradd_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztradd_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_ztradd_Tile_Async( uplo, trans, alpha, A, beta, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -300,21 +300,21 @@ int CHAMELEON_ztradd_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
CHAMELEON_Complex64_t beta, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int M, N;
int Am, An, Ai, Aj, Amb, Anb;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztradd_Tile_Async", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztradd_Tile_Async", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_ztradd_Tile_Async", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_ztradd_Tile_Async", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_ztradd_Tile_Async", "NULL request");
+ chameleon_fatal_error("CHAMELEON_ztradd_Tile_Async", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -322,22 +322,22 @@ int CHAMELEON_ztradd_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztradd_Tile_Async", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztradd_Tile_Async", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztradd_Tile_Async", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztradd_Tile_Async", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if ((trans < ChamNoTrans) || (trans > ChamConjTrans)) {
- morse_error("CHAMELEON_ztradd_Tile_Async", "illegal value of trans");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_ztradd_Tile_Async", "illegal value of trans");
+ return chameleon_request_fail(sequence, request, -1);
}
if ( trans == ChamNoTrans ) {
@@ -357,16 +357,16 @@ int CHAMELEON_ztradd_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
}
if ( (Amb != B->mb) || (Anb != B->nb) ) {
- morse_error("CHAMELEON_ztradd_Tile_Async", "tile sizes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztradd_Tile_Async", "tile sizes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (Am != B->m) || (An != B->n) ) {
- morse_error("CHAMELEON_ztradd_Tile_Async", "sizes of matrices have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztradd_Tile_Async", "sizes of matrices have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ( (Ai != B->i) || (Aj != B->j) ) {
- morse_error("CHAMELEON_ztradd_Tile_Async", "start indexes have to match");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztradd_Tile_Async", "start indexes have to match");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
M = B->m;
@@ -377,7 +377,7 @@ int CHAMELEON_ztradd_Tile_Async( cham_uplo_t uplo, cham_trans_t trans,
((alpha == (CHAMELEON_Complex64_t)0.0) && beta == (CHAMELEON_Complex64_t)1.0))
return CHAMELEON_SUCCESS;
- morse_pztradd( uplo, trans, alpha, A, beta, B, sequence, request );
+ chameleon_pztradd( uplo, trans, alpha, A, beta, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/ztrmm.c b/compute/ztrmm.c
index 68623dff6..0c800da6a 100644
--- a/compute/ztrmm.c
+++ b/compute/ztrmm.c
@@ -103,15 +103,15 @@ int CHAMELEON_ztrmm( cham_side_t side, cham_uplo_t uplo,
{
int NB, NA;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrmm", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrmm", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
@@ -123,38 +123,38 @@ int CHAMELEON_ztrmm( cham_side_t side, cham_uplo_t uplo,
/* Check input arguments */
if (side != ChamLeft && side != ChamRight) {
- morse_error("CHAMELEON_ztrmm", "illegal value of side");
+ chameleon_error("CHAMELEON_ztrmm", "illegal value of side");
return -1;
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_ztrmm", "illegal value of uplo");
+ chameleon_error("CHAMELEON_ztrmm", "illegal value of uplo");
return -2;
}
if (transA != ChamConjTrans &&
transA != ChamNoTrans &&
transA != ChamTrans )
{
- morse_error("CHAMELEON_ztrmm", "illegal value of transA");
+ chameleon_error("CHAMELEON_ztrmm", "illegal value of transA");
return -3;
}
if ((diag != ChamUnit) && (diag != ChamNonUnit)) {
- morse_error("CHAMELEON_ztrmm", "illegal value of diag");
+ chameleon_error("CHAMELEON_ztrmm", "illegal value of diag");
return -4;
}
if (N < 0) {
- morse_error("CHAMELEON_ztrmm", "illegal value of N");
+ chameleon_error("CHAMELEON_ztrmm", "illegal value of N");
return -5;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_ztrmm", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_ztrmm", "illegal value of NRHS");
return -6;
}
if (LDA < chameleon_max(1, NA)) {
- morse_error("CHAMELEON_ztrmm", "illegal value of LDA");
+ chameleon_error("CHAMELEON_ztrmm", "illegal value of LDA");
return -8;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_ztrmm", "illegal value of LDB");
+ chameleon_error("CHAMELEON_ztrmm", "illegal value of LDB");
return -10;
}
/* Quick return */
@@ -162,40 +162,40 @@ int CHAMELEON_ztrmm( cham_side_t side, cham_uplo_t uplo,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZPOSV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZPOSV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrmm", "morse_tune() failed");
+ chameleon_error("CHAMELEON_ztrmm", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, NA, NA, NA, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_ztrmm_Tile_Async( side, uplo, transA, diag, alpha, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
/**
@@ -265,26 +265,26 @@ int CHAMELEON_ztrmm_Tile( cham_side_t side, cham_uplo_t uplo,
cham_trans_t transA, cham_diag_t diag,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrmm_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrmm_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_ztrmm_Tile_Async(side, uplo, transA, diag, alpha, A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -321,19 +321,19 @@ int CHAMELEON_ztrmm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrmm_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrmm_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_ztrmm_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_ztrmm_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_ztrmm_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_ztrmm_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -341,42 +341,42 @@ int CHAMELEON_ztrmm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrmm_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztrmm_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrmm_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztrmm_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_ztrmm_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztrmm_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (side != ChamLeft && side != ChamRight) {
- morse_error("CHAMELEON_ztrmm_Tile", "illegal value of side");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_ztrmm_Tile", "illegal value of side");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_ztrmm_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_ztrmm_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -2);
}
if ((transA < ChamNoTrans) || (transA > ChamConjTrans)) {
- morse_error("CHAMELEON_ztrmm_Tile", "illegal value of transA");
- return morse_request_fail(sequence, request, -3);
+ chameleon_error("CHAMELEON_ztrmm_Tile", "illegal value of transA");
+ return chameleon_request_fail(sequence, request, -3);
}
if ((diag != ChamUnit) && (diag != ChamNonUnit)) {
- morse_error("CHAMELEON_ztrmm_Tile", "illegal value of diag");
- return morse_request_fail(sequence, request, -4);
+ chameleon_error("CHAMELEON_ztrmm_Tile", "illegal value of diag");
+ return chameleon_request_fail(sequence, request, -4);
}
/* Quick return */
- morse_pztrmm( side, uplo, transA, diag, alpha, A, B, sequence, request );
+ chameleon_pztrmm( side, uplo, transA, diag, alpha, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/ztrsm.c b/compute/ztrsm.c
index 9866b4115..770713b01 100644
--- a/compute/ztrsm.c
+++ b/compute/ztrsm.c
@@ -104,15 +104,15 @@ int CHAMELEON_ztrsm( cham_side_t side, cham_uplo_t uplo,
{
int NB, NA;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrsm", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrsm", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
@@ -124,35 +124,35 @@ int CHAMELEON_ztrsm( cham_side_t side, cham_uplo_t uplo,
/* Check input arguments */
if (side != ChamLeft && side != ChamRight) {
- morse_error("CHAMELEON_ztrsm", "illegal value of side");
+ chameleon_error("CHAMELEON_ztrsm", "illegal value of side");
return -1;
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_ztrsm", "illegal value of uplo");
+ chameleon_error("CHAMELEON_ztrsm", "illegal value of uplo");
return -2;
}
if (((transA < ChamNoTrans) || (transA > ChamConjTrans)) ) {
- morse_error("CHAMELEON_ztrsm", "illegal value of transA");
+ chameleon_error("CHAMELEON_ztrsm", "illegal value of transA");
return -3;
}
if ((diag != ChamUnit) && (diag != ChamNonUnit)) {
- morse_error("CHAMELEON_ztrsm", "illegal value of diag");
+ chameleon_error("CHAMELEON_ztrsm", "illegal value of diag");
return -4;
}
if (N < 0) {
- morse_error("CHAMELEON_ztrsm", "illegal value of N");
+ chameleon_error("CHAMELEON_ztrsm", "illegal value of N");
return -5;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_ztrsm", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_ztrsm", "illegal value of NRHS");
return -6;
}
if (LDA < chameleon_max(1, NA)) {
- morse_error("CHAMELEON_ztrsm", "illegal value of LDA");
+ chameleon_error("CHAMELEON_ztrsm", "illegal value of LDA");
return -8;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_ztrsm", "illegal value of LDB");
+ chameleon_error("CHAMELEON_ztrsm", "illegal value of LDB");
return -10;
}
/* Quick return */
@@ -160,40 +160,40 @@ int CHAMELEON_ztrsm( cham_side_t side, cham_uplo_t uplo,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZPOSV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZPOSV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrsm", "morse_tune() failed");
+ chameleon_error("CHAMELEON_ztrsm", "chameleon_tune() failed");
return status;
}
/* Set NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, uplo,
A, NB, NB, LDA, NA, NA, NA, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_ztrsm_Tile_Async( side, uplo, transA, diag, alpha, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, uplo, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
/**
@@ -263,26 +263,26 @@ int CHAMELEON_ztrsm_Tile( cham_side_t side, cham_uplo_t uplo,
cham_trans_t transA, cham_diag_t diag,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrsm_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrsm_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_ztrsm_Tile_Async(side, uplo, transA, diag, alpha, A, B, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -319,19 +319,19 @@ int CHAMELEON_ztrsm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrsm_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrsm_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_ztrsm_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_ztrsm_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_ztrsm_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_ztrsm_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -339,42 +339,42 @@ int CHAMELEON_ztrsm_Tile_Async( cham_side_t side, cham_uplo_t uplo,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrsm_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztrsm_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrsm_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztrsm_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_ztrsm_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztrsm_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if (side != ChamLeft && side != ChamRight) {
- morse_error("CHAMELEON_ztrsm_Tile", "illegal value of side");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_ztrsm_Tile", "illegal value of side");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_ztrsm_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_ztrsm_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -2);
}
if ((transA < ChamNoTrans) || (transA > ChamConjTrans)) {
- morse_error("CHAMELEON_ztrsm_Tile", "illegal value of transA");
- return morse_request_fail(sequence, request, -3);
+ chameleon_error("CHAMELEON_ztrsm_Tile", "illegal value of transA");
+ return chameleon_request_fail(sequence, request, -3);
}
if ((diag != ChamUnit) && (diag != ChamNonUnit)) {
- morse_error("CHAMELEON_ztrsm_Tile", "illegal value of diag");
- return morse_request_fail(sequence, request, -4);
+ chameleon_error("CHAMELEON_ztrsm_Tile", "illegal value of diag");
+ return chameleon_request_fail(sequence, request, -4);
}
/* Quick return */
- morse_pztrsm( side, uplo, transA, diag, alpha, A, B, sequence, request );
+ chameleon_pztrsm( side, uplo, transA, diag, alpha, A, B, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/ztrsmpl.c b/compute/ztrsmpl.c
index d91e15e55..50d2c556d 100644
--- a/compute/ztrsmpl.c
+++ b/compute/ztrsmpl.c
@@ -82,32 +82,32 @@ int CHAMELEON_ztrsmpl( int N, int NRHS,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descBl, descBt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrsmpl", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrsmpl", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (N < 0) {
- morse_error("CHAMELEON_ztrsmpl", "illegal value of N");
+ chameleon_error("CHAMELEON_ztrsmpl", "illegal value of N");
return -1;
}
if (NRHS < 0) {
- morse_error("CHAMELEON_ztrsmpl", "illegal value of NRHS");
+ chameleon_error("CHAMELEON_ztrsmpl", "illegal value of NRHS");
return -2;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_ztrsmpl", "illegal value of LDA");
+ chameleon_error("CHAMELEON_ztrsmpl", "illegal value of LDA");
return -4;
}
if (LDB < chameleon_max(1, N)) {
- morse_error("CHAMELEON_ztrsmpl", "illegal value of LDB");
+ chameleon_error("CHAMELEON_ztrsmpl", "illegal value of LDB");
return -8;
}
/* Quick return */
@@ -115,41 +115,41 @@ int CHAMELEON_ztrsmpl( int N, int NRHS,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGESV, N, N, NRHS);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrsmpl", "morse_tune() failed");
+ chameleon_error("CHAMELEON_ztrsmpl", "chameleon_tune() failed");
return status;
}
/* Set Mt, NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamLower,
A, NB, NB, LDA, N, N, N, sequence, &request );
- morse_zlap2tile( morse, &descBl, &descBt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descBl, &descBt, ChamDescInout, ChamUpperLower,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
CHAMELEON_ztrsmpl_Tile_Async( &descAt, descL, IPIV, &descBt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamLower, sequence, &request );
- morse_ztile2lap( morse, &descBl, &descBt,
+ chameleon_ztile2lap( chamctxt, &descBl, &descBt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descL, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descBl, &descBt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descBl, &descBt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -194,17 +194,17 @@ int CHAMELEON_ztrsmpl( int N, int NRHS,
*/
int CHAMELEON_ztrsmpl_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM_desc_t *B )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrsmpl_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrsmpl_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_ztrsmpl_Tile_Async( A, L, IPIV, B, sequence, &request );
@@ -212,9 +212,9 @@ int CHAMELEON_ztrsmpl_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM_desc
CHAMELEON_Desc_Flush( L, sequence );
CHAMELEON_Desc_Flush( B, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -251,19 +251,19 @@ int CHAMELEON_ztrsmpl_Tile( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM_desc
int CHAMELEON_ztrsmpl_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHAM_desc_t *B,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrsmpl_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrsmpl_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_ztrsmpl_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_ztrsmpl_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_ztrsmpl_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_ztrsmpl_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -271,33 +271,33 @@ int CHAMELEON_ztrsmpl_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *L, int *IPIV, CHA
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrsmpl_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztrsmpl_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(L) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrsmpl_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(L) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztrsmpl_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(B) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrsmpl_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(B) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztrsmpl_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || B->nb != B->mb) {
- morse_error("CHAMELEON_ztrsmpl_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztrsmpl_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
if (chameleon_min(N, NRHS) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pztrsmpl( A, B, L, IPIV, sequence, request );
+ chameleon_pztrsmpl( A, B, L, IPIV, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/ztrtri.c b/compute/ztrtri.c
index 2d709b5e6..9cc1dff61 100644
--- a/compute/ztrtri.c
+++ b/compute/ztrtri.c
@@ -82,31 +82,31 @@ int CHAMELEON_ztrtri( cham_uplo_t uplo, cham_diag_t diag, int N,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrtri", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrtri", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_ztrtri", "illegal value of uplo");
+ chameleon_error("CHAMELEON_ztrtri", "illegal value of uplo");
return -1;
}
if ((diag != ChamUnit) && (diag != ChamNonUnit)) {
- morse_error("CHAMELEON_ztrtri", "illegal value of diag");
+ chameleon_error("CHAMELEON_ztrtri", "illegal value of diag");
return -2;
}
if (N < 0) {
- morse_error("CHAMELEON_ztrtri", "illegal value of N");
+ chameleon_error("CHAMELEON_ztrtri", "illegal value of N");
return -3;
}
if (LDA < chameleon_max(1, N)) {
- morse_error("CHAMELEON_ztrtri", "illegal value of LDA");
+ chameleon_error("CHAMELEON_ztrtri", "illegal value of LDA");
return -5;
}
/* Quick return */
@@ -114,35 +114,35 @@ int CHAMELEON_ztrtri( cham_uplo_t uplo, cham_diag_t diag, int N,
return CHAMELEON_SUCCESS;
/* Tune NB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZPOSV, N, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrtri", "morse_tune() failed");
+ chameleon_error("CHAMELEON_ztrtri", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInout, uplo,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInout, uplo,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_ztrtri_Tile_Async( uplo, diag, &descAt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInout, uplo, sequence, &request );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -199,25 +199,25 @@ int CHAMELEON_ztrtri( cham_uplo_t uplo, cham_diag_t diag, int N,
*/
int CHAMELEON_ztrtri_Tile( cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrtri_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrtri_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_ztrtri_Tile_Async( uplo, diag, A, sequence, &request );
CHAMELEON_Desc_Flush( A, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -254,19 +254,19 @@ int CHAMELEON_ztrtri_Tile( cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A )
int CHAMELEON_ztrtri_Tile_Async( cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_ztrtri_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_ztrtri_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_ztrtri_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_ztrtri_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_ztrtri_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_ztrtri_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -274,33 +274,33 @@ int CHAMELEON_ztrtri_Tile_Async( cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_ztrtri_Tile", "invalid descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_ztrtri_Tile", "invalid descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb) {
- morse_error("CHAMELEON_ztrtri_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_ztrtri_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((uplo != ChamUpper) && (uplo != ChamLower)) {
- morse_error("CHAMELEON_ztrtri_Tile", "illegal value of uplo");
- return morse_request_fail(sequence, request, -1);
+ chameleon_error("CHAMELEON_ztrtri_Tile", "illegal value of uplo");
+ return chameleon_request_fail(sequence, request, -1);
}
if ((diag != ChamUnit) && (diag != ChamNonUnit)) {
- morse_error("CHAMELEON_ztrtri_Tile", "illegal value of diag");
- return morse_request_fail(sequence, request, -2);
+ chameleon_error("CHAMELEON_ztrtri_Tile", "illegal value of diag");
+ return chameleon_request_fail(sequence, request, -2);
}
/* Quick return */
/*
if (chameleon_max(N, 0) == 0)
return CHAMELEON_SUCCESS;
*/
- morse_pztrtri( uplo, diag, A, sequence, request );
+ chameleon_pztrtri( uplo, diag, A, sequence, request );
return CHAMELEON_SUCCESS;
}
diff --git a/compute/zunglq.c b/compute/zunglq.c
index 3b8793f01..e40953f9c 100644
--- a/compute/zunglq.c
+++ b/compute/zunglq.c
@@ -83,36 +83,36 @@ int CHAMELEON_zunglq( int M, int N, int K,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descQl, descQt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunglq", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunglq", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zunglq", "illegal value of M");
+ chameleon_error("CHAMELEON_zunglq", "illegal value of M");
return -1;
}
if (N < M) {
- morse_error("CHAMELEON_zunglq", "illegal value of N");
+ chameleon_error("CHAMELEON_zunglq", "illegal value of N");
return -2;
}
if (K < 0 || K > M) {
- morse_error("CHAMELEON_zunglq", "illegal value of K");
+ chameleon_error("CHAMELEON_zunglq", "illegal value of K");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zunglq", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zunglq", "illegal value of LDA");
return -5;
}
if (LDQ < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zunglq", "illegal value of LDQ");
+ chameleon_error("CHAMELEON_zunglq", "illegal value of LDQ");
return -8;
}
/* Quick return - currently NOT equivalent to LAPACK's:
@@ -121,41 +121,41 @@ int CHAMELEON_zunglq( int M, int N, int K,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunglq", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zunglq", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpper,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpper,
A, NB, NB, LDA, N, K, N, sequence, &request );
- morse_zlap2tile( morse, &descQl, &descQt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descQl, &descQt, ChamDescInout, ChamUpperLower,
Q, NB, NB, LDQ, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zunglq_Tile_Async( &descAt, descT, &descQt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpper, sequence, &request );
- morse_ztile2lap( morse, &descQl, &descQt,
+ chameleon_ztile2lap( chamctxt, &descQl, &descQt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descQl, &descQt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descQl, &descQt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -196,17 +196,17 @@ int CHAMELEON_zunglq( int M, int N, int K,
*/
int CHAMELEON_zunglq_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunglq_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunglq_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zunglq_Tile_Async( A, T, Q, sequence, &request );
@@ -214,9 +214,9 @@ int CHAMELEON_zunglq_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q )
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Q, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -251,20 +251,20 @@ int CHAMELEON_zunglq_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q )
int CHAMELEON_zunglq_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunglq_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunglq_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zunglq_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zunglq_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zunglq_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zunglq_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -272,26 +272,26 @@ int CHAMELEON_zunglq_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunglq_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunglq_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunglq_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunglq_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(Q) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunglq_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(Q) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunglq_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || Q->nb != Q->mb) {
- morse_error("CHAMELEON_zunglq_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zunglq_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return - currently NOT equivalent to LAPACK's:
* CALL DLASET( 'Full', MAX( M, N ), NRHS, ZERO, ZERO, Q, LDQ ) */
@@ -303,17 +303,17 @@ int CHAMELEON_zunglq_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q,
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- morse_pzlaset( ChamUpperLower, 0., 1., Q, sequence, request );
- if (morse->householder == ChamFlatHouseholder) {
- morse_pzunglq( A, Q, T, Dptr, sequence, request );
+ chameleon_pzlaset( ChamUpperLower, 0., 1., Q, sequence, request );
+ if (chamctxt->householder == ChamFlatHouseholder) {
+ chameleon_pzunglq( A, Q, T, Dptr, sequence, request );
}
else {
- morse_pzunglqrh( A, Q, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzunglqrh( A, Q, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
if (Dptr != NULL) {
@@ -321,8 +321,8 @@ int CHAMELEON_zunglq_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q,
CHAMELEON_Desc_Flush( Q, sequence );
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zunglq_param.c b/compute/zunglq_param.c
index 3c894a10a..fefc20d57 100644
--- a/compute/zunglq_param.c
+++ b/compute/zunglq_param.c
@@ -81,36 +81,36 @@ int CHAMELEON_zunglq_param( const libhqr_tree_t *qrtree, int M, int N, int K,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descQl, descQt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunglq_param", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunglq_param", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zunglq_param", "illegal value of M");
+ chameleon_error("CHAMELEON_zunglq_param", "illegal value of M");
return -1;
}
if (N < M) {
- morse_error("CHAMELEON_zunglq_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zunglq_param", "illegal value of N");
return -2;
}
if (K < 0 || K > M) {
- morse_error("CHAMELEON_zunglq_param", "illegal value of K");
+ chameleon_error("CHAMELEON_zunglq_param", "illegal value of K");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zunglq_param", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zunglq_param", "illegal value of LDA");
return -5;
}
if (LDQ < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zunglq_param", "illegal value of LDQ");
+ chameleon_error("CHAMELEON_zunglq_param", "illegal value of LDQ");
return -8;
}
/* Quick return - currently NOT equivalent to LAPACK's:
@@ -119,42 +119,42 @@ int CHAMELEON_zunglq_param( const libhqr_tree_t *qrtree, int M, int N, int K,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunglq_param", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zunglq_param", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpper,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpper,
A, NB, NB, LDA, N, K, N, sequence, &request );
- morse_zlap2tile( morse, &descQl, &descQt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descQl, &descQt, ChamDescInout, ChamUpperLower,
Q, NB, NB, LDQ, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zunglq_param_Tile_Async( qrtree, &descAt, descTS, descTT, &descQt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpper, sequence, &request );
- morse_ztile2lap( morse, &descQl, &descQt,
+ chameleon_ztile2lap( chamctxt, &descQl, &descQt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descTS, sequence );
CHAMELEON_Desc_Flush( descTT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descQl, &descQt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descQl, &descQt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -195,17 +195,17 @@ int CHAMELEON_zunglq_param( const libhqr_tree_t *qrtree, int M, int N, int K,
*/
int CHAMELEON_zunglq_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *Q )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunglq_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunglq_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zunglq_param_Tile_Async( qrtree, A, TS, TT, Q, sequence, &request );
@@ -214,9 +214,9 @@ int CHAMELEON_zunglq_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CH
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Q, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -251,20 +251,20 @@ int CHAMELEON_zunglq_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CH
int CHAMELEON_zunglq_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *Q,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunglq_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunglq_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zunglq_param_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zunglq_param_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zunglq_param_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zunglq_param_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -272,30 +272,30 @@ int CHAMELEON_zunglq_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunglq_param_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunglq_param_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TS) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunglq_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TS) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunglq_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TT) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunglq_param_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TT) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunglq_param_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(Q) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunglq_param_Tile", "invalid fourth descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(Q) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunglq_param_Tile", "invalid fourth descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || Q->nb != Q->mb) {
- morse_error("CHAMELEON_zunglq_param_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zunglq_param_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return - currently NOT equivalent to LAPACK's:
* CALL DLASET( 'Full', MAX( M, N ), NRHS, ZERO, ZERO, Q, LDQ ) */
@@ -306,13 +306,13 @@ int CHAMELEON_zunglq_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- morse_pzlaset( ChamUpperLower, 0., 1., Q, sequence, request );
- morse_pzunglq_param( qrtree, A, Q, TS, TT, Dptr, sequence, request );
+ chameleon_pzlaset( ChamUpperLower, 0., 1., Q, sequence, request );
+ chameleon_pzunglq_param( qrtree, A, Q, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
@@ -320,8 +320,8 @@ int CHAMELEON_zunglq_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zungqr.c b/compute/zungqr.c
index 4fd4f41cb..25b4e8375 100644
--- a/compute/zungqr.c
+++ b/compute/zungqr.c
@@ -83,78 +83,78 @@ int CHAMELEON_zungqr( int M, int N, int K,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descQl, descQt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zungqr", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zungqr", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zungqr", "illegal value of M");
+ chameleon_error("CHAMELEON_zungqr", "illegal value of M");
return -1;
}
if (N < 0 || N > M) {
- morse_error("CHAMELEON_zungqr", "illegal value of N");
+ chameleon_error("CHAMELEON_zungqr", "illegal value of N");
return -2;
}
if (K < 0 || K > N) {
- morse_error("CHAMELEON_zungqr", "illegal value of K");
+ chameleon_error("CHAMELEON_zungqr", "illegal value of K");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zungqr", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zungqr", "illegal value of LDA");
return -5;
}
if (LDQ < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zungqr", "illegal value of LDQ");
+ chameleon_error("CHAMELEON_zungqr", "illegal value of LDQ");
return -8;
}
if (chameleon_min(M, chameleon_min(N, K)) == 0)
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M & N; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zungqr", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zungqr", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamLower,
A, NB, NB, LDA, N, M, K, sequence, &request );
- morse_zlap2tile( morse, &descQl, &descQt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descQl, &descQt, ChamDescInout, ChamUpperLower,
Q, NB, NB, LDQ, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zungqr_Tile_Async( &descAt, descT, &descQt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamLower, sequence, &request );
- morse_ztile2lap( morse, &descQl, &descQt,
+ chameleon_ztile2lap( chamctxt, &descQl, &descQt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descQl, &descQt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descQl, &descQt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -195,17 +195,17 @@ int CHAMELEON_zungqr( int M, int N, int K,
*/
int CHAMELEON_zungqr_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zungqr_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zungqr_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zungqr_Tile_Async( A, T, Q, sequence, &request );
@@ -213,9 +213,9 @@ int CHAMELEON_zungqr_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q )
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Q, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -250,20 +250,20 @@ int CHAMELEON_zungqr_Tile( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q )
int CHAMELEON_zungqr_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zungqr_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zungqr_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zungqr_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zungqr_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zungqr_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zungqr_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -271,26 +271,26 @@ int CHAMELEON_zungqr_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zungqr_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zungqr_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zungqr_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zungqr_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(Q) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zungqr_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(Q) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zungqr_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || Q->nb != Q->mb) {
- morse_error("CHAMELEON_zungqr_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zungqr_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -300,17 +300,17 @@ int CHAMELEON_zungqr_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q,
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- morse_pzlaset( ChamUpperLower, 0., 1., Q, sequence, request );
- if (morse->householder == ChamFlatHouseholder) {
- morse_pzungqr( A, Q, T, Dptr, sequence, request );
+ chameleon_pzlaset( ChamUpperLower, 0., 1., Q, sequence, request );
+ if (chamctxt->householder == ChamFlatHouseholder) {
+ chameleon_pzungqr( A, Q, T, Dptr, sequence, request );
}
else {
- morse_pzungqrrh( A, Q, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzungqrrh( A, Q, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
if (Dptr != NULL) {
@@ -318,8 +318,8 @@ int CHAMELEON_zungqr_Tile_Async( CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *Q,
CHAMELEON_Desc_Flush( Q, sequence );
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zungqr_param.c b/compute/zungqr_param.c
index fd55667e8..6dd11ada6 100644
--- a/compute/zungqr_param.c
+++ b/compute/zungqr_param.c
@@ -83,79 +83,79 @@ int CHAMELEON_zungqr_param( const libhqr_tree_t *qrtree,
{
int NB;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descQl, descQt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zungqr_param", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zungqr_param", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Check input arguments */
if (M < 0) {
- morse_error("CHAMELEON_zungqr_param", "illegal value of M");
+ chameleon_error("CHAMELEON_zungqr_param", "illegal value of M");
return -1;
}
if (N < 0 || N > M) {
- morse_error("CHAMELEON_zungqr_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zungqr_param", "illegal value of N");
return -2;
}
if (K < 0 || K > N) {
- morse_error("CHAMELEON_zungqr_param", "illegal value of K");
+ chameleon_error("CHAMELEON_zungqr_param", "illegal value of K");
return -3;
}
if (LDA < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zungqr_param", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zungqr_param", "illegal value of LDA");
return -5;
}
if (LDQ < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zungqr_param", "illegal value of LDQ");
+ chameleon_error("CHAMELEON_zungqr_param", "illegal value of LDQ");
return -8;
}
if (chameleon_min(M, chameleon_min(N, K)) == 0)
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M & N; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zungqr_param", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zungqr_param", "chameleon_tune() failed");
return status;
}
/* Set NT */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamLower,
A, NB, NB, LDA, N, M, K, sequence, &request );
- morse_zlap2tile( morse, &descQl, &descQt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descQl, &descQt, ChamDescInout, ChamUpperLower,
Q, NB, NB, LDQ, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zungqr_param_Tile_Async( qrtree, &descAt, descTS, descTT, &descQt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamLower, sequence, &request );
- morse_ztile2lap( morse, &descQl, &descQt,
+ chameleon_ztile2lap( chamctxt, &descQl, &descQt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descTS, sequence );
CHAMELEON_Desc_Flush( descTT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descQl, &descQt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descQl, &descQt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -196,17 +196,17 @@ int CHAMELEON_zungqr_param( const libhqr_tree_t *qrtree,
*/
int CHAMELEON_zungqr_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *Q )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zungqr_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zungqr_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zungqr_param_Tile_Async( qrtree, A, TS, TT, Q, sequence, &request );
@@ -215,9 +215,9 @@ int CHAMELEON_zungqr_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CH
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Q, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -251,19 +251,19 @@ int CHAMELEON_zungqr_param_Tile( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CH
*/
int CHAMELEON_zungqr_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *Q, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zungqr_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zungqr_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zungqr_param_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zungqr_param_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zungqr_param_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zungqr_param_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -271,30 +271,30 @@ int CHAMELEON_zungqr_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zungqr_param_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zungqr_param_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TS) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zungqr_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TS) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zungqr_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TT) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zungqr_param_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TT) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zungqr_param_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(Q) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zungqr_param_Tile", "invalid fourth descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(Q) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zungqr_param_Tile", "invalid fourth descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || Q->nb != Q->mb) {
- morse_error("CHAMELEON_zungqr_param_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zungqr_param_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return */
/*
@@ -304,13 +304,13 @@ int CHAMELEON_zungqr_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- morse_pzlaset( ChamUpperLower, 0., 1., Q, sequence, request );
- morse_pzungqr_param( qrtree, A, Q, TS, TT, Dptr, sequence, request );
+ chameleon_pzlaset( ChamUpperLower, 0., 1., Q, sequence, request );
+ chameleon_pzungqr_param( qrtree, A, Q, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
@@ -318,8 +318,8 @@ int CHAMELEON_zungqr_param_Tile_Async( const libhqr_tree_t *qrtree, CHAM_desc_t
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zunmlq.c b/compute/zunmlq.c
index efc4c7dbb..6d246cd57 100644
--- a/compute/zunmlq.c
+++ b/compute/zunmlq.c
@@ -107,15 +107,15 @@ int CHAMELEON_zunmlq( cham_side_t side, cham_trans_t trans, int M, int N, int K,
{
int NB, An;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descCl, descCt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmlq", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
@@ -126,31 +126,31 @@ int CHAMELEON_zunmlq( cham_side_t side, cham_trans_t trans, int M, int N, int K,
/* Check input arguments */
if ((side != ChamLeft) && (side != ChamRight)) {
- morse_error("CHAMELEON_zunmlq", "illegal value of side");
+ chameleon_error("CHAMELEON_zunmlq", "illegal value of side");
return -1;
}
if ((trans != ChamConjTrans) && (trans != ChamNoTrans)){
- morse_error("CHAMELEON_zunmlq", "illegal value of trans");
+ chameleon_error("CHAMELEON_zunmlq", "illegal value of trans");
return -2;
}
if (M < 0) {
- morse_error("CHAMELEON_zunmlq", "illegal value of M");
+ chameleon_error("CHAMELEON_zunmlq", "illegal value of M");
return -3;
}
if (N < 0) {
- morse_error("CHAMELEON_zunmlq", "illegal value of N");
+ chameleon_error("CHAMELEON_zunmlq", "illegal value of N");
return -4;
}
if ((K < 0) || (K > An)) {
- morse_error("CHAMELEON_zunmlq", "illegal value of K");
+ chameleon_error("CHAMELEON_zunmlq", "illegal value of K");
return -5;
}
if (LDA < chameleon_max(1, K)) {
- morse_error("CHAMELEON_zunmlq", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zunmlq", "illegal value of LDA");
return -7;
}
if (LDC < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zunmlq", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zunmlq", "illegal value of LDC");
return -10;
}
/* Quick return - currently NOT equivalent to LAPACK's:
@@ -159,40 +159,40 @@ int CHAMELEON_zunmlq( cham_side_t side, cham_trans_t trans, int M, int N, int K,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, K, N);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, K, N);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmlq", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zunmlq", "chameleon_tune() failed");
return status;
}
/* Set MT, NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpper,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpper,
A, NB, NB, LDA, An, K, An, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, ChamUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zunmlq_Tile_Async( side, trans, &descAt, descT, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpper, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -248,17 +248,17 @@ int CHAMELEON_zunmlq( cham_side_t side, cham_trans_t trans, int M, int N, int K,
int CHAMELEON_zunmlq_Tile( cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmlq_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zunmlq_Tile_Async(side, trans, A, T, C, sequence, &request );
@@ -266,9 +266,9 @@ int CHAMELEON_zunmlq_Tile( cham_side_t side, cham_trans_t trans,
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -304,20 +304,20 @@ int CHAMELEON_zunmlq_Tile_Async( cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmlq_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zunmlq_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zunmlq_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -325,32 +325,32 @@ int CHAMELEON_zunmlq_Tile_Async( cham_side_t side, cham_trans_t trans,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmlq_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmlq_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmlq_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmlq_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmlq_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmlq_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || C->nb != C->mb) {
- morse_error("CHAMELEON_zunmlq_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zunmlq_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((side != ChamLeft) && (side != ChamRight)) {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((trans != ChamConjTrans) && (trans != ChamNoTrans)){
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return - currently NOT equivalent to LAPACK's:
* CALL DLASET( 'Full', MAX( M, N ), NRHS, ZERO, ZERO, C, LDC ) */
@@ -361,29 +361,29 @@ int CHAMELEON_zunmlq_Tile_Async( cham_side_t side, cham_trans_t trans,
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- if (morse->householder == ChamFlatHouseholder) {
+ if (chamctxt->householder == ChamFlatHouseholder) {
if ( (trans == ChamConjTrans) &&
(side == ChamLeft) ) {
- morse_pzunmlq( side, trans, A, C, T, Dptr, sequence, request );
+ chameleon_pzunmlq( side, trans, A, C, T, Dptr, sequence, request );
} else {
- morse_pzunmlq( side, trans, A, C, T, Dptr, sequence, request );
+ chameleon_pzunmlq( side, trans, A, C, T, Dptr, sequence, request );
}
}
else {
- morse_pzunmlqrh( side, trans, A, C, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzunmlqrh( side, trans, A, C, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
CHAMELEON_Desc_Flush( C, sequence );
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zunmlq_param.c b/compute/zunmlq_param.c
index db489ca27..9eda1ebc7 100644
--- a/compute/zunmlq_param.c
+++ b/compute/zunmlq_param.c
@@ -107,15 +107,15 @@ int CHAMELEON_zunmlq_param( const libhqr_tree_t *qrtree, cham_side_t side, cham_
{
int NB, An;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descCl, descCt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq_param", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmlq_param", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
@@ -126,31 +126,31 @@ int CHAMELEON_zunmlq_param( const libhqr_tree_t *qrtree, cham_side_t side, cham_
/* Check input arguments */
if ((side != ChamLeft) && (side != ChamRight)) {
- morse_error("CHAMELEON_zunmlq_param", "illegal value of side");
+ chameleon_error("CHAMELEON_zunmlq_param", "illegal value of side");
return -1;
}
if ((trans != ChamConjTrans) && (trans != ChamNoTrans)){
- morse_error("CHAMELEON_zunmlq_param", "illegal value of trans");
+ chameleon_error("CHAMELEON_zunmlq_param", "illegal value of trans");
return -2;
}
if (M < 0) {
- morse_error("CHAMELEON_zunmlq_param", "illegal value of M");
+ chameleon_error("CHAMELEON_zunmlq_param", "illegal value of M");
return -3;
}
if (N < 0) {
- morse_error("CHAMELEON_zunmlq_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zunmlq_param", "illegal value of N");
return -4;
}
if ((K < 0) || (K > An)) {
- morse_error("CHAMELEON_zunmlq_param", "illegal value of K");
+ chameleon_error("CHAMELEON_zunmlq_param", "illegal value of K");
return -5;
}
if (LDA < chameleon_max(1, K)) {
- morse_error("CHAMELEON_zunmlq_param", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zunmlq_param", "illegal value of LDA");
return -7;
}
if (LDC < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zunmlq_param", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zunmlq_param", "illegal value of LDC");
return -10;
}
/* Quick return - currently NOT equivalent to LAPACK's:
@@ -159,41 +159,41 @@ int CHAMELEON_zunmlq_param( const libhqr_tree_t *qrtree, cham_side_t side, cham_
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, N & NRHS; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, K, N);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, K, N);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmlq_param", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zunmlq_param", "chameleon_tune() failed");
return status;
}
/* Set MT, NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamUpper,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamUpper,
A, NB, NB, LDA, An, K, An, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, ChamUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zunmlq_param_Tile_Async( qrtree, side, trans, &descAt, descTS, descTT, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamUpper, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descTS, sequence );
CHAMELEON_Desc_Flush( descTT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -249,17 +249,17 @@ int CHAMELEON_zunmlq_param( const libhqr_tree_t *qrtree, cham_side_t side, cham_
int CHAMELEON_zunmlq_param_Tile( const libhqr_tree_t *qrtree, cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmlq_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zunmlq_param_Tile_Async( qrtree, side, trans, A, TS, TT, C, sequence, &request );
@@ -268,9 +268,9 @@ int CHAMELEON_zunmlq_param_Tile( const libhqr_tree_t *qrtree, cham_side_t side,
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -306,20 +306,20 @@ int CHAMELEON_zunmlq_param_Tile_Async( const libhqr_tree_t *qrtree, cham_side_t
CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmlq_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq_param_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zunmlq_param_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zunmlq_param_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zunmlq_param_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -327,36 +327,36 @@ int CHAMELEON_zunmlq_param_Tile_Async( const libhqr_tree_t *qrtree, cham_side_t
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmlq_param_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmlq_param_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TS) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmlq_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TS) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmlq_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TT) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmlq_param_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TT) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmlq_param_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmlq_param_Tile", "invalid fourth descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmlq_param_Tile", "invalid fourth descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || C->nb != C->mb) {
- morse_error("CHAMELEON_zunmlq_param_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zunmlq_param_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((side != ChamLeft) && (side != ChamRight)) {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((trans != ChamConjTrans) && (trans != ChamNoTrans)){
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return - currently NOT equivalent to LAPACK's:
* CALL DLASET( 'Full', MAX( M, N ), NRHS, ZERO, ZERO, C, LDC ) */
@@ -368,12 +368,12 @@ int CHAMELEON_zunmlq_param_Tile_Async( const libhqr_tree_t *qrtree, cham_side_t
#if defined(CHAMELEON_COPY_DIAG)
{
int m = chameleon_min(A->mt, A->nt) * A->mb;
- morse_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, m, A->n, 0, 0, m, A->n, );
Dptr = &D;
}
#endif
- morse_pzunmlq_param( qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request );
+ chameleon_pzunmlq_param( qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
@@ -381,8 +381,8 @@ int CHAMELEON_zunmlq_param_Tile_Async( const libhqr_tree_t *qrtree, cham_side_t
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zunmqr.c b/compute/zunmqr.c
index 548837488..b6f1e1691 100644
--- a/compute/zunmqr.c
+++ b/compute/zunmqr.c
@@ -109,15 +109,15 @@ int CHAMELEON_zunmqr( cham_side_t side, cham_trans_t trans, int M, int N, int K,
{
int NB, Am;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descCl, descCt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmqr", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
@@ -129,31 +129,31 @@ int CHAMELEON_zunmqr( cham_side_t side, cham_trans_t trans, int M, int N, int K,
/* Check input arguments */
if ((side != ChamLeft) && (side != ChamRight)) {
- morse_error("CHAMELEON_zunmqr", "illegal value of side");
+ chameleon_error("CHAMELEON_zunmqr", "illegal value of side");
return -1;
}
if ((trans != ChamConjTrans) && (trans != ChamNoTrans)){
- morse_error("CHAMELEON_zunmqr", "illegal value of trans");
+ chameleon_error("CHAMELEON_zunmqr", "illegal value of trans");
return -2;
}
if (M < 0) {
- morse_error("CHAMELEON_zunmqr", "illegal value of M");
+ chameleon_error("CHAMELEON_zunmqr", "illegal value of M");
return -3;
}
if (N < 0) {
- morse_error("CHAMELEON_zunmqr", "illegal value of N");
+ chameleon_error("CHAMELEON_zunmqr", "illegal value of N");
return -4;
}
if ((K < 0) || (K > Am)) {
- morse_error("CHAMELEON_zunmqr", "illegal value of K");
+ chameleon_error("CHAMELEON_zunmqr", "illegal value of K");
return -5;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zunmqr", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zunmqr", "illegal value of LDA");
return -7;
}
if (LDC < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zunmqr", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zunmqr", "illegal value of LDC");
return -10;
}
/* Quick return - currently NOT equivalent to LAPACK's:
@@ -162,40 +162,40 @@ int CHAMELEON_zunmqr( cham_side_t side, cham_trans_t trans, int M, int N, int K,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, K & N; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, K, N);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, K, N);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmqr", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zunmqr", "chameleon_tune() failed");
return status;
}
/* Set MT, NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamLower,
A, NB, NB, LDA, K, Am, K, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, ChamUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zunmqr_Tile_Async( side, trans, &descAt, descT, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -252,17 +252,17 @@ int CHAMELEON_zunmqr( cham_side_t side, cham_trans_t trans, int M, int N, int K,
int CHAMELEON_zunmqr_Tile( cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmqr_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zunmqr_Tile_Async(side, trans, A, T, C, sequence, &request );
@@ -270,9 +270,9 @@ int CHAMELEON_zunmqr_Tile( cham_side_t side, cham_trans_t trans,
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -308,20 +308,20 @@ int CHAMELEON_zunmqr_Tile_Async( cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmqr_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zunmqr_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zunmqr_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -329,32 +329,32 @@ int CHAMELEON_zunmqr_Tile_Async( cham_side_t side, cham_trans_t trans,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmqr_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmqr_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(T) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmqr_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(T) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmqr_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmqr_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmqr_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || C->nb != C->mb) {
- morse_error("CHAMELEON_zunmqr_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zunmqr_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((side != ChamLeft) && (side != ChamRight)) {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((trans != ChamConjTrans) && (trans != ChamNoTrans)){
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return - currently NOT equivalent to LAPACK's:
* CALL DLASET( 'Full', MAX( M, N ), NRHS, ZERO, ZERO, C, LDC ) */
@@ -366,22 +366,22 @@ int CHAMELEON_zunmqr_Tile_Async( cham_side_t side, cham_trans_t trans,
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- if (morse->householder == ChamFlatHouseholder) {
+ if (chamctxt->householder == ChamFlatHouseholder) {
if ( (trans == ChamConjTrans) &&
(side == ChamLeft) ) {
- morse_pzunmqr( side, trans, A, C, T, Dptr, sequence, request );
+ chameleon_pzunmqr( side, trans, A, C, T, Dptr, sequence, request );
}
else {
- morse_pzunmqr( side, trans, A, C, T, Dptr, sequence, request );
+ chameleon_pzunmqr( side, trans, A, C, T, Dptr, sequence, request );
}
}
else {
- morse_pzunmqrrh( side, trans, A, C, T, Dptr, CHAMELEON_RHBLK, sequence, request );
+ chameleon_pzunmqrrh( side, trans, A, C, T, Dptr, CHAMELEON_RHBLK, sequence, request );
}
if (Dptr != NULL) {
@@ -389,8 +389,8 @@ int CHAMELEON_zunmqr_Tile_Async( cham_side_t side, cham_trans_t trans,
CHAMELEON_Desc_Flush( C, sequence );
CHAMELEON_Desc_Flush( T, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/compute/zunmqr_param.c b/compute/zunmqr_param.c
index 38b3d9228..e53ed50a7 100644
--- a/compute/zunmqr_param.c
+++ b/compute/zunmqr_param.c
@@ -111,15 +111,15 @@ int CHAMELEON_zunmqr_param( const libhqr_tree_t *qrtree,
{
int NB, Am;
int status;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
CHAM_desc_t descAl, descAt;
CHAM_desc_t descCl, descCt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr_param", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmqr_param", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
@@ -131,31 +131,31 @@ int CHAMELEON_zunmqr_param( const libhqr_tree_t *qrtree,
/* Check input arguments */
if ((side != ChamLeft) && (side != ChamRight)) {
- morse_error("CHAMELEON_zunmqr_param", "illegal value of side");
+ chameleon_error("CHAMELEON_zunmqr_param", "illegal value of side");
return -1;
}
if ((trans != ChamConjTrans) && (trans != ChamNoTrans)){
- morse_error("CHAMELEON_zunmqr_param", "illegal value of trans");
+ chameleon_error("CHAMELEON_zunmqr_param", "illegal value of trans");
return -2;
}
if (M < 0) {
- morse_error("CHAMELEON_zunmqr_param", "illegal value of M");
+ chameleon_error("CHAMELEON_zunmqr_param", "illegal value of M");
return -3;
}
if (N < 0) {
- morse_error("CHAMELEON_zunmqr_param", "illegal value of N");
+ chameleon_error("CHAMELEON_zunmqr_param", "illegal value of N");
return -4;
}
if ((K < 0) || (K > Am)) {
- morse_error("CHAMELEON_zunmqr_param", "illegal value of K");
+ chameleon_error("CHAMELEON_zunmqr_param", "illegal value of K");
return -5;
}
if (LDA < chameleon_max(1, Am)) {
- morse_error("CHAMELEON_zunmqr_param", "illegal value of LDA");
+ chameleon_error("CHAMELEON_zunmqr_param", "illegal value of LDA");
return -7;
}
if (LDC < chameleon_max(1, M)) {
- morse_error("CHAMELEON_zunmqr_param", "illegal value of LDC");
+ chameleon_error("CHAMELEON_zunmqr_param", "illegal value of LDC");
return -10;
}
/* Quick return - currently NOT equivalent to LAPACK's:
@@ -164,41 +164,41 @@ int CHAMELEON_zunmqr_param( const libhqr_tree_t *qrtree,
return CHAMELEON_SUCCESS;
/* Tune NB & IB depending on M, K & N; Set NBNB */
- status = morse_tune(CHAMELEON_FUNC_ZGELS, M, K, N);
+ status = chameleon_tune(CHAMELEON_FUNC_ZGELS, M, K, N);
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmqr_param", "morse_tune() failed");
+ chameleon_error("CHAMELEON_zunmqr_param", "chameleon_tune() failed");
return status;
}
/* Set MT, NT & NTRHS */
NB = CHAMELEON_NB;
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
/* Submit the matrix conversion */
- morse_zlap2tile( morse, &descAl, &descAt, ChamDescInput, ChamLower,
+ chameleon_zlap2tile( chamctxt, &descAl, &descAt, ChamDescInput, ChamLower,
A, NB, NB, LDA, K, Am, K, sequence, &request );
- morse_zlap2tile( morse, &descCl, &descCt, ChamDescInout, ChamUpperLower,
+ chameleon_zlap2tile( chamctxt, &descCl, &descCt, ChamDescInout, ChamUpperLower,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
CHAMELEON_zunmqr_param_Tile_Async( qrtree, side, trans, &descAt, descTS, descTT, &descCt, sequence, &request );
/* Submit the matrix conversion back */
- morse_ztile2lap( morse, &descAl, &descAt,
+ chameleon_ztile2lap( chamctxt, &descAl, &descAt,
ChamDescInput, ChamLower, sequence, &request );
- morse_ztile2lap( morse, &descCl, &descCt,
+ chameleon_ztile2lap( chamctxt, &descCl, &descCt,
ChamDescInout, ChamUpperLower, sequence, &request );
CHAMELEON_Desc_Flush( descTS, sequence );
CHAMELEON_Desc_Flush( descTT, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descAl, &descAt );
- morse_ztile2lap_cleanup( morse, &descCl, &descCt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descAl, &descAt );
+ chameleon_ztile2lap_cleanup( chamctxt, &descCl, &descCt );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -255,17 +255,17 @@ int CHAMELEON_zunmqr_param( const libhqr_tree_t *qrtree,
int CHAMELEON_zunmqr_param_Tile( const libhqr_tree_t *qrtree, cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *C )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
RUNTIME_sequence_t *sequence = NULL;
RUNTIME_request_t request = RUNTIME_REQUEST_INITIALIZER;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmqr_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- morse_sequence_create( morse, &sequence );
+ chameleon_sequence_create( chamctxt, &sequence );
CHAMELEON_zunmqr_param_Tile_Async( qrtree, side, trans, A, TS, TT, C, sequence, &request );
@@ -274,9 +274,9 @@ int CHAMELEON_zunmqr_param_Tile( const libhqr_tree_t *qrtree, cham_side_t side,
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( C, sequence );
- morse_sequence_wait( morse, sequence );
+ chameleon_sequence_wait( chamctxt, sequence );
status = sequence->status;
- morse_sequence_destroy( morse, sequence );
+ chameleon_sequence_destroy( chamctxt, sequence );
return status;
}
@@ -313,20 +313,20 @@ int CHAMELEON_zunmqr_param_Tile_Async( const libhqr_tree_t *qrtree,
CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *C,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t D, *Dptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr_param_Tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_zunmqr_param_Tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr_param_Tile", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_zunmqr_param_Tile", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
if (request == NULL) {
- morse_fatal_error("CHAMELEON_zunmqr_param_Tile", "NULL request");
+ chameleon_fatal_error("CHAMELEON_zunmqr_param_Tile", "NULL request");
return CHAMELEON_ERR_UNALLOCATED;
}
/* Check sequence status */
@@ -334,36 +334,36 @@ int CHAMELEON_zunmqr_param_Tile_Async( const libhqr_tree_t *qrtree,
request->status = CHAMELEON_SUCCESS;
}
else {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
}
/* Check descriptors for correctness */
- if (morse_desc_check(A) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmqr_param_Tile", "invalid first descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(A) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmqr_param_Tile", "invalid first descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TS) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmqr_param_Tile", "invalid second descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TS) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmqr_param_Tile", "invalid second descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(TT) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmqr_param_Tile", "invalid third descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(TT) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmqr_param_Tile", "invalid third descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
- if (morse_desc_check(C) != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_zunmqr_param_Tile", "invalid fourth descriptor");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ if (chameleon_desc_check(C) != CHAMELEON_SUCCESS) {
+ chameleon_error("CHAMELEON_zunmqr_param_Tile", "invalid fourth descriptor");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Check input arguments */
if (A->nb != A->mb || C->nb != C->mb) {
- morse_error("CHAMELEON_zunmqr_param_Tile", "only square tiles supported");
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ chameleon_error("CHAMELEON_zunmqr_param_Tile", "only square tiles supported");
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((side != ChamLeft) && (side != ChamRight)) {
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
if ((trans != ChamConjTrans) && (trans != ChamNoTrans)){
- return morse_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
+ return chameleon_request_fail(sequence, request, CHAMELEON_ERR_ILLEGAL_VALUE);
}
/* Quick return - currently NOT equivalent to LAPACK's:
* CALL DLASET( 'Full', MAX( M, N ), NRHS, ZERO, ZERO, C, LDC ) */
@@ -375,12 +375,12 @@ int CHAMELEON_zunmqr_param_Tile_Async( const libhqr_tree_t *qrtree,
#if defined(CHAMELEON_COPY_DIAG)
{
int n = chameleon_min(A->mt, A->nt) * A->nb;
- morse_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
+ chameleon_zdesc_alloc(D, A->mb, A->nb, A->m, n, 0, 0, A->m, n, );
Dptr = &D;
}
#endif
- morse_pzunmqr_param( qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request );
+ chameleon_pzunmqr_param( qrtree, side, trans, A, C, TS, TT, Dptr, sequence, request );
if (Dptr != NULL) {
CHAMELEON_Desc_Flush( A, sequence );
@@ -388,8 +388,8 @@ int CHAMELEON_zunmqr_param_Tile_Async( const libhqr_tree_t *qrtree,
CHAMELEON_Desc_Flush( TS, sequence );
CHAMELEON_Desc_Flush( TT, sequence );
CHAMELEON_Desc_Flush( Dptr, sequence );
- morse_sequence_wait( morse, sequence );
- morse_desc_mat_free( Dptr );
+ chameleon_sequence_wait( chamctxt, sequence );
+ chameleon_desc_mat_free( Dptr );
}
(void)D;
return CHAMELEON_SUCCESS;
diff --git a/control/CMakeLists.txt b/control/CMakeLists.txt
index ca97ca564..567ffa31a 100644
--- a/control/CMakeLists.txt
+++ b/control/CMakeLists.txt
@@ -27,7 +27,7 @@
###
-# Generate the morse headers for all possible precisions
+# Generate the chameleon headers for all possible precisions
# ------------------------------------------------------
set(CHAMELEON_HDRS_GENERATED "")
set(ZHDR
@@ -47,8 +47,8 @@ set(CHAMELEON_HDRS
descriptor.h
gkkleader.h
global.h
- morse_f77.h
- morsewinthread.h
+ chameleon_f77.h
+ chameleonwinthread.h
workspace.h
)
diff --git a/control/async.c b/control/async.c
index d86c07fdc..927f03ad4 100644
--- a/control/async.c
+++ b/control/async.c
@@ -30,7 +30,7 @@
/**
* Register an exception.
*/
-int morse_request_fail(RUNTIME_sequence_t *sequence, RUNTIME_request_t *request, int status)
+int chameleon_request_fail(RUNTIME_sequence_t *sequence, RUNTIME_request_t *request, int status)
{
sequence->request = request;
sequence->status = status;
@@ -41,14 +41,14 @@ int morse_request_fail(RUNTIME_sequence_t *sequence, RUNTIME_request_t *request,
/**
* Create a sequence
*/
-int morse_sequence_create(CHAM_context_t *morse, RUNTIME_sequence_t **sequence)
+int chameleon_sequence_create(CHAM_context_t *chamctxt, RUNTIME_sequence_t **sequence)
{
if ((*sequence = malloc(sizeof(RUNTIME_sequence_t))) == NULL) {
- morse_error("CHAMELEON_Sequence_Create", "malloc() failed");
+ chameleon_error("CHAMELEON_Sequence_Create", "malloc() failed");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
- RUNTIME_sequence_create( morse, *sequence );
+ RUNTIME_sequence_create( chamctxt, *sequence );
(*sequence)->status = CHAMELEON_SUCCESS;
return CHAMELEON_SUCCESS;
@@ -57,9 +57,9 @@ int morse_sequence_create(CHAM_context_t *morse, RUNTIME_sequence_t **sequence)
/**
* Destroy a sequence
*/
-int morse_sequence_destroy(CHAM_context_t *morse, RUNTIME_sequence_t *sequence)
+int chameleon_sequence_destroy(CHAM_context_t *chamctxt, RUNTIME_sequence_t *sequence)
{
- RUNTIME_sequence_destroy( morse, sequence );
+ RUNTIME_sequence_destroy( chamctxt, sequence );
free(sequence);
return CHAMELEON_SUCCESS;
}
@@ -67,9 +67,9 @@ int morse_sequence_destroy(CHAM_context_t *morse, RUNTIME_sequence_t *sequence)
/**
* Wait for the completion of a sequence
*/
-int morse_sequence_wait(CHAM_context_t *morse, RUNTIME_sequence_t *sequence)
+int chameleon_sequence_wait(CHAM_context_t *chamctxt, RUNTIME_sequence_t *sequence)
{
- RUNTIME_sequence_wait( morse, sequence );
+ RUNTIME_sequence_wait( chamctxt, sequence );
return CHAMELEON_SUCCESS;
}
@@ -92,15 +92,15 @@ int morse_sequence_wait(CHAM_context_t *morse, RUNTIME_sequence_t *sequence)
*/
int CHAMELEON_Sequence_Create(RUNTIME_sequence_t **sequence)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_Sequence_Create", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_Sequence_Create", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- status = morse_sequence_create(morse, sequence);
+ status = chameleon_sequence_create(chamctxt, sequence);
return status;
}
@@ -123,19 +123,19 @@ int CHAMELEON_Sequence_Create(RUNTIME_sequence_t **sequence)
*/
int CHAMELEON_Sequence_Destroy(RUNTIME_sequence_t *sequence)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_Sequence_Destroy", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_Sequence_Destroy", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_Sequence_Destroy", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_Sequence_Destroy", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
- status = morse_sequence_destroy(morse, sequence);
+ status = chameleon_sequence_destroy(chamctxt, sequence);
return status;
}
@@ -158,19 +158,19 @@ int CHAMELEON_Sequence_Destroy(RUNTIME_sequence_t *sequence)
*/
int CHAMELEON_Sequence_Wait(RUNTIME_sequence_t *sequence)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
int status;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_Sequence_Wait", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_Sequence_Wait", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_Sequence_Wait", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_Sequence_Wait", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
- status = morse_sequence_wait(morse, sequence);
+ status = chameleon_sequence_wait(chamctxt, sequence);
return status;
}
@@ -196,19 +196,19 @@ int CHAMELEON_Sequence_Wait(RUNTIME_sequence_t *sequence)
*/
int CHAMELEON_Sequence_Flush(RUNTIME_sequence_t *sequence, RUNTIME_request_t *request)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_Sequence_Flush", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_Sequence_Flush", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (sequence == NULL) {
- morse_fatal_error("CHAMELEON_Sequence_Flush", "NULL sequence");
+ chameleon_fatal_error("CHAMELEON_Sequence_Flush", "NULL sequence");
return CHAMELEON_ERR_UNALLOCATED;
}
- RUNTIME_sequence_flush( morse->schedopt, sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
+ RUNTIME_sequence_flush( chamctxt->schedopt, sequence, request, CHAMELEON_ERR_SEQUENCE_FLUSHED);
return CHAMELEON_SUCCESS;
}
diff --git a/control/async.h b/control/async.h
index 5157c10ec..f35e5f7c9 100644
--- a/control/async.h
+++ b/control/async.h
@@ -29,10 +29,10 @@ extern "C" {
/**
* Internal routines
*/
-int morse_request_fail (RUNTIME_sequence_t *sequence, RUNTIME_request_t *request, int error);
-int morse_sequence_create (CHAM_context_t *CHAMELEON, RUNTIME_sequence_t **sequence);
-int morse_sequence_destroy (CHAM_context_t *CHAMELEON, RUNTIME_sequence_t *sequence);
-int morse_sequence_wait (CHAM_context_t *CHAMELEON, RUNTIME_sequence_t *sequence);
+int chameleon_request_fail (RUNTIME_sequence_t *sequence, RUNTIME_request_t *request, int error);
+int chameleon_sequence_create (CHAM_context_t *CHAMELEON, RUNTIME_sequence_t **sequence);
+int chameleon_sequence_destroy (CHAM_context_t *CHAMELEON, RUNTIME_sequence_t *sequence);
+int chameleon_sequence_wait (CHAM_context_t *CHAMELEON, RUNTIME_sequence_t *sequence);
#ifdef __cplusplus
}
diff --git a/control/auxiliary.c b/control/auxiliary.c
index 1024557e4..55e05b265 100644
--- a/control/auxiliary.c
+++ b/control/auxiliary.c
@@ -46,14 +46,14 @@
* Warning message to display.
*
*/
-void morse_warning(const char *func_name, const char *msg_text)
+void chameleon_warning(const char *func_name, const char *msg_text)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL)
- morse_fatal_error("morse_warning", "CHAMELEON not initialized");
- if (morse->warnings_enabled)
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL)
+ chameleon_fatal_error("chameleon_warning", "CHAMELEON not initialized");
+ if (chamctxt->warnings_enabled)
fprintf(stderr, "CHAMELEON WARNING: %s(): %s\n", func_name, msg_text);
}
@@ -71,7 +71,7 @@ void morse_warning(const char *func_name, const char *msg_text)
* Warning message to display.
*
*/
-void morse_error(const char *func_name, const char *msg_text)
+void chameleon_error(const char *func_name, const char *msg_text)
{
fprintf(stderr, "CHAMELEON ERROR: %s(): %s\n", func_name, msg_text);
}
@@ -89,7 +89,7 @@ void morse_error(const char *func_name, const char *msg_text)
* Warning message to display.
*
*/
-void morse_fatal_error(const char *func_name, const char *msg_text)
+void chameleon_fatal_error(const char *func_name, const char *msg_text)
{
fprintf(stderr, "CHAMELEON FATAL ERROR: %s(): %s\n", func_name, msg_text);
exit(0);
@@ -98,20 +98,20 @@ void morse_fatal_error(const char *func_name, const char *msg_text)
/**
* Returns core id
*/
-int morse_rank(CHAM_context_t *morse)
+int chameleon_rank(CHAM_context_t *chamctxt)
{
- return RUNTIME_thread_rank( morse );
+ return RUNTIME_thread_rank( chamctxt );
}
/**
* Tune block size nb and internal block size ib
*/
-int morse_tune(cham_tasktype_t func, int M, int N, int NRHS)
+int chameleon_tune(cham_tasktype_t func, int M, int N, int NRHS)
{
- CHAM_context_t *morse;
- morse = morse_context_self();
- if ( morse && morse->autotuning_enabled == CHAMELEON_TRUE ) {
- morse_warning( "morse_tune", "Autotunning not available for now" );
+ CHAM_context_t *chamctxt;
+ chamctxt = chameleon_context_self();
+ if ( chamctxt && chamctxt->autotuning_enabled == CHAMELEON_TRUE ) {
+ chameleon_warning( "chameleon_tune", "Autotunning not available for now" );
}
(void)func;
(void)M;
@@ -193,7 +193,7 @@ int CHAMELEON_Element_Size(int type)
case ChamRealDouble: return sizeof(double);
case ChamComplexFloat: return 2*sizeof(float);
case ChamComplexDouble: return 2*sizeof(double);
- default: morse_fatal_error("CHAMELEON_Element_Size", "undefined type");
+ default: chameleon_fatal_error("CHAMELEON_Element_Size", "undefined type");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
@@ -216,9 +216,9 @@ int CHAMELEON_Element_Size(int type)
int CHAMELEON_My_Mpi_Rank(void)
{
#if defined(CHAMELEON_USE_MPI)
- CHAM_context_t *morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Finalize()", "CHAMELEON not initialized");
+ CHAM_context_t *chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Finalize()", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
return CHAMELEON_MPI_RANK;
diff --git a/control/auxiliary.h b/control/auxiliary.h
index aca92da83..28a585857 100644
--- a/control/auxiliary.h
+++ b/control/auxiliary.h
@@ -32,11 +32,11 @@ extern "C" {
/**
* Internal routines
*/
-void morse_warning (const char *func_name, const char* msg_text);
-void morse_error (const char *func_name, const char* msg_text);
-void morse_fatal_error (const char *func_name, const char* msg_text);
-int morse_rank (CHAM_context_t *morse);
-int morse_tune (cham_tasktype_t func, int M, int N, int NRHS);
+void chameleon_warning (const char *func_name, const char* msg_text);
+void chameleon_error (const char *func_name, const char* msg_text);
+void chameleon_fatal_error (const char *func_name, const char* msg_text);
+int chameleon_rank (CHAM_context_t *chamctxt);
+int chameleon_tune (cham_tasktype_t func, int M, int N, int NRHS);
/**
* API routines
diff --git a/control/morse_f77.c b/control/chameleon_f77.c
similarity index 98%
rename from control/morse_f77.c
rename to control/chameleon_f77.c
index bddfcba97..e5c5c96b1 100644
--- a/control/morse_f77.c
+++ b/control/chameleon_f77.c
@@ -1,6 +1,6 @@
/**
*
- * @file morse_f77.c
+ * @file chameleon_f77.c
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
@@ -21,7 +21,7 @@
#include <stdlib.h>
#include "control/common.h"
#include "chameleon.h"
-#include "morse_f77.h"
+#include "chameleon_f77.h"
#ifdef __cplusplus
extern "C" {
diff --git a/control/chameleon_f77.h b/control/chameleon_f77.h
new file mode 100644
index 000000000..df1042327
--- /dev/null
+++ b/control/chameleon_f77.h
@@ -0,0 +1,49 @@
+/**
+ *
+ * @file chameleon_f77.h
+ *
+ * @copyright 2009-2014 The University of Tennessee and The University of
+ * Tennessee Research Foundation. All rights reserved.
+ * @copyright 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
+ * Univ. Bordeaux. All rights reserved.
+ *
+ ***
+ *
+ * @brief Chameleon Fortran77 naming macros
+ *
+ * @version 1.0.0
+ * @author Florent Pruvost
+ * @date 2017-05-03
+ *
+ */
+#ifndef _CHAMELEON_F77_H_
+#define _CHAMELEON_F77_H_
+
+#include "chameleon/mangling.h"
+
+/**
+ * Determine FORTRAN names
+ */
+#define CHAMELEON_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(chameleon_##lcname, CHAMELEON_##UCNAME)
+#define CHAMELEON_TILE_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(chameleon_##lcname##_tile, CHAMELEON_##UCNAME##_TILE)
+#define CHAMELEON_ASYNC_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(chameleon_##lcname##_tile_async, CHAMELEON_##UCNAME##_TILE_ASYNC)
+#define CHAMELEON_WS_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(chameleon_alloc_workspace_##lcname, CHAMELEON_ALLOC_WORKSPACE_##UCNAME)
+#define CHAMELEON_WST_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(chameleon_alloc_workspace_##lcname##_tile, CHAMELEON_ALLOC_WORKSPACE_##UCNAME##_TILE)
+
+#define CHAMELEON_INIT CHAMELEON_GLOBAL(chameleon_init, CHAMELEON_INIT)
+#define CHAMELEON_FINALIZE CHAMELEON_GLOBAL(chameleon_finalize, CHAMELEON_FINALIZE)
+#define CHAMELEON_ENABLE CHAMELEON_GLOBAL(chameleon_enable, CHAMELEON_ENABLE)
+#define CHAMELEON_DISABLE CHAMELEON_GLOBAL(chameleon_disable, CHAMELEON_DISABLE)
+#define CHAMELEON_SET CHAMELEON_GLOBAL(chameleon_set, CHAMELEON_SET)
+#define CHAMELEON_GET CHAMELEON_GLOBAL(chameleon_get, CHAMELEON_GET)
+#define CHAMELEON_DEALLOC_HANDLE CHAMELEON_GLOBAL(chameleon_dealloc_handle, CHAMELEON_DEALLOC_HANDLE)
+#define CHAMELEON_VERSION CHAMELEON_GLOBAL(chameleon_version, CHAMELEON_VERSION)
+#define CHAMELEON_DESC_CREATE CHAMELEON_GLOBAL(chameleon_desc_create, CHAMELEON_DESC_CREATE)
+#define CHAMELEON_DESC_CREATE_OOC CHAMELEON_GLOBAL(chameleon_desc_create_ooc, CHAMELEON_DESC_CREATE_OOC)
+#define CHAMELEON_DESC_CREATE_USER CHAMELEON_GLOBAL(chameleon_desc_create_user, CHAMELEON_DESC_CREATE_USER)
+#define CHAMELEON_DESC_CREATE_OOC_USER CHAMELEON_GLOBAL(chameleon_desc_create_ooc_user, CHAMELEON_DESC_CREATE_OOC_USER)
+#define CHAMELEON_DESC_DESTROY CHAMELEON_GLOBAL(chameleon_desc_destroy, CHAMELEON_DESC_DESTROY)
+#define CHAMELEON_LAPACK_TO_TILE CHAMELEON_GLOBAL(chameleon_lapack_to_tile, CHAMELEON_LAPACK_TO_TILE)
+#define CHAMELEON_TILE_TO_LAPACK CHAMELEON_GLOBAL(chameleon_tile_to_lapack, CHAMELEON_TILE_TO_LAPACK)
+
+#endif
diff --git a/control/morse_f90.f90 b/control/chameleon_f90.f90
similarity index 75%
rename from control/morse_f90.f90
rename to control/chameleon_f90.f90
index fb5d5f602..54fd6a43a 100644
--- a/control/morse_f90.f90
+++ b/control/chameleon_f90.f90
@@ -74,17 +74,17 @@
! @date 2011-09-15
! @precisions normal z -> c d s
!
-module morse
+module chameleon
- use morse_s
- use morse_d
- use morse_ds
- use morse_c
- use morse_z
- use morse_zc
- include 'morse_fortran.h'
+ use chameleon_s
+ use chameleon_d
+ use chameleon_ds
+ use chameleon_c
+ use chameleon_z
+ use chameleon_zc
+ include 'chameleon_fortran.h'
- logical :: morse_initialized = .false.
+ logical :: chameleon_initialized = .false.
integer, parameter :: sp = kind(0.0)
integer, parameter :: dp = kind(0.0d0)
@@ -309,164 +309,164 @@ module morse
end function CHAMELEON_Sequence_Flush_c
end interface
- interface morse_lapack_to_tile
- module procedure morse_lapack_to_tile_s
- module procedure morse_lapack_to_tile_d
- module procedure morse_lapack_to_tile_cpx
- module procedure morse_lapack_to_tile_z
- end interface morse_lapack_to_tile
-
- interface morse_tile_to_lapack
- module procedure morse_tile_to_lapack_s
- module procedure morse_tile_to_lapack_d
- module procedure morse_tile_to_lapack_cpx
- module procedure morse_tile_to_lapack_z
- end interface morse_tile_to_lapack
-
- interface morse_desc_create
- module procedure morse_desc_create_s
- module procedure morse_desc_create_d
- module procedure morse_desc_create_cpx
- module procedure morse_desc_create_z
- end interface morse_desc_create
+ interface chameleon_lapack_to_tile
+ module procedure chameleon_lapack_to_tile_s
+ module procedure chameleon_lapack_to_tile_d
+ module procedure chameleon_lapack_to_tile_cpx
+ module procedure chameleon_lapack_to_tile_z
+ end interface chameleon_lapack_to_tile
+
+ interface chameleon_tile_to_lapack
+ module procedure chameleon_tile_to_lapack_s
+ module procedure chameleon_tile_to_lapack_d
+ module procedure chameleon_tile_to_lapack_cpx
+ module procedure chameleon_tile_to_lapack_z
+ end interface chameleon_tile_to_lapack
+
+ interface chameleon_desc_create
+ module procedure chameleon_desc_create_s
+ module procedure chameleon_desc_create_d
+ module procedure chameleon_desc_create_cpx
+ module procedure chameleon_desc_create_z
+ end interface chameleon_desc_create
contains
- subroutine morse_init(cores,gpus,info)
+ subroutine chameleon_init(cores,gpus,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: cores, gpus
integer(kind=c_int), intent(out) :: info
- info = morse_init_c(cores,gpus)
- morse_initialized = .true.
- end subroutine morse_init
+ info = chameleon_init_c(cores,gpus)
+ chameleon_initialized = .true.
+ end subroutine chameleon_init
- subroutine morse_finalize(info)
+ subroutine chameleon_finalize(info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(out) :: info
- info = morse_finalize_c()
- morse_initialized = .false.
- end subroutine morse_finalize
+ info = chameleon_finalize_c()
+ chameleon_initialized = .false.
+ end subroutine chameleon_finalize
- subroutine morse_set(param,pval,info)
+ subroutine chameleon_set(param,pval,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: param
integer(kind=c_int), intent(in) :: pval
integer(kind=c_int), intent(out) :: info
- info = morse_set_c(param,pval)
- end subroutine morse_set
+ info = chameleon_set_c(param,pval)
+ end subroutine chameleon_set
- subroutine morse_get(param,pval,info)
+ subroutine chameleon_get(param,pval,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: param
integer(kind=c_int), intent(out), target :: pval
integer(kind=c_int), intent(out) :: info
- info = morse_get_c(param,c_loc(pval))
- end subroutine morse_get
+ info = chameleon_get_c(param,c_loc(pval))
+ end subroutine chameleon_get
- subroutine morse_enable(param,info)
+ subroutine chameleon_enable(param,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: param
integer(kind=c_int), intent(out) :: info
- info = morse_enable_c(param)
- end subroutine morse_enable
+ info = chameleon_enable_c(param)
+ end subroutine chameleon_enable
- subroutine morse_disable(param,info)
+ subroutine chameleon_disable(param,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: param
integer(kind=c_int), intent(out) :: info
- info = morse_disable_c(param)
- end subroutine morse_disable
+ info = chameleon_disable_c(param)
+ end subroutine chameleon_disable
! overloaded: single precision
- subroutine morse_lapack_to_tile_s(a_lpk,lda,a_pma,info)
+ subroutine chameleon_lapack_to_tile_s(a_lpk,lda,a_pma,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: lda
real(kind=sp), intent(out), target :: a_lpk(lda,*)
type(c_ptr), intent(out) :: a_pma
integer(kind=c_int), intent(out) :: info
- info = morse_lapack_to_tile_c(c_loc(a_lpk),lda,a_pma)
- end subroutine morse_lapack_to_tile_s
+ info = chameleon_lapack_to_tile_c(c_loc(a_lpk),lda,a_pma)
+ end subroutine chameleon_lapack_to_tile_s
! overloaded: double precision
- subroutine morse_lapack_to_tile_d(a_lpk,lda,a_pma,info)
+ subroutine chameleon_lapack_to_tile_d(a_lpk,lda,a_pma,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: lda
real(kind=dp), intent(out), target :: a_lpk(lda,*)
type(c_ptr), intent(out) :: a_pma
integer(kind=c_int), intent(out) :: info
- info = morse_lapack_to_tile_c(c_loc(a_lpk),lda,a_pma)
- end subroutine morse_lapack_to_tile_d
+ info = chameleon_lapack_to_tile_c(c_loc(a_lpk),lda,a_pma)
+ end subroutine chameleon_lapack_to_tile_d
! overloaded: single precision complex
- subroutine morse_lapack_to_tile_cpx(a_lpk,lda,a_pma,info)
+ subroutine chameleon_lapack_to_tile_cpx(a_lpk,lda,a_pma,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: lda
complex(kind=sp), intent(out), target :: a_lpk(lda,*)
type(c_ptr), intent(out) :: a_pma
integer(kind=c_int), intent(out) :: info
- info = morse_lapack_to_tile_c(c_loc(a_lpk),lda,a_pma)
- end subroutine morse_lapack_to_tile_cpx
+ info = chameleon_lapack_to_tile_c(c_loc(a_lpk),lda,a_pma)
+ end subroutine chameleon_lapack_to_tile_cpx
! overloaded: double precision complex
- subroutine morse_lapack_to_tile_z(a_lpk,lda,a_pma,info)
+ subroutine chameleon_lapack_to_tile_z(a_lpk,lda,a_pma,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: lda
complex(kind=dp), intent(out), target :: a_lpk(lda,*)
type(c_ptr), intent(out) :: a_pma
integer(kind=c_int), intent(out) :: info
- info = morse_lapack_to_tile_c(c_loc(a_lpk),lda,a_pma)
- end subroutine morse_lapack_to_tile_z
+ info = chameleon_lapack_to_tile_c(c_loc(a_lpk),lda,a_pma)
+ end subroutine chameleon_lapack_to_tile_z
! overloaded: single precision
- subroutine morse_tile_to_lapack_s(a_pma,a_lpk,lda,info)
+ subroutine chameleon_tile_to_lapack_s(a_pma,a_lpk,lda,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: lda
real(kind=sp), intent(out), target :: a_lpk(lda,*)
type(c_ptr), intent(in) :: a_pma
integer(kind=c_int), intent(out) :: info
- info = morse_tile_to_lapack_c(a_pma,c_loc(a_lpk),lda)
- end subroutine morse_tile_to_lapack_s
+ info = chameleon_tile_to_lapack_c(a_pma,c_loc(a_lpk),lda)
+ end subroutine chameleon_tile_to_lapack_s
! overloaded: double precision
- subroutine morse_tile_to_lapack_d(a_pma,a_lpk,lda,info)
+ subroutine chameleon_tile_to_lapack_d(a_pma,a_lpk,lda,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: lda
real(kind=dp), intent(out), target :: a_lpk(lda,*)
type(c_ptr), intent(in) :: a_pma
integer(kind=c_int), intent(out) :: info
- info = morse_tile_to_lapack_c(a_pma,c_loc(a_lpk),lda)
- end subroutine morse_tile_to_lapack_d
+ info = chameleon_tile_to_lapack_c(a_pma,c_loc(a_lpk),lda)
+ end subroutine chameleon_tile_to_lapack_d
! overloaded: single precision complex
- subroutine morse_tile_to_lapack_cpx(a_pma,a_lpk,lda,info)
+ subroutine chameleon_tile_to_lapack_cpx(a_pma,a_lpk,lda,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: lda
complex(kind=sp), intent(out), target :: a_lpk(lda,*)
type(c_ptr), intent(in) :: a_pma
integer(kind=c_int), intent(out) :: info
- info = morse_tile_to_lapack_c(a_pma,c_loc(a_lpk),lda)
- end subroutine morse_tile_to_lapack_cpx
+ info = chameleon_tile_to_lapack_c(a_pma,c_loc(a_lpk),lda)
+ end subroutine chameleon_tile_to_lapack_cpx
! overloaded: double precision complex
- subroutine morse_tile_to_lapack_z(a_pma,a_lpk,lda,info)
+ subroutine chameleon_tile_to_lapack_z(a_pma,a_lpk,lda,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: lda
complex(kind=dp), intent(out), target :: a_lpk(lda,*)
type(c_ptr), intent(in) :: a_pma
integer(kind=c_int), intent(out) :: info
- info = morse_tile_to_lapack_c(a_pma,c_loc(a_lpk),lda)
- end subroutine morse_tile_to_lapack_z
+ info = chameleon_tile_to_lapack_c(a_pma,c_loc(a_lpk),lda)
+ end subroutine chameleon_tile_to_lapack_z
! overloaded: single precision
- subroutine morse_desc_create_s(desc,mat,dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q,info)
+ subroutine chameleon_desc_create_s(desc,mat,dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q,info)
use iso_c_binding
implicit none
type(c_ptr), intent(out) :: desc
@@ -474,10 +474,10 @@ module morse
real(kind=sp), intent(in), target :: mat(lm,*)
integer(kind=c_int), intent(in) :: dtyp
integer(kind=c_int), intent(out) :: info
- info = morse_desc_create_c(desc,c_loc(mat),dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q)
- end subroutine morse_desc_create_s
+ info = chameleon_desc_create_c(desc,c_loc(mat),dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q)
+ end subroutine chameleon_desc_create_s
! overloaded: double precision
- subroutine morse_desc_create_d(desc,mat,dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q,info)
+ subroutine chameleon_desc_create_d(desc,mat,dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q,info)
use iso_c_binding
implicit none
type(c_ptr), intent(out) :: desc
@@ -485,10 +485,10 @@ module morse
real(kind=dp), intent(in), target :: mat(lm,*)
integer(kind=c_int), intent(in) :: dtyp
integer(kind=c_int), intent(out) :: info
- info = morse_desc_create_c(desc,c_loc(mat),dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q)
- end subroutine morse_desc_create_d
+ info = chameleon_desc_create_c(desc,c_loc(mat),dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q)
+ end subroutine chameleon_desc_create_d
! overloaded: single precision complex
- subroutine morse_desc_create_cpx(desc,mat,dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q,info)
+ subroutine chameleon_desc_create_cpx(desc,mat,dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q,info)
use iso_c_binding
implicit none
type(c_ptr), intent(out) :: desc
@@ -496,10 +496,10 @@ module morse
complex(kind=sp), intent(in), target :: mat(lm,*)
integer(kind=c_int), intent(in) :: dtyp
integer(kind=c_int), intent(out) :: info
- info = morse_desc_create_c(desc,c_loc(mat),dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q)
- end subroutine morse_desc_create_cpx
+ info = chameleon_desc_create_c(desc,c_loc(mat),dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q)
+ end subroutine chameleon_desc_create_cpx
! overloaded: double precision complex
- subroutine morse_desc_create_z(desc,mat,dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q,info)
+ subroutine chameleon_desc_create_z(desc,mat,dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q,info)
use iso_c_binding
implicit none
type(c_ptr), intent(out) :: desc
@@ -507,87 +507,87 @@ module morse
complex(kind=dp), intent(in), target :: mat(lm,*)
integer(kind=c_int), intent(in) :: dtyp
integer(kind=c_int), intent(out) :: info
- info = morse_desc_create_c(desc,c_loc(mat),dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q)
- end subroutine morse_desc_create_z
+ info = chameleon_desc_create_c(desc,c_loc(mat),dtyp,mb,nb,bsiz,lm,ln,i,j,m,n,p,q)
+ end subroutine chameleon_desc_create_z
- subroutine morse_desc_destroy(desc,info)
+ subroutine chameleon_desc_destroy(desc,info)
use iso_c_binding
implicit none
type(c_ptr), intent(inout) :: desc
integer(kind=c_int), intent(out) :: info
- info = morse_desc_destroy_c(desc)
- end subroutine morse_desc_destroy
+ info = chameleon_desc_destroy_c(desc)
+ end subroutine chameleon_desc_destroy
- subroutine morse_free(ptr)
+ subroutine chameleon_free(ptr)
use iso_c_binding
implicit none
type(c_ptr), intent(in) :: ptr
call free_c(ptr)
- end subroutine morse_free
+ end subroutine chameleon_free
- subroutine morse_version(ver_major,ver_minor,ver_micro,info)
+ subroutine chameleon_version(ver_major,ver_minor,ver_micro,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(out), target :: ver_major,ver_minor,ver_micro
integer(kind=c_int), intent(out) :: info
- info = morse_version_c(c_loc(ver_major),c_loc(ver_minor),c_loc(ver_micro))
- end subroutine morse_version
+ info = chameleon_version_c(c_loc(ver_major),c_loc(ver_minor),c_loc(ver_micro))
+ end subroutine chameleon_version
- subroutine morse_init_affinity(cores,bindtab,info)
+ subroutine chameleon_init_affinity(cores,bindtab,info)
use iso_c_binding
implicit none
integer(kind=c_int), intent(in) :: cores
integer(kind=c_int), intent(out), target :: bindtab
integer(kind=c_int), intent(out) :: info
- info = morse_init_affinity_c(cores,c_loc(bindtab))
- end subroutine morse_init_affinity
+ info = chameleon_init_affinity_c(cores,c_loc(bindtab))
+ end subroutine chameleon_init_affinity
- subroutine morse_dealloc_handle(handle,info)
+ subroutine chameleon_dealloc_handle(handle,info)
use iso_c_binding
implicit none
type(c_ptr), intent(inout) :: handle
integer(kind=c_int), intent(out) :: info
- info = morse_dealloc_handle_c(handle)
- end subroutine morse_dealloc_handle
+ info = chameleon_dealloc_handle_c(handle)
+ end subroutine chameleon_dealloc_handle
- subroutine morse_dealloc_handle_tile(desc,info)
+ subroutine chameleon_dealloc_handle_tile(desc,info)
use iso_c_binding
implicit none
type(c_ptr), intent(inout) :: desc
integer(kind=c_int), intent(out) :: info
- info = morse_dealloc_handle_tile_c(desc)
- end subroutine morse_dealloc_handle_tile
+ info = chameleon_dealloc_handle_tile_c(desc)
+ end subroutine chameleon_dealloc_handle_tile
- subroutine morse_sequence_create(sequence,info)
+ subroutine chameleon_sequence_create(sequence,info)
use iso_c_binding
implicit none
type(c_ptr), intent(out) :: sequence
integer(kind=c_int), intent(out) :: info
- info = morse_sequence_create_c(sequence)
- end subroutine morse_sequence_create
+ info = chameleon_sequence_create_c(sequence)
+ end subroutine chameleon_sequence_create
- subroutine morse_sequence_destroy(sequence,info)
+ subroutine chameleon_sequence_destroy(sequence,info)
use iso_c_binding
implicit none
type(c_ptr), intent(in) :: sequence
integer(kind=c_int), intent(out) :: info
- info = morse_sequence_destroy_c(sequence)
- end subroutine morse_sequence_destroy
+ info = chameleon_sequence_destroy_c(sequence)
+ end subroutine chameleon_sequence_destroy
- subroutine morse_sequence_wait(sequence,info)
+ subroutine chameleon_sequence_wait(sequence,info)
use iso_c_binding
implicit none
type(c_ptr), intent(in) :: sequence
integer(kind=c_int), intent(out) :: info
- info = morse_sequence_wait_c(sequence)
- end subroutine morse_sequence_wait
+ info = chameleon_sequence_wait_c(sequence)
+ end subroutine chameleon_sequence_wait
- subroutine morse_sequence_flush(sequence,request,info)
+ subroutine chameleon_sequence_flush(sequence,request,info)
use iso_c_binding
implicit none
type(c_ptr), intent(in) :: sequence, request
integer(kind=c_int), intent(out) :: info
- info = morse_sequence_flush_c(sequence,request)
- end subroutine morse_sequence_flush
+ info = chameleon_sequence_flush_c(sequence,request)
+ end subroutine chameleon_sequence_flush
-end module morse
+end module chameleon
diff --git a/control/morse_mf77.c b/control/chameleon_mf77.c
similarity index 99%
rename from control/morse_mf77.c
rename to control/chameleon_mf77.c
index 9fa528a2b..d1dd61cde 100644
--- a/control/morse_mf77.c
+++ b/control/chameleon_mf77.c
@@ -1,6 +1,6 @@
/**
*
- * @file morse_mf77.c
+ * @file chameleon_mf77.c
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
diff --git a/control/morse_zcf90.F90 b/control/chameleon_zcf90.F90
similarity index 99%
rename from control/morse_zcf90.F90
rename to control/chameleon_zcf90.F90
index 30465a519..c14ac93d8 100644
--- a/control/morse_zcf90.F90
+++ b/control/chameleon_zcf90.F90
@@ -77,7 +77,7 @@
! @date 2011-12-15
! @precisions mixed zc -> ds
!
-module morse_zc
+module chameleon_zc
interface
function CHAMELEON_zcgesv_c(N,NRHS,A,LDA,IPIV,B,LDB,X,LDX,ITER) &
@@ -361,4 +361,4 @@ module morse_zc
info = CHAMELEON_zcungesv_Tile_Async_c(trans,A,T,B,X,c_loc(ITER),sequence,request)
end subroutine CHAMELEON_zcungesv_Tile_Async
-end module morse_zc
+end module chameleon_zc
diff --git a/control/morse_zf77.c b/control/chameleon_zf77.c
similarity index 99%
rename from control/morse_zf77.c
rename to control/chameleon_zf77.c
index 01f05bf96..9464c0cd1 100644
--- a/control/morse_zf77.c
+++ b/control/chameleon_zf77.c
@@ -1,6 +1,6 @@
/**
*
- * @file morse_zf77.c
+ * @file chameleon_zf77.c
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
@@ -26,7 +26,7 @@
*/
#include <stdlib.h>
#include "control/common.h"
-#include "control/morse_f77.h"
+#include "control/chameleon_f77.h"
/**
* FORTRAN API - math functions (simple interface)
diff --git a/control/morse_zf90.F90 b/control/chameleon_zf90.F90
similarity index 99%
rename from control/morse_zf90.F90
rename to control/chameleon_zf90.F90
index edc6821ca..beb09a332 100644
--- a/control/morse_zf90.F90
+++ b/control/chameleon_zf90.F90
@@ -79,7 +79,7 @@
!
#define PRECISION_z
-module morse_z
+module chameleon_z
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! FORTRAN API - math functions (simple interface)
!
@@ -5478,4 +5478,4 @@ module morse_z
info = CHAMELEON_zTile_to_Lapack_c(A,c_loc(Af77),LDA)
end subroutine CHAMELEON_zTile_to_Lapack
-end module morse_z
+end module chameleon_z
diff --git a/control/morse_zf90_wrappers.F90 b/control/chameleon_zf90_wrappers.F90
similarity index 85%
rename from control/morse_zf90_wrappers.F90
rename to control/chameleon_zf90_wrappers.F90
index 93836bb57..47681eda9 100644
--- a/control/morse_zf90_wrappers.F90
+++ b/control/chameleon_zf90_wrappers.F90
@@ -111,9 +111,9 @@
! ZLASET CHAMELEON_zlaset
#define PRECISION_z
- subroutine morse_wrap_ZGESV(N,NRHS,A,LDA,IPIV,B,LDB,INFO)
+ subroutine chameleon_wrap_ZGESV(N,NRHS,A,LDA,IPIV,B,LDB,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -124,14 +124,14 @@
integer, intent(out), target :: IPIV(*)
complex(kind=wp), intent(inout), target :: A(LDA,*)
complex(kind=wp), intent(inout), target :: B(LDB,*)
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZGESV"
call CHAMELEON_ZGESV(N,NRHS,A,LDA,IPIV,B,LDB,INFO)
- end subroutine morse_wrap_ZGESV
+ end subroutine chameleon_wrap_ZGESV
- subroutine morse_wrap_ZGETRF(M,N,A,LDA,IPIV,INFO)
+ subroutine chameleon_wrap_ZGETRF(M,N,A,LDA,IPIV,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -140,14 +140,14 @@
integer, intent(out) :: INFO
integer, intent(out), target :: IPIV(*)
complex(kind=wp), intent(inout), target :: A(LDA,*)
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZGETRF"
call CHAMELEON_ZGETRF(M,N,A,LDA,IPIV,INFO)
- end subroutine morse_wrap_ZGETRF
+ end subroutine chameleon_wrap_ZGETRF
- subroutine morse_wrap_ZGETRS(TRANS,N,NRHS,A,LDA,IPIV,B,LDB,INFO)
+ subroutine chameleon_wrap_ZGETRS(TRANS,N,NRHS,A,LDA,IPIV,B,LDB,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -169,14 +169,14 @@
else
local_TRANS = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZGETRS"
call CHAMELEON_ZGETRS(local_TRANS,N,NRHS,A,LDA,IPIV,B,LDB,INFO)
- end subroutine morse_wrap_ZGETRS
+ end subroutine chameleon_wrap_ZGETRS
- subroutine morse_wrap_ZHEGST(ITYPE,UPLO,N,A,LDA,B,LDB,INFO)
+ subroutine chameleon_wrap_ZHEGST(ITYPE,UPLO,N,A,LDA,B,LDB,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: ITYPE
@@ -195,14 +195,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZHEGST"
call CHAMELEON_ZHEGST(ITYPE,local_UPLO,N,A,LDA,B,LDB,INFO)
- end subroutine morse_wrap_ZHEGST
+ end subroutine chameleon_wrap_ZHEGST
- subroutine morse_wrap_ZLASWP(N,A,LDA,K1,K2,IPIV,INCX)
+ subroutine chameleon_wrap_ZLASWP(N,A,LDA,K1,K2,IPIV,INCX)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: INCX
@@ -213,14 +213,14 @@
integer, intent(in), target :: IPIV(*)
complex(kind=wp), intent(inout), target :: A(LDA,*)
integer :: local_ret
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZLASWP"
call CHAMELEON_ZLASWP(N,A,LDA,K1,K2,IPIV,INCX,local_ret)
- end subroutine morse_wrap_ZLASWP
+ end subroutine chameleon_wrap_ZLASWP
- subroutine morse_wrap_ZLAUUM(UPLO,N,A,LDA,INFO)
+ subroutine chameleon_wrap_ZLAUUM(UPLO,N,A,LDA,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -236,14 +236,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZLAUUM"
call CHAMELEON_ZLAUUM(local_UPLO,N,A,LDA,INFO)
- end subroutine morse_wrap_ZLAUUM
+ end subroutine chameleon_wrap_ZLAUUM
- subroutine morse_wrap_ZPOSV(UPLO,N,NRHS,A,LDA,B,LDB,INFO)
+ subroutine chameleon_wrap_ZPOSV(UPLO,N,NRHS,A,LDA,B,LDB,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -262,14 +262,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZPOSV"
call CHAMELEON_ZPOSV(local_UPLO,N,NRHS,A,LDA,B,LDB,INFO)
- end subroutine morse_wrap_ZPOSV
+ end subroutine chameleon_wrap_ZPOSV
- subroutine morse_wrap_ZSYSV(UPLO,N,NRHS,A,LDA,B,LDB,INFO)
+ subroutine chameleon_wrap_ZSYSV(UPLO,N,NRHS,A,LDA,B,LDB,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -288,14 +288,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZSYSV"
call CHAMELEON_ZSYSV(local_UPLO,N,NRHS,A,LDA,B,LDB,INFO)
- end subroutine morse_wrap_ZSYSV
+ end subroutine chameleon_wrap_ZSYSV
- subroutine morse_wrap_ZPOTRF(UPLO,N,A,LDA,INFO)
+ subroutine chameleon_wrap_ZPOTRF(UPLO,N,A,LDA,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -311,14 +311,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZPOTRF"
call CHAMELEON_ZPOTRF(local_UPLO,N,A,LDA,INFO)
- end subroutine morse_wrap_ZPOTRF
+ end subroutine chameleon_wrap_ZPOTRF
- subroutine morse_wrap_ZSYTRF(UPLO,N,A,LDA,INFO)
+ subroutine chameleon_wrap_ZSYTRF(UPLO,N,A,LDA,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -334,14 +334,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZSYTRF"
call CHAMELEON_ZSYTRF(local_UPLO,N,A,LDA,INFO)
- end subroutine morse_wrap_ZSYTRF
+ end subroutine chameleon_wrap_ZSYTRF
- subroutine morse_wrap_ZPOTRI(UPLO,N,A,LDA,INFO)
+ subroutine chameleon_wrap_ZPOTRI(UPLO,N,A,LDA,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -357,14 +357,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZPOTRI"
call CHAMELEON_ZPOTRI(local_UPLO,N,A,LDA,INFO)
- end subroutine morse_wrap_ZPOTRI
+ end subroutine chameleon_wrap_ZPOTRI
- subroutine morse_wrap_ZPOTRS(UPLO,N,NRHS,A,LDA,B,LDB,INFO)
+ subroutine chameleon_wrap_ZPOTRS(UPLO,N,NRHS,A,LDA,B,LDB,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -383,14 +383,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZPOTRS"
call CHAMELEON_ZPOTRS(local_UPLO,N,NRHS,A,LDA,B,LDB,INFO)
- end subroutine morse_wrap_ZPOTRS
+ end subroutine chameleon_wrap_ZPOTRS
- subroutine morse_wrap_ZSYTRS(UPLO,N,NRHS,A,LDA,B,LDB,INFO)
+ subroutine chameleon_wrap_ZSYTRS(UPLO,N,NRHS,A,LDA,B,LDB,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -409,14 +409,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZSYTRS"
call CHAMELEON_ZSYTRS(local_UPLO,N,NRHS,A,LDA,B,LDB,INFO)
- end subroutine morse_wrap_ZSYTRS
+ end subroutine chameleon_wrap_ZSYTRS
- subroutine morse_wrap_ZTRTRI(UPLO,DIAG,N,A,LDA,INFO)
+ subroutine chameleon_wrap_ZTRTRI(UPLO,DIAG,N,A,LDA,INFO)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -441,14 +441,14 @@
else
local_DIAG = -1
end if
- if (.not. morse_initialized) call morse_init(24,INFO)
+ if (.not. chameleon_initialized) call chameleon_init(24,INFO)
! write(*,*) " Calling CHAMELEON_ZTRTRI"
call CHAMELEON_ZTRTRI(local_UPLO,local_DIAG,N,A,LDA,INFO)
- end subroutine morse_wrap_ZTRTRI
+ end subroutine chameleon_wrap_ZTRTRI
- subroutine morse_wrap_ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
+ subroutine chameleon_wrap_ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: K
@@ -485,15 +485,15 @@
else
local_TRANSB = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZGEMM"
call CHAMELEON_ZGEMM(local_TRANSA,local_TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC,local_ret)
- end subroutine morse_wrap_ZGEMM
+ end subroutine chameleon_wrap_ZGEMM
#if defined(PRECISION_z) || defined(PRECISION_c)
- subroutine morse_wrap_ZHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
+ subroutine chameleon_wrap_ZHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -525,14 +525,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZHEMM"
call CHAMELEON_ZHEMM(local_SIDE,local_UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC,local_ret)
- end subroutine morse_wrap_ZHEMM
+ end subroutine chameleon_wrap_ZHEMM
- subroutine morse_wrap_ZHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
+ subroutine chameleon_wrap_ZHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: K
@@ -566,14 +566,14 @@
else
local_TRANS = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZHER2K"
call CHAMELEON_ZHER2K(local_UPLO,local_TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC,local_ret)
- end subroutine morse_wrap_ZHER2K
+ end subroutine chameleon_wrap_ZHER2K
- subroutine morse_wrap_ZHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
+ subroutine chameleon_wrap_ZHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: K
@@ -605,15 +605,15 @@
else
local_TRANS = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZHERK"
call CHAMELEON_ZHERK(local_UPLO,local_TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC,local_ret)
- end subroutine morse_wrap_ZHERK
+ end subroutine chameleon_wrap_ZHERK
#endif
- subroutine morse_wrap_ZSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
+ subroutine chameleon_wrap_ZSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -645,14 +645,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZSYMM"
call CHAMELEON_ZSYMM(local_SIDE,local_UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC,local_ret)
- end subroutine morse_wrap_ZSYMM
+ end subroutine chameleon_wrap_ZSYMM
- subroutine morse_wrap_ZSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
+ subroutine chameleon_wrap_ZSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: K
@@ -686,14 +686,14 @@
else
local_TRANS = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZSYR2K"
call CHAMELEON_ZSYR2K(local_UPLO,local_TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC,local_ret)
- end subroutine morse_wrap_ZSYR2K
+ end subroutine chameleon_wrap_ZSYR2K
- subroutine morse_wrap_ZSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
+ subroutine chameleon_wrap_ZSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: K
@@ -725,14 +725,14 @@
else
local_TRANS = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZSYRK"
call CHAMELEON_ZSYRK(local_UPLO,local_TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC,local_ret)
- end subroutine morse_wrap_ZSYRK
+ end subroutine chameleon_wrap_ZSYRK
- subroutine morse_wrap_ZTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
+ subroutine chameleon_wrap_ZTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -781,14 +781,14 @@
else
local_DIAG = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZTRMM"
call CHAMELEON_ZTRMM(local_SIDE,local_UPLO,local_TRANSA,local_DIAG,M,N,ALPHA,A,LDA,B,LDB,local_ret)
- end subroutine morse_wrap_ZTRMM
+ end subroutine chameleon_wrap_ZTRMM
- subroutine morse_wrap_ZTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
+ subroutine chameleon_wrap_ZTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -837,14 +837,14 @@
else
local_DIAG = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZTRSM"
call CHAMELEON_ZTRSM(local_SIDE,local_UPLO,local_TRANSA,local_DIAG,M,N,ALPHA,A,LDA,B,LDB,local_ret)
- end subroutine morse_wrap_ZTRSM
+ end subroutine chameleon_wrap_ZTRSM
- subroutine morse_wrap_ZLACPY(UPLO,M,N,A,LDA,B,LDB)
+ subroutine chameleon_wrap_ZLACPY(UPLO,M,N,A,LDA,B,LDB)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -863,14 +863,14 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZLACPY"
call CHAMELEON_ZLACPY(local_UPLO,M,N,A,LDA,B,LDB,local_ret)
- end subroutine morse_wrap_ZLACPY
+ end subroutine chameleon_wrap_ZLACPY
- subroutine morse_wrap_ZLASET(UPLO,M,N,ALPHA,BETA,A,LDA)
+ subroutine chameleon_wrap_ZLASET(UPLO,M,N,ALPHA,BETA,A,LDA)
use iso_c_binding
- use morse
+ use chameleon
implicit none
integer, parameter :: wp = kind(0.0d0)
integer, intent(in) :: LDA
@@ -889,7 +889,7 @@
else
local_UPLO = -1
end if
- if (.not. morse_initialized) call morse_init(24,local_ret)
+ if (.not. chameleon_initialized) call chameleon_init(24,local_ret)
! write(*,*) " Calling CHAMELEON_ZLASET"
call CHAMELEON_ZLASET(local_UPLO,M,N,ALPHA,BETA,A,LDA,local_ret)
- end subroutine morse_wrap_ZLASET
+ end subroutine chameleon_wrap_ZLASET
diff --git a/control/morsewinthread.c b/control/chameleonwinthread.c
similarity index 93%
rename from control/morsewinthread.c
rename to control/chameleonwinthread.c
index c386686e3..25d53b19d 100644
--- a/control/morsewinthread.c
+++ b/control/chameleonwinthread.c
@@ -1,6 +1,6 @@
/**
*
- * @file morsewinthread.c
+ * @file chameleonwinthread.c
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
@@ -17,7 +17,7 @@
* @date 2012-09-15
*
*/
-#include "control/morsewinthread.h"
+#include "control/chameleonwinthread.h"
#include <limits.h>
@@ -27,8 +27,8 @@
#include <stdio.h>
#include <chameleon.h>
-CRITICAL_SECTION morsewinthread_static_initializer_check_lock;
-static int morsewinthread_initialized = 0;
+CRITICAL_SECTION chameleonwinthread_static_initializer_check_lock;
+static int chameleonwinthread_initialized = 0;
CHAMELEON_DLLPORT unsigned int CHAMELEON_CDECL pthread_self_id(void) {
return GetCurrentThreadId();
@@ -61,14 +61,14 @@ CHAMELEON_DLLPORT int CHAMELEON_CDECL pthread_mutex_init(pthread_mutex_t *mutex,
static int pthread_mutex_check_for_static_initialization( pthread_mutex_t *mutex ) {
int retval = 0;
/* This should be called once to initialize some structures */
- if ( morsewinthread_initialized == 0 ) {
- InitializeCriticalSection( &morsewinthread_static_initializer_check_lock );
- morsewinthread_initialized = 1;
+ if ( chameleonwinthread_initialized == 0 ) {
+ InitializeCriticalSection( &chameleonwinthread_static_initializer_check_lock );
+ chameleonwinthread_initialized = 1;
}
- EnterCriticalSection( &morsewinthread_static_initializer_check_lock );
+ EnterCriticalSection( &chameleonwinthread_static_initializer_check_lock );
if ( *mutex == PTHREAD_MUTEX_INITIALIZER )
retval = pthread_mutex_init( mutex, NULL );
- LeaveCriticalSection( &morsewinthread_static_initializer_check_lock );
+ LeaveCriticalSection( &chameleonwinthread_static_initializer_check_lock );
return retval;
}
diff --git a/control/morsewinthread.h b/control/chameleonwinthread.h
similarity index 98%
rename from control/morsewinthread.h
rename to control/chameleonwinthread.h
index f68c5c31b..7c0cab771 100644
--- a/control/morsewinthread.h
+++ b/control/chameleonwinthread.h
@@ -1,6 +1,6 @@
/**
*
- * @file morsewinthread.h
+ * @file chameleonwinthread.h
*
* @copyright 2009-2014 The University of Tennessee and The University of
* Tennessee Research Foundation. All rights reserved.
diff --git a/control/common.h b/control/common.h
index 2022502b1..be9c0826b 100644
--- a/control/common.h
+++ b/control/common.h
@@ -76,19 +76,19 @@
/**
* Global shortcuts
*/
-#define CHAMELEON_RANK morse_rank(morse)
-#define CHAMELEON_SIZE morse->world_size
-#define CHAMELEON_GRPSIZE morse->group_size
-#define CHAMELEON_NB morse->nb
-#define CHAMELEON_IB morse->ib
-#define CHAMELEON_SCHEDULING morse->scheduling
-#define CHAMELEON_RHBLK morse->rhblock
-#define CHAMELEON_TRANSLATION morse->translation
-#define CHAMELEON_PARALLEL morse->parallel_enabled
-#define CHAMELEON_PROFILING morse->profiling_enabled
+#define CHAMELEON_RANK chameleon_rank(chamctxt)
+#define CHAMELEON_SIZE chamctxt->world_size
+#define CHAMELEON_GRPSIZE chamctxt->group_size
+#define CHAMELEON_NB chamctxt->nb
+#define CHAMELEON_IB chamctxt->ib
+#define CHAMELEON_SCHEDULING chamctxt->scheduling
+#define CHAMELEON_RHBLK chamctxt->rhblock
+#define CHAMELEON_TRANSLATION chamctxt->translation
+#define CHAMELEON_PARALLEL chamctxt->parallel_enabled
+#define CHAMELEON_PROFILING chamctxt->profiling_enabled
#if defined(CHAMELEON_USE_MPI)
-#define CHAMELEON_MPI_RANK morse->my_mpi_rank
-#define CHAMELEON_MPI_SIZE morse->mpi_comm_size
+#define CHAMELEON_MPI_RANK chamctxt->my_mpi_rank
+#define CHAMELEON_MPI_SIZE chamctxt->mpi_comm_size
#endif
/**
@@ -101,8 +101,8 @@
/**
* Global array of LAPACK constants
*/
-extern char *morse_lapack_constants[];
-#define morse_lapack_const(morse_const) morse_lapack_constants[morse_const][0]
+extern char *chameleon_lapack_constants[];
+#define chameleon_lapack_const(chameleon_const) chameleon_lapack_constants[chameleon_const][0]
#ifdef __cplusplus
extern "C" {
@@ -114,10 +114,10 @@ extern "C" {
#include "control/compute_z.h"
/*
-void morse_pdlag2s(CHAM_context_t *morse);
-void morse_pzlag2c(CHAM_context_t *morse);
-void morse_pslag2d(CHAM_context_t *morse);
-void morse_pclag2z(CHAM_context_t *morse);
+void chameleon_pdlag2s(CHAM_context_t *chamctxt);
+void chameleon_pzlag2c(CHAM_context_t *chamctxt);
+void chameleon_pslag2d(CHAM_context_t *chamctxt);
+void chameleon_pclag2z(CHAM_context_t *chamctxt);
*/
#ifdef __cplusplus
diff --git a/control/compute_z.h b/control/compute_z.h
index 631c820ce..271dd6c4d 100644
--- a/control/compute_z.h
+++ b/control/compute_z.h
@@ -32,19 +32,19 @@
/**
* Macro for matrix conversion / Lapack interface
*/
-#define morse_zdesc_alloc_diag( descA, mb, nb, lm, ln, i, j, m, n, p, q) \
- descA = morse_desc_init_diag( \
+#define chameleon_zdesc_alloc_diag( descA, mb, nb, lm, ln, i, j, m, n, p, q) \
+ descA = chameleon_desc_init_diag( \
ChamComplexDouble, (mb), (nb), ((mb)*(nb)), \
(m), (n), (i), (j), (m), (n), p, q); \
- morse_desc_mat_alloc( &(descA) ); \
+ chameleon_desc_mat_alloc( &(descA) ); \
RUNTIME_desc_create( &(descA) );
-#define morse_zdesc_alloc( descA, mb, nb, lm, ln, i, j, m, n, free) \
- descA = morse_desc_init( \
+#define chameleon_zdesc_alloc( descA, mb, nb, lm, ln, i, j, m, n, free) \
+ descA = chameleon_desc_init( \
ChamComplexDouble, (mb), (nb), ((mb)*(nb)), \
(m), (n), (i), (j), (m), (n), 1, 1); \
- if ( morse_desc_mat_alloc( &(descA) ) ) { \
- morse_error( __func__, "morse_desc_mat_alloc() failed"); \
+ if ( chameleon_desc_mat_alloc( &(descA) ) ) { \
+ chameleon_error( __func__, "chameleon_desc_mat_alloc() failed"); \
{free;}; \
return CHAMELEON_ERR_OUT_OF_RESOURCES; \
} \
@@ -53,91 +53,91 @@
/**
* Declarations of internal sequential functions
*/
-int morse_zshift(CHAM_context_t *morse, int m, int n, CHAMELEON_Complex64_t *A,
+int chameleon_zshift(CHAM_context_t *chamctxt, int m, int n, CHAMELEON_Complex64_t *A,
int nprob, int me, int ne, int L,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
/**
* Declarations of parallel functions (dynamic scheduling) - alphabetical order
*/
-void morse_pzbarrier_pnl2tl(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzbarrier_row2tl(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzbarrier_tl2pnl(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzbarrier_tl2row(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgebrd_gb2bd(cham_uplo_t uplo, CHAM_desc_t *A, double *D, double *E, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgebrd_ge2gb(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgelqf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgelqfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgemm(cham_trans_t transA, cham_trans_t transB, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgeqrf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgeqrfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgetrf_incpiv(CHAM_desc_t *A, CHAM_desc_t *L, CHAM_desc_t *D, int *IPIV, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgetrf_nopiv(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgetrf_reclap(CHAM_desc_t *A, int *IPIV, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgetrf_rectil(CHAM_desc_t *A, int *IPIV, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzhegst(int itype, cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzhemm(cham_side_t side, cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzherk(cham_uplo_t uplo, cham_trans_t trans, double alpha, CHAM_desc_t *A, double beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzher2k(cham_uplo_t uplo, cham_trans_t trans, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, double beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzhetrd_he2hb(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *E, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlacpy(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlag2c(CHAM_desc_t *A, CHAM_desc_t *SB, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlange(cham_normtype_t norm, CHAM_desc_t *A, double *result, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlanhe(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *result, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlansy(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *result, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A, double *result, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlascal(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlaset( cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t beta, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlaset2(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlaswp(CHAM_desc_t *B, int *IPIV, int inc, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlaswpc(CHAM_desc_t *B, int *IPIV, int inc, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzlauum(cham_uplo_t uplo, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzplghe(double bump, cham_uplo_t uplo, CHAM_desc_t *A, unsigned long long int seed, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
-void morse_pzplgsy(CHAMELEON_Complex64_t bump, cham_uplo_t uplo, CHAM_desc_t *A, unsigned long long int seed, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
-void morse_pzplrnt(CHAM_desc_t *A, unsigned long long int seed, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
-void morse_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzshift(int, int, int, CHAMELEON_Complex64_t *, int *, int, int, int, RUNTIME_sequence_t*, RUNTIME_request_t*);
-void morse_pzsymm(cham_side_t side, cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzsyrk(cham_uplo_t uplo, cham_trans_t trans, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzsyr2k(cham_uplo_t uplo, cham_trans_t trans, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pztile2band(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *descAB, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pztpgqrt( int L, CHAM_desc_t *V1, CHAM_desc_t *T1, CHAM_desc_t *V2, CHAM_desc_t *T2, CHAM_desc_t *Q1, CHAM_desc_t *Q2, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
-void morse_pztpqrt( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
-void morse_pztradd(cham_uplo_t uplo, cham_trans_t trans, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAMELEON_Complex64_t beta, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pztrmm(cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pztrsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pztrsmpl(CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *L, int *IPIV, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pztrsmrv(cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *W, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pztrtri(cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzungbr(cham_side_t side, CHAM_desc_t *A, CHAM_desc_t *O, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzungbrrh(cham_side_t side, CHAM_desc_t *A, CHAM_desc_t *O, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzungqr(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzungqrrh(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D,int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzunglq(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzunglqrh(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzungtr(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzunmqr(cham_side_t side, cham_trans_t trans, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzunmqrrh(cham_side_t side, cham_trans_t trans, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzunmlq(cham_side_t side, cham_trans_t trans, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzunmlqrh(cham_side_t side, cham_trans_t trans, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzbuild( cham_uplo_t uplo, CHAM_desc_t *A, void *user_data, void* user_build_callback, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
-
-void morse_pzgelqf_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
+void chameleon_pzbarrier_pnl2tl(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzbarrier_row2tl(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzbarrier_tl2pnl(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzbarrier_tl2row(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgebrd_gb2bd(cham_uplo_t uplo, CHAM_desc_t *A, double *D, double *E, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgebrd_ge2gb(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgelqf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgelqfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgemm(cham_trans_t transA, cham_trans_t transB, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgeqrf(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgeqrfrh(CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgetrf_incpiv(CHAM_desc_t *A, CHAM_desc_t *L, CHAM_desc_t *D, int *IPIV, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgetrf_nopiv(CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgetrf_reclap(CHAM_desc_t *A, int *IPIV, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzgetrf_rectil(CHAM_desc_t *A, int *IPIV, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzhegst(int itype, cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzhemm(cham_side_t side, cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzherk(cham_uplo_t uplo, cham_trans_t trans, double alpha, CHAM_desc_t *A, double beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzher2k(cham_uplo_t uplo, cham_trans_t trans, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, double beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzhetrd_he2hb(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *T, CHAM_desc_t *E, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlacpy(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlag2c(CHAM_desc_t *A, CHAM_desc_t *SB, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlange(cham_normtype_t norm, CHAM_desc_t *A, double *result, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlanhe(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *result, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlansy(cham_normtype_t norm, cham_uplo_t uplo, CHAM_desc_t *A, double *result, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A, double *result, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlascal(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlaset( cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t beta, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlaset2(cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlaswp(CHAM_desc_t *B, int *IPIV, int inc, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlaswpc(CHAM_desc_t *B, int *IPIV, int inc, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzlauum(cham_uplo_t uplo, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzplghe(double bump, cham_uplo_t uplo, CHAM_desc_t *A, unsigned long long int seed, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
+void chameleon_pzplgsy(CHAMELEON_Complex64_t bump, cham_uplo_t uplo, CHAM_desc_t *A, unsigned long long int seed, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
+void chameleon_pzplrnt(CHAM_desc_t *A, unsigned long long int seed, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
+void chameleon_pzpotrf(cham_uplo_t uplo, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzpotrimm(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzshift(int, int, int, CHAMELEON_Complex64_t *, int *, int, int, int, RUNTIME_sequence_t*, RUNTIME_request_t*);
+void chameleon_pzsymm(cham_side_t side, cham_uplo_t uplo, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzsyrk(cham_uplo_t uplo, cham_trans_t trans, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzsyr2k(cham_uplo_t uplo, cham_trans_t trans, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, CHAMELEON_Complex64_t beta, CHAM_desc_t *C, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzsytrf(cham_uplo_t uplo, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pztile2band(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *descAB, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pztpgqrt( int L, CHAM_desc_t *V1, CHAM_desc_t *T1, CHAM_desc_t *V2, CHAM_desc_t *T2, CHAM_desc_t *Q1, CHAM_desc_t *Q2, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
+void chameleon_pztpqrt( int L, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
+void chameleon_pztradd(cham_uplo_t uplo, cham_trans_t trans, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAMELEON_Complex64_t beta, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pztrmm(cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pztrsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *B, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pztrsmpl(CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *L, int *IPIV, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pztrsmrv(cham_side_t side, cham_uplo_t uplo, cham_trans_t transA, cham_diag_t diag, CHAMELEON_Complex64_t alpha, CHAM_desc_t *A, CHAM_desc_t *W, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pztrtri(cham_uplo_t uplo, cham_diag_t diag, CHAM_desc_t *A, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzungbr(cham_side_t side, CHAM_desc_t *A, CHAM_desc_t *O, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzungbrrh(cham_side_t side, CHAM_desc_t *A, CHAM_desc_t *O, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzungqr(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzungqrrh(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D,int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzunglq(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzunglqrh(CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzungtr(cham_uplo_t uplo, CHAM_desc_t *A, CHAM_desc_t *Q, CHAM_desc_t *T, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzunmqr(cham_side_t side, cham_trans_t trans, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzunmqrrh(cham_side_t side, cham_trans_t trans, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzunmlq(cham_side_t side, cham_trans_t trans, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzunmlqrh(cham_side_t side, cham_trans_t trans, CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *T, CHAM_desc_t *D, int BS, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
+void chameleon_pzbuild( cham_uplo_t uplo, CHAM_desc_t *A, void *user_data, void* user_build_callback, RUNTIME_sequence_t *sequence, RUNTIME_request_t *request );
+
+void chameleon_pzgelqf_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzgeqrf_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
+void chameleon_pzgeqrf_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzunmlq_param(const libhqr_tree_t *qrtree, cham_side_t side, cham_trans_t trans,
+void chameleon_pzunmlq_param(const libhqr_tree_t *qrtree, cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzunmqr_param(const libhqr_tree_t *qrtree, cham_side_t side, cham_trans_t trans,
+void chameleon_pzunmqr_param(const libhqr_tree_t *qrtree, cham_side_t side, cham_trans_t trans,
CHAM_desc_t *A, CHAM_desc_t *B, CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzunglq_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *Q,
+void chameleon_pzunglq_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *Q,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
-void morse_pzungqr_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *Q,
+void chameleon_pzungqr_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_t *Q,
CHAM_desc_t *TS, CHAM_desc_t *TT, CHAM_desc_t *D,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request);
@@ -147,26 +147,26 @@ void morse_pzungqr_param(const libhqr_tree_t *qrtree, CHAM_desc_t *A, CHAM_desc_
* LAPACK interface calls
*/
static inline int
-morse_zlap2tile( CHAM_context_t *morse,
+chameleon_zlap2tile( CHAM_context_t *chamctxt,
CHAM_desc_t *descAl, CHAM_desc_t *descAt,
int mode, cham_uplo_t uplo,
CHAMELEON_Complex64_t *A, int mb, int nb, int lm, int ln, int m, int n,
RUNTIME_sequence_t *seq, RUNTIME_request_t *req )
{
/* Initialize the Lapack descriptor */
- *descAl = morse_desc_init_user( ChamComplexDouble, mb, nb, (mb)*(nb),
+ *descAl = chameleon_desc_init_user( ChamComplexDouble, mb, nb, (mb)*(nb),
lm, ln, 0, 0, m, n, 1, 1,
- morse_getaddr_cm, morse_getblkldd_cm, NULL );
+ chameleon_getaddr_cm, chameleon_getblkldd_cm, NULL );
descAl->mat = A;
descAl->styp = ChamCM;
/* Initialize the tile descriptor */
- *descAt = morse_desc_init( ChamComplexDouble, mb, nb, (mb)*(nb),
+ *descAt = chameleon_desc_init( ChamComplexDouble, mb, nb, (mb)*(nb),
lm, ln, 0, 0, m, n, 1, 1 );
if ( CHAMELEON_TRANSLATION == ChamOutOfPlace ) {
- if ( morse_desc_mat_alloc( descAt ) ) {
- morse_error( "morse_zlap2tile", "morse_desc_mat_alloc() failed");
+ if ( chameleon_desc_mat_alloc( descAt ) ) {
+ chameleon_error( "chameleon_zlap2tile", "chameleon_desc_mat_alloc() failed");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
@@ -174,11 +174,11 @@ morse_zlap2tile( CHAM_context_t *morse,
RUNTIME_desc_create( descAt );
if ( mode & ChamDescInput ) {
- morse_pzlacpy( uplo, descAl, descAt, seq, req );
+ chameleon_pzlacpy( uplo, descAl, descAt, seq, req );
}
}
else {
- morse_fatal_error( "morse_zlap2tile", "INPLACE translation not supported yet");
+ chameleon_fatal_error( "chameleon_zlap2tile", "INPLACE translation not supported yet");
descAt->mat = A;
RUNTIME_desc_create( descAl );
@@ -199,16 +199,16 @@ morse_zlap2tile( CHAM_context_t *morse,
* in LAPACK interface calls
*/
static inline int
-morse_ztile2lap( CHAM_context_t *morse, CHAM_desc_t *descAl, CHAM_desc_t *descAt,
+chameleon_ztile2lap( CHAM_context_t *chamctxt, CHAM_desc_t *descAl, CHAM_desc_t *descAt,
int mode, cham_uplo_t uplo, RUNTIME_sequence_t *seq, RUNTIME_request_t *req )
{
if ( CHAMELEON_TRANSLATION == ChamOutOfPlace ) {
if ( mode & ChamDescOutput ) {
- morse_pzlacpy( uplo, descAt, descAl, seq, req );
+ chameleon_pzlacpy( uplo, descAt, descAl, seq, req );
}
}
else {
- morse_fatal_error( "morse_ztile2lap", "INPLACE translation not supported yet");
+ chameleon_fatal_error( "chameleon_ztile2lap", "INPLACE translation not supported yet");
if ( mode & ChamDescOutput ) {
/* CHAMELEON_zgecfi_Async( descAl->lm, descAl->ln, descAl->mat, */
/* ChamCCRB, descAl->mb, descAl->nb, */
@@ -227,10 +227,10 @@ morse_ztile2lap( CHAM_context_t *morse, CHAM_desc_t *descAl, CHAM_desc_t *descAt
* conversions in LAPACK interface calls
*/
static inline void
-morse_ztile2lap_cleanup( CHAM_context_t *morse, CHAM_desc_t *descAl, CHAM_desc_t *descAt )
+chameleon_ztile2lap_cleanup( CHAM_context_t *chamctxt, CHAM_desc_t *descAl, CHAM_desc_t *descAt )
{
if ( CHAMELEON_TRANSLATION == ChamOutOfPlace ) {
- morse_desc_mat_free( descAt );
+ chameleon_desc_mat_free( descAt );
}
RUNTIME_desc_destroy( descAl );
RUNTIME_desc_destroy( descAt );
diff --git a/control/context.c b/control/context.c
index 4403b8c16..9f151be90 100644
--- a/control/context.c
+++ b/control/context.c
@@ -26,7 +26,7 @@
#include <stdlib.h>
#if defined( _WIN32 ) || defined( _WIN64 )
-#include "control/morsewinthread.h"
+#include "control/chamctxtwinthread.h"
#else
#include <pthread.h>
#endif
@@ -44,70 +44,70 @@
* Global data
*/
/* master threads context lookup table */
-static CHAM_context_t *morse_ctxt = NULL;
+static CHAM_context_t *chameleon_ctxt = NULL;
/**
* Create new context
*/
-CHAM_context_t *morse_context_create()
+CHAM_context_t *chameleon_context_create()
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- if ( morse_ctxt != NULL ) {
- morse_error("morse_context_create", "a context is already existing\n");
+ if ( chameleon_ctxt != NULL ) {
+ chameleon_error("chameleon_context_create", "a context is already existing\n");
return NULL;
}
- morse = (CHAM_context_t*)malloc(sizeof(CHAM_context_t));
- if (morse == NULL) {
- morse_error("morse_context_create", "malloc() failed");
+ chamctxt = (CHAM_context_t*)malloc(sizeof(CHAM_context_t));
+ if (chamctxt == NULL) {
+ chameleon_error("chameleon_context_create", "malloc() failed");
return NULL;
}
/* These initializations are just in case the user
disables autotuning and does not set nb and ib */
- morse->nb = 128;
- morse->ib = 32;
- morse->rhblock = 4;
+ chamctxt->nb = 128;
+ chamctxt->ib = 32;
+ chamctxt->rhblock = 4;
- morse->nworkers = 1;
- morse->ncudas = 0;
- morse->nthreads_per_worker= 1;
+ chamctxt->nworkers = 1;
+ chamctxt->ncudas = 0;
+ chamctxt->nthreads_per_worker= 1;
- morse->warnings_enabled = CHAMELEON_TRUE;
- morse->autotuning_enabled = CHAMELEON_TRUE;
- morse->parallel_enabled = CHAMELEON_FALSE;
- morse->profiling_enabled = CHAMELEON_FALSE;
- morse->progress_enabled = CHAMELEON_FALSE;
+ chamctxt->warnings_enabled = CHAMELEON_TRUE;
+ chamctxt->autotuning_enabled = CHAMELEON_TRUE;
+ chamctxt->parallel_enabled = CHAMELEON_FALSE;
+ chamctxt->profiling_enabled = CHAMELEON_FALSE;
+ chamctxt->progress_enabled = CHAMELEON_FALSE;
- morse->householder = ChamFlatHouseholder;
- morse->translation = ChamOutOfPlace;
+ chamctxt->householder = ChamFlatHouseholder;
+ chamctxt->translation = ChamOutOfPlace;
/* Initialize scheduler */
- RUNTIME_context_create(morse);
+ RUNTIME_context_create(chamctxt);
- morse_ctxt = morse;
- return morse;
+ chameleon_ctxt = chamctxt;
+ return chamctxt;
}
/**
* Return context for a thread
*/
-CHAM_context_t *morse_context_self()
+CHAM_context_t *chameleon_context_self()
{
- return morse_ctxt;
+ return chameleon_ctxt;
}
/**
* Clean the context
*/
-int morse_context_destroy(){
+int chameleon_context_destroy(){
- RUNTIME_context_destroy(morse_ctxt);
- free(morse_ctxt);
- morse_ctxt = NULL;
+ RUNTIME_context_destroy(chameleon_ctxt);
+ free(chameleon_ctxt);
+ chameleon_ctxt = NULL;
return CHAMELEON_SUCCESS;
}
@@ -136,40 +136,40 @@ int morse_context_destroy(){
*/
int CHAMELEON_Enable(int option)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Enable", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Enable", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
switch (option)
{
case CHAMELEON_WARNINGS:
- morse->warnings_enabled = CHAMELEON_TRUE;
+ chamctxt->warnings_enabled = CHAMELEON_TRUE;
break;
case CHAMELEON_AUTOTUNING:
- morse->autotuning_enabled = CHAMELEON_TRUE;
+ chamctxt->autotuning_enabled = CHAMELEON_TRUE;
break;
case CHAMELEON_PROFILING_MODE:
- morse->profiling_enabled = CHAMELEON_TRUE;
+ chamctxt->profiling_enabled = CHAMELEON_TRUE;
break;
case CHAMELEON_PROGRESS:
- morse->progress_enabled = CHAMELEON_TRUE;
+ chamctxt->progress_enabled = CHAMELEON_TRUE;
break;
case CHAMELEON_GEMM3M:
#if defined(CBLAS_HAS_ZGEMM3M) && !defined(CHAMELEON_SIMULATION)
set_coreblas_gemm3m_enabled(1);
#else
- morse_error("CHAMELEON_Enable", "cannot enable GEMM3M (not available in cblas)");
+ chameleon_error("CHAMELEON_Enable", "cannot enable GEMM3M (not available in cblas)");
#endif
break;
/* case CHAMELEON_PARALLEL: */
- /* morse->parallel_enabled = CHAMELEON_TRUE; */
+ /* chamctxt->parallel_enabled = CHAMELEON_TRUE; */
/* break; */
default:
- morse_error("CHAMELEON_Enable", "illegal parameter value");
+ chameleon_error("CHAMELEON_Enable", "illegal parameter value");
return CHAMELEON_ERR_ILLEGAL_VALUE;
case CHAMELEON_BOUND:
break;
@@ -205,26 +205,26 @@ int CHAMELEON_Enable(int option)
*/
int CHAMELEON_Disable(int option)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Disable", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Disable", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
switch ( option )
{
case CHAMELEON_WARNINGS:
- morse->warnings_enabled = CHAMELEON_FALSE;
+ chamctxt->warnings_enabled = CHAMELEON_FALSE;
break;
case CHAMELEON_AUTOTUNING:
- morse->autotuning_enabled = CHAMELEON_FALSE;
+ chamctxt->autotuning_enabled = CHAMELEON_FALSE;
break;
case CHAMELEON_PROFILING_MODE:
- morse->profiling_enabled = CHAMELEON_FALSE;
+ chamctxt->profiling_enabled = CHAMELEON_FALSE;
break;
case CHAMELEON_PROGRESS:
- morse->progress_enabled = CHAMELEON_FALSE;
+ chamctxt->progress_enabled = CHAMELEON_FALSE;
break;
case CHAMELEON_GEMM3M:
#if defined(CBLAS_HAS_ZGEMM3M) && !defined(CHAMELEON_SIMULATION)
@@ -232,10 +232,10 @@ int CHAMELEON_Disable(int option)
#endif
break;
case CHAMELEON_PARALLEL_MODE:
- morse->parallel_enabled = CHAMELEON_FALSE;
+ chamctxt->parallel_enabled = CHAMELEON_FALSE;
break;
default:
- morse_error("CHAMELEON_Disable", "illegal parameter value");
+ chameleon_error("CHAMELEON_Disable", "illegal parameter value");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
@@ -269,70 +269,70 @@ int CHAMELEON_Disable(int option)
*/
int CHAMELEON_Set(int param, int value)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Set", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Set", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
switch (param) {
case CHAMELEON_TILE_SIZE:
if (value <= 0) {
- morse_error("CHAMELEON_Set", "negative tile size");
+ chameleon_error("CHAMELEON_Set", "negative tile size");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
- morse->nb = value;
- if ( morse->autotuning_enabled ) {
- morse->autotuning_enabled = CHAMELEON_FALSE;
- morse_warning("CHAMELEON_Set", "autotuning has been automatically disable\n");
+ chamctxt->nb = value;
+ if ( chamctxt->autotuning_enabled ) {
+ chamctxt->autotuning_enabled = CHAMELEON_FALSE;
+ chameleon_warning("CHAMELEON_Set", "autotuning has been automatically disable\n");
}
/* Limit ib to nb */
- morse->ib = chameleon_min( morse->nb, morse->ib );
+ chamctxt->ib = chameleon_min( chamctxt->nb, chamctxt->ib );
break;
case CHAMELEON_INNER_BLOCK_SIZE:
if (value <= 0) {
- morse_error("CHAMELEON_Set", "negative inner block size");
+ chameleon_error("CHAMELEON_Set", "negative inner block size");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
- if (value > morse->nb) {
- morse_error("CHAMELEON_Set", "inner block larger than tile");
+ if (value > chamctxt->nb) {
+ chameleon_error("CHAMELEON_Set", "inner block larger than tile");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
- /* if (morse->nb % value != 0) { */
- /* morse_error("CHAMELEON_Set", "inner block does not divide tile"); */
+ /* if (chamctxt->nb % value != 0) { */
+ /* chameleon_error("CHAMELEON_Set", "inner block does not divide tile"); */
/* return CHAMELEON_ERR_ILLEGAL_VALUE; */
/* } */
- morse->ib = value;
+ chamctxt->ib = value;
- if ( morse->autotuning_enabled ) {
- morse->autotuning_enabled = CHAMELEON_FALSE;
- morse_warning("CHAMELEON_Set", "autotuning has been automatically disable\n");
+ if ( chamctxt->autotuning_enabled ) {
+ chamctxt->autotuning_enabled = CHAMELEON_FALSE;
+ chameleon_warning("CHAMELEON_Set", "autotuning has been automatically disable\n");
}
break;
case CHAMELEON_HOUSEHOLDER_MODE:
if (value != ChamFlatHouseholder && value != ChamTreeHouseholder) {
- morse_error("CHAMELEON_Set", "illegal value of CHAMELEON_HOUSEHOLDER_MODE");
+ chameleon_error("CHAMELEON_Set", "illegal value of CHAMELEON_HOUSEHOLDER_MODE");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
- morse->householder = value;
+ chamctxt->householder = value;
break;
case CHAMELEON_HOUSEHOLDER_SIZE:
if (value <= 0) {
- morse_error("CHAMELEON_Set", "negative householder size");
+ chameleon_error("CHAMELEON_Set", "negative householder size");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
- morse->rhblock = value;
+ chamctxt->rhblock = value;
break;
case CHAMELEON_TRANSLATION_MODE:
if (value != ChamInPlace && value != ChamOutOfPlace) {
- morse_error("CHAMELEON_Set", "illegal value of CHAMELEON_TRANSLATION_MODE");
+ chameleon_error("CHAMELEON_Set", "illegal value of CHAMELEON_TRANSLATION_MODE");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
- morse->translation = value;
+ chamctxt->translation = value;
break;
default:
- morse_error("CHAMELEON_Set", "unknown parameter");
+ chameleon_error("CHAMELEON_Set", "unknown parameter");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
@@ -363,31 +363,31 @@ int CHAMELEON_Set(int param, int value)
*/
int CHAMELEON_Get(int param, int *value)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Get", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Get", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
switch (param) {
case CHAMELEON_TILE_SIZE:
- *value = morse->nb;
+ *value = chamctxt->nb;
return CHAMELEON_SUCCESS;
case CHAMELEON_INNER_BLOCK_SIZE:
- *value = morse->ib;
+ *value = chamctxt->ib;
return CHAMELEON_SUCCESS;
case CHAMELEON_HOUSEHOLDER_MODE:
- *value = morse->householder;
+ *value = chamctxt->householder;
return CHAMELEON_SUCCESS;
case CHAMELEON_HOUSEHOLDER_SIZE:
- *value = morse->rhblock;
+ *value = chamctxt->rhblock;
return CHAMELEON_SUCCESS;
case CHAMELEON_TRANSLATION_MODE:
- *value = morse->translation;
+ *value = chamctxt->translation;
return CHAMELEON_SUCCESS;
default:
- morse_error("CHAMELEON_Get", "unknown parameter");
+ chameleon_error("CHAMELEON_Get", "unknown parameter");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
diff --git a/control/context.h b/control/context.h
index 3a9637f4a..8c00a2f54 100644
--- a/control/context.h
+++ b/control/context.h
@@ -31,9 +31,9 @@
extern "C" {
#endif
-CHAM_context_t* morse_context_create ();
-CHAM_context_t* morse_context_self ();
-int morse_context_destroy ();
+CHAM_context_t* chameleon_context_create ();
+CHAM_context_t* chameleon_context_self ();
+int chameleon_context_destroy ();
#ifdef __cplusplus
}
diff --git a/control/control.c b/control/control.c
index 57f278b96..9a356bf47 100644
--- a/control/control.c
+++ b/control/control.c
@@ -80,24 +80,24 @@ int CHAMELEON_Init(int cores, int gpus)
*/
int CHAMELEON_InitPar(int ncpus, int ncudas, int nthreads_per_worker)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
/* Create context and insert in the context map */
- morse = morse_context_create();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_Init", "morse_context_create() failed");
+ chamctxt = chameleon_context_create();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_Init", "chameleon_context_create() failed");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
#if defined(CHAMELEON_USE_MPI)
# if defined(CHAMELEON_SIMULATION)
/* Assuming that we don't initialize MPI ourself (which SMPI doesn't support anyway) */
- morse->mpi_outer_init = 1;
+ chamctxt->mpi_outer_init = 1;
# else
{
int flag = 0, provided = 0;
MPI_Initialized( &flag );
- morse->mpi_outer_init = flag;
+ chamctxt->mpi_outer_init = flag;
if ( !flag ) {
MPI_Init_thread( NULL, NULL, MPI_THREAD_MULTIPLE, &provided );
}
@@ -105,11 +105,11 @@ int CHAMELEON_InitPar(int ncpus, int ncudas, int nthreads_per_worker)
# endif
#endif
- RUNTIME_init( morse, ncpus, ncudas, nthreads_per_worker );
+ RUNTIME_init( chamctxt, ncpus, ncudas, nthreads_per_worker );
#if defined(CHAMELEON_USE_MPI)
- morse->my_mpi_rank = RUNTIME_comm_rank( morse );
- morse->mpi_comm_size = RUNTIME_comm_size( morse );
+ chamctxt->my_mpi_rank = RUNTIME_comm_rank( chamctxt );
+ chamctxt->mpi_comm_size = RUNTIME_comm_size( chamctxt );
#endif
return CHAMELEON_SUCCESS;
@@ -129,23 +129,23 @@ int CHAMELEON_InitPar(int ncpus, int ncudas, int nthreads_per_worker)
*/
int CHAMELEON_Finalize(void)
{
- CHAM_context_t *morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Finalize()", "CHAMELEON not initialized");
+ CHAM_context_t *chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Finalize()", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
RUNTIME_flush();
# if !defined(CHAMELEON_SIMULATION)
- RUNTIME_barrier(morse);
+ RUNTIME_barrier(chamctxt);
# endif
- RUNTIME_finalize( morse );
+ RUNTIME_finalize( chamctxt );
#if defined(CHAMELEON_USE_MPI)
- if (!morse->mpi_outer_init)
+ if (!chamctxt->mpi_outer_init)
MPI_Finalize();
#endif
- morse_context_destroy();
+ chameleon_context_destroy();
return CHAMELEON_SUCCESS;
}
@@ -163,12 +163,12 @@ int CHAMELEON_Finalize(void)
*/
int CHAMELEON_Pause(void)
{
- CHAM_context_t *morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Pause()", "CHAMELEON not initialized");
+ CHAM_context_t *chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Pause()", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- RUNTIME_pause(morse);
+ RUNTIME_pause(chamctxt);
return CHAMELEON_SUCCESS;
}
@@ -187,12 +187,12 @@ int CHAMELEON_Pause(void)
*/
int CHAMELEON_Resume(void)
{
- CHAM_context_t *morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Resume()", "CHAMELEON not initialized");
+ CHAM_context_t *chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Resume()", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- RUNTIME_resume(morse);
+ RUNTIME_resume(chamctxt);
return CHAMELEON_SUCCESS;
}
@@ -210,12 +210,12 @@ int CHAMELEON_Resume(void)
*/
int CHAMELEON_Distributed_start(void)
{
- CHAM_context_t *morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Finalize()", "CHAMELEON not initialized");
+ CHAM_context_t *chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Finalize()", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- RUNTIME_barrier (morse);
+ RUNTIME_barrier (chamctxt);
return CHAMELEON_SUCCESS;
}
@@ -233,12 +233,12 @@ int CHAMELEON_Distributed_start(void)
*/
int CHAMELEON_Distributed_stop(void)
{
- CHAM_context_t *morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Finalize()", "CHAMELEON not initialized");
+ CHAM_context_t *chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Finalize()", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
- RUNTIME_barrier (morse);
+ RUNTIME_barrier (chamctxt);
return CHAMELEON_SUCCESS;
}
@@ -256,13 +256,13 @@ int CHAMELEON_Distributed_stop(void)
*/
int CHAMELEON_Comm_size()
{
- CHAM_context_t *morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Comm_size()", "CHAMELEON not initialized");
+ CHAM_context_t *chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Comm_size()", "CHAMELEON not initialized");
return -1;
}
- return RUNTIME_comm_size( morse );
+ return RUNTIME_comm_size( chamctxt );
}
/**
@@ -279,13 +279,13 @@ int CHAMELEON_Comm_size()
*/
int CHAMELEON_Comm_rank()
{
- CHAM_context_t *morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Comm_rank()", "CHAMELEON not initialized");
+ CHAM_context_t *chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Comm_rank()", "CHAMELEON not initialized");
return -1;
}
- return RUNTIME_comm_rank( morse );
+ return RUNTIME_comm_rank( chamctxt );
}
/**
@@ -303,11 +303,11 @@ int CHAMELEON_Comm_rank()
*/
int CHAMELEON_GetThreadNbr( )
{
- CHAM_context_t *morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_GetThreadNbr()", "CHAMELEON not initialized");
+ CHAM_context_t *chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_GetThreadNbr()", "CHAMELEON not initialized");
return -1;
}
- return RUNTIME_thread_size( morse );
+ return RUNTIME_thread_size( chamctxt );
}
diff --git a/control/descriptor.c b/control/descriptor.c
index dce557bb8..739d1ed9f 100644
--- a/control/descriptor.c
+++ b/control/descriptor.c
@@ -36,7 +36,7 @@ static int nbdesc = 0;
*
* @ingroup Descriptor
*
- * morse_desc_init_user - Internal function to create tiled matrix descriptor
+ * chameleon_desc_init_user - Internal function to create tiled matrix descriptor
* with generic function for data distribution and storage format.
*
******************************************************************************
@@ -96,28 +96,28 @@ static int nbdesc = 0;
* @return The descriptor with the matrix description parameters set.
*
*/
-CHAM_desc_t morse_desc_init_user(cham_flttype_t dtyp, int mb, int nb, int bsiz,
+CHAM_desc_t chameleon_desc_init_user(cham_flttype_t dtyp, int mb, int nb, int bsiz,
int lm, int ln, int i, int j,
int m, int n, int p, int q,
void* (*get_blkaddr)( const CHAM_desc_t*, int, int ),
int (*get_blkldd) ( const CHAM_desc_t*, int ),
int (*get_rankof) ( const CHAM_desc_t*, int, int ))
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t desc;
memset( &desc, 0, sizeof(CHAM_desc_t) );
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Desc_Create", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Desc_Create", "CHAMELEON not initialized");
return desc;
}
- // If one of the function get_* is NULL, we switch back to the default, like in morse_desc_init()
- desc.get_blkaddr = get_blkaddr ? get_blkaddr : morse_getaddr_ccrb;
- desc.get_blkldd = get_blkldd ? get_blkldd : morse_getblkldd_ccrb;
- desc.get_rankof = get_rankof ? get_rankof : morse_getrankof_2d;
+ // If one of the function get_* is NULL, we switch back to the default, like in chameleon_desc_init()
+ desc.get_blkaddr = get_blkaddr ? get_blkaddr : chameleon_getaddr_ccrb;
+ desc.get_blkldd = get_blkldd ? get_blkldd : chameleon_getblkldd_ccrb;
+ desc.get_rankof = get_rankof ? get_rankof : chameleon_getrankof_2d;
// Matrix properties
desc.dtyp = dtyp;
// Should be given as parameter to follow get_blkaddr (unused)
@@ -144,10 +144,10 @@ CHAM_desc_t morse_desc_init_user(cham_flttype_t dtyp, int mb, int nb, int bsiz,
desc.occurences = 0;
desc.use_mat = 1;
desc.alloc_mat = 1;
- desc.register_mat = (morse->ncudas > 0) ? 1 : 0;
+ desc.register_mat = (chamctxt->ncudas > 0) ? 1 : 0;
desc.ooc = 0;
- desc.myrank = RUNTIME_comm_rank( morse );
+ desc.myrank = RUNTIME_comm_rank( chamctxt );
// Grid size
desc.p = p;
@@ -194,39 +194,39 @@ CHAM_desc_t morse_desc_init_user(cham_flttype_t dtyp, int mb, int nb, int bsiz,
/**
* Internal static descriptor initializer
*/
-CHAM_desc_t morse_desc_init(cham_flttype_t dtyp, int mb, int nb, int bsiz,
+CHAM_desc_t chameleon_desc_init(cham_flttype_t dtyp, int mb, int nb, int bsiz,
int lm, int ln, int i, int j,
int m, int n, int p, int q)
{
- return morse_desc_init_user(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q,
- morse_getaddr_ccrb, morse_getblkldd_ccrb, morse_getrankof_2d);
+ return chameleon_desc_init_user(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q,
+ chameleon_getaddr_ccrb, chameleon_getblkldd_ccrb, chameleon_getrankof_2d);
}
/**
* Internal static descriptor initializer for a block diagonal matrix
*/
-CHAM_desc_t morse_desc_init_diag(cham_flttype_t dtyp, int mb, int nb, int bsiz,
+CHAM_desc_t chameleon_desc_init_diag(cham_flttype_t dtyp, int mb, int nb, int bsiz,
int lm, int ln, int i, int j,
int m, int n, int p, int q)
{
- return morse_desc_init_user(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q,
- morse_getaddr_ccrb, morse_getblkldd_ccrb, morse_getrankof_2d_diag);
+ return chameleon_desc_init_user(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q,
+ chameleon_getaddr_ccrb, chameleon_getblkldd_ccrb, chameleon_getrankof_2d_diag);
}
/**
* Internal static descriptor initializer for submatrices
*/
-CHAM_desc_t* morse_desc_submatrix(CHAM_desc_t *descA, int i, int j, int m, int n)
+CHAM_desc_t* chameleon_desc_submatrix(CHAM_desc_t *descA, int i, int j, int m, int n)
{
CHAM_desc_t *descB = malloc(sizeof(CHAM_desc_t));
int mb, nb;
if ( (descA->i + i + m) > descA->lm ) {
- morse_error("morse_desc_submatrix", "The number of rows (i+m) of the submatrix doesn't fit in the parent matrix");
+ chameleon_error("chameleon_desc_submatrix", "The number of rows (i+m) of the submatrix doesn't fit in the parent matrix");
assert((descA->i + i + m) > descA->lm);
}
if ( (descA->j + j + n) > descA->ln ) {
- morse_error("morse_desc_submatrix", "The number of rows (j+n) of the submatrix doesn't fit in the parent matrix");
+ chameleon_error("chameleon_desc_submatrix", "The number of rows (j+n) of the submatrix doesn't fit in the parent matrix");
assert((descA->j + j + n) > descA->ln);
}
@@ -251,45 +251,45 @@ CHAM_desc_t* morse_desc_submatrix(CHAM_desc_t *descA, int i, int j, int m, int n
/**
* Check for descriptor correctness
*/
-int morse_desc_check(const CHAM_desc_t *desc)
+int chameleon_desc_check(const CHAM_desc_t *desc)
{
if (desc == NULL) {
- morse_error("morse_desc_check", "NULL descriptor");
+ chameleon_error("chameleon_desc_check", "NULL descriptor");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (desc->mat == NULL && desc->use_mat == 1) {
- morse_error("morse_desc_check", "NULL matrix pointer");
+ chameleon_error("chameleon_desc_check", "NULL matrix pointer");
return CHAMELEON_ERR_UNALLOCATED;
}
if (desc->dtyp != ChamRealFloat &&
desc->dtyp != ChamRealDouble &&
desc->dtyp != ChamComplexFloat &&
desc->dtyp != ChamComplexDouble ) {
- morse_error("morse_desc_check", "invalid matrix type");
+ chameleon_error("chameleon_desc_check", "invalid matrix type");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
if (desc->mb <= 0 || desc->nb <= 0) {
- morse_error("morse_desc_check", "negative tile dimension");
+ chameleon_error("chameleon_desc_check", "negative tile dimension");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
if (desc->bsiz < desc->mb*desc->nb) {
- morse_error("morse_desc_check", "tile memory size smaller than the product of dimensions");
+ chameleon_error("chameleon_desc_check", "tile memory size smaller than the product of dimensions");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
if (desc->lm <= 0 || desc->ln <= 0) {
- morse_error("morse_desc_check", "negative matrix dimension");
+ chameleon_error("chameleon_desc_check", "negative matrix dimension");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
if ((desc->lm < desc->m) || (desc->ln < desc->n)) {
- morse_error("morse_desc_check", "matrix dimensions larger than leading dimensions");
+ chameleon_error("chameleon_desc_check", "matrix dimensions larger than leading dimensions");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
if ((desc->i > 0 && desc->i >= desc->lm) || (desc->j > 0 && desc->j >= desc->ln)) {
- morse_error("morse_desc_check", "beginning of the matrix out of scope");
+ chameleon_error("chameleon_desc_check", "beginning of the matrix out of scope");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
if (desc->i+desc->m > desc->lm || desc->j+desc->n > desc->ln) {
- morse_error("morse_desc_check", "submatrix out of scope");
+ chameleon_error("chameleon_desc_check", "submatrix out of scope");
return CHAMELEON_ERR_ILLEGAL_VALUE;
}
return CHAMELEON_SUCCESS;
@@ -298,12 +298,12 @@ int morse_desc_check(const CHAM_desc_t *desc)
/**
*
*/
-int morse_desc_mat_alloc( CHAM_desc_t *desc )
+int chameleon_desc_mat_alloc( CHAM_desc_t *desc )
{
size_t size = (size_t)(desc->llm) * (size_t)(desc->lln)
* (size_t)CHAMELEON_Element_Size(desc->dtyp);
if ((desc->mat = RUNTIME_malloc(size)) == NULL) {
- morse_error("morse_desc_mat_alloc", "malloc() failed");
+ chameleon_error("chameleon_desc_mat_alloc", "malloc() failed");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
@@ -316,7 +316,7 @@ int morse_desc_mat_alloc( CHAM_desc_t *desc )
/**
*
*/
-int morse_desc_mat_free( CHAM_desc_t *desc )
+int chameleon_desc_mat_free( CHAM_desc_t *desc )
{
if ( (desc->mat != NULL) &&
(desc->use_mat == 1 ) &&
@@ -396,25 +396,25 @@ int morse_desc_mat_free( CHAM_desc_t *desc )
int CHAMELEON_Desc_Create(CHAM_desc_t **descptr, void *mat, cham_flttype_t dtyp, int mb, int nb, int bsiz,
int lm, int ln, int i, int j, int m, int n, int p, int q)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t *desc;
int status;
*descptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Desc_Create", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Desc_Create", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Allocate memory and initialize the descriptor */
desc = (CHAM_desc_t*)malloc(sizeof(CHAM_desc_t));
if (desc == NULL) {
- morse_error("CHAMELEON_Desc_Create", "malloc() failed");
+ chameleon_error("CHAMELEON_Desc_Create", "malloc() failed");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
- *desc = morse_desc_init(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q);
+ *desc = chameleon_desc_init(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q);
if (mat == NULL) {
@@ -422,7 +422,7 @@ int CHAMELEON_Desc_Create(CHAM_desc_t **descptr, void *mat, cham_flttype_t dtyp,
* (size_t)CHAMELEON_Element_Size(desc->dtyp);
if ((desc->mat = RUNTIME_malloc(size)) == NULL) {
- morse_error("CHAMELEON_Desc_Create", "malloc() failed");
+ chameleon_error("CHAMELEON_Desc_Create", "malloc() failed");
free(desc);
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
@@ -441,9 +441,9 @@ int CHAMELEON_Desc_Create(CHAM_desc_t **descptr, void *mat, cham_flttype_t dtyp,
/* Create scheduler structure like registering data */
RUNTIME_desc_create( desc );
- status = morse_desc_check( desc );
+ status = chameleon_desc_check( desc );
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_Desc_Create", "invalid descriptor");
+ chameleon_error("CHAMELEON_Desc_Create", "invalid descriptor");
CHAMELEON_Desc_Destroy( &desc );
return status;
}
@@ -513,26 +513,26 @@ int CHAMELEON_Desc_Create_User(CHAM_desc_t **descptr, void *mat, cham_flttype_t
int (*get_blkldd) ( const CHAM_desc_t*, int ),
int (*get_rankof) ( const CHAM_desc_t*, int, int ))
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t *desc;
int status;
*descptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Desc_Create_User", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Desc_Create_User", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Allocate memory and initialize the descriptor */
desc = (CHAM_desc_t*)malloc(sizeof(CHAM_desc_t));
if (desc == NULL) {
- morse_error("CHAMELEON_Desc_Create_User", "malloc() failed");
+ chameleon_error("CHAMELEON_Desc_Create_User", "malloc() failed");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
- *desc = morse_desc_init_user(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q,
+ *desc = chameleon_desc_init_user(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q,
get_blkaddr, get_blkldd, get_rankof);
/* if the user gives a pointer to the overall data (tiles) we can use it */
@@ -549,9 +549,9 @@ int CHAMELEON_Desc_Create_User(CHAM_desc_t **descptr, void *mat, cham_flttype_t
/* Create runtime specific structure like registering data */
RUNTIME_desc_create( desc );
- status = morse_desc_check( desc );
+ status = chameleon_desc_check( desc );
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_Desc_Create_User", "invalid descriptor");
+ chameleon_error("CHAMELEON_Desc_Create_User", "invalid descriptor");
CHAMELEON_Desc_Destroy( &desc );
return status;
}
@@ -613,28 +613,28 @@ int CHAMELEON_Desc_Create_OOC_User(CHAM_desc_t **descptr, cham_flttype_t dtyp, i
(void)lm; (void)ln; (void)i; (void)j; (void)m; (void)n; (void)p; (void)q;
(void)get_rankof;
- morse_error("CHAMELEON_Desc_Create_OOC_User", "Only StarPU supports on-demand tile allocation");
+ chameleon_error("CHAMELEON_Desc_Create_OOC_User", "Only StarPU supports on-demand tile allocation");
return CHAMELEON_ERR_NOT_INITIALIZED;
#else
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
CHAM_desc_t *desc;
int status;
*descptr = NULL;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Desc_Create_OOC_User", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Desc_Create_OOC_User", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Allocate memory and initialize the descriptor */
desc = (CHAM_desc_t*)malloc(sizeof(CHAM_desc_t));
if (desc == NULL) {
- morse_error("CHAMELEON_Desc_Create_OOC_User", "malloc() failed");
+ chameleon_error("CHAMELEON_Desc_Create_OOC_User", "malloc() failed");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
- *desc = morse_desc_init_user(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q,
- morse_getaddr_null, NULL, get_rankof);
+ *desc = chameleon_desc_init_user(dtyp, mb, nb, bsiz, lm, ln, i, j, m, n, p, q,
+ chameleon_getaddr_null, NULL, get_rankof);
/* memory of the matrix is completely handled by runtime */
desc->use_mat = 0;
@@ -647,9 +647,9 @@ int CHAMELEON_Desc_Create_OOC_User(CHAM_desc_t **descptr, cham_flttype_t dtyp, i
/* Create scheduler structure like registering data */
RUNTIME_desc_create( desc );
- status = morse_desc_check( desc );
+ status = chameleon_desc_check( desc );
if (status != CHAMELEON_SUCCESS) {
- morse_error("CHAMELEON_Desc_Create_OOC_User", "invalid descriptor");
+ chameleon_error("CHAMELEON_Desc_Create_OOC_User", "invalid descriptor");
CHAMELEON_Desc_Destroy( &desc );
return status;
}
@@ -705,7 +705,7 @@ int CHAMELEON_Desc_Create_OOC(CHAM_desc_t **descptr, cham_flttype_t dtyp, int mb
{
return CHAMELEON_Desc_Create_OOC_User( descptr, dtyp, mb, nb, bsiz,
lm, ln, i, j, m, n, p, q,
- morse_getrankof_2d );
+ chameleon_getrankof_2d );
}
/**
@@ -728,21 +728,21 @@ int CHAMELEON_Desc_Create_OOC(CHAM_desc_t **descptr, cham_flttype_t dtyp, int mb
*/
int CHAMELEON_Desc_Destroy(CHAM_desc_t **desc)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_error("CHAMELEON_Desc_Destroy", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_error("CHAMELEON_Desc_Destroy", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (*desc == NULL) {
- morse_error("CHAMELEON_Desc_Destroy", "attempting to destroy a NULL descriptor");
+ chameleon_error("CHAMELEON_Desc_Destroy", "attempting to destroy a NULL descriptor");
return CHAMELEON_ERR_UNALLOCATED;
}
RUNTIME_desc_destroy( *desc );
- morse_desc_mat_free( *desc );
+ chameleon_desc_mat_free( *desc );
free(*desc);
*desc = NULL;
return CHAMELEON_SUCCESS;
diff --git a/control/descriptor.h b/control/descriptor.h
index a81b2f557..ac7535e09 100644
--- a/control/descriptor.h
+++ b/control/descriptor.h
@@ -33,41 +33,41 @@ extern "C" {
/**
* Internal routines
*/
-inline static void* morse_geteltaddr(const CHAM_desc_t *A, int m, int n, int eltsize);
-inline static void* morse_getaddr_cm (const CHAM_desc_t *A, int m, int n);
-inline static void* morse_getaddr_ccrb (const CHAM_desc_t *A, int m, int n);
-inline static void* morse_getaddr_null (const CHAM_desc_t *A, int m, int n);
-inline static int morse_getblkldd_cm (const CHAM_desc_t *A, int m);
-inline static int morse_getblkldd_ccrb(const CHAM_desc_t *A, int m);
+inline static void* chameleon_geteltaddr(const CHAM_desc_t *A, int m, int n, int eltsize);
+inline static void* chameleon_getaddr_cm (const CHAM_desc_t *A, int m, int n);
+inline static void* chameleon_getaddr_ccrb (const CHAM_desc_t *A, int m, int n);
+inline static void* chameleon_getaddr_null (const CHAM_desc_t *A, int m, int n);
+inline static int chameleon_getblkldd_cm (const CHAM_desc_t *A, int m);
+inline static int chameleon_getblkldd_ccrb(const CHAM_desc_t *A, int m);
/**
* Data distributions
*/
-inline static int morse_getrankof_2d(const CHAM_desc_t *desc, int m, int n);
-inline static int morse_getrankof_2d_diag(const CHAM_desc_t *desc, int m, int n);
+inline static int chameleon_getrankof_2d(const CHAM_desc_t *desc, int m, int n);
+inline static int chameleon_getrankof_2d_diag(const CHAM_desc_t *desc, int m, int n);
-CHAM_desc_t morse_desc_init(cham_flttype_t dtyp, int mb, int nb, int bsiz,
+CHAM_desc_t chameleon_desc_init(cham_flttype_t dtyp, int mb, int nb, int bsiz,
int lm, int ln, int i, int j, int m, int n, int p, int q);
-CHAM_desc_t morse_desc_init_diag(cham_flttype_t dtyp, int mb, int nb, int bsiz,
+CHAM_desc_t chameleon_desc_init_diag(cham_flttype_t dtyp, int mb, int nb, int bsiz,
int lm, int ln, int i, int j, int m, int n, int p, int q);
-CHAM_desc_t morse_desc_init_user(cham_flttype_t dtyp, int mb, int nb, int bsiz,
+CHAM_desc_t chameleon_desc_init_user(cham_flttype_t dtyp, int mb, int nb, int bsiz,
int lm, int ln, int i, int j,
int m, int n, int p, int q,
void* (*get_blkaddr)( const CHAM_desc_t*, int, int ),
int (*get_blkldd)( const CHAM_desc_t*, int ),
int (*get_rankof)( const CHAM_desc_t*, int, int ));
-CHAM_desc_t* morse_desc_submatrix(CHAM_desc_t *descA, int i, int j, int m, int n);
+CHAM_desc_t* chameleon_desc_submatrix(CHAM_desc_t *descA, int i, int j, int m, int n);
-int morse_desc_check (const CHAM_desc_t *desc);
-int morse_desc_mat_alloc(CHAM_desc_t *desc);
-int morse_desc_mat_free (CHAM_desc_t *desc);
+int chameleon_desc_check (const CHAM_desc_t *desc);
+int chameleon_desc_mat_alloc(CHAM_desc_t *desc);
+int chameleon_desc_mat_free (CHAM_desc_t *desc);
#define BLKLDD(A, k) A->get_blkldd( A, k )
/**
* Internal function to return address of block (m,n) with m,n = block indices
*/
-inline static void* morse_getaddr_ccrb(const CHAM_desc_t *A, int m, int n)
+inline static void* chameleon_getaddr_ccrb(const CHAM_desc_t *A, int m, int n)
{
size_t mm = m + A->i / A->mb;
size_t nn = n + A->j / A->nb;
@@ -99,7 +99,7 @@ inline static void* morse_getaddr_ccrb(const CHAM_desc_t *A, int m, int n)
/**
* Internal function to return address of block (m,n) with m,n = block indices
*/
-inline static void *morse_getaddr_cm(const CHAM_desc_t *A, int m, int n)
+inline static void *chameleon_getaddr_cm(const CHAM_desc_t *A, int m, int n)
{
size_t mm = m + A->i / A->mb;
size_t nn = n + A->j / A->nb;
@@ -120,7 +120,7 @@ inline static void *morse_getaddr_cm(const CHAM_desc_t *A, int m, int n)
* Internal function to return address of block (m,n) with m,n = block indices
* This version lets the runtime allocate on-demand.
*/
-inline static void *morse_getaddr_null(const CHAM_desc_t *A, int m, int n)
+inline static void *chameleon_getaddr_null(const CHAM_desc_t *A, int m, int n)
{
(void)A; (void)m; (void)n;
return NULL;
@@ -129,7 +129,7 @@ inline static void *morse_getaddr_null(const CHAM_desc_t *A, int m, int n)
/**
* Internal function to return address of element A(m,n) with m,n = matrix indices
*/
-inline static void* morse_geteltaddr(const CHAM_desc_t *A, int m, int n, int eltsize) // Not used anywhere ?!
+inline static void* chameleon_geteltaddr(const CHAM_desc_t *A, int m, int n, int eltsize) // Not used anywhere ?!
{
size_t mm = (m + A->i)/A->mb;
size_t nn = (n + A->j)/A->nb;
@@ -159,13 +159,13 @@ inline static void* morse_geteltaddr(const CHAM_desc_t *A, int m, int n, int elt
/**
* Internal function to return the leading dimension of element A(m,*) with m,n = block indices
*/
-inline static int morse_getblkldd_ccrb(const CHAM_desc_t *A, int m)
+inline static int chameleon_getblkldd_ccrb(const CHAM_desc_t *A, int m)
{
int mm = m + A->i / A->mb;
return ( ((mm+1) == A->lmt) && ((A->lm % A->mb) != 0)) ? A->lm % A->mb : A->mb;
}
-inline static int morse_getblkldd_cm(const CHAM_desc_t *A, int m) {
+inline static int chameleon_getblkldd_cm(const CHAM_desc_t *A, int m) {
(void)m;
return A->llm;
}
@@ -174,7 +174,7 @@ inline static int morse_getblkldd_cm(const CHAM_desc_t *A, int m) {
/**
* Internal function to return MPI rank of element A(m,n) with m,n = block indices
*/
-inline static int morse_getrankof_2d(const CHAM_desc_t *A, int m, int n)
+inline static int chameleon_getrankof_2d(const CHAM_desc_t *A, int m, int n)
{
int mm = m + A->i / A->mb;
int nn = n + A->j / A->nb;
@@ -184,7 +184,7 @@ inline static int morse_getrankof_2d(const CHAM_desc_t *A, int m, int n)
/**
* Internal function to return MPI rank of element DIAG(m,0) with m,n = block indices
*/
-inline static int morse_getrankof_2d_diag(const CHAM_desc_t *A, int m, int n)
+inline static int chameleon_getrankof_2d_diag(const CHAM_desc_t *A, int m, int n)
{
int mm = m + A->i / A->mb;
assert( n == 0 );
@@ -195,7 +195,7 @@ inline static int morse_getrankof_2d_diag(const CHAM_desc_t *A, int m, int n)
/**
* Detect if the tile is local or not
*/
-inline static int morse_desc_islocal( const CHAM_desc_t *A, int m, int n )
+inline static int chameleon_desc_islocal( const CHAM_desc_t *A, int m, int n )
{
#if defined(CHAMELEON_USE_MPI)
return (A->myrank == A->get_rankof(A, m, n));
@@ -214,32 +214,32 @@ inline static int morse_desc_islocal( const CHAM_desc_t *A, int m, int n )
* CHAMELEON_END_ACCESS_DECLARATION
*/
#define CHAMELEON_BEGIN_ACCESS_DECLARATION { \
- unsigned __morse_need_submit = 0; \
+ unsigned __chameleon_need_submit = 0; \
RUNTIME_BEGIN_ACCESS_DECLARATION
#define CHAMELEON_ACCESS_R(A, Am, An) do { \
- if (morse_desc_islocal(A, Am, An)) __morse_need_submit = 1; \
+ if (chameleon_desc_islocal(A, Am, An)) __chameleon_need_submit = 1; \
RUNTIME_ACCESS_R(A, Am, An); \
} while(0)
#define CHAMELEON_ACCESS_W(A, Am, An) do { \
- if (morse_desc_islocal(A, Am, An)) __morse_need_submit = 1; \
+ if (chameleon_desc_islocal(A, Am, An)) __chameleon_need_submit = 1; \
RUNTIME_ACCESS_W(A, Am, An); \
} while(0)
#define CHAMELEON_ACCESS_RW(A, Am, An) do { \
- if (morse_desc_islocal(A, Am, An)) __morse_need_submit = 1; \
+ if (chameleon_desc_islocal(A, Am, An)) __chameleon_need_submit = 1; \
RUNTIME_ACCESS_RW(A, Am, An); \
} while(0)
#define CHAMELEON_RANK_CHANGED(rank) do {\
- __morse_need_submit = 1; \
+ __chameleon_need_submit = 1; \
RUNTIME_RANK_CHANGED(rank); \
} while (0)
#define CHAMELEON_END_ACCESS_DECLARATION \
RUNTIME_END_ACCESS_DECLARATION; \
- if (!__morse_need_submit) return; \
+ if (!__chameleon_need_submit) return; \
}
#ifdef __cplusplus
diff --git a/control/global.h b/control/global.h
index a09ab145a..07283e635 100644
--- a/control/global.h
+++ b/control/global.h
@@ -26,7 +26,7 @@
#define _CHAMELEON_GLOBAL_H_
#if defined( _WIN32 ) || defined( _WIN64 )
-#include "control/morsewinthread.h"
+#include "control/chameleonwinthread.h"
#else
#include <pthread.h>
#endif
diff --git a/control/morse_f77.h b/control/morse_f77.h
deleted file mode 100644
index c83871a9e..000000000
--- a/control/morse_f77.h
+++ /dev/null
@@ -1,49 +0,0 @@
-/**
- *
- * @file morse_f77.h
- *
- * @copyright 2009-2014 The University of Tennessee and The University of
- * Tennessee Research Foundation. All rights reserved.
- * @copyright 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
- * Univ. Bordeaux. All rights reserved.
- *
- ***
- *
- * @brief Chameleon Fortran77 naming macros
- *
- * @version 1.0.0
- * @author Florent Pruvost
- * @date 2017-05-03
- *
- */
-#ifndef _CHAMELEON_F77_H_
-#define _CHAMELEON_F77_H_
-
-#include "chameleon/mangling.h"
-
-/**
- * Determine FORTRAN names
- */
-#define CHAMELEON_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(morse_##lcname, CHAMELEON_##UCNAME)
-#define CHAMELEON_TILE_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(morse_##lcname##_tile, CHAMELEON_##UCNAME##_TILE)
-#define CHAMELEON_ASYNC_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(morse_##lcname##_tile_async, CHAMELEON_##UCNAME##_TILE_ASYNC)
-#define CHAMELEON_WS_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(morse_alloc_workspace_##lcname, CHAMELEON_ALLOC_WORKSPACE_##UCNAME)
-#define CHAMELEON_WST_FNAME(lcname, UCNAME) CHAMELEON_GLOBAL(morse_alloc_workspace_##lcname##_tile, CHAMELEON_ALLOC_WORKSPACE_##UCNAME##_TILE)
-
-#define CHAMELEON_INIT CHAMELEON_GLOBAL(morse_init, CHAMELEON_INIT)
-#define CHAMELEON_FINALIZE CHAMELEON_GLOBAL(morse_finalize, CHAMELEON_FINALIZE)
-#define CHAMELEON_ENABLE CHAMELEON_GLOBAL(morse_enable, CHAMELEON_ENABLE)
-#define CHAMELEON_DISABLE CHAMELEON_GLOBAL(morse_disable, CHAMELEON_DISABLE)
-#define CHAMELEON_SET CHAMELEON_GLOBAL(morse_set, CHAMELEON_SET)
-#define CHAMELEON_GET CHAMELEON_GLOBAL(morse_get, CHAMELEON_GET)
-#define CHAMELEON_DEALLOC_HANDLE CHAMELEON_GLOBAL(morse_dealloc_handle, CHAMELEON_DEALLOC_HANDLE)
-#define CHAMELEON_VERSION CHAMELEON_GLOBAL(morse_version, CHAMELEON_VERSION)
-#define CHAMELEON_DESC_CREATE CHAMELEON_GLOBAL(morse_desc_create, CHAMELEON_DESC_CREATE)
-#define CHAMELEON_DESC_CREATE_OOC CHAMELEON_GLOBAL(morse_desc_create_ooc, CHAMELEON_DESC_CREATE_OOC)
-#define CHAMELEON_DESC_CREATE_USER CHAMELEON_GLOBAL(morse_desc_create_user, CHAMELEON_DESC_CREATE_USER)
-#define CHAMELEON_DESC_CREATE_OOC_USER CHAMELEON_GLOBAL(morse_desc_create_ooc_user, CHAMELEON_DESC_CREATE_OOC_USER)
-#define CHAMELEON_DESC_DESTROY CHAMELEON_GLOBAL(morse_desc_destroy, CHAMELEON_DESC_DESTROY)
-#define CHAMELEON_LAPACK_TO_TILE CHAMELEON_GLOBAL(morse_lapack_to_tile, CHAMELEON_LAPACK_TO_TILE)
-#define CHAMELEON_TILE_TO_LAPACK CHAMELEON_GLOBAL(morse_tile_to_lapack, CHAMELEON_TILE_TO_LAPACK)
-
-#endif
diff --git a/control/workspace.c b/control/workspace.c
index 95b742a96..28ffa8615 100644
--- a/control/workspace.c
+++ b/control/workspace.c
@@ -31,23 +31,23 @@
/**
*
*/
-int morse_alloc_ibnb_tile(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t **desc, int p, int q)
+int chameleon_alloc_ibnb_tile(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t **desc, int p, int q)
{
int status;
int IB, NB, MT, NT;
int64_t lm, ln;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("morse_alloc_ibnb_tile", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("chameleon_alloc_ibnb_tile", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Tune NB & IB depending on M & N; Set IBNBSIZE */
- status = morse_tune(func, M, N, 0);
+ status = chameleon_tune(func, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("morse_alloc_ibnb_tile", "morse_tune() failed");
+ chameleon_error("chameleon_alloc_ibnb_tile", "chameleon_tune() failed");
return CHAMELEON_ERR_UNEXPECTED;
}
@@ -58,7 +58,7 @@ int morse_alloc_ibnb_tile(int M, int N, cham_tasktype_t func, int type, CHAM_des
NT = (N%NB==0) ? (N/NB) : (N/NB+1);
/* Size is doubled for RH QR to store the reduction T */
- if ((morse->householder == ChamTreeHouseholder) &&
+ if ((chamctxt->householder == ChamTreeHouseholder) &&
((func == CHAMELEON_FUNC_SGELS) ||
(func == CHAMELEON_FUNC_DGELS) ||
(func == CHAMELEON_FUNC_CGELS) ||
@@ -75,14 +75,14 @@ int morse_alloc_ibnb_tile(int M, int N, cham_tasktype_t func, int type, CHAM_des
/* Allocate and initialize descriptor */
*desc = (CHAM_desc_t*)malloc(sizeof(CHAM_desc_t));
if (*desc == NULL) {
- morse_error("morse_alloc_ibnb_tile", "malloc() failed");
+ chameleon_error("chameleon_alloc_ibnb_tile", "malloc() failed");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
- **desc = morse_desc_init(type, IB, NB, IB*NB, lm, ln, 0, 0, lm, ln, p, q);
+ **desc = chameleon_desc_init(type, IB, NB, IB*NB, lm, ln, 0, 0, lm, ln, p, q);
/* Allocate matrix */
- if (morse_desc_mat_alloc(*desc)) {
- morse_error("morse_alloc_ibnb_tile", "malloc() failed");
+ if (chameleon_desc_mat_alloc(*desc)) {
+ chameleon_error("chameleon_alloc_ibnb_tile", "malloc() failed");
free(*desc);
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
@@ -90,9 +90,9 @@ int morse_alloc_ibnb_tile(int M, int N, cham_tasktype_t func, int type, CHAM_des
RUNTIME_desc_create( *desc );
/* Check that everything is ok */
- status = morse_desc_check(*desc);
+ status = chameleon_desc_check(*desc);
if (status != CHAMELEON_SUCCESS) {
- morse_error("morse_alloc_ibnb_tile", "invalid descriptor");
+ chameleon_error("chameleon_alloc_ibnb_tile", "invalid descriptor");
free(*desc);
return status;
}
@@ -103,24 +103,24 @@ int morse_alloc_ibnb_tile(int M, int N, cham_tasktype_t func, int type, CHAM_des
/**
*
*/
-int morse_alloc_ipiv(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t **desc, void **IPIV, int p, int q)
+int chameleon_alloc_ipiv(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t **desc, void **IPIV, int p, int q)
{
int status;
int NB, IB, MT, NT;
int64_t lm, ln;
size_t size;
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("morse_alloc_ipiv", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("chameleon_alloc_ipiv", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
/* Tune NB & IB depending on M & N; Set IBNBSIZE */
- status = morse_tune(func, M, N, 0);
+ status = chameleon_tune(func, M, N, 0);
if (status != CHAMELEON_SUCCESS) {
- morse_error("morse_alloc_ipiv", "morse_tune() failed");
+ chameleon_error("chameleon_alloc_ipiv", "chameleon_tune() failed");
return CHAMELEON_ERR_UNEXPECTED;
}
@@ -143,10 +143,10 @@ int morse_alloc_ipiv(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t *
*IPIV = (int*)malloc( size );
*desc = (CHAM_desc_t*)malloc(sizeof(CHAM_desc_t));
- **desc = morse_desc_init(type, IB, NB, IB*NB, lm, ln, 0, 0, lm, ln, p, q );
+ **desc = chameleon_desc_init(type, IB, NB, IB*NB, lm, ln, 0, 0, lm, ln, p, q );
- if ( morse_desc_mat_alloc(*desc) ) {
- morse_error("morse_alloc_ipiv", "malloc() failed");
+ if ( chameleon_desc_mat_alloc(*desc) ) {
+ chameleon_error("chameleon_alloc_ipiv", "malloc() failed");
free(*desc);
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
@@ -176,22 +176,22 @@ int morse_alloc_ipiv(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t *
*/
int CHAMELEON_Dealloc_Workspace(CHAM_desc_t **desc)
{
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
- morse = morse_context_self();
- if (morse == NULL) {
- morse_fatal_error("CHAMELEON_Dealloc_Workspace", "CHAMELEON not initialized");
+ chamctxt = chameleon_context_self();
+ if (chamctxt == NULL) {
+ chameleon_fatal_error("CHAMELEON_Dealloc_Workspace", "CHAMELEON not initialized");
return CHAMELEON_ERR_NOT_INITIALIZED;
}
if (*desc == NULL) {
- morse_error("CHAMELEON_Dealloc_Workspace", "attempting to deallocate a NULL descriptor");
+ chameleon_error("CHAMELEON_Dealloc_Workspace", "attempting to deallocate a NULL descriptor");
return CHAMELEON_ERR_UNALLOCATED;
}
if ((*desc)->mat == NULL && (*desc)->use_mat == 1) {
- morse_error("CHAMELEON_Dealloc_Worspace", "attempting to deallocate a NULL pointer");
+ chameleon_error("CHAMELEON_Dealloc_Worspace", "attempting to deallocate a NULL pointer");
return CHAMELEON_ERR_UNALLOCATED;
}
- morse_desc_mat_free( *desc );
+ chameleon_desc_mat_free( *desc );
RUNTIME_desc_destroy( *desc );
free(*desc);
diff --git a/control/workspace.h b/control/workspace.h
index 3eab106a7..32a8b6358 100644
--- a/control/workspace.h
+++ b/control/workspace.h
@@ -27,8 +27,8 @@ extern "C" {
/**
* Internal routines
*/
-int morse_alloc_ibnb_tile(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t **desc, int p, int q);
-int morse_alloc_ipiv(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t **desc, void **IPIV, int p, int q);
+int chameleon_alloc_ibnb_tile(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t **desc, int p, int q);
+int chameleon_alloc_ipiv(int M, int N, cham_tasktype_t func, int type, CHAM_desc_t **desc, void **IPIV, int p, int q);
#ifdef __cplusplus
}
diff --git a/control/workspace_z.c b/control/workspace_z.c
index fd761f7a3..3b950a861 100644
--- a/control/workspace_z.c
+++ b/control/workspace_z.c
@@ -50,7 +50,7 @@
*
*/
int CHAMELEON_Alloc_Workspace_zgeev(int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(N, N, CHAMELEON_FUNC_ZGEEV, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(N, N, CHAMELEON_FUNC_ZGEEV, ChamComplexDouble, descT, p, q); }
/**
*
@@ -75,7 +75,7 @@ int CHAMELEON_Alloc_Workspace_zgeev(int N, CHAM_desc_t **descT, int p, int q) {
*
*/
int CHAMELEON_Alloc_Workspace_zgehrd(int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(N, N, CHAMELEON_FUNC_ZGEHRD, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(N, N, CHAMELEON_FUNC_ZGEHRD, ChamComplexDouble, descT, p, q); }
/**
*
@@ -102,7 +102,7 @@ int CHAMELEON_Alloc_Workspace_zgehrd(int N, CHAM_desc_t **descT, int p, int q) {
*
*/
int CHAMELEON_Alloc_Workspace_zgebrd(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGEBRD, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGEBRD, ChamComplexDouble, descT, p, q); }
/**
*
@@ -130,7 +130,7 @@ int CHAMELEON_Alloc_Workspace_zgebrd(int M, int N, CHAM_desc_t **descT, int p, i
*
*/
int CHAMELEON_Alloc_Workspace_zgels(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
/**
*
@@ -164,7 +164,7 @@ int CHAMELEON_Alloc_Workspace_zgels(int M, int N, CHAM_desc_t **descT, int p, in
*
*/
int CHAMELEON_Alloc_Workspace_zgels_Tile(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
/**
*
@@ -198,7 +198,7 @@ int CHAMELEON_Alloc_Workspace_zgels_Tile(int M, int N, CHAM_desc_t **descT, int
*
*/
int CHAMELEON_Alloc_Workspace_zgeqrf(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
/**
*
@@ -232,7 +232,7 @@ int CHAMELEON_Alloc_Workspace_zgeqrf(int M, int N, CHAM_desc_t **descT, int p, i
*
*/
int CHAMELEON_Alloc_Workspace_zgeqrf_Tile(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
/**
*
@@ -266,7 +266,7 @@ int CHAMELEON_Alloc_Workspace_zgeqrf_Tile(int M, int N, CHAM_desc_t **descT, int
*
*/
int CHAMELEON_Alloc_Workspace_zgelqf(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
/**
*
@@ -299,7 +299,7 @@ int CHAMELEON_Alloc_Workspace_zgelqf(int M, int N, CHAM_desc_t **descT, int p, i
*
*/
int CHAMELEON_Alloc_Workspace_zgelqf_Tile(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGELS, ChamComplexDouble, descT, p, q); }
/**
*
@@ -329,7 +329,7 @@ int CHAMELEON_Alloc_Workspace_zgelqf_Tile(int M, int N, CHAM_desc_t **descT, int
*
*/
int CHAMELEON_Alloc_Workspace_zgesv_incpiv(int N, CHAM_desc_t **descL, int **IPIV, int p, int q) {
- return morse_alloc_ipiv(N, N, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV, p, q); }
+ return chameleon_alloc_ipiv(N, N, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV, p, q); }
/**
*
@@ -360,7 +360,7 @@ int CHAMELEON_Alloc_Workspace_zgesv_incpiv(int N, CHAM_desc_t **descL, int **IPI
*/
int CHAMELEON_Alloc_Workspace_zgesv_incpiv_Tile(int N, CHAM_desc_t **descL, int **IPIV, int p, int q)
{
- return morse_alloc_ipiv(N, N, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV, p, q);
+ return chameleon_alloc_ipiv(N, N, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV, p, q);
}
/**
*
@@ -393,7 +393,7 @@ int CHAMELEON_Alloc_Workspace_zgesv_incpiv_Tile(int N, CHAM_desc_t **descL, int
*
*/
int CHAMELEON_Alloc_Workspace_zgesvd(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGESVD, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZGESVD, ChamComplexDouble, descT, p, q); }
/**
*
@@ -432,7 +432,7 @@ int CHAMELEON_Alloc_Workspace_zgesvd(int M, int N, CHAM_desc_t **descT, int p, i
*
*/
int CHAMELEON_Alloc_Workspace_zgetrf_incpiv(int M, int N, CHAM_desc_t **descL, int **IPIV, int p, int q) {
- return morse_alloc_ipiv(M, N, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV, p, q); }
+ return chameleon_alloc_ipiv(M, N, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV, p, q); }
/**
*
@@ -461,7 +461,7 @@ int CHAMELEON_Alloc_Workspace_zgetrf_incpiv(int M, int N, CHAM_desc_t **descL, i
*
*/
int CHAMELEON_Alloc_Workspace_zgetrf_incpiv_Tile(int N, CHAM_desc_t **descL, int **IPIV, int p, int q) {
- return morse_alloc_ipiv(N, N, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV, p, q); }
+ return chameleon_alloc_ipiv(N, N, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV, p, q); }
/**
*
@@ -493,7 +493,7 @@ int CHAMELEON_Alloc_Workspace_zgetrf_incpiv_Tile(int N, CHAM_desc_t **descL, int
*
*/
int CHAMELEON_Alloc_Workspace_zheev(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHEEV, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHEEV, ChamComplexDouble, descT, p, q); }
/**
*
@@ -525,7 +525,7 @@ int CHAMELEON_Alloc_Workspace_zheev(int M, int N, CHAM_desc_t **descT, int p, in
*
*/
int CHAMELEON_Alloc_Workspace_zheevd(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHEEVD, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHEEVD, ChamComplexDouble, descT, p, q); }
/**
*
@@ -557,7 +557,7 @@ int CHAMELEON_Alloc_Workspace_zheevd(int M, int N, CHAM_desc_t **descT, int p, i
*
*/
int CHAMELEON_Alloc_Workspace_zhegv(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHEGV, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHEGV, ChamComplexDouble, descT, p, q); }
/**
*
@@ -589,7 +589,7 @@ int CHAMELEON_Alloc_Workspace_zhegv(int M, int N, CHAM_desc_t **descT, int p, in
*
*/
int CHAMELEON_Alloc_Workspace_zhegvd(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHEGVD, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHEGVD, ChamComplexDouble, descT, p, q); }
/**
*
@@ -621,4 +621,4 @@ int CHAMELEON_Alloc_Workspace_zhegvd(int M, int N, CHAM_desc_t **descT, int p, i
*
*/
int CHAMELEON_Alloc_Workspace_zhetrd(int M, int N, CHAM_desc_t **descT, int p, int q) {
- return morse_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHETRD, ChamComplexDouble, descT, p, q); }
+ return chameleon_alloc_ibnb_tile(M, N, CHAMELEON_FUNC_ZHETRD, ChamComplexDouble, descT, p, q); }
diff --git a/coreblas/compute/CMakeLists.txt b/coreblas/compute/CMakeLists.txt
index 19072fc23..9e758c418 100644
--- a/coreblas/compute/CMakeLists.txt
+++ b/coreblas/compute/CMakeLists.txt
@@ -25,7 +25,7 @@
#
###
-# Generate the morse sources for all possible precisions
+# Generate the chameleon sources for all possible precisions
# ------------------------------------------------------
set(COREBLAS_SRCS_GENERATED "")
diff --git a/coreblas/compute/core_zgelqt.c b/coreblas/compute/core_zgelqt.c
index 8eb252682..3d1849b11 100644
--- a/coreblas/compute/core_zgelqt.c
+++ b/coreblas/compute/core_zgelqt.c
@@ -131,8 +131,8 @@ int CORE_zgelqt(int M, int N, int IB,
&A[LDA*i+i], LDA, &TAU[i], WORK);
LAPACKE_zlarft_work(LAPACK_COL_MAJOR,
- morse_lapack_const(ChamDirForward),
- morse_lapack_const(ChamRowwise),
+ chameleon_lapack_const(ChamDirForward),
+ chameleon_lapack_const(ChamRowwise),
N-i, sb,
&A[LDA*i+i], LDA, &TAU[i],
&T[LDT*i], LDT);
@@ -140,10 +140,10 @@ int CORE_zgelqt(int M, int N, int IB,
if (M > i+sb) {
LAPACKE_zlarfb_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(ChamRight),
- morse_lapack_const(ChamNoTrans),
- morse_lapack_const(ChamDirForward),
- morse_lapack_const(ChamRowwise),
+ chameleon_lapack_const(ChamRight),
+ chameleon_lapack_const(ChamNoTrans),
+ chameleon_lapack_const(ChamDirForward),
+ chameleon_lapack_const(ChamRowwise),
M-i-sb, N-i, sb,
&A[LDA*i+i], LDA,
&T[LDT*i], LDT,
diff --git a/coreblas/compute/core_zgeqrt.c b/coreblas/compute/core_zgeqrt.c
index c73676e11..9bed12cef 100644
--- a/coreblas/compute/core_zgeqrt.c
+++ b/coreblas/compute/core_zgeqrt.c
@@ -132,8 +132,8 @@ int CORE_zgeqrt(int M, int N, int IB,
&A[LDA*i+i], LDA, &TAU[i], WORK);
LAPACKE_zlarft_work(LAPACK_COL_MAJOR,
- morse_lapack_const(ChamDirForward),
- morse_lapack_const(ChamColumnwise),
+ chameleon_lapack_const(ChamDirForward),
+ chameleon_lapack_const(ChamColumnwise),
M-i, sb,
&A[LDA*i+i], LDA, &TAU[i],
&T[LDT*i], LDT);
@@ -141,10 +141,10 @@ int CORE_zgeqrt(int M, int N, int IB,
if (N > i+sb) {
LAPACKE_zlarfb_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(ChamLeft),
- morse_lapack_const(ChamConjTrans),
- morse_lapack_const(ChamDirForward),
- morse_lapack_const(ChamColumnwise),
+ chameleon_lapack_const(ChamLeft),
+ chameleon_lapack_const(ChamConjTrans),
+ chameleon_lapack_const(ChamDirForward),
+ chameleon_lapack_const(ChamColumnwise),
M-i, N-i-sb, sb,
&A[LDA*i+i], LDA,
&T[LDT*i], LDT,
diff --git a/coreblas/compute/core_zgesplit.c b/coreblas/compute/core_zgesplit.c
index ad9ffdc8b..b027ed23e 100644
--- a/coreblas/compute/core_zgesplit.c
+++ b/coreblas/compute/core_zgesplit.c
@@ -93,11 +93,11 @@ int CORE_zgesplit(cham_side_t side, cham_diag_t diag,
}
LAPACKE_zlacpy_work(LAPACK_COL_MAJOR,
- morse_lapack_const(ChamUpperLower),
+ chameleon_lapack_const(ChamUpperLower),
M, N, A, LDA, B, LDB);
LAPACKE_zlaset_work(LAPACK_COL_MAJOR,
- morse_lapack_const(uplo),
+ chameleon_lapack_const(uplo),
M, N, 0., 1., A, LDA);
(void)diag;
diff --git a/coreblas/compute/core_zlacpy.c b/coreblas/compute/core_zlacpy.c
index 2b7439f56..15f0a0399 100644
--- a/coreblas/compute/core_zlacpy.c
+++ b/coreblas/compute/core_zlacpy.c
@@ -37,7 +37,7 @@ void CORE_zlacpy(cham_uplo_t uplo, int M, int N,
{
LAPACKE_zlacpy_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(uplo),
+ chameleon_lapack_const(uplo),
M, N, A, LDA, B, LDB);
}
diff --git a/coreblas/compute/core_zlange.c b/coreblas/compute/core_zlange.c
index 5a01464ab..6359d947a 100644
--- a/coreblas/compute/core_zlange.c
+++ b/coreblas/compute/core_zlange.c
@@ -79,6 +79,6 @@ void CORE_zlange(cham_normtype_t norm, int M, int N,
{
*normA = LAPACKE_zlange_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(norm),
+ chameleon_lapack_const(norm),
M, N, A, LDA, work);
}
diff --git a/coreblas/compute/core_zlanhe.c b/coreblas/compute/core_zlanhe.c
index 43c11761e..d4cbc7fd1 100644
--- a/coreblas/compute/core_zlanhe.c
+++ b/coreblas/compute/core_zlanhe.c
@@ -81,6 +81,6 @@ void CORE_zlanhe(cham_normtype_t norm, cham_uplo_t uplo, int N,
{
*normA = LAPACKE_zlanhe_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(norm), morse_lapack_const(uplo),
+ chameleon_lapack_const(norm), chameleon_lapack_const(uplo),
N, A, LDA, work);
}
diff --git a/coreblas/compute/core_zlansy.c b/coreblas/compute/core_zlansy.c
index 19b527004..703a8c71f 100644
--- a/coreblas/compute/core_zlansy.c
+++ b/coreblas/compute/core_zlansy.c
@@ -81,6 +81,6 @@ void CORE_zlansy(cham_normtype_t norm, cham_uplo_t uplo, int N,
{
*normA = LAPACKE_zlansy_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(norm), morse_lapack_const(uplo),
+ chameleon_lapack_const(norm), chameleon_lapack_const(uplo),
N, A, LDA, work);
}
diff --git a/coreblas/compute/core_zlantr.c b/coreblas/compute/core_zlantr.c
index 4c2db1a4c..2eec1229b 100644
--- a/coreblas/compute/core_zlantr.c
+++ b/coreblas/compute/core_zlantr.c
@@ -93,9 +93,9 @@ void CORE_zlantr(cham_normtype_t norm, cham_uplo_t uplo, cham_diag_t diag,
#if defined(LAPACKE_CORRECT_DLANTR)
*normA = LAPACKE_zlantr_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(norm),
- morse_lapack_const(uplo),
- morse_lapack_const(diag),
+ chameleon_lapack_const(norm),
+ chameleon_lapack_const(uplo),
+ chameleon_lapack_const(diag),
M, N, A, LDA, work);
#else
const CHAMELEON_Complex64_t *tmpA;
diff --git a/coreblas/compute/core_zlaset.c b/coreblas/compute/core_zlaset.c
index 87cf3cb4c..6c667f0d1 100644
--- a/coreblas/compute/core_zlaset.c
+++ b/coreblas/compute/core_zlaset.c
@@ -67,7 +67,7 @@ void CORE_zlaset(cham_uplo_t uplo, int M, int N,
{
LAPACKE_zlaset_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(uplo),
+ chameleon_lapack_const(uplo),
M, N, alpha, beta, A, LDA);
}
diff --git a/coreblas/compute/core_zlaset2.c b/coreblas/compute/core_zlaset2.c
index 59b83aec5..f07cea6fc 100644
--- a/coreblas/compute/core_zlaset2.c
+++ b/coreblas/compute/core_zlaset2.c
@@ -65,19 +65,19 @@ void CORE_zlaset2(cham_uplo_t uplo, int M, int N,
if (uplo == ChamUpper) {
LAPACKE_zlaset_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(uplo),
+ chameleon_lapack_const(uplo),
M, N-1, alpha, alpha, A+LDA, LDA);
}
else if (uplo == ChamLower) {
LAPACKE_zlaset_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(uplo),
+ chameleon_lapack_const(uplo),
M-1, N, alpha, alpha, A+1, LDA);
}
else {
LAPACKE_zlaset_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(uplo),
+ chameleon_lapack_const(uplo),
M, N, alpha, alpha, A, LDA);
}
}
diff --git a/coreblas/compute/core_zlauum.c b/coreblas/compute/core_zlauum.c
index 0f9ea904f..59b37225c 100644
--- a/coreblas/compute/core_zlauum.c
+++ b/coreblas/compute/core_zlauum.c
@@ -33,7 +33,7 @@
*/
void CORE_zlauum(cham_uplo_t uplo, int N, CHAMELEON_Complex64_t *A, int LDA)
{
- LAPACKE_zlauum_work(LAPACK_COL_MAJOR, morse_lapack_const(uplo), N, A, LDA );
+ LAPACKE_zlauum_work(LAPACK_COL_MAJOR, chameleon_lapack_const(uplo), N, A, LDA );
}
diff --git a/coreblas/compute/core_zpamm.c b/coreblas/compute/core_zpamm.c
index 1e0beec5c..5da5615d9 100644
--- a/coreblas/compute/core_zpamm.c
+++ b/coreblas/compute/core_zpamm.c
@@ -331,7 +331,7 @@ CORE_zpamm_w(cham_side_t side, cham_trans_t trans, cham_uplo_t uplo,
/* W = A2_2 */
LAPACKE_zlacpy_work(LAPACK_COL_MAJOR,
- morse_lapack_const(ChamUpperLower),
+ chameleon_lapack_const(ChamUpperLower),
L, N,
&A2[K-L], LDA2, W, LDW);
@@ -397,7 +397,7 @@ CORE_zpamm_w(cham_side_t side, cham_trans_t trans, cham_uplo_t uplo,
/* W = A2_2 */
LAPACKE_zlacpy_work(LAPACK_COL_MAJOR,
- morse_lapack_const(ChamUpperLower),
+ chameleon_lapack_const(ChamUpperLower),
M, L,
&A2[LDA2*(K-L)], LDA2, W, LDW);
diff --git a/coreblas/compute/core_zpotrf.c b/coreblas/compute/core_zpotrf.c
index 5503e6431..1e818f195 100644
--- a/coreblas/compute/core_zpotrf.c
+++ b/coreblas/compute/core_zpotrf.c
@@ -35,7 +35,7 @@ void CORE_zpotrf(cham_uplo_t uplo, int N, CHAMELEON_Complex64_t *A, int LDA, int
{
*INFO = LAPACKE_zpotrf_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(uplo),
+ chameleon_lapack_const(uplo),
N, A, LDA );
}
diff --git a/coreblas/compute/core_ztrtri.c b/coreblas/compute/core_ztrtri.c
index 9700e5953..1fcdfd158 100644
--- a/coreblas/compute/core_ztrtri.c
+++ b/coreblas/compute/core_ztrtri.c
@@ -35,7 +35,7 @@ void CORE_ztrtri(cham_uplo_t uplo, cham_diag_t diag, int N, CHAMELEON_Complex64_
{
*info = LAPACKE_ztrtri_work(
LAPACK_COL_MAJOR,
- morse_lapack_const(uplo), morse_lapack_const(diag),
+ chameleon_lapack_const(uplo), chameleon_lapack_const(diag),
N, A, LDA);
}
diff --git a/coreblas/compute/core_zunmlq.c b/coreblas/compute/core_zunmlq.c
index 612e2a382..e6f3b0f0e 100644
--- a/coreblas/compute/core_zunmlq.c
+++ b/coreblas/compute/core_zunmlq.c
@@ -218,10 +218,10 @@ int CORE_zunmlq(cham_side_t side, cham_trans_t trans,
* Apply H or H'
*/
LAPACKE_zlarfb_work(LAPACK_COL_MAJOR,
- morse_lapack_const(side),
- morse_lapack_const(trans),
- morse_lapack_const(ChamDirForward),
- morse_lapack_const(ChamRowwise),
+ chameleon_lapack_const(side),
+ chameleon_lapack_const(trans),
+ chameleon_lapack_const(ChamDirForward),
+ chameleon_lapack_const(ChamRowwise),
mi, ni, kb,
&A[LDA*i+i], LDA,
&T[LDT*i], LDT,
diff --git a/coreblas/compute/core_zunmqr.c b/coreblas/compute/core_zunmqr.c
index b59816504..30e7ad335 100644
--- a/coreblas/compute/core_zunmqr.c
+++ b/coreblas/compute/core_zunmqr.c
@@ -212,10 +212,10 @@ int CORE_zunmqr(cham_side_t side, cham_trans_t trans,
* Apply H or H'
*/
LAPACKE_zlarfb_work(LAPACK_COL_MAJOR,
- morse_lapack_const(side),
- morse_lapack_const(trans),
- morse_lapack_const(ChamDirForward),
- morse_lapack_const(ChamColumnwise),
+ chameleon_lapack_const(side),
+ chameleon_lapack_const(trans),
+ chameleon_lapack_const(ChamDirForward),
+ chameleon_lapack_const(ChamColumnwise),
mi, ni, kb,
&A[LDA*i+i], LDA,
&T[LDT*i], LDT,
diff --git a/coreblas/compute/global.c b/coreblas/compute/global.c
index 519d4b7a1..e8167a8bf 100644
--- a/coreblas/compute/global.c
+++ b/coreblas/compute/global.c
@@ -32,7 +32,7 @@ get_coreblas_gemm3m_enabled(void) {
/**
* LAPACK Constants
*/
-char *morse_lapack_constants[] =
+char *chameleon_lapack_constants[] =
{
"", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "",
diff --git a/coreblas/include/coreblas.h b/coreblas/include/coreblas.h
index c7e79c0c7..92b4bb8b2 100644
--- a/coreblas/include/coreblas.h
+++ b/coreblas/include/coreblas.h
@@ -77,8 +77,8 @@ END_C_DECLS
*/
BEGIN_C_DECLS
-extern char *morse_lapack_constants[];
-#define morse_lapack_const(morse_const) morse_lapack_constants[morse_const][0]
+extern char *chameleon_lapack_constants[];
+#define chameleon_lapack_const(chameleon_const) chameleon_lapack_constants[chameleon_const][0]
void set_coreblas_gemm3m_enabled( int v );
int get_coreblas_gemm3m_enabled( void );
diff --git a/cudablas/compute/CMakeLists.txt b/cudablas/compute/CMakeLists.txt
index e192c2998..7822fdfc8 100644
--- a/cudablas/compute/CMakeLists.txt
+++ b/cudablas/compute/CMakeLists.txt
@@ -23,7 +23,7 @@
#
###
-# Generate the morse sources for all possible precisions
+# Generate the chameleon sources for all possible precisions
# ------------------------------------------------------
set(CUDABLAS_SRCS_GENERATED "")
set(ZSRC
diff --git a/cudablas/compute/cuda_zgeadd.c b/cudablas/compute/cuda_zgeadd.c
index b37c2f66f..aedd54d08 100644
--- a/cudablas/compute/cuda_zgeadd.c
+++ b/cudablas/compute/cuda_zgeadd.c
@@ -86,7 +86,7 @@ int CUDA_zgeadd(cham_trans_t trans,
CUBLAS_STREAM_PARAM)
{
cublasZgeam(CUBLAS_HANDLE
- morse_cublas_const(trans), morse_cublas_const(ChamNoTrans),
+ chameleon_cublas_const(trans), chameleon_cublas_const(ChamNoTrans),
m, n,
CUBLAS_VALUE(alpha), A, lda,
CUBLAS_VALUE(beta), B, ldb,
diff --git a/cudablas/compute/cuda_zgemm.c b/cudablas/compute/cuda_zgemm.c
index 75f11da77..bd8ebbc99 100644
--- a/cudablas/compute/cuda_zgemm.c
+++ b/cudablas/compute/cuda_zgemm.c
@@ -29,7 +29,7 @@ int CUDA_zgemm(cham_trans_t transa, cham_trans_t transb,
CUBLAS_STREAM_PARAM)
{
cublasZgemm(CUBLAS_HANDLE
- morse_cublas_const(transa), morse_cublas_const(transb),
+ chameleon_cublas_const(transa), chameleon_cublas_const(transb),
m, n, k,
CUBLAS_VALUE(alpha), A, lda,
B, ldb,
diff --git a/cudablas/compute/cuda_zhemm.c b/cudablas/compute/cuda_zhemm.c
index eb0691f9b..06a4cda74 100644
--- a/cudablas/compute/cuda_zhemm.c
+++ b/cudablas/compute/cuda_zhemm.c
@@ -29,7 +29,7 @@ int CUDA_zhemm(cham_side_t side, cham_uplo_t uplo,
CUBLAS_STREAM_PARAM)
{
cublasZhemm(CUBLAS_HANDLE
- morse_cublas_const(side), morse_cublas_const(uplo),
+ chameleon_cublas_const(side), chameleon_cublas_const(uplo),
m, n,
CUBLAS_VALUE(alpha), A, lda,
B, ldb,
diff --git a/cudablas/compute/cuda_zher2k.c b/cudablas/compute/cuda_zher2k.c
index 8d9a82ee2..ce5a09b27 100644
--- a/cudablas/compute/cuda_zher2k.c
+++ b/cudablas/compute/cuda_zher2k.c
@@ -29,7 +29,7 @@ int CUDA_zher2k(cham_uplo_t uplo, cham_trans_t trans,
CUBLAS_STREAM_PARAM)
{
cublasZher2k(CUBLAS_HANDLE
- morse_cublas_const(uplo), morse_cublas_const(trans),
+ chameleon_cublas_const(uplo), chameleon_cublas_const(trans),
n, k,
CUBLAS_VALUE(alpha), A, lda,
B, ldb,
diff --git a/cudablas/compute/cuda_zherk.c b/cudablas/compute/cuda_zherk.c
index a2e73d76d..74cf9503e 100644
--- a/cudablas/compute/cuda_zherk.c
+++ b/cudablas/compute/cuda_zherk.c
@@ -28,7 +28,7 @@ int CUDA_zherk( cham_uplo_t uplo, cham_trans_t trans,
CUBLAS_STREAM_PARAM)
{
cublasZherk( CUBLAS_HANDLE
- morse_cublas_const(uplo), morse_cublas_const(trans),
+ chameleon_cublas_const(uplo), chameleon_cublas_const(trans),
n, k,
CUBLAS_VALUE(alpha), A, lda,
CUBLAS_VALUE(beta), B, ldb);
diff --git a/cudablas/compute/cuda_zlarfb.c b/cudablas/compute/cuda_zlarfb.c
index 47f99a1a2..7cdeb4134 100644
--- a/cudablas/compute/cuda_zlarfb.c
+++ b/cudablas/compute/cuda_zlarfb.c
@@ -97,7 +97,7 @@ CUDA_zlarfb(cham_side_t side, cham_trans_t trans,
// W = C^H V
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(ChamConjTrans), morse_cublas_const(notransV),
+ chameleon_cublas_const(ChamConjTrans), chameleon_cublas_const(notransV),
N, K, M,
CUBLAS_SADDR(zone), C, LDC,
V, LDV,
@@ -112,7 +112,7 @@ CUDA_zlarfb(cham_side_t side, cham_trans_t trans,
// C = C - V W^H = C - V T V^H C = (I - V T V^H) C = H C
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(notransV), morse_cublas_const(ChamConjTrans),
+ chameleon_cublas_const(notransV), chameleon_cublas_const(ChamConjTrans),
M, N, K,
CUBLAS_SADDR(mzone), V, LDV,
WORK, LDWORK,
@@ -124,7 +124,7 @@ CUDA_zlarfb(cham_side_t side, cham_trans_t trans,
// W = C V
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(ChamNoTrans), morse_cublas_const(notransV),
+ chameleon_cublas_const(ChamNoTrans), chameleon_cublas_const(notransV),
M, K, N,
CUBLAS_SADDR(zone), C, LDC,
V, LDV,
@@ -139,7 +139,7 @@ CUDA_zlarfb(cham_side_t side, cham_trans_t trans,
// C = C - W V^H = C - C V T V^H = C (I - V T V^H) = C H
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(ChamNoTrans), morse_cublas_const(transV),
+ chameleon_cublas_const(ChamNoTrans), chameleon_cublas_const(transV),
M, N, K,
CUBLAS_SADDR(mzone), WORK, LDWORK,
V, LDV,
diff --git a/cudablas/compute/cuda_zparfb.c b/cudablas/compute/cuda_zparfb.c
index 648e067bd..d35dcbe9e 100644
--- a/cudablas/compute/cuda_zparfb.c
+++ b/cudablas/compute/cuda_zparfb.c
@@ -237,7 +237,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
transA2 = storev == ChamColumnwise ? ChamNoTrans : ChamConjTrans;
cublasZgemm(CUBLAS_HANDLE
- morse_cublas_const(transW), morse_cublas_const(ChamNoTrans),
+ chameleon_cublas_const(transW), chameleon_cublas_const(ChamNoTrans),
K, N1, M2,
CUBLAS_SADDR(zone),
V /* K*M2 */, LDV,
@@ -263,7 +263,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
/* A2 = A2 - op(V) * W */
cublasZgemm(CUBLAS_HANDLE
- morse_cublas_const(transA2), morse_cublas_const(ChamNoTrans),
+ chameleon_cublas_const(transA2), chameleon_cublas_const(ChamNoTrans),
M2, N2, K,
CUBLAS_SADDR(mzone), V /* M2*K */, LDV,
WORK /* K*N2 */, LDWORK,
@@ -272,7 +272,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
} else {
/* Wc = V * op(T) */
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(transA2), morse_cublas_const(trans),
+ chameleon_cublas_const(transA2), chameleon_cublas_const(trans),
M2, K, K,
CUBLAS_SADDR(zone), V, LDV,
T, LDT,
@@ -280,7 +280,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
/* A1 = A1 - opt(T) * W */
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(trans), morse_cublas_const(ChamNoTrans),
+ chameleon_cublas_const(trans), chameleon_cublas_const(ChamNoTrans),
K, N1, K,
CUBLAS_SADDR(mzone), T, LDT,
WORK, LDWORK,
@@ -288,7 +288,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
/* A2 = A2 - Wc * W */
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(ChamNoTrans), morse_cublas_const(ChamNoTrans),
+ chameleon_cublas_const(ChamNoTrans), chameleon_cublas_const(ChamNoTrans),
M2, N2, K,
CUBLAS_SADDR(mzone), WORKC, LDWORKC,
WORK, LDWORK,
@@ -319,7 +319,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
transA2 = storev == ChamColumnwise ? ChamConjTrans : ChamNoTrans;
cublasZgemm(CUBLAS_HANDLE
- morse_cublas_const(ChamNoTrans), morse_cublas_const(transW),
+ chameleon_cublas_const(ChamNoTrans), chameleon_cublas_const(transW),
M1, K, N2,
CUBLAS_SADDR(zone), A2 /* M1*N2 */, LDA2,
V /* N2*K */, LDV,
@@ -343,7 +343,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
/* A2 = A2 - W * op(V) */
cublasZgemm(CUBLAS_HANDLE
- morse_cublas_const(ChamNoTrans), morse_cublas_const(transA2),
+ chameleon_cublas_const(ChamNoTrans), chameleon_cublas_const(transA2),
M2, N2, K,
CUBLAS_SADDR(mzone), WORK /* M2*K */, LDWORK,
V /* K*N2 */, LDV,
@@ -352,7 +352,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
} else {
/* A1 = A1 - W * opt(T) */
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(ChamNoTrans), morse_cublas_const(trans),
+ chameleon_cublas_const(ChamNoTrans), chameleon_cublas_const(trans),
M1, K, K,
CUBLAS_SADDR(mzone), WORK, LDWORK,
T, LDT,
@@ -360,7 +360,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
/* Wc = op(T) * V */
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(trans), morse_cublas_const(transA2),
+ chameleon_cublas_const(trans), chameleon_cublas_const(transA2),
K, N2, K,
CUBLAS_SADDR(zone), T, LDT,
V, LDV,
@@ -368,7 +368,7 @@ CUDA_zparfb(cham_side_t side, cham_trans_t trans,
/* A2 = A2 - W * Wc */
cublasZgemm( CUBLAS_HANDLE
- morse_cublas_const(ChamNoTrans), morse_cublas_const(ChamNoTrans),
+ chameleon_cublas_const(ChamNoTrans), chameleon_cublas_const(ChamNoTrans),
M2, N2, K,
CUBLAS_SADDR(mzone), WORK, LDWORK,
WORKC, LDWORKC,
diff --git a/cudablas/compute/cuda_zsymm.c b/cudablas/compute/cuda_zsymm.c
index 220390c1a..230e3d203 100644
--- a/cudablas/compute/cuda_zsymm.c
+++ b/cudablas/compute/cuda_zsymm.c
@@ -29,7 +29,7 @@ int CUDA_zsymm(cham_side_t side, cham_uplo_t uplo,
CUBLAS_STREAM_PARAM)
{
cublasZsymm(CUBLAS_HANDLE
- morse_cublas_const(side), morse_cublas_const(uplo),
+ chameleon_cublas_const(side), chameleon_cublas_const(uplo),
m, n,
CUBLAS_VALUE(alpha), A, lda,
B, ldb,
diff --git a/cudablas/compute/cuda_zsyr2k.c b/cudablas/compute/cuda_zsyr2k.c
index 27839cddf..25d755b85 100644
--- a/cudablas/compute/cuda_zsyr2k.c
+++ b/cudablas/compute/cuda_zsyr2k.c
@@ -30,7 +30,7 @@ int CUDA_zsyr2k(
CUBLAS_STREAM_PARAM)
{
cublasZsyr2k(CUBLAS_HANDLE
- morse_cublas_const(uplo), morse_cublas_const(trans),
+ chameleon_cublas_const(uplo), chameleon_cublas_const(trans),
n, k,
CUBLAS_VALUE(alpha), A, lda,
B, ldb,
diff --git a/cudablas/compute/cuda_zsyrk.c b/cudablas/compute/cuda_zsyrk.c
index 0fb7e7788..d23629b19 100644
--- a/cudablas/compute/cuda_zsyrk.c
+++ b/cudablas/compute/cuda_zsyrk.c
@@ -28,7 +28,7 @@ int CUDA_zsyrk(cham_uplo_t uplo, cham_trans_t trans,
CUBLAS_STREAM_PARAM)
{
cublasZsyrk(CUBLAS_HANDLE
- morse_cublas_const(uplo), morse_cublas_const(trans),
+ chameleon_cublas_const(uplo), chameleon_cublas_const(trans),
n, k,
CUBLAS_VALUE(alpha), A, lda,
CUBLAS_VALUE(beta), C, ldc);
diff --git a/cudablas/compute/cuda_ztrmm.c b/cudablas/compute/cuda_ztrmm.c
index 29a082c5b..674eafcda 100644
--- a/cudablas/compute/cuda_ztrmm.c
+++ b/cudablas/compute/cuda_ztrmm.c
@@ -33,8 +33,8 @@ int CUDA_ztrmm(
cublasZtrmm(
CUBLAS_HANDLE
- morse_cublas_const(side), morse_cublas_const(uplo),
- morse_cublas_const(transa), morse_cublas_const(diag),
+ chameleon_cublas_const(side), chameleon_cublas_const(uplo),
+ chameleon_cublas_const(transa), chameleon_cublas_const(diag),
m, n,
CUBLAS_VALUE(alpha), A, lda,
B, ldb,
@@ -44,8 +44,8 @@ int CUDA_ztrmm(
cublasZtrmm(
CUBLAS_HANDLE
- morse_cublas_const(side), morse_cublas_const(uplo),
- morse_cublas_const(transa), morse_cublas_const(diag),
+ chameleon_cublas_const(side), chameleon_cublas_const(uplo),
+ chameleon_cublas_const(transa), chameleon_cublas_const(diag),
m, n,
CUBLAS_VALUE(alpha), A, lda,
B, ldb);
diff --git a/cudablas/compute/cuda_ztrsm.c b/cudablas/compute/cuda_ztrsm.c
index 50c3ed410..5fbc88e75 100644
--- a/cudablas/compute/cuda_ztrsm.c
+++ b/cudablas/compute/cuda_ztrsm.c
@@ -28,8 +28,8 @@ int CUDA_ztrsm(cham_side_t side, cham_uplo_t uplo,
CUBLAS_STREAM_PARAM)
{
cublasZtrsm(CUBLAS_HANDLE
- morse_cublas_const(side), morse_cublas_const(uplo),
- morse_cublas_const(transa), morse_cublas_const(diag),
+ chameleon_cublas_const(side), chameleon_cublas_const(uplo),
+ chameleon_cublas_const(transa), chameleon_cublas_const(diag),
m, n,
CUBLAS_VALUE(alpha), A, lda,
B, ldb);
diff --git a/cudablas/compute/cudaglobal.c b/cudablas/compute/cudaglobal.c
index 83ab2985a..4a0fdbac9 100644
--- a/cudablas/compute/cudaglobal.c
+++ b/cudablas/compute/cudaglobal.c
@@ -21,7 +21,7 @@
/**
* LAPACK Constants
*/
-int morse_cublas_constants[] =
+int chameleon_cublas_constants[] =
{
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
diff --git a/cudablas/include/cudablas.h b/cudablas/include/cudablas.h
index 984de4f10..8326144f3 100644
--- a/cudablas/include/cudablas.h
+++ b/cudablas/include/cudablas.h
@@ -89,15 +89,15 @@ END_C_DECLS
*/
BEGIN_C_DECLS
-extern char *morse_lapack_constants[];
-#define morse_lapack_const(morse_const) morse_lapack_constants[morse_const][0]
+extern char *chameleon_lapack_constants[];
+#define chameleon_lapack_const(chameleon_const) chameleon_lapack_constants[chameleon_const][0]
-extern int morse_cublas_constants[];
+extern int chameleon_cublas_constants[];
#if defined(CHAMELEON_USE_CUBLAS_V2)
-#define morse_cublas_const(morse_const) morse_cublas_constants[morse_const]
+#define chameleon_cublas_const(chameleon_const) chameleon_cublas_constants[chameleon_const]
#else
-#define morse_cublas_const(morse_const) morse_lapack_constants[morse_const][0]
+#define chameleon_cublas_const(chameleon_const) chameleon_lapack_constants[chameleon_const][0]
#endif
END_C_DECLS
diff --git a/doc/orgmode/CMakeLists.txt b/doc/orgmode/CMakeLists.txt
index e8a52e447..0d92f218a 100644
--- a/doc/orgmode/CMakeLists.txt
+++ b/doc/orgmode/CMakeLists.txt
@@ -12,7 +12,7 @@
# Univ. of Tennessee,
# King Abdullah Univesity of Science and Technology
# Univ. of California Berkeley,
-# Univ. of Colorado Denver.
+# Univ. of Colorado Denver.
#
# @version 1.0.0
# @author Florent Pruvost
@@ -31,7 +31,7 @@ configure_file("users_guide.org.in"
"users_guide.org"
@ONLY)
-set(FIGURES
+set(FIGURES
tile_lu.pdf
tile_lu.jpg
tile_layout.pdf
@@ -39,14 +39,14 @@ set(FIGURES
trace_qr.pdf
trace_qr.jpg
potri_async.png
- morse_header.png
+ chameleon_header.png
)
-set(FIGURES_HTML
+set(FIGURES_HTML
tile_lu.jpg
tile_layout.jpg
trace_qr.jpg
potri_async.png
- morse_header.png
+ chameleon_header.png
)
foreach(_fig ${FIGURES})
@@ -65,7 +65,7 @@ if(EMACS_COMPILER)
# ----------
add_custom_command(OUTPUT users_guide.html
COMMAND ${EMACS_COMPILER}
- ARGS ${CMAKE_CURRENT_BINARY_DIR}/users_guide.org
+ ARGS ${CMAKE_CURRENT_BINARY_DIR}/users_guide.org
--batch
-f
org-html-export-to-html
@@ -75,7 +75,7 @@ if(EMACS_COMPILER)
)
add_custom_command(OUTPUT users_guide.pdf
COMMAND ${EMACS_COMPILER}
- ARGS ${CMAKE_CURRENT_BINARY_DIR}/users_guide.org
+ ARGS ${CMAKE_CURRENT_BINARY_DIR}/users_guide.org
--batch
-f
org-latex-export-to-pdf
diff --git a/doc/orgmode/chapters/morse_header.png b/doc/orgmode/chapters/chameleon_header.png
similarity index 100%
rename from doc/orgmode/chapters/morse_header.png
rename to doc/orgmode/chapters/chameleon_header.png
diff --git a/doc/orgmode/chapters/introduction.org b/doc/orgmode/chapters/introduction.org
index 08570c05f..0341d5f23 100644
--- a/doc/orgmode/chapters/introduction.org
+++ b/doc/orgmode/chapters/introduction.org
@@ -2,9 +2,9 @@
# Copyright (C) 2017 Inria
# See the file ../users_guide.org for copying conditions.
** CHAMELEON project
- #+NAME: fig:morse_header
+ #+NAME: fig:chameleon_header
#+ATTR_HTML: :align center
- [[file:morse_header.png]]
+ [[file:chameleon_header.png]]
Chameleon is a linear algebra software created jointly by several
research teams as part of the CHAMELEON associate team: [[http://www.icl.utk.edu/][ICL]], [[https://www.inria.fr/en/][Inria]],
diff --git a/doc/orgmode/chapters/using.org b/doc/orgmode/chapters/using.org
index bdd0fc2f8..6ab2d7c49 100644
--- a/doc/orgmode/chapters/using.org
+++ b/doc/orgmode/chapters/using.org
@@ -79,7 +79,7 @@
# #
# # Chameleon provides a Fortran interface to user functions. Example:
# # #+begin_src
-# # call morse_version(major, minor, patch) !or
+# # call chameleon_version(major, minor, patch) !or
# # call CHAMELEON_VERSION(major, minor, patch)
# # #+end_src
# #
@@ -117,7 +117,7 @@
option ~-[-]help~ or ~-[-]h~. This set of binaries are separated into
three categories and can be found in three different directories:
* *example*: contains examples of API usage and more specifically the
- sub-directory ~lapack_to_morse/~ provides a tutorial that explains
+ sub-directory ~lapack_to_chameleon/~ provides a tutorial that explains
how to use Chameleon functionalities starting from a full LAPACK
code, see [[sec:tuto][Tutorial LAPACK to Chameleon]]
* *testing*: contains testing drivers to check numerical correctness of
@@ -349,7 +349,7 @@
to let Chameleon initialize user's data (matrices/vectors) in
parallel.
- Source files can be found in the ~example/lapack_to_morse/~
+ Source files can be found in the ~example/lapack_to_chameleon/~
directory. If CMake option *CHAMELEON_ENABLE_EXAMPLE* is ON then
source files are compiled with the project libraries. The
arithmetic precision is /double/. To execute a step
@@ -580,7 +580,7 @@
#+begin_example
/* Cham structure containing parameters and a structure to interact with
* the Runtime system */
- CHAM_context_t *morse;
+ CHAM_context_t *chamctxt;
/* CHAMELEON sequence uniquely identifies a set of asynchronous function calls
* sharing common exception handling */
RUNTIME_sequence_t *sequence = NULL;
@@ -590,7 +590,7 @@
...
- morse_sequence_create(morse, &sequence);
+ chameleon_sequence_create(chamctxt, &sequence);
/* Factorization: */
CHAMELEON_dpotrf_Tile_Async( UPLO, descA, sequence, &request );
@@ -600,7 +600,7 @@
/* Synchronization barrier (the runtime ensures that all submitted tasks
* have been terminated */
- RUNTIME_barrier(morse);
+ RUNTIME_barrier(chamctxt);
/* Ensure that all data processed on the gpus we are depending on are back
* in main memory */
RUNTIME_desc_getoncpu(descA);
@@ -701,9 +701,9 @@
NB, NB, NB*NB, N, N,
0, 0, N, N,
GRID_P, GRID_Q,
- morse_getaddr_ccrb,
- morse_getblkldd_ccrb,
- morse_getrankof_2d);
+ chameleon_getaddr_ccrb,
+ chameleon_getblkldd_ccrb,
+ chameleon_getrankof_2d);
#+end_example
is equivalent to the following call
@@ -713,15 +713,15 @@
0, 0, N, N,
GRID_P, GRID_Q);
#+end_example
- functions *morse_getaddr_ccrb*, *morse_getblkldd_ccrb*,
- *morse_getrankof_2d* being used in *Desc_Create*. It is interesting
+ functions *chameleon_getaddr_ccrb*, *chameleon_getblkldd_ccrb*,
+ *chameleon_getrankof_2d* being used in *Desc_Create*. It is interesting
to notice that the code is almost the same as Step5. The only
additional information to give is the way tiles are distributed
through the third function given to *CHAMELEON_Desc_Create_User*.
Here, because we have made experiments only with a 2-D
block-cyclic distribution, we have parameters P and Q in the
interface of *Desc_Create* but they have sense only for 2-D
- block-cyclic distribution and then using *morse_getrankof_2d*
+ block-cyclic distribution and then using *chameleon_getrankof_2d*
function. Of course it could be used with other distributions,
being no more the parameters of a 2-D block-cyclic grid but of
another distribution.
diff --git a/example/lapack_to_chameleon/CMakeLists.txt b/example/lapack_to_chameleon/CMakeLists.txt
index f31616316..cb08bc97d 100644
--- a/example/lapack_to_chameleon/CMakeLists.txt
+++ b/example/lapack_to_chameleon/CMakeLists.txt
@@ -61,14 +61,14 @@ foreach(_ltm ${LTM_SOURCES})
set_property(TARGET ${_name_exe} PROPERTY LINKER_LANGUAGE Fortran)
target_link_libraries(${_name_exe} ${libs_for_ltm})
install(TARGETS ${_name_exe}
- DESTINATION bin/example/lapack_to_morse)
+ DESTINATION bin/example/lapack_to_chameleon)
endforeach()
add_executable(step0 step0.c)
set_property(TARGET step0 PROPERTY LINKER_LANGUAGE Fortran)
target_link_libraries(step0 ${libs_for_step0})
install(TARGETS step0
- DESTINATION bin/example/lapack_to_morse)
+ DESTINATION bin/example/lapack_to_chameleon)
#-------- Tests ---------
include(CTestLists.cmake)
diff --git a/example/lapack_to_chameleon/CTestLists.cmake b/example/lapack_to_chameleon/CTestLists.cmake
index 202140571..a32e3686f 100644
--- a/example/lapack_to_chameleon/CTestLists.cmake
+++ b/example/lapack_to_chameleon/CTestLists.cmake
@@ -1,5 +1,5 @@
#
-# Check Example lapack_to_morse
+# Check Example lapack_to_chameleon
#
set(TESTLIST
diff --git a/example/lapack_to_chameleon/step2.c b/example/lapack_to_chameleon/step2.c
index 58931f5ca..8344554bb 100644
--- a/example/lapack_to_chameleon/step2.c
+++ b/example/lapack_to_chameleon/step2.c
@@ -79,7 +79,7 @@ int main(int argc, char *argv[]) {
return EXIT_FAILURE;
}
- /* Question morse to get the block (tile) size (number of columns) */
+ /* Question chameleon to get the block (tile) size (number of columns) */
CHAMELEON_Get( CHAMELEON_TILE_SIZE, &NB );
/*
diff --git a/example/lapack_to_chameleon/step3.c b/example/lapack_to_chameleon/step3.c
index a0bb2c8ec..078b61271 100644
--- a/example/lapack_to_chameleon/step3.c
+++ b/example/lapack_to_chameleon/step3.c
@@ -80,7 +80,7 @@ int main(int argc, char *argv[]) {
return EXIT_FAILURE;
}
- /* Question morse to get the block (tile) size (number of columns) */
+ /* Question chameleon to get the block (tile) size (number of columns) */
CHAMELEON_Get( CHAMELEON_TILE_SIZE, &NB );
/* allocate tile data */
@@ -110,8 +110,8 @@ int main(int argc, char *argv[]) {
* in your matrix. The only thing important is to have well defined
* functions get_blkaddr, get_blkldd, get_rankof corresponding to your data.
* Note that this call of CHAMELEON_Desc_Create_User routine with
- * morse_getaddr_ccrb, morse_getblkldd_ccrband morse_getrankof_2d functions
- * is equivalent to a call to CHAMELEON_Desc_Create (morse_get... are the
+ * chameleon_getaddr_ccrb, chameleon_getblkldd_ccrband chameleon_getrankof_2d functions
+ * is equivalent to a call to CHAMELEON_Desc_Create (chameleon_get... are the
* functions used inside CHAMELEON_Desc_Create).
*/
CHAMELEON_Desc_Create(&descB, NULL, ChamRealDouble,
diff --git a/example/lapack_to_chameleon/step4.c b/example/lapack_to_chameleon/step4.c
index daf227dfe..3e4a1e15f 100644
--- a/example/lapack_to_chameleon/step4.c
+++ b/example/lapack_to_chameleon/step4.c
@@ -88,7 +88,7 @@ int main(int argc, char *argv[]) {
return EXIT_FAILURE;
}
- /* Question morse to get the block (tile) size (number of columns) */
+ /* Question chameleon to get the block (tile) size (number of columns) */
CHAMELEON_Get( CHAMELEON_TILE_SIZE, &NB );
/* Initialize the structure required for CHAMELEON tile interface */
diff --git a/example/link_chameleon/CMakeLists.txt b/example/link_chameleon/CMakeLists.txt
index 23a14c5a2..13d1acd44 100644
--- a/example/link_chameleon/CMakeLists.txt
+++ b/example/link_chameleon/CMakeLists.txt
@@ -3,7 +3,7 @@
cmake_minimum_required(VERSION 2.8)
project(LINK_CHAMELEON Fortran C CXX)
-# Add extra cmake module path and initialize morse cmake modules
+# Add extra cmake module path and initialize chameleon cmake modules
# --------------------------------------------------------------
set( CHAMELEON_DISTRIB_DIR "" CACHE PATH "Directory of CHAMELEON distribution")
option( CHAMELEON_CHAMELEON_USE_QUARK "CHAMELEON to be linked with QUARK runtime" OFF)
diff --git a/example/link_chameleon/link_chameleon.f90 b/example/link_chameleon/link_chameleon.f90
index 4c84844bd..2a5722ced 100644
--- a/example/link_chameleon/link_chameleon.f90
+++ b/example/link_chameleon/link_chameleon.f90
@@ -1,7 +1,7 @@
program fortran_example
implicit none
- include 'morse_fortran.h'
+ include 'chameleon_fortran.h'
integer, parameter:: dp=kind(0.d0) ! double precision
integer, parameter :: NCPU=2, NGPU=0
integer, parameter :: N=500, NRHS=1
diff --git a/example/out_of_core/out_of_core.c b/example/out_of_core/out_of_core.c
index 9b7dcfa71..adbb4f9ea 100644
--- a/example/out_of_core/out_of_core.c
+++ b/example/out_of_core/out_of_core.c
@@ -97,9 +97,9 @@ int main(int argc, char *argv[]) {
CHAMELEON_Desc_Create_User(&descA, NULL, ChamRealDouble,
NB, NB, NB*NB, N, N, 0, 0, N, N, 1, 1,
- morse_getaddr_null, // specific function
- morse_getblkldd_ccrb,
- morse_getrankof_2d);
+ chameleon_getaddr_null, // specific function
+ chameleon_getblkldd_ccrb,
+ chameleon_getrankof_2d);
CHAMELEON_Desc_Create(&descB, NULL, ChamRealDouble,
NB, NB, NB*NB, N, NRHS, 0, 0, N, NRHS, 1, 1);
CHAMELEON_Desc_Create(&descX, NULL, ChamRealDouble,
diff --git a/plasma-conversion/callGeneration.bash b/plasma-conversion/callGeneration.bash
index 666817268..7f884f7b9 100755
--- a/plasma-conversion/callGeneration.bash
+++ b/plasma-conversion/callGeneration.bash
@@ -50,9 +50,9 @@ plasma_dir="$PWD/plasma_$plasma_relname"
licence_dir="$PWD/insert-licence"
# source of the original chameleon
# ex in this plasma_conversion directory: svn checkout https://scm.gforge.inria.fr/anonscm/svn/morse/trunk/chameleon
-morse_dir="$PWD/.."
+chameleon_dir="$PWD/.."
# source of the converted chameleon
-morse_tmp="$PWD/chameleon"
+chameleon_tmp="$PWD/chameleon"
if [[ ! -e $plasma_dir ]]; then
echo "plasma_dir is set to $plasma_dir which does not exist, please set the variable plasma_dir in the script $0"
@@ -62,19 +62,19 @@ if [[ ! -e $licence_dir ]]; then
echo "licence_dir is set to $licence_dir which does not exist, please set the variable licence_dir in the script $0"
exit $?
fi
-if [[ ! -e $morse_dir ]]; then
- echo "morse_dir is set to $morse_dir which does not exist, try to download it"
+if [[ ! -e $chameleon_dir ]]; then
+ echo "chameleon_dir is set to $chameleon_dir which does not exist, try to download it"
svn export svn+ssh://fpruvost@scm.gforge.inria.fr/svnroot/morse/trunk/chameleon
- if [[ ! -e $morse_dir ]]; then
- echo "morse_dir is set to $morse_dir which does not exist, please set the variable morse_dir in the script $0 and check that this path exists"
+ if [[ ! -e $chameleon_dir ]]; then
+ echo "chameleon_dir is set to $chameleon_dir which does not exist, please set the variable chameleon_dir in the script $0 and check that this path exists"
exit $?
fi
fi
-if [[ ! -e $morse_tmp ]]; then
- echo "morse_tmp is set to $morse_tmp which does not exist, lets create it"
- mkdir $morse_tmp
- if [[ ! -e $morse_tmp ]]; then
- echo "morse_tmp is set to $morse_tmp which does not exist, please set the variable morse_tmp in the script $0"
+if [[ ! -e $chameleon_tmp ]]; then
+ echo "chameleon_tmp is set to $chameleon_tmp which does not exist, lets create it"
+ mkdir $chameleon_tmp
+ if [[ ! -e $chameleon_tmp ]]; then
+ echo "chameleon_tmp is set to $chameleon_tmp which does not exist, please set the variable chameleon_tmp in the script $0"
exit $?
fi
fi
@@ -441,14 +441,14 @@ timing/time_zgesv_incpiv_tile.c
# Génération des sources
# ----------------------
-python ${plasma_conv_dir}/generate_morseSrc.py -o ${morse_tmp} -p ${plasma_dir} -f "${list_file}" --force
+python ${plasma_conv_dir}/generate_morseSrc.py -o ${chameleon_tmp} -p ${plasma_dir} -f "${list_file}" --force
# Copie de la licence en entête des fichiers générés
current_dir=$PWD
-cd ${morse_tmp}
+cd ${chameleon_tmp}
${licence_dir}/insert-licence-chameleon.sh
cd ${current_dir}
# Recopie de magma_morse
# ----------------------
-python ${plasma_conv_dir}/generate_morseSrc.py -o ${morse_dir} -m ${morse_tmp} --force
+python ${plasma_conv_dir}/generate_morseSrc.py -o ${chameleon_dir} -m ${chameleon_tmp} --force
diff --git a/plasma-conversion/insert-licence/insert-licence-chameleon.sh b/plasma-conversion/insert-licence/insert-licence-chameleon.sh
index a5ef743de..545ff9eda 100755
--- a/plasma-conversion/insert-licence/insert-licence-chameleon.sh
+++ b/plasma-conversion/insert-licence/insert-licence-chameleon.sh
@@ -52,7 +52,7 @@
# @date 2012-07-13
#
###
-for i in $(find . -name "*.c" -or -name "*.h" -not -path "*svn*" -not -name "morse_fortran.h")
+for i in $(find . -name "*.c" -or -name "*.h" -not -path "*svn*" -not -name "chameleon_fortran.h")
do
cat $(dirname $0)/chameleon_c.licence > $(dirname $0)/buffer.tmp
cat $i >> $(dirname $0)/buffer.tmp
@@ -60,7 +60,7 @@ do
rm $(dirname $0)/buffer.tmp
done
-for i in $(find . -name "*.f" -or -name "*.F" -or -name "*.f77" -or -name "*.F77" -or -name "*.f90" -or -name "*.F90" -or -name "morse_fortran.h")
+for i in $(find . -name "*.f" -or -name "*.F" -or -name "*.f77" -or -name "*.F77" -or -name "*.f90" -or -name "*.F90" -or -name "chameleon_fortran.h")
do
cat $(dirname $0)/chameleon_f.licence > $(dirname $0)/buffer.tmp
cat $i >> $(dirname $0)/buffer.tmp
diff --git a/plasma-conversion/rulesSubstitutions.py b/plasma-conversion/rulesSubstitutions.py
index 86f323822..9993a37ae 100644
--- a/plasma-conversion/rulesSubstitutions.py
+++ b/plasma-conversion/rulesSubstitutions.py
@@ -67,31 +67,31 @@ subs = {
( 'r', '#include([\s\S]*)plasma_private_alloc\(([^,]*),([\s\S]*?),([^)]*)\)', '//WS_ALLOC : \\3\n#include\\1' ),
# end get
- ( 'u', 'plasma_static_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'morse_\\3(,\\4;' ),
- ( 'u', 'plasma_dynamic_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'morse_\\3(,\\4;' ),
- ( 'u', 'plasma_parallel_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'morse_\\3(,\\4;' ),
- ( 'u', 'plasma_static_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([\s\S]*?)request\)', 'morse_\\3(,\\4)' ),
- ( 'u', 'plasma_dynamic_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([\s\S]*?)request\)', 'morse_\\3(,\\4)' ),
- ( 'u', 'plasma_parallel_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([\s\S]*?)request\)', 'morse_\\3(,\\4)' ),
- # Dirty replacement to put the correct call of 'morse_pz***` by removing all types
+ ( 'u', 'plasma_static_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'chameleon_\\3(,\\4;' ),
+ ( 'u', 'plasma_dynamic_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'chameleon_\\3(,\\4;' ),
+ ( 'u', 'plasma_parallel_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'chameleon_\\3(,\\4;' ),
+ ( 'u', 'plasma_static_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([\s\S]*?)request\)', 'chameleon_\\3(,\\4)' ),
+ ( 'u', 'plasma_dynamic_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([\s\S]*?)request\)', 'chameleon_\\3(,\\4)' ),
+ ( 'u', 'plasma_parallel_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([\s\S]*?)request\)', 'chameleon_\\3(,\\4)' ),
+ # Dirty replacement to put the correct call of 'chameleon_pz***` by removing all types
# The 8 first lines are called n times more to be sure to change all `plasma_desc_mat_free(&desc` to `RUNTIME_desc_getoncpu(`
- ( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_enum([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
- ( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_desc([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
- ( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_Complex64_t([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
- ( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_sequence([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
- ( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_request([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
- ( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)int([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
- ( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)float([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
- ( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)double([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
-
- ( 'u', 'morse_p([\w]*)\(([, ]*)', 'morse_p\\1(' ),
+ ( 'r', 'chameleon_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_enum([ \w\*]*),([^;]*);', 'chameleon_p\\1(\\2,\\5;' ),
+ ( 'r', 'chameleon_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_desc([ \w\*]*),([^;]*);', 'chameleon_p\\1(\\2,\\5;' ),
+ ( 'r', 'chameleon_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_Complex64_t([ \w\*]*),([^;]*);', 'chameleon_p\\1(\\2,\\5;' ),
+ ( 'r', 'chameleon_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_sequence([ \w\*]*),([^;]*);', 'chameleon_p\\1(\\2,\\5;' ),
+ ( 'r', 'chameleon_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_request([ \w\*]*),([^;]*);', 'chameleon_p\\1(\\2,\\5;' ),
+ ( 'r', 'chameleon_p([\w]*)\(([^;]*),([\s\w]*)int([ \w\*]*),([^;]*);', 'chameleon_p\\1(\\2,\\5;' ),
+ ( 'r', 'chameleon_p([\w]*)\(([^;]*),([\s\w]*)float([ \w\*]*),([^;]*);', 'chameleon_p\\1(\\2,\\5;' ),
+ ( 'r', 'chameleon_p([\w]*)\(([^;]*),([\s\w]*)double([ \w\*]*),([^;]*);', 'chameleon_p\\1(\\2,\\5;' ),
+
+ ( 'u', 'chameleon_p([\w]*)\(([, ]*)', 'chameleon_p\\1(' ),
],
#
#
'compute' : [
# Check the 2 next lines when plasma const will be right
( 'u', 'OUTOFPLACE([^}]+)plasma_zooptile2lap\(([\s]*)([^,]+),([^}]+)plasma_dynamic_sync\(\);([\s]*)plasma_desc_mat_free([^}]+)}',
- 'OUTOFPLACE\\1morse_zooptile2lap(\\3,\\4RUNTIME_barrier(morse);\\5RUNTIME_desc_getoncpu(&\\3);\\5plasma_desc_mat_free\\6}' ),
+ 'OUTOFPLACE\\1chameleon_zooptile2lap(\\3,\\4RUNTIME_barrier(morse);\\5RUNTIME_desc_getoncpu(&\\3);\\5plasma_desc_mat_free\\6}' ),
( 'u', 'OUTOFPLACE([^}]+)RUNTIME_desc_getoncpu([^;]+);([\s]*)([^}]+)}([\s\S]*)_Tile\(([\s\S]*)plasma_dynamic_sync\(\);([\s]*)status = sequence->status',
'OUTOFPLACE\\1RUNTIME_desc_getoncpu\\2;\\4}\\5_Tile(\\6RUNTIME_barrier(morse);\\7\\4\\7status = sequence->status' ),
# Dirty replacement for CHAMELEON_z*_Tile to put RUNTIME_desc_getoncpu
@@ -103,11 +103,11 @@ subs = {
# TODO: it works because it is the last call in the function
# we need to find better delimiters
( 'u', '_zplghe\(([\s\S]*)\n([ \t]*)plasma_ziptile2lap\(([^;]*);',
- '_zplghe(\\1\n\\2RUNTIME_barrier(morse);\n\\2morse_zooptile2lap(\\3;' ),
+ '_zplghe(\\1\n\\2RUNTIME_barrier(morse);\n\\2chameleon_zooptile2lap(\\3;' ),
( 'u', '_zplgsy\(([\s\S]*)\n([ \t]*)plasma_ziptile2lap\(([^;]*);',
- '_zplgsy(\\1\n\\2RUNTIME_barrier(morse);\n\\2morse_zooptile2lap(\\3;' ),
+ '_zplgsy(\\1\n\\2RUNTIME_barrier(morse);\n\\2chameleon_zooptile2lap(\\3;' ),
( 'u', '_zplrnt\(([\s\S]*)\n([ \t]*)plasma_ziptile2lap\(([^;]*);',
- '_zplrnt(\\1\n\\2RUNTIME_barrier(morse);\n\\2morse_zooptile2lap(\\3;' ),
+ '_zplrnt(\\1\n\\2RUNTIME_barrier(morse);\n\\2chameleon_zooptile2lap(\\3;' ),
# end specific
# Remove INPLACE / OUTOFPLACE
@@ -119,11 +119,11 @@ subs = {
( 'u', '\n([ ]+)([\s]*)plasma_ziplap2tile([^;]*);([ \t]*)\n', '\n/*\\1\\2plasma_ziplap2tile\\3;\\4*/\n' ),
# end remove
- # Change plasma_desc_init into morse_zdesc_alloc
- ( 'u', 'desc([\w]*)([ \t]*)=([ \t]*)plasma_desc_init\(([^,]*),([^;]*);([\s]*)([^;]*);', 'morse_zdesc_alloc(desc\\1,\\5;' ),
- ( 'u', 'morse_zdesc_alloc\(([^;]*),([\w\s]*)\*([\w\s]*),([^;]*);', 'morse_zdesc_alloc(\\1,\\4;' ),
- ( 'u', 'morse_zdesc_alloc\(([^;]*)\n([ \t]*)([^;]*);', 'morse_zdesc_alloc(\\1 \\3;' ),
- ( 'u', 'morse_zdesc_alloc\(desc([\w]*)([^;]*)\);', 'morse_zdesc_alloc(desc\\1\\2, morse_desc_mat_free(&desc\\1));' ),
+ # Change plasma_desc_init into chameleon_zdesc_alloc
+ ( 'u', 'desc([\w]*)([ \t]*)=([ \t]*)plasma_desc_init\(([^,]*),([^;]*);([\s]*)([^;]*);', 'chameleon_zdesc_alloc(desc\\1,\\5;' ),
+ ( 'u', 'chameleon_zdesc_alloc\(([^;]*),([\w\s]*)\*([\w\s]*),([^;]*);', 'chameleon_zdesc_alloc(\\1,\\4;' ),
+ ( 'u', 'chameleon_zdesc_alloc\(([^;]*)\n([ \t]*)([^;]*);', 'chameleon_zdesc_alloc(\\1 \\3;' ),
+ ( 'u', 'chameleon_zdesc_alloc\(desc([\w]*)([^;]*)\);', 'chameleon_zdesc_alloc(desc\\1\\2, chameleon_desc_mat_free(&desc\\1));' ),
# end chhange
# Remove desc in Async
@@ -139,13 +139,13 @@ subs = {
'_Tile_Async(\\1\n\\7\n}\n' ),
( 'r', '_Tile_Async\(([\s\S]*)\n([ \t]*)}([ \t]*)else([ \t]*){([\s]*)}([ \t]*)\n([\s\S]*)\n}\n' ,
'_Tile_Async(\\1\n\\2}\n\\7\n}\n' ),
- ( 'r', '_Tile_Async\(([\s\S]*)morse_p([\w]*)\(([^;]*)desc([a-zA-Z0-9]+)([^;]*);([\s\S]*)\n}\n' ,
- '_Tile_Async(\\1morse_p\\2(\\3\\4\\5;\\6\n}\n' ),
+ ( 'r', '_Tile_Async\(([\s\S]*)chameleon_p([\w]*)\(([^;]*)desc([a-zA-Z0-9]+)([^;]*);([\s\S]*)\n}\n' ,
+ '_Tile_Async(\\1chameleon_p\\2(\\3\\4\\5;\\6\n}\n' ),
# end remove
- # Patch for morse_desc_submatrix (this will not work with 2-sided and LU inversion)
- ( 'r', '_Tile_Async\(([\s\S]*)^([\s]*)morse_p([\w]*)\(([^;]*)plasma_desc_submatrix\(([\s]*)([a-zA-Z0-9]+),([\s\S]*)\),([^;]*);',
- '_Tile_Async(\\1\\2sub\\6 = morse_desc_submatrix(\\5\\6,\\7);\n\\2morse_p\\3(\\4sub\\6,\\8;\n\\2free(sub\\6);' ),
+ # Patch for chameleon_desc_submatrix (this will not work with 2-sided and LU inversion)
+ ( 'r', '_Tile_Async\(([\s\S]*)^([\s]*)chameleon_p([\w]*)\(([^;]*)plasma_desc_submatrix\(([\s]*)([a-zA-Z0-9]+),([\s\S]*)\),([^;]*);',
+ '_Tile_Async(\\1\\2sub\\6 = chameleon_desc_submatrix(\\5\\6,\\7);\n\\2chameleon_p\\3(\\4sub\\6,\\8;\n\\2free(sub\\6);' ),
( 'r', '_Tile_Async\(([^)]*)\)([\s]*){([\s\S]*)free\(sub([\w]*)\)',
'_Tile_Async(\\1)\\2{\n\tCHAM_desc_t *sub\\4;\\3FLAGFREE(sub\\4)' ),
( 'r', '_Tile_Async\(([^)]*)\)([\s]*){([\s\S]*)CHAM_desc_t \*sub([\w]*);([\s\S]*)\n^([\s]*)CHAM_desc_t \*sub\\4;',
@@ -166,10 +166,10 @@ subs = {
( 'u', 'plasma', 'morse' ),
# Fix for zgels et zgelqs
- ( 'u', 'CHAMELEON_zgels_Tile_Async([\s\S]*)sub([\w]*) = ([\s\S]*?)morse_pztile_zero([\s\S]*?)free([^;]*);',
- 'CHAMELEON_zgels_Tile_Async\\1/* sub\\2 = \\3morse_pztile_zero\\4free\\5; */' ),
- ( 'u', 'CHAMELEON_zgelqs_Tile_Async([\s\S]*)sub([\w]*) = ([\s\S]*?)morse_pztile_zero([\s\S]*?)free([^;]*);',
- 'CHAMELEON_zgelqs_Tile_Async\\1/* sub\\2 = \\3morse_pztile_zero\\4free\\5; */' ),
+ ( 'u', 'CHAMELEON_zgels_Tile_Async([\s\S]*)sub([\w]*) = ([\s\S]*?)chameleon_pztile_zero([\s\S]*?)free([^;]*);',
+ 'CHAMELEON_zgels_Tile_Async\\1/* sub\\2 = \\3chameleon_pztile_zero\\4free\\5; */' ),
+ ( 'u', 'CHAMELEON_zgelqs_Tile_Async([\s\S]*)sub([\w]*) = ([\s\S]*?)chameleon_pztile_zero([\s\S]*?)free([^;]*);',
+ 'CHAMELEON_zgelqs_Tile_Async\\1/* sub\\2 = \\3chameleon_pztile_zero\\4free\\5; */' ),
],
@@ -177,7 +177,7 @@ subs = {
# replacements applied to pcompute files.
'pcompute' : [
( 'u', '#if 0([\s\S]*?)#endif', '' ),
- ( 'u', 'plasma_([\w]*)_quark\(', 'morse_\\1(' ),
+ ( 'u', 'plasma_([\w]*)_quark\(', 'chameleon_\\1(' ),
( 'u', '\*\*/([\s]*?)void([\s]*?)plasma_([\w]*?)\(([\s\S]*)}([\s]*?)/\*\*', '**/\\1\n/**' ),
( 'u', 'static scheduling([\s\S]*)dynamic scheduling', 'dynamic scheduling' ),
@@ -217,7 +217,7 @@ subs = {
#
# specific patch because of dirty source code
'pzgebrd_tb2bd.c' : [
- ( 'u', '#define A\(_m, _n\) \(CHAMELEON_Complex64_t \*\)morse_geteltaddr\(&A, \(_m\), \(_n\), eltsize\)',
+ ( 'u', '#define A\(_m, _n\) \(CHAMELEON_Complex64_t \*\)chameleon_geteltaddr\(&A, \(_m\), \(_n\), eltsize\)',
'#define A(_m,_n) BLKADDR(&dA, CHAMELEON_Complex64_t, _m, _n)' ),
],
'pzgetrf_reclap.c' : [
@@ -296,7 +296,7 @@ subs = {
# ------------------------------------------------------------
# replacements applied to codelet_quark files.
'codelet_quark' : [
- ( 'u', '#include "common.h"', '#include "morse_quark.h"' ),
+ ( 'u', '#include "common.h"', '#include "chameleon_quark.h"' ),
( 'u', '#if defined\(PLASMA_HAVE_WEAK\)([\s\S]*?)#endif', '' ),
( 'u', '\n([\s\w]*)void([\s]*)CORE_([a-zA-Z0-9]*)\(([^)]*)\)([\s]*){([\s\S]*?)\n}', '' ),
@@ -367,7 +367,7 @@ subs = {
# replacements applied to codelet_starpu files.
'codelet_starpu' : [
# Transformation for cl_***_cpu_func
- ( 'u', '#include "morse_quark.h"', '#include "morse_starpu.h"' ),
+ ( 'u', '#include "chameleon_quark.h"', '#include "chameleon_starpu.h"' ),
( 'u', 'void([ \t]*)CORE_([\w]*)_quark\(([^)]*)\)', 'static void cl_\\2_cpu_func(void *descr[], void *cl_arg)' ),
( 'u', '\n([ \t]*)RUNTIME_sequence_t([ \t]*)\*sequence;([ \t]*)\n', '\n' ),
( 'u', '\n([ \t]*)RUNTIME_request_t([ \t]*)\*request;([ \t]*)\n', '\n' ),
@@ -620,13 +620,13 @@ subs = {
# replacements applied to control files.
'control' : [
( 'u', 'plasma_alloc_ipiv\(([\w]*), ([\w]*), PLASMA_FUNC_ZGESV, \(void([ ]*)\*\*\)IPIV\)',
- 'morse_alloc_ipiv(\\1, \\2, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV)' ),
- ( 'u', 'plasma_shared_alloc', 'morse_desc_mat_alloc' ),
+ 'chameleon_alloc_ipiv(\\1, \\2, CHAMELEON_FUNC_ZGESV, ChamComplexDouble, descL, (void**)IPIV)' ),
+ ( 'u', 'plasma_shared_alloc', 'chameleon_desc_mat_alloc' ),
( 'u', 'Declarations of parallel functions \(static scheduling\)([\s\S]*?)Declarations of internal sequential functions',
'Declarations of internal sequential functions' ),
- ( 'u', 'plasma_parallel_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'morse_\\3(\\4;' ),
- ( 'u', 'morse_pzlapack_to_tile\(([^;]*?);', 'morse_pzlapack_to_tile(A, lm, &descA, seq, req);' ),
- ( 'u', 'morse_pztile_to_lapack\(([^;]*?);', 'morse_pztile_to_lapack(&descA, A, lm, seq, req);' ),
+ ( 'u', 'plasma_parallel_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'chameleon_\\3(\\4;' ),
+ ( 'u', 'chameleon_pzlapack_to_tile\(([^;]*?);', 'chameleon_pzlapack_to_tile(A, lm, &descA, seq, req);' ),
+ ( 'u', 'chameleon_pztile_to_lapack\(([^;]*?);', 'chameleon_pztile_to_lapack(&descA, A, lm, seq, req);' ),
( 'u', 'PLASMA_Dealloc_Handle_Tile', 'CHAMELEON_Dealloc_Workspace' ),
( 'u', 'PLASMA_sequence', 'RUNTIME_sequence_t' ),
@@ -639,9 +639,9 @@ subs = {
( 'u', 'plasma', 'morse' ),
( 'u', '_quark', '' ),
- # Add morse_zdesc_alloc in compute_z.h
- ( 'u', '#define morse_zdesc_alloc',
- '#define morse_zdesc_alloc2(descA, mb, nb, lm, ln, i, j, m, n) \\\n\tdescA = morse_desc_init( \\\n\t\tChamComplexDouble, (mb), (nb), ((mb)*(nb)), \\\n\t\t(m), (n), (i), (j), (m), (n)); \\\n\tmorse_desc_mat_alloc( &(descA) );\n\n#define morse_zdesc_alloc' ),
+ # Add chameleon_zdesc_alloc in compute_z.h
+ ( 'u', '#define chameleon_zdesc_alloc',
+ '#define chameleon_zdesc_alloc2(descA, mb, nb, lm, ln, i, j, m, n) \\\n\tdescA = chameleon_desc_init( \\\n\t\tChamComplexDouble, (mb), (nb), ((mb)*(nb)), \\\n\t\t(m), (n), (i), (j), (m), (n)); \\\n\tchameleon_desc_mat_alloc( &(descA) );\n\n#define chameleon_zdesc_alloc' ),
# end add
],
@@ -652,7 +652,7 @@ subs = {
( 'u', 'PLASMA_sequence', 'RUNTIME_sequence_t' ),
( 'u', 'PLASMA_request', 'RUNTIME_request_t' ),
( 'u', 'PLASMA_desc', 'CHAM_desc_t' ),
- ( 'u', 'real_Double_t', 'morse_time_t' ),
+ ( 'u', 'real_Double_t', 'chameleon_time_t' ),
( 'u', 'PLASMA', 'CHAMELEON' ),
( 'u', 'Plasma', 'Cham' ),
( 'u', 'plasma', 'morse' ),
@@ -666,7 +666,7 @@ subs = {
'testing' : [
( 'u', 'core_blas.h', 'coreblas.h' ),
( 'u', 'testing_zmain.h', 'testing_zauxiliary.h' ),
- ( 'u', 'real_Double_t', 'morse_time_t' ),
+ ( 'u', 'real_Double_t', 'chameleon_time_t' ),
( 'u', 'int([\s]*)testing_([^{]*){', 'int\\1testing_\\2{\n\tint hres = 0;' ),
( 'u', 'int([\s]*)testing_([\s\S]*?)return 0;', 'int\\1testing_\\2return hres;' ),
( 'u', 'int([\s]*)testing_([\s\S]*?)FAILED([^;]*?);', 'int\\1testing_\\2FAILED\\3;\thres++;' ),
diff --git a/runtime/parsec/codelets/codelet_zasum.c b/runtime/parsec/codelets/codelet_zasum.c
index dd9ae90e9..4addc4753 100644
--- a/runtime/parsec/codelets/codelet_zasum.c
+++ b/runtime/parsec/codelets/codelet_zasum.c
@@ -54,7 +54,7 @@ void INSERT_TASK_dzasum(const RUNTIME_option_t *options,
sizeof(int), &uplo, VALUE,
sizeof(int), &M, VALUE,
sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), INOUT | AFFINITY,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zaxpy.c b/runtime/parsec/codelets/codelet_zaxpy.c
index 974222f42..38877aa2f 100644
--- a/runtime/parsec/codelets/codelet_zaxpy.c
+++ b/runtime/parsec/codelets/codelet_zaxpy.c
@@ -51,9 +51,9 @@ void INSERT_TASK_zaxpy(const RUNTIME_option_t *options,
PARSEC_dtd_taskpool, CORE_zaxpy_parsec, options->priority, "axpy",
sizeof(int), &M, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &incA, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INOUT | AFFINITY,
sizeof(int), &incB, VALUE,
PARSEC_DTD_ARG_END );
}
diff --git a/runtime/parsec/codelets/codelet_zbuild.c b/runtime/parsec/codelets/codelet_zbuild.c
index 825619c7a..36c8bc908 100644
--- a/runtime/parsec/codelets/codelet_zbuild.c
+++ b/runtime/parsec/codelets/codelet_zbuild.c
@@ -59,7 +59,7 @@ void INSERT_TASK_zbuild( const RUNTIME_option_t *options,
sizeof(int), &row_max, VALUE,
sizeof(int), &col_min, VALUE,
sizeof(int), &col_max, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(void*), &user_data, VALUE,
sizeof(void*), &user_build_callback, VALUE,
diff --git a/runtime/parsec/codelets/codelet_zgeadd.c b/runtime/parsec/codelets/codelet_zgeadd.c
index 65ad0e281..aea836f74 100644
--- a/runtime/parsec/codelets/codelet_zgeadd.c
+++ b/runtime/parsec/codelets/codelet_zgeadd.c
@@ -114,10 +114,10 @@ void INSERT_TASK_zgeadd(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
sizeof(CHAMELEON_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INOUT | AFFINITY,
sizeof(int), &ldb, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zgelqt.c b/runtime/parsec/codelets/codelet_zgelqt.c
index 790575a22..cd0fe8313 100644
--- a/runtime/parsec/codelets/codelet_zgelqt.c
+++ b/runtime/parsec/codelets/codelet_zgelqt.c
@@ -116,9 +116,9 @@ void INSERT_TASK_zgelqt(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*nb, NULL, SCRATCH,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
diff --git a/runtime/parsec/codelets/codelet_zgemm.c b/runtime/parsec/codelets/codelet_zgemm.c
index 5142362b7..6fbc63999 100644
--- a/runtime/parsec/codelets/codelet_zgemm.c
+++ b/runtime/parsec/codelets/codelet_zgemm.c
@@ -72,12 +72,12 @@ void INSERT_TASK_zgemm( const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INPUT,
sizeof(int), &ldb, VALUE,
sizeof(CHAMELEON_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), morse_parsec_get_arena_index( C ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), chameleon_parsec_get_arena_index( C ) | INOUT | AFFINITY,
sizeof(int), &ldc, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zgeqrt.c b/runtime/parsec/codelets/codelet_zgeqrt.c
index 900332749..b47152892 100644
--- a/runtime/parsec/codelets/codelet_zgeqrt.c
+++ b/runtime/parsec/codelets/codelet_zgeqrt.c
@@ -117,9 +117,9 @@ void INSERT_TASK_zgeqrt(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*nb, NULL, SCRATCH,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
diff --git a/runtime/parsec/codelets/codelet_zgessm.c b/runtime/parsec/codelets/codelet_zgessm.c
index c0d6da646..4257eccc1 100644
--- a/runtime/parsec/codelets/codelet_zgessm.c
+++ b/runtime/parsec/codelets/codelet_zgessm.c
@@ -105,11 +105,11 @@ void INSERT_TASK_zgessm(const RUNTIME_option_t *options,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
sizeof(int*), &IPIV, VALUE,
- PASSED_BY_REF, RTBLKADDR( L, CHAMELEON_Complex64_t, Lm, Ln ), morse_parsec_get_arena_index( L ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( L, CHAMELEON_Complex64_t, Lm, Ln ), chameleon_parsec_get_arena_index( L ) | INPUT,
sizeof(int), &ldl, VALUE,
- PASSED_BY_REF, RTBLKADDR( D, CHAMELEON_Complex64_t, Dm, Dn ), morse_parsec_get_arena_index( D ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( D, CHAMELEON_Complex64_t, Dm, Dn ), chameleon_parsec_get_arena_index( D ) | INPUT,
sizeof(int), &ldd, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zgessq.c b/runtime/parsec/codelets/codelet_zgessq.c
index 125fda0e6..13a7727cc 100644
--- a/runtime/parsec/codelets/codelet_zgessq.c
+++ b/runtime/parsec/codelets/codelet_zgessq.c
@@ -50,7 +50,7 @@ void INSERT_TASK_zgessq( const RUNTIME_option_t *options,
PARSEC_dtd_taskpool, CORE_zgessq_parsec, options->priority, "gessq",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | AFFINITY,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zgetrf.c b/runtime/parsec/codelets/codelet_zgetrf.c
index 93502b3c3..a7eaee7f0 100644
--- a/runtime/parsec/codelets/codelet_zgetrf.c
+++ b/runtime/parsec/codelets/codelet_zgetrf.c
@@ -54,7 +54,7 @@ void INSERT_TASK_zgetrf(const RUNTIME_option_t *options,
PARSEC_dtd_taskpool, CORE_zgetrf_parsec, options->priority, "getrf",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int)*nb, IPIV, SCRATCH,
sizeof(cham_bool_t), &check_info, VALUE,
diff --git a/runtime/parsec/codelets/codelet_zgetrf_incpiv.c b/runtime/parsec/codelets/codelet_zgetrf_incpiv.c
index 1076b1e74..f8bae1c2b 100644
--- a/runtime/parsec/codelets/codelet_zgetrf_incpiv.c
+++ b/runtime/parsec/codelets/codelet_zgetrf_incpiv.c
@@ -112,7 +112,7 @@ void INSERT_TASK_zgetrf_incpiv( const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int*), &IPIV, VALUE,
sizeof(int), &check_info, VALUE,
diff --git a/runtime/parsec/codelets/codelet_zgetrf_nopiv.c b/runtime/parsec/codelets/codelet_zgetrf_nopiv.c
index 0b4275d73..6d755bdad 100644
--- a/runtime/parsec/codelets/codelet_zgetrf_nopiv.c
+++ b/runtime/parsec/codelets/codelet_zgetrf_nopiv.c
@@ -100,7 +100,7 @@ void INSERT_TASK_zgetrf_nopiv(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int), &iinfo, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zhemm.c b/runtime/parsec/codelets/codelet_zhemm.c
index 85b19f6da..213a01dc7 100644
--- a/runtime/parsec/codelets/codelet_zhemm.c
+++ b/runtime/parsec/codelets/codelet_zhemm.c
@@ -70,12 +70,12 @@ void INSERT_TASK_zhemm(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INPUT,
sizeof(int), &ldb, VALUE,
sizeof(CHAMELEON_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), morse_parsec_get_arena_index( C ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), chameleon_parsec_get_arena_index( C ) | INOUT | AFFINITY,
sizeof(int), &ldc, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zher2k.c b/runtime/parsec/codelets/codelet_zher2k.c
index 746f4e9a7..ec1f21d19 100644
--- a/runtime/parsec/codelets/codelet_zher2k.c
+++ b/runtime/parsec/codelets/codelet_zher2k.c
@@ -70,12 +70,12 @@ void INSERT_TASK_zher2k(const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INPUT,
sizeof(int), &ldb, VALUE,
sizeof(double), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), morse_parsec_get_arena_index( C ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), chameleon_parsec_get_arena_index( C ) | INOUT | AFFINITY,
sizeof(int), &ldc, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zherk.c b/runtime/parsec/codelets/codelet_zherk.c
index a399766fa..7d5bfd9fd 100644
--- a/runtime/parsec/codelets/codelet_zherk.c
+++ b/runtime/parsec/codelets/codelet_zherk.c
@@ -66,10 +66,10 @@ void INSERT_TASK_zherk(const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(double), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
sizeof(double), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), morse_parsec_get_arena_index( C ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), chameleon_parsec_get_arena_index( C ) | INOUT | AFFINITY,
sizeof(int), &ldc, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zhessq.c b/runtime/parsec/codelets/codelet_zhessq.c
index 75d783a2a..902026147 100644
--- a/runtime/parsec/codelets/codelet_zhessq.c
+++ b/runtime/parsec/codelets/codelet_zhessq.c
@@ -50,7 +50,7 @@ void INSERT_TASK_zhessq( const RUNTIME_option_t *options,
PARSEC_dtd_taskpool, CORE_zhessq_parsec, options->priority, "hessq",
sizeof(int), &uplo, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | AFFINITY,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zlacpy.c b/runtime/parsec/codelets/codelet_zlacpy.c
index 8e37ca81e..3b5d251cb 100644
--- a/runtime/parsec/codelets/codelet_zlacpy.c
+++ b/runtime/parsec/codelets/codelet_zlacpy.c
@@ -62,10 +62,10 @@ void INSERT_TASK_zlacpyx( const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &displA, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
sizeof(int), &displB, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | OUTPUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | OUTPUT | AFFINITY,
sizeof(int), &ldb, VALUE,
PARSEC_DTD_ARG_END );
(void)nb;
diff --git a/runtime/parsec/codelets/codelet_zlag2c.c b/runtime/parsec/codelets/codelet_zlag2c.c
index eaf748964..d9f17eaa5 100644
--- a/runtime/parsec/codelets/codelet_zlag2c.c
+++ b/runtime/parsec/codelets/codelet_zlag2c.c
@@ -56,7 +56,7 @@ void INSERT_TASK_zlag2c(const RUNTIME_option_t *options,
parsec_dtd_taskpool_insert_task(PARSEC_dtd_taskpool, CORE_zlag2c_parsec, "lag2c",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex32_t, Bm, Bn ), OUTPUT | AFFINITY,
sizeof(int), &ldb, VALUE,
@@ -100,7 +100,7 @@ void INSERT_TASK_clag2z(const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex32_t, Am, An ), INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | OUTPUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | OUTPUT | AFFINITY,
sizeof(int), &ldb, VALUE,
PARSEC_DTD_ARG_END );
}
diff --git a/runtime/parsec/codelets/codelet_zlange.c b/runtime/parsec/codelets/codelet_zlange.c
index 59d1ca5b5..e76fd80db 100644
--- a/runtime/parsec/codelets/codelet_zlange.c
+++ b/runtime/parsec/codelets/codelet_zlange.c
@@ -55,7 +55,7 @@ void INSERT_TASK_zlange(const RUNTIME_option_t *options,
sizeof(int), &norm, VALUE,
sizeof(int), &M, VALUE,
sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &LDA, VALUE,
sizeof(double)*szeW, NULL, SCRATCH,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | AFFINITY,
diff --git a/runtime/parsec/codelets/codelet_zlanhe.c b/runtime/parsec/codelets/codelet_zlanhe.c
index f61398d7c..26e7d8d8d 100644
--- a/runtime/parsec/codelets/codelet_zlanhe.c
+++ b/runtime/parsec/codelets/codelet_zlanhe.c
@@ -55,7 +55,7 @@ void INSERT_TASK_zlanhe(const RUNTIME_option_t *options,
sizeof(int), &norm, VALUE,
sizeof(int), &uplo, VALUE,
sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &LDA, VALUE,
sizeof(double)*szeW, NULL, SCRATCH,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | AFFINITY,
diff --git a/runtime/parsec/codelets/codelet_zlansy.c b/runtime/parsec/codelets/codelet_zlansy.c
index f4dd76063..07d7fd910 100644
--- a/runtime/parsec/codelets/codelet_zlansy.c
+++ b/runtime/parsec/codelets/codelet_zlansy.c
@@ -55,7 +55,7 @@ void INSERT_TASK_zlansy(const RUNTIME_option_t *options,
sizeof(int), &norm, VALUE,
sizeof(int), &uplo, VALUE,
sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &LDA, VALUE,
sizeof(double)*szeW, NULL, SCRATCH,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | AFFINITY,
diff --git a/runtime/parsec/codelets/codelet_zlantr.c b/runtime/parsec/codelets/codelet_zlantr.c
index 26d7e045e..2ae19669e 100644
--- a/runtime/parsec/codelets/codelet_zlantr.c
+++ b/runtime/parsec/codelets/codelet_zlantr.c
@@ -58,7 +58,7 @@ void INSERT_TASK_zlantr(const RUNTIME_option_t *options,
sizeof(int), &diag, VALUE,
sizeof(int), &M, VALUE,
sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &LDA, VALUE,
sizeof(double)*szeW, NULL, SCRATCH,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), OUTPUT | AFFINITY,
diff --git a/runtime/parsec/codelets/codelet_zlaset.c b/runtime/parsec/codelets/codelet_zlaset.c
index 6a7c8df1b..440075a1e 100644
--- a/runtime/parsec/codelets/codelet_zlaset.c
+++ b/runtime/parsec/codelets/codelet_zlaset.c
@@ -90,7 +90,7 @@ void INSERT_TASK_zlaset(const RUNTIME_option_t *options,
sizeof(int), &N, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
sizeof(CHAMELEON_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
sizeof(int), &LDA, VALUE,
PARSEC_DTD_ARG_END );
}
diff --git a/runtime/parsec/codelets/codelet_zlaset2.c b/runtime/parsec/codelets/codelet_zlaset2.c
index 21df0943d..0086484aa 100644
--- a/runtime/parsec/codelets/codelet_zlaset2.c
+++ b/runtime/parsec/codelets/codelet_zlaset2.c
@@ -85,7 +85,7 @@ void INSERT_TASK_zlaset2(const RUNTIME_option_t *options,
sizeof(int), &M, VALUE,
sizeof(int), &N, VALUE,
sizeof(int), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
sizeof(int), &LDA, VALUE,
PARSEC_DTD_ARG_END );
}
diff --git a/runtime/parsec/codelets/codelet_zlauum.c b/runtime/parsec/codelets/codelet_zlauum.c
index 967ff7743..b2420ffc5 100644
--- a/runtime/parsec/codelets/codelet_zlauum.c
+++ b/runtime/parsec/codelets/codelet_zlauum.c
@@ -53,7 +53,7 @@ void INSERT_TASK_zlauum(const RUNTIME_option_t *options,
PARSEC_dtd_taskpool, CORE_zlauum_parsec, options->priority, "lauum",
sizeof(int), &uplo, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zpamm.c b/runtime/parsec/codelets/codelet_zpamm.c
index 6dae3bc66..d611efe52 100644
--- a/runtime/parsec/codelets/codelet_zpamm.c
+++ b/runtime/parsec/codelets/codelet_zpamm.c
@@ -212,13 +212,13 @@ INSERT_TASK_zpamm(const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &l, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INPUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), morse_parsec_get_arena_index( V ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), chameleon_parsec_get_arena_index( V ) | INPUT,
sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( W, CHAMELEON_Complex64_t, Wm, Wn ), morse_parsec_get_arena_index( W ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( W, CHAMELEON_Complex64_t, Wm, Wn ), chameleon_parsec_get_arena_index( W ) | INOUT,
sizeof(int), &ldw, VALUE,
PARSEC_DTD_ARG_END );
}
diff --git a/runtime/parsec/codelets/codelet_zplghe.c b/runtime/parsec/codelets/codelet_zplghe.c
index fd01c692a..8d33409a4 100644
--- a/runtime/parsec/codelets/codelet_zplghe.c
+++ b/runtime/parsec/codelets/codelet_zplghe.c
@@ -54,7 +54,7 @@ void INSERT_TASK_zplghe( const RUNTIME_option_t *options,
sizeof(double), &bump, VALUE,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int), &bigM, VALUE,
sizeof(int), &m0, VALUE,
diff --git a/runtime/parsec/codelets/codelet_zplgsy.c b/runtime/parsec/codelets/codelet_zplgsy.c
index 81045149d..b37464158 100644
--- a/runtime/parsec/codelets/codelet_zplgsy.c
+++ b/runtime/parsec/codelets/codelet_zplgsy.c
@@ -54,7 +54,7 @@ void INSERT_TASK_zplgsy( const RUNTIME_option_t *options,
sizeof(CHAMELEON_Complex64_t), &bump, VALUE,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int), &bigM, VALUE,
sizeof(int), &m0, VALUE,
diff --git a/runtime/parsec/codelets/codelet_zplrnt.c b/runtime/parsec/codelets/codelet_zplrnt.c
index 9cca44173..c3a4e1d2c 100644
--- a/runtime/parsec/codelets/codelet_zplrnt.c
+++ b/runtime/parsec/codelets/codelet_zplrnt.c
@@ -52,7 +52,7 @@ void INSERT_TASK_zplrnt( const RUNTIME_option_t *options,
PARSEC_dtd_taskpool, CORE_zplrnt_parsec, options->priority, "zplrnt",
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int), &bigM, VALUE,
sizeof(int), &m0, VALUE,
diff --git a/runtime/parsec/codelets/codelet_zpotrf.c b/runtime/parsec/codelets/codelet_zpotrf.c
index 9fd7d4438..32928d1b0 100644
--- a/runtime/parsec/codelets/codelet_zpotrf.c
+++ b/runtime/parsec/codelets/codelet_zpotrf.c
@@ -58,7 +58,7 @@ void INSERT_TASK_zpotrf(const RUNTIME_option_t *options,
PARSEC_dtd_taskpool, CORE_zpotrf_parsec, options->priority, "potrf",
sizeof(int), &uplo, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int), &iinfo, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zssssm.c b/runtime/parsec/codelets/codelet_zssssm.c
index 2fde2c15c..0132f8d75 100644
--- a/runtime/parsec/codelets/codelet_zssssm.c
+++ b/runtime/parsec/codelets/codelet_zssssm.c
@@ -67,13 +67,13 @@ void INSERT_TASK_zssssm(const RUNTIME_option_t *options,
sizeof(int), &n2, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( L1, CHAMELEON_Complex64_t, L1m, L1n ), morse_parsec_get_arena_index( L1 ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( L1, CHAMELEON_Complex64_t, L1m, L1n ), chameleon_parsec_get_arena_index( L1 ) | INPUT,
sizeof(int), &ldl1, VALUE,
- PASSED_BY_REF, RTBLKADDR( L2, CHAMELEON_Complex64_t, L2m, L2n ), morse_parsec_get_arena_index( L2 ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( L2, CHAMELEON_Complex64_t, L2m, L2n ), chameleon_parsec_get_arena_index( L2 ) | INPUT,
sizeof(int), &ldl2, VALUE,
sizeof(int*), &IPIV, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zsymm.c b/runtime/parsec/codelets/codelet_zsymm.c
index bc2238aae..b8b22c0be 100644
--- a/runtime/parsec/codelets/codelet_zsymm.c
+++ b/runtime/parsec/codelets/codelet_zsymm.c
@@ -65,12 +65,12 @@ void INSERT_TASK_zsymm(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INPUT,
sizeof(int), &ldb, VALUE,
sizeof(CHAMELEON_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), morse_parsec_get_arena_index( C ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), chameleon_parsec_get_arena_index( C ) | INOUT | AFFINITY,
sizeof(int), &ldc, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zsyr2k.c b/runtime/parsec/codelets/codelet_zsyr2k.c
index 939d238d9..c94624764 100644
--- a/runtime/parsec/codelets/codelet_zsyr2k.c
+++ b/runtime/parsec/codelets/codelet_zsyr2k.c
@@ -65,12 +65,12 @@ void INSERT_TASK_zsyr2k(const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INPUT,
sizeof(int), &ldb, VALUE,
sizeof(CHAMELEON_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), morse_parsec_get_arena_index( C ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), chameleon_parsec_get_arena_index( C ) | INOUT | AFFINITY,
sizeof(int), &ldc, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zsyrk.c b/runtime/parsec/codelets/codelet_zsyrk.c
index ad2de4ef0..53edd1dd5 100644
--- a/runtime/parsec/codelets/codelet_zsyrk.c
+++ b/runtime/parsec/codelets/codelet_zsyrk.c
@@ -61,10 +61,10 @@ void INSERT_TASK_zsyrk(const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
sizeof(CHAMELEON_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), morse_parsec_get_arena_index( C ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), chameleon_parsec_get_arena_index( C ) | INOUT | AFFINITY,
sizeof(int), &ldc, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zsyssq.c b/runtime/parsec/codelets/codelet_zsyssq.c
index 2729d4302..0af91ab63 100644
--- a/runtime/parsec/codelets/codelet_zsyssq.c
+++ b/runtime/parsec/codelets/codelet_zsyssq.c
@@ -50,7 +50,7 @@ void INSERT_TASK_zsyssq( const RUNTIME_option_t *options,
PARSEC_dtd_taskpool, CORE_zsyssq_parsec, options->priority, "syssq",
sizeof(int), &uplo, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | AFFINITY,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_zsytrf_nopiv.c b/runtime/parsec/codelets/codelet_zsytrf_nopiv.c
index f2007dea5..556416cad 100644
--- a/runtime/parsec/codelets/codelet_zsytrf_nopiv.c
+++ b/runtime/parsec/codelets/codelet_zsytrf_nopiv.c
@@ -50,7 +50,7 @@ void INSERT_TASK_zsytrf_nopiv(const RUNTIME_option_t *options,
PARSEC_dtd_taskpool, CORE_zsytrf_nopiv_parsec, options->priority, "sytrf_nopiv",
sizeof(int), &uplo, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int), &iinfo, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztile_zero.c b/runtime/parsec/codelets/codelet_ztile_zero.c
index db8698666..62c779548 100644
--- a/runtime/parsec/codelets/codelet_ztile_zero.c
+++ b/runtime/parsec/codelets/codelet_ztile_zero.c
@@ -55,7 +55,7 @@ void INSERT_TASK_ztile_zero( const RUNTIME_option_t *options,
sizeof(int), &X2, VALUE,
sizeof(int), &Y1, VALUE,
sizeof(int), &Y2, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | OUTPUT | AFFINITY,
sizeof(int), &lda, VALUE,
PARSEC_DTD_ARG_END );
}
diff --git a/runtime/parsec/codelets/codelet_ztplqt.c b/runtime/parsec/codelets/codelet_ztplqt.c
index be4d79941..78f93a6ec 100644
--- a/runtime/parsec/codelets/codelet_ztplqt.c
+++ b/runtime/parsec/codelets/codelet_ztplqt.c
@@ -61,11 +61,11 @@ void INSERT_TASK_ztplqt( const RUNTIME_option_t *options,
sizeof(int), &N, VALUE,
sizeof(int), &L, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INOUT | AFFINITY,
sizeof(int), &ldb, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*(ib+1)*nb, NULL, SCRATCH,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztpmlqt.c b/runtime/parsec/codelets/codelet_ztpmlqt.c
index 9bd086756..5d11278a2 100644
--- a/runtime/parsec/codelets/codelet_ztpmlqt.c
+++ b/runtime/parsec/codelets/codelet_ztpmlqt.c
@@ -71,13 +71,13 @@ void INSERT_TASK_ztpmlqt( const RUNTIME_option_t *options,
sizeof(int), &K, VALUE,
sizeof(int), &L, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), morse_parsec_get_arena_index( V ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), chameleon_parsec_get_arena_index( V ) | INPUT,
sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | INPUT,
sizeof(int), &ldt, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INOUT | AFFINITY,
sizeof(int), &ldb, VALUE,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztpmqrt.c b/runtime/parsec/codelets/codelet_ztpmqrt.c
index aa41576c4..3d75cbdc4 100644
--- a/runtime/parsec/codelets/codelet_ztpmqrt.c
+++ b/runtime/parsec/codelets/codelet_ztpmqrt.c
@@ -71,13 +71,13 @@ void INSERT_TASK_ztpmqrt( const RUNTIME_option_t *options,
sizeof(int), &K, VALUE,
sizeof(int), &L, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), morse_parsec_get_arena_index( V ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), chameleon_parsec_get_arena_index( V ) | INPUT,
sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | INPUT,
sizeof(int), &ldt, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INOUT | AFFINITY,
sizeof(int), &ldb, VALUE,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztpqrt.c b/runtime/parsec/codelets/codelet_ztpqrt.c
index b12a7f249..7795873a0 100644
--- a/runtime/parsec/codelets/codelet_ztpqrt.c
+++ b/runtime/parsec/codelets/codelet_ztpqrt.c
@@ -61,11 +61,11 @@ void INSERT_TASK_ztpqrt( const RUNTIME_option_t *options,
sizeof(int), &N, VALUE,
sizeof(int), &L, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INOUT | AFFINITY,
sizeof(int), &ldb, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*(ib+1)*nb, NULL, SCRATCH,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztradd.c b/runtime/parsec/codelets/codelet_ztradd.c
index 421e5ce3b..33a59dd72 100644
--- a/runtime/parsec/codelets/codelet_ztradd.c
+++ b/runtime/parsec/codelets/codelet_ztradd.c
@@ -121,10 +121,10 @@ void INSERT_TASK_ztradd(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
sizeof(CHAMELEON_Complex64_t), &beta, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INOUT | AFFINITY,
sizeof(int), &ldb, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztrasm.c b/runtime/parsec/codelets/codelet_ztrasm.c
index b7ee18255..390b2ca9a 100644
--- a/runtime/parsec/codelets/codelet_ztrasm.c
+++ b/runtime/parsec/codelets/codelet_ztrasm.c
@@ -56,7 +56,7 @@ void INSERT_TASK_ztrasm(const RUNTIME_option_t *options,
sizeof(int), &diag, VALUE,
sizeof(int), &M, VALUE,
sizeof(int), &N, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( B, double, Bm, Bn ), INOUT | AFFINITY,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztrmm.c b/runtime/parsec/codelets/codelet_ztrmm.c
index afe1484d5..9b8769aa2 100644
--- a/runtime/parsec/codelets/codelet_ztrmm.c
+++ b/runtime/parsec/codelets/codelet_ztrmm.c
@@ -66,9 +66,9 @@ void INSERT_TASK_ztrmm(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INOUT | AFFINITY,
sizeof(int), &ldb, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztrsm.c b/runtime/parsec/codelets/codelet_ztrsm.c
index b7d0a17e3..e7b135e81 100644
--- a/runtime/parsec/codelets/codelet_ztrsm.c
+++ b/runtime/parsec/codelets/codelet_ztrsm.c
@@ -58,9 +58,9 @@ void INSERT_TASK_ztrsm(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(CHAMELEON_Complex64_t), &alpha, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), morse_parsec_get_arena_index( B ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( B, CHAMELEON_Complex64_t, Bm, Bn ), chameleon_parsec_get_arena_index( B ) | INOUT | AFFINITY,
sizeof(int), &ldb, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztrssq.c b/runtime/parsec/codelets/codelet_ztrssq.c
index 7f888fc21..ce7346e8c 100644
--- a/runtime/parsec/codelets/codelet_ztrssq.c
+++ b/runtime/parsec/codelets/codelet_ztrssq.c
@@ -55,7 +55,7 @@ void INSERT_TASK_ztrssq( const RUNTIME_option_t *options,
sizeof(int), &diag, VALUE,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
PASSED_BY_REF, RTBLKADDR( SCALESUMSQ, double, SCALESUMSQm, SCALESUMSQn ), INOUT | AFFINITY,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztrtri.c b/runtime/parsec/codelets/codelet_ztrtri.c
index 18b4498ac..e4eb4b3e0 100644
--- a/runtime/parsec/codelets/codelet_ztrtri.c
+++ b/runtime/parsec/codelets/codelet_ztrtri.c
@@ -54,7 +54,7 @@ void INSERT_TASK_ztrtri( const RUNTIME_option_t *options,
sizeof(int), &uplo, VALUE,
sizeof(int), &diag, VALUE,
sizeof(int), &n, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
sizeof(int), &iinfo, VALUE,
PARSEC_DTD_ARG_END );
diff --git a/runtime/parsec/codelets/codelet_ztslqt.c b/runtime/parsec/codelets/codelet_ztslqt.c
index 2aaf17649..7f77c06d1 100644
--- a/runtime/parsec/codelets/codelet_ztslqt.c
+++ b/runtime/parsec/codelets/codelet_ztslqt.c
@@ -58,11 +58,11 @@ void INSERT_TASK_ztslqt(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*nb, NULL, SCRATCH,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
diff --git a/runtime/parsec/codelets/codelet_ztsmlq.c b/runtime/parsec/codelets/codelet_ztsmlq.c
index 13e3bd3c0..da84611ea 100644
--- a/runtime/parsec/codelets/codelet_ztsmlq.c
+++ b/runtime/parsec/codelets/codelet_ztsmlq.c
@@ -75,13 +75,13 @@ void INSERT_TASK_ztsmlq(const RUNTIME_option_t *options,
sizeof(int), &n2, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), morse_parsec_get_arena_index( V ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), chameleon_parsec_get_arena_index( V ) | INPUT,
sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | INPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &ldwork, VALUE,
diff --git a/runtime/parsec/codelets/codelet_ztsmqr.c b/runtime/parsec/codelets/codelet_ztsmqr.c
index 56e959983..e586540c1 100644
--- a/runtime/parsec/codelets/codelet_ztsmqr.c
+++ b/runtime/parsec/codelets/codelet_ztsmqr.c
@@ -75,13 +75,13 @@ void INSERT_TASK_ztsmqr(const RUNTIME_option_t *options,
sizeof(int), &n2, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), morse_parsec_get_arena_index( V ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), chameleon_parsec_get_arena_index( V ) | INPUT,
sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | INPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &ldwork, VALUE,
diff --git a/runtime/parsec/codelets/codelet_ztsqrt.c b/runtime/parsec/codelets/codelet_ztsqrt.c
index 2ee68ab93..a2b31fcea 100644
--- a/runtime/parsec/codelets/codelet_ztsqrt.c
+++ b/runtime/parsec/codelets/codelet_ztsqrt.c
@@ -58,11 +58,11 @@ void INSERT_TASK_ztsqrt(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*nb, NULL, SCRATCH,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
diff --git a/runtime/parsec/codelets/codelet_ztstrf.c b/runtime/parsec/codelets/codelet_ztstrf.c
index 913a88304..d5ab7a779 100644
--- a/runtime/parsec/codelets/codelet_ztstrf.c
+++ b/runtime/parsec/codelets/codelet_ztstrf.c
@@ -67,11 +67,11 @@ void INSERT_TASK_ztstrf(const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
sizeof(int), &nb, VALUE,
- PASSED_BY_REF, RTBLKADDR( U, CHAMELEON_Complex64_t, Um, Un ), morse_parsec_get_arena_index( U ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( U, CHAMELEON_Complex64_t, Um, Un ), chameleon_parsec_get_arena_index( U ) | INOUT,
sizeof(int), &ldu, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INOUT | AFFINITY,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( L, CHAMELEON_Complex64_t, Lm, Ln ), morse_parsec_get_arena_index( L ) | OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( L, CHAMELEON_Complex64_t, Lm, Ln ), chameleon_parsec_get_arena_index( L ) | OUTPUT,
sizeof(int), &ldl, VALUE,
sizeof(int*), &IPIV, VALUE,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
diff --git a/runtime/parsec/codelets/codelet_zttlqt.c b/runtime/parsec/codelets/codelet_zttlqt.c
index 42ffa0f22..a927d981b 100644
--- a/runtime/parsec/codelets/codelet_zttlqt.c
+++ b/runtime/parsec/codelets/codelet_zttlqt.c
@@ -59,11 +59,11 @@ void INSERT_TASK_zttlqt(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*nb, NULL, SCRATCH,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
diff --git a/runtime/parsec/codelets/codelet_zttmlq.c b/runtime/parsec/codelets/codelet_zttmlq.c
index 1b798ed95..f7d5a024f 100644
--- a/runtime/parsec/codelets/codelet_zttmlq.c
+++ b/runtime/parsec/codelets/codelet_zttmlq.c
@@ -75,13 +75,13 @@ void INSERT_TASK_zttmlq(const RUNTIME_option_t *options,
sizeof(int), &n2, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), morse_parsec_get_arena_index( V ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), chameleon_parsec_get_arena_index( V ) | INPUT,
sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | INPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &ldwork, VALUE,
diff --git a/runtime/parsec/codelets/codelet_zttmqr.c b/runtime/parsec/codelets/codelet_zttmqr.c
index a27607ad2..a0f9de9d7 100644
--- a/runtime/parsec/codelets/codelet_zttmqr.c
+++ b/runtime/parsec/codelets/codelet_zttmqr.c
@@ -76,13 +76,13 @@ void INSERT_TASK_zttmqr(const RUNTIME_option_t *options,
sizeof(int), &n2, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), morse_parsec_get_arena_index( V ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( V, CHAMELEON_Complex64_t, Vm, Vn ), chameleon_parsec_get_arena_index( V ) | INPUT,
sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | INPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &ldwork, VALUE,
diff --git a/runtime/parsec/codelets/codelet_zttqrt.c b/runtime/parsec/codelets/codelet_zttqrt.c
index f0894cf86..05ae51e3a 100644
--- a/runtime/parsec/codelets/codelet_zttqrt.c
+++ b/runtime/parsec/codelets/codelet_zttqrt.c
@@ -58,11 +58,11 @@ void INSERT_TASK_zttqrt(const RUNTIME_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), morse_parsec_get_arena_index( A1 ) | INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, CHAMELEON_Complex64_t, A1m, A1n ), chameleon_parsec_get_arena_index( A1 ) | INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), morse_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( A2, CHAMELEON_Complex64_t, A2m, A2n ), chameleon_parsec_get_arena_index( A2 ) | INOUT | AFFINITY,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | OUTPUT,
sizeof(int), &ldt, VALUE,
sizeof(CHAMELEON_Complex64_t)*nb, NULL, SCRATCH,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
diff --git a/runtime/parsec/codelets/codelet_zunmlq.c b/runtime/parsec/codelets/codelet_zunmlq.c
index 6cdac9439..5a0d1c846 100644
--- a/runtime/parsec/codelets/codelet_zunmlq.c
+++ b/runtime/parsec/codelets/codelet_zunmlq.c
@@ -66,11 +66,11 @@ void INSERT_TASK_zunmlq(const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | INPUT,
sizeof(int), &ldt, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), morse_parsec_get_arena_index( C ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), chameleon_parsec_get_arena_index( C ) | INOUT | AFFINITY,
sizeof(int), &ldc, VALUE,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &nb, VALUE,
diff --git a/runtime/parsec/codelets/codelet_zunmqr.c b/runtime/parsec/codelets/codelet_zunmqr.c
index 460c76ab5..855b7e3dd 100644
--- a/runtime/parsec/codelets/codelet_zunmqr.c
+++ b/runtime/parsec/codelets/codelet_zunmqr.c
@@ -66,11 +66,11 @@ void INSERT_TASK_zunmqr(const RUNTIME_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), morse_parsec_get_arena_index( A ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, CHAMELEON_Complex64_t, Am, An ), chameleon_parsec_get_arena_index( A ) | INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), morse_parsec_get_arena_index( T ) | INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, CHAMELEON_Complex64_t, Tm, Tn ), chameleon_parsec_get_arena_index( T ) | INPUT,
sizeof(int), &ldt, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), morse_parsec_get_arena_index( C ) | INOUT | AFFINITY,
+ PASSED_BY_REF, RTBLKADDR( C, CHAMELEON_Complex64_t, Cm, Cn ), chameleon_parsec_get_arena_index( C ) | INOUT | AFFINITY,
sizeof(int), &ldc, VALUE,
sizeof(CHAMELEON_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &nb, VALUE,
diff --git a/runtime/parsec/control/runtime_async.c b/runtime/parsec/control/runtime_async.c
index b19060218..d0cf0c508 100644
--- a/runtime/parsec/control/runtime_async.c
+++ b/runtime/parsec/control/runtime_async.c
@@ -23,10 +23,10 @@
/**
* Create a sequence
*/
-int RUNTIME_sequence_create( CHAM_context_t *morse,
+int RUNTIME_sequence_create( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence )
{
- parsec_context_t *parsec = (parsec_context_t *)(morse->schedopt);
+ parsec_context_t *parsec = (parsec_context_t *)(chamctxt->schedopt);
parsec_taskpool_t *parsec_dtd_tp = parsec_dtd_taskpool_new();
parsec_enqueue( parsec, (parsec_taskpool_t *)parsec_dtd_tp );
@@ -40,10 +40,10 @@ int RUNTIME_sequence_create( CHAM_context_t *morse,
/**
* Destroy a sequence
*/
-int RUNTIME_sequence_destroy( CHAM_context_t *morse,
+int RUNTIME_sequence_destroy( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence )
{
- parsec_context_t *parsec = (parsec_context_t *)(morse->schedopt);
+ parsec_context_t *parsec = (parsec_context_t *)(chamctxt->schedopt);
parsec_taskpool_t *parsec_dtd_tp = (parsec_taskpool_t *)(sequence->schedopt);
assert( parsec_dtd_tp );
@@ -57,10 +57,10 @@ int RUNTIME_sequence_destroy( CHAM_context_t *morse,
/**
* Wait for the completion of a sequence
*/
-int RUNTIME_sequence_wait( CHAM_context_t *morse,
+int RUNTIME_sequence_wait( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence )
{
- parsec_context_t *parsec = (parsec_context_t *)morse->schedopt;
+ parsec_context_t *parsec = (parsec_context_t *)chamctxt->schedopt;
parsec_taskpool_t *parsec_dtd_tp = (parsec_taskpool_t *) sequence->schedopt;
assert( parsec_dtd_tp );
@@ -72,7 +72,7 @@ int RUNTIME_sequence_wait( CHAM_context_t *morse,
/**
* Terminate a sequence
*/
-void RUNTIME_sequence_flush( CHAM_context_t *morse,
+void RUNTIME_sequence_flush( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence,
RUNTIME_request_t *request,
int status )
@@ -80,6 +80,6 @@ void RUNTIME_sequence_flush( CHAM_context_t *morse,
sequence->request = request;
sequence->status = status;
request->status = status;
- (void)morse;
+ (void)chamctxt;
return;
}
diff --git a/runtime/parsec/control/runtime_context.c b/runtime/parsec/control/runtime_context.c
index b52c67316..e29a149f5 100644
--- a/runtime/parsec/control/runtime_context.c
+++ b/runtime/parsec/control/runtime_context.c
@@ -23,19 +23,19 @@
/**
* Create new context
*/
-void RUNTIME_context_create( CHAM_context_t *morse )
+void RUNTIME_context_create( CHAM_context_t *chamctxt )
{
/* In case of PaRSEC, this is done in init */
- morse->scheduler = RUNTIME_SCHED_PARSEC;
+ chamctxt->scheduler = RUNTIME_SCHED_PARSEC;
return;
}
/**
* Clean the context
*/
-void RUNTIME_context_destroy( CHAM_context_t *morse )
+void RUNTIME_context_destroy( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
diff --git a/runtime/parsec/control/runtime_control.c b/runtime/parsec/control/runtime_control.c
index f9005b49a..1e4567f3a 100644
--- a/runtime/parsec/control/runtime_control.c
+++ b/runtime/parsec/control/runtime_control.c
@@ -28,7 +28,7 @@
/**
* Initialize CHAMELEON
*/
-int RUNTIME_init( CHAM_context_t *morse,
+int RUNTIME_init( CHAM_context_t *chamctxt,
int ncpus,
int ncudas,
int nthreads_per_worker )
@@ -41,12 +41,12 @@ int RUNTIME_init( CHAM_context_t *morse,
if( 0 < ncpus ) {
default_ncores = ncpus;
}
- morse->parallel_enabled = CHAMELEON_TRUE;
- morse->schedopt = (void *)parsec_init(default_ncores, argc, NULL);
+ chamctxt->parallel_enabled = CHAMELEON_TRUE;
+ chamctxt->schedopt = (void *)parsec_init(default_ncores, argc, NULL);
- if(NULL != morse->schedopt) {
- morse->nworkers = ncpus;
- morse->nthreads_per_worker = nthreads_per_worker;
+ if(NULL != chamctxt->schedopt) {
+ chamctxt->nworkers = ncpus;
+ chamctxt->nthreads_per_worker = nthreads_per_worker;
hres = 0;
}
@@ -59,9 +59,9 @@ int RUNTIME_init( CHAM_context_t *morse,
/**
* Finalize CHAMELEON
*/
-void RUNTIME_finalize( CHAM_context_t *morse )
+void RUNTIME_finalize( CHAM_context_t *chamctxt )
{
- parsec_context_t *parsec = (parsec_context_t*)morse->schedopt;
+ parsec_context_t *parsec = (parsec_context_t*)chamctxt->schedopt;
parsec_fini(&parsec);
return;
}
@@ -69,9 +69,9 @@ void RUNTIME_finalize( CHAM_context_t *morse )
/**
* To suspend the processing of new tasks by workers
*/
-void RUNTIME_pause( CHAM_context_t *morse )
+void RUNTIME_pause( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
@@ -79,18 +79,18 @@ void RUNTIME_pause( CHAM_context_t *morse )
* This is the symmetrical call to RUNTIME_pause,
* used to resume the workers polling for new tasks.
*/
-void RUNTIME_resume( CHAM_context_t *morse )
+void RUNTIME_resume( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
/**
* Barrier CHAMELEON.
*/
-void RUNTIME_barrier( CHAM_context_t *morse )
+void RUNTIME_barrier( CHAM_context_t *chamctxt )
{
- parsec_context_t *parsec = (parsec_context_t*)(morse->schedopt);
+ parsec_context_t *parsec = (parsec_context_t*)(chamctxt->schedopt);
// This will be a problem with the fake tasks inserted to detect end of DTD algorithms
parsec_context_wait( parsec );
return;
@@ -99,56 +99,56 @@ void RUNTIME_barrier( CHAM_context_t *morse )
/**
* Display a progress information when executing the tasks
*/
-void RUNTIME_progress( CHAM_context_t *morse )
+void RUNTIME_progress( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
/**
* Thread rank.
*/
-int RUNTIME_thread_rank( CHAM_context_t *morse )
+int RUNTIME_thread_rank( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return 0;
}
/**
* Thread rank.
*/
-int RUNTIME_thread_size( CHAM_context_t *morse )
+int RUNTIME_thread_size( CHAM_context_t *chamctxt )
{
// TODO: fixme
//return vpmap_get_nb_total_threads();
- (void)morse;
+ (void)chamctxt;
return 1;
}
/**
* This returns the rank of this process
*/
-int RUNTIME_comm_rank( CHAM_context_t *morse )
+int RUNTIME_comm_rank( CHAM_context_t *chamctxt )
{
int rank = 0;
#if defined(CHAMELEON_USE_MPI)
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
#endif
- (void)morse;
+ (void)chamctxt;
return rank;
}
/**
* This returns the size of the distributed computation
*/
-int RUNTIME_comm_size( CHAM_context_t *morse )
+int RUNTIME_comm_size( CHAM_context_t *chamctxt )
{
int size = 0;
#if defined(CHAMELEON_USE_MPI)
MPI_Comm_size(MPI_COMM_WORLD, &size);
#endif
- (void)morse;
+ (void)chamctxt;
return size;
}
diff --git a/runtime/parsec/control/runtime_descriptor.c b/runtime/parsec/control/runtime_descriptor.c
index cfc69e631..02c4119be 100644
--- a/runtime/parsec/control/runtime_descriptor.c
+++ b/runtime/parsec/control/runtime_descriptor.c
@@ -28,15 +28,15 @@
/* Variable parsec_dtd_no_of_arenas is private and cannot be changed */
#define CHAMELEON_PARSEC_DTD_NO_OF_ARENA 16 /**< Number of arenas available per DTD */
-typedef struct morse_parsec_arena_s {
+typedef struct chameleon_parsec_arena_s {
/* int mb; */
/* int nb; */
/* cham_flttype_t dtype; */
size_t size;
-} morse_parsec_arena_t;
+} chameleon_parsec_arena_t;
-static int morse_parsec_nb_arenas = 0;
-static morse_parsec_arena_t morse_parsec_registered_arenas[CHAMELEON_PARSEC_DTD_NO_OF_ARENA] = { { 0 } };
+static int chameleon_parsec_nb_arenas = 0;
+static chameleon_parsec_arena_t chameleon_parsec_registered_arenas[CHAMELEON_PARSEC_DTD_NO_OF_ARENA] = { { 0 } };
#endif
@@ -60,10 +60,10 @@ void RUNTIME_free( void *ptr, size_t size )
}
static inline void
-morse_parsec_key_to_coordinates(parsec_data_collection_t *data_collection, parsec_data_key_t key,
+chameleon_parsec_key_to_coordinates(parsec_data_collection_t *data_collection, parsec_data_key_t key,
int *m, int *n)
{
- morse_parsec_desc_t *pdesc = (morse_parsec_desc_t*)data_collection;
+ chameleon_parsec_desc_t *pdesc = (chameleon_parsec_desc_t*)data_collection;
CHAM_desc_t *mdesc = pdesc->desc;
int _m, _n;
@@ -74,9 +74,9 @@ morse_parsec_key_to_coordinates(parsec_data_collection_t *data_collection, parse
}
static inline parsec_data_key_t
-morse_parsec_data_key(parsec_data_collection_t *data_collection, ...)
+chameleon_parsec_data_key(parsec_data_collection_t *data_collection, ...)
{
- morse_parsec_desc_t *pdesc = (morse_parsec_desc_t*)data_collection;
+ chameleon_parsec_desc_t *pdesc = (chameleon_parsec_desc_t*)data_collection;
CHAM_desc_t *mdesc = pdesc->desc;
va_list ap;
int m, n;
@@ -95,9 +95,9 @@ morse_parsec_data_key(parsec_data_collection_t *data_collection, ...)
}
static inline uint32_t
-morse_parsec_rank_of(parsec_data_collection_t *data_collection, ...)
+chameleon_parsec_rank_of(parsec_data_collection_t *data_collection, ...)
{
- morse_parsec_desc_t *pdesc = (morse_parsec_desc_t*)data_collection;
+ chameleon_parsec_desc_t *pdesc = (chameleon_parsec_desc_t*)data_collection;
CHAM_desc_t *mdesc = pdesc->desc;
va_list ap;
int m, n;
@@ -116,32 +116,32 @@ morse_parsec_rank_of(parsec_data_collection_t *data_collection, ...)
}
static inline uint32_t
-morse_parsec_rank_of_key(parsec_data_collection_t *data_collection, parsec_data_key_t key)
+chameleon_parsec_rank_of_key(parsec_data_collection_t *data_collection, parsec_data_key_t key)
{
int m, n;
- morse_parsec_key_to_coordinates(data_collection, key, &m, &n);
- return morse_parsec_rank_of(data_collection, m, n);
+ chameleon_parsec_key_to_coordinates(data_collection, key, &m, &n);
+ return chameleon_parsec_rank_of(data_collection, m, n);
}
static inline int32_t
-morse_parsec_vpid_of(parsec_data_collection_t *data_collection, ... )
+chameleon_parsec_vpid_of(parsec_data_collection_t *data_collection, ... )
{
(void)data_collection;
return 0;
}
static inline int32_t
-morse_parsec_vpid_of_key(parsec_data_collection_t *data_collection, parsec_data_key_t key)
+chameleon_parsec_vpid_of_key(parsec_data_collection_t *data_collection, parsec_data_key_t key)
{
int m, n;
- morse_parsec_key_to_coordinates(data_collection, key, &m, &n);
- return morse_parsec_vpid_of(data_collection, m, n);
+ chameleon_parsec_key_to_coordinates(data_collection, key, &m, &n);
+ return chameleon_parsec_vpid_of(data_collection, m, n);
}
static inline parsec_data_t*
-morse_parsec_data_of(parsec_data_collection_t *data_collection, ...)
+chameleon_parsec_data_of(parsec_data_collection_t *data_collection, ...)
{
- morse_parsec_desc_t *pdesc = (morse_parsec_desc_t*)data_collection;
+ chameleon_parsec_desc_t *pdesc = (chameleon_parsec_desc_t*)data_collection;
CHAM_desc_t *mdesc = pdesc->desc;
va_list ap;
int m, n;
@@ -161,18 +161,18 @@ morse_parsec_data_of(parsec_data_collection_t *data_collection, ...)
//assert( data_collection->nodes == 1 );
#endif
return parsec_data_create( pdesc->data_map + n * mdesc->lmt + m, data_collection,
- morse_parsec_data_key( data_collection, m, n ),
+ chameleon_parsec_data_key( data_collection, m, n ),
mdesc->get_blkaddr( mdesc, m, n ),
mdesc->bsiz * CHAMELEON_Element_Size(mdesc->dtyp) );
}
static inline parsec_data_t*
-morse_parsec_data_of_key(parsec_data_collection_t *data_collection, parsec_data_key_t key)
+chameleon_parsec_data_of_key(parsec_data_collection_t *data_collection, parsec_data_key_t key)
{
- morse_parsec_desc_t *pdesc = (morse_parsec_desc_t*)data_collection;
+ chameleon_parsec_desc_t *pdesc = (chameleon_parsec_desc_t*)data_collection;
CHAM_desc_t *mdesc = pdesc->desc;
int m, n;
- morse_parsec_key_to_coordinates(data_collection, key, &m, &n);
+ chameleon_parsec_key_to_coordinates(data_collection, key, &m, &n);
#if defined(CHAMELEON_USE_MPI)
/* TODO: change displacement in data_map when in distributed */
@@ -185,12 +185,12 @@ morse_parsec_data_of_key(parsec_data_collection_t *data_collection, parsec_data_
#ifdef parsec_PROF_TRACE
static inline int
-morse_parsec_key_to_string(parsec_data_collection_t *data_collection, parsec_data_key_t key, char * buffer, uint32_t buffer_size)
+chameleon_parsec_key_to_string(parsec_data_collection_t *data_collection, parsec_data_key_t key, char * buffer, uint32_t buffer_size)
{
- morse_parsec_desc_t *pdesc = (morse_parsec_desc_t*)data_collection;
+ chameleon_parsec_desc_t *pdesc = (chameleon_parsec_desc_t*)data_collection;
CHAM_desc_t *mdesc = pdesc->desc;
int m, n, res;
- morse_parsec_key_to_coordinates(data_collection, key, &m, &n);
+ chameleon_parsec_key_to_coordinates(data_collection, key, &m, &n);
res = snprintf(buffer, buffer_size, "(%d, %d)", m, n);
if (res < 0)
{
@@ -207,10 +207,10 @@ morse_parsec_key_to_string(parsec_data_collection_t *data_collection, parsec_dat
void RUNTIME_desc_create( CHAM_desc_t *mdesc )
{
parsec_data_collection_t *data_collection;
- morse_parsec_desc_t *pdesc;
+ chameleon_parsec_desc_t *pdesc;
int comm_size;
- pdesc = malloc( sizeof(morse_parsec_desc_t) );
+ pdesc = malloc( sizeof(chameleon_parsec_desc_t) );
data_collection = (parsec_data_collection_t*)pdesc;
/* Super setup */
@@ -218,17 +218,17 @@ void RUNTIME_desc_create( CHAM_desc_t *mdesc )
data_collection->nodes = comm_size;
data_collection->myrank = mdesc->myrank;
- data_collection->data_key = morse_parsec_data_key;
- data_collection->rank_of = morse_parsec_rank_of;
- data_collection->rank_of_key = morse_parsec_rank_of_key;
- data_collection->data_of = morse_parsec_data_of;
- data_collection->data_of_key = morse_parsec_data_of_key;
- data_collection->vpid_of = morse_parsec_vpid_of;
- data_collection->vpid_of_key = morse_parsec_vpid_of_key;
+ data_collection->data_key = chameleon_parsec_data_key;
+ data_collection->rank_of = chameleon_parsec_rank_of;
+ data_collection->rank_of_key = chameleon_parsec_rank_of_key;
+ data_collection->data_of = chameleon_parsec_data_of;
+ data_collection->data_of_key = chameleon_parsec_data_of_key;
+ data_collection->vpid_of = chameleon_parsec_vpid_of;
+ data_collection->vpid_of_key = chameleon_parsec_vpid_of_key;
#if defined(parsec_PROF_TRACE)
{
int rc;
- data_collection->key_to_string = morse_parsec_key_to_string;
+ data_collection->key_to_string = chameleon_parsec_key_to_string;
data_collection->key = NULL;
rc = asprintf(&(data_collection->key_dim), "(%d, %d)", mdesc->lmt, mdesc->lnt);
(void)rc;
@@ -251,18 +251,18 @@ void RUNTIME_desc_create( CHAM_desc_t *mdesc )
#if defined(CHAMELEON_USE_MPI)
/* Look if an arena already exists for this descriptor */
{
- morse_parsec_arena_t *arena = morse_parsec_registered_arenas;
+ chameleon_parsec_arena_t *arena = chameleon_parsec_registered_arenas;
size_t size = mdesc->mb * mdesc->nb * CHAMELEON_Element_Size(mdesc->dtyp);
int i;
- for(i=0; i<morse_parsec_nb_arenas; i++, arena++) {
+ for(i=0; i<chameleon_parsec_nb_arenas; i++, arena++) {
if ( size == arena->size) {
pdesc->arena_index = i;
break;
}
}
- if (i == morse_parsec_nb_arenas) {
+ if (i == chameleon_parsec_nb_arenas) {
parsec_datatype_t datatype;
/* Create a taskpool to make sur the system is initialized */
@@ -272,7 +272,7 @@ void RUNTIME_desc_create( CHAM_desc_t *mdesc )
}
/* Internal limitation of PaRSEC */
- assert(morse_parsec_nb_arenas < CHAMELEON_PARSEC_DTD_NO_OF_ARENA);
+ assert(chameleon_parsec_nb_arenas < CHAMELEON_PARSEC_DTD_NO_OF_ARENA);
switch(mdesc->dtyp) {
case ChamInteger: datatype = parsec_datatype_int32_t; break;
@@ -280,7 +280,7 @@ void RUNTIME_desc_create( CHAM_desc_t *mdesc )
case ChamRealDouble: datatype = parsec_datatype_double_t; break;
case ChamComplexFloat: datatype = parsec_datatype_complex_t; break;
case ChamComplexDouble: datatype = parsec_datatype_double_complex_t; break;
- default: morse_fatal_error("CHAMELEON_Element_Size", "undefined type"); break;
+ default: chameleon_fatal_error("CHAMELEON_Element_Size", "undefined type"); break;
}
/* Register the new arena */
@@ -288,7 +288,7 @@ void RUNTIME_desc_create( CHAM_desc_t *mdesc )
mdesc->mb, mdesc->nb, mdesc->mb, PARSEC_ARENA_ALIGNMENT_SSE, -1 );
arena->size = size;
pdesc->arena_index = i;
- morse_parsec_nb_arenas++;
+ chameleon_parsec_nb_arenas++;
}
}
#endif
@@ -303,7 +303,7 @@ void RUNTIME_desc_create( CHAM_desc_t *mdesc )
*/
void RUNTIME_desc_destroy( CHAM_desc_t *mdesc )
{
- morse_parsec_desc_t *pdesc = (morse_parsec_desc_t*)(mdesc->schedopt);
+ chameleon_parsec_desc_t *pdesc = (chameleon_parsec_desc_t*)(mdesc->schedopt);
if ( pdesc == NULL ) {
return;
}
diff --git a/runtime/parsec/control/runtime_options.c b/runtime/parsec/control/runtime_options.c
index 4b9d0e649..73ed66e8d 100644
--- a/runtime/parsec/control/runtime_options.c
+++ b/runtime/parsec/control/runtime_options.c
@@ -21,7 +21,7 @@
#include <stdlib.h>
#include "chameleon_parsec.h"
-void RUNTIME_options_init( RUNTIME_option_t *options, CHAM_context_t *morse,
+void RUNTIME_options_init( RUNTIME_option_t *options, CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
options->sequence = sequence;
@@ -36,10 +36,10 @@ void RUNTIME_options_init( RUNTIME_option_t *options, CHAM_context_t *morse,
return;
}
-void RUNTIME_options_finalize( RUNTIME_option_t *options, CHAM_context_t *morse )
+void RUNTIME_options_finalize( RUNTIME_option_t *options, CHAM_context_t *chamctxt )
{
(void)options;
- (void)morse;
+ (void)chamctxt;
return;
}
diff --git a/runtime/parsec/control/runtime_profiling.c b/runtime/parsec/control/runtime_profiling.c
index 38ff68f5c..43ca3381e 100644
--- a/runtime/parsec/control/runtime_profiling.c
+++ b/runtime/parsec/control/runtime_profiling.c
@@ -26,45 +26,45 @@ double RUNTIME_get_time(){
void RUNTIME_start_profiling()
{
- morse_warning("RUNTIME_start_profiling()", "FxT profiling is not available with PaRSEC\n");
+ chameleon_warning("RUNTIME_start_profiling()", "FxT profiling is not available with PaRSEC\n");
}
void RUNTIME_stop_profiling()
{
- morse_warning("RUNTIME_stop_profiling()", "FxT profiling is not available with PaRSEC\n");
+ chameleon_warning("RUNTIME_stop_profiling()", "FxT profiling is not available with PaRSEC\n");
}
void RUNTIME_start_stats()
{
- morse_warning("RUNTIME_start_stats()", "pruning stats are not available with PaRSEC\n");
+ chameleon_warning("RUNTIME_start_stats()", "pruning stats are not available with PaRSEC\n");
}
void RUNTIME_stop_stats()
{
- morse_warning("RUNTIME_stop_stats()", "pruning stats are not available with PaRSEC\n");
+ chameleon_warning("RUNTIME_stop_stats()", "pruning stats are not available with PaRSEC\n");
}
void RUNTIME_schedprofile_display(void)
{
- morse_warning("RUNTIME_schedprofile_display(parsec)", "Scheduler profiling is not available with PaRSEC\n");
+ chameleon_warning("RUNTIME_schedprofile_display(parsec)", "Scheduler profiling is not available with PaRSEC\n");
}
void RUNTIME_kernelprofile_display(void)
{
- morse_warning("RUNTIME_kernelprofile_display(parsec)", "Kernel profiling is not available with PaRSEC\n");
+ chameleon_warning("RUNTIME_kernelprofile_display(parsec)", "Kernel profiling is not available with PaRSEC\n");
}
/**
* Set iteration numbers for traces
*/
-void RUNTIME_iteration_push( CHAM_context_t *morse, unsigned long iteration )
+void RUNTIME_iteration_push( CHAM_context_t *chamctxt, unsigned long iteration )
{
- (void)morse; (void)iteration;
+ (void)chamctxt; (void)iteration;
return;
}
-void RUNTIME_iteration_pop( CHAM_context_t *morse )
+void RUNTIME_iteration_pop( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
diff --git a/runtime/parsec/control/runtime_zlocality.c b/runtime/parsec/control/runtime_zlocality.c
index b077d03be..674803efc 100644
--- a/runtime/parsec/control/runtime_zlocality.c
+++ b/runtime/parsec/control/runtime_zlocality.c
@@ -22,23 +22,23 @@
void RUNTIME_zlocality_allrestrict( uint32_t where )
{
(void)where;
- morse_warning("RUNTIME_zlocality_allrestrict(PaRSEC)", "Kernel locality cannot be specified with PaRSEC");
+ chameleon_warning("RUNTIME_zlocality_allrestrict(PaRSEC)", "Kernel locality cannot be specified with PaRSEC");
}
void RUNTIME_zlocality_onerestrict( cham_tasktype_t kernel, uint32_t where )
{
(void)kernel;
(void)where;
- morse_warning("RUNTIME_zlocality_onerestrict(PaRSEC)", "Kernel locality cannot be specified with PaRSEC");
+ chameleon_warning("RUNTIME_zlocality_onerestrict(PaRSEC)", "Kernel locality cannot be specified with PaRSEC");
}
void RUNTIME_zlocality_allrestore( )
{
- morse_warning("RUNTIME_zlocality_allrestore(PaRSEC)", "Kernel locality cannot be specified with PaRSEC");
+ chameleon_warning("RUNTIME_zlocality_allrestore(PaRSEC)", "Kernel locality cannot be specified with PaRSEC");
}
void RUNTIME_zlocality_onerestore( cham_tasktype_t kernel )
{
(void)kernel;
- morse_warning("RUNTIME_zlocality_onerestore(PaRSEC)", "Kernel locality cannot be specified with PaRSEC");
+ chameleon_warning("RUNTIME_zlocality_onerestore(PaRSEC)", "Kernel locality cannot be specified with PaRSEC");
}
diff --git a/runtime/parsec/control/runtime_zprofiling.c b/runtime/parsec/control/runtime_zprofiling.c
index fb51b833d..928839215 100644
--- a/runtime/parsec/control/runtime_zprofiling.c
+++ b/runtime/parsec/control/runtime_zprofiling.c
@@ -21,12 +21,12 @@
void RUNTIME_zdisplay_allprofile()
{
- morse_warning("RUNTIME_zdisplay_allprofile(PaRSEC)", "Profiling is not available with PaRSEC");
+ chameleon_warning("RUNTIME_zdisplay_allprofile(PaRSEC)", "Profiling is not available with PaRSEC");
}
void RUNTIME_zdisplay_oneprofile( cham_tasktype_t kernel )
{
(void)kernel;
- morse_warning("RUNTIME_zdisplay_oneprofile(PaRSEC)", "Profiling is not available with PaRSEC\n");
+ chameleon_warning("RUNTIME_zdisplay_oneprofile(PaRSEC)", "Profiling is not available with PaRSEC\n");
}
diff --git a/runtime/parsec/include/chameleon_parsec.h b/runtime/parsec/include/chameleon_parsec.h
index 594c9a1f2..d18db7b1e 100644
--- a/runtime/parsec/include/chameleon_parsec.h
+++ b/runtime/parsec/include/chameleon_parsec.h
@@ -29,18 +29,18 @@
#include "control/common.h"
-struct morse_parsec_desc_s {
+struct chameleon_parsec_desc_s {
parsec_data_collection_t super;
int arena_index;
CHAM_desc_t *desc;
parsec_data_t **data_map;
};
-typedef struct morse_parsec_desc_s morse_parsec_desc_t;
+typedef struct chameleon_parsec_desc_s chameleon_parsec_desc_t;
static inline int
-morse_parsec_get_arena_index(const CHAM_desc_t *desc) {
- return ((morse_parsec_desc_t *)desc->schedopt)->arena_index;
+chameleon_parsec_get_arena_index(const CHAM_desc_t *desc) {
+ return ((chameleon_parsec_desc_t *)desc->schedopt)->arena_index;
}
/*
diff --git a/runtime/quark/control/runtime_async.c b/runtime/quark/control/runtime_async.c
index 5ead4c726..f4e07e12e 100644
--- a/runtime/quark/control/runtime_async.c
+++ b/runtime/quark/control/runtime_async.c
@@ -24,13 +24,13 @@
/**
* Create a sequence
*/
-int RUNTIME_sequence_create( CHAM_context_t *morse,
+int RUNTIME_sequence_create( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence )
{
- sequence->schedopt = (void*)QUARK_Sequence_Create((Quark*)(morse->schedopt));
+ sequence->schedopt = (void*)QUARK_Sequence_Create((Quark*)(chamctxt->schedopt));
if (sequence->schedopt == NULL) {
- morse_error("CHAMELEON_Sequence_Create", "QUARK_Sequence_Create() failed");
+ chameleon_error("CHAMELEON_Sequence_Create", "QUARK_Sequence_Create() failed");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
sequence->status = CHAMELEON_SUCCESS;
@@ -40,10 +40,10 @@ int RUNTIME_sequence_create( CHAM_context_t *morse,
/**
* Destroy a sequence
*/
-int RUNTIME_sequence_destroy( CHAM_context_t *morse,
+int RUNTIME_sequence_destroy( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence )
{
- QUARK_Sequence_Destroy( (Quark*)(morse->schedopt),
+ QUARK_Sequence_Destroy( (Quark*)(chamctxt->schedopt),
(Quark_Sequence *)(sequence->schedopt) );
return CHAMELEON_SUCCESS;
}
@@ -51,10 +51,10 @@ int RUNTIME_sequence_destroy( CHAM_context_t *morse,
/**
* Wait for the completion of a sequence
*/
-int RUNTIME_sequence_wait( CHAM_context_t *morse,
+int RUNTIME_sequence_wait( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence )
{
- QUARK_Sequence_Wait( (Quark*)(morse->schedopt),
+ QUARK_Sequence_Wait( (Quark*)(chamctxt->schedopt),
(Quark_Sequence *)(sequence->schedopt) );
return CHAMELEON_SUCCESS;
}
@@ -62,7 +62,7 @@ int RUNTIME_sequence_wait( CHAM_context_t *morse,
/**
* Terminate a sequence
*/
-void RUNTIME_sequence_flush( CHAM_context_t *morse,
+void RUNTIME_sequence_flush( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence,
RUNTIME_request_t *request,
int status )
@@ -70,6 +70,6 @@ void RUNTIME_sequence_flush( CHAM_context_t *morse,
sequence->request = request;
sequence->status = status;
request->status = status;
- QUARK_Sequence_Cancel( (Quark*)(morse),
+ QUARK_Sequence_Cancel( (Quark*)(chamctxt),
(Quark_Sequence *)(sequence->schedopt) );
}
diff --git a/runtime/quark/control/runtime_context.c b/runtime/quark/control/runtime_context.c
index 920ebfb5b..e6c387af6 100644
--- a/runtime/quark/control/runtime_context.c
+++ b/runtime/quark/control/runtime_context.c
@@ -23,9 +23,9 @@
/**
* Create new context
*/
-void RUNTIME_context_create( CHAM_context_t *morse )
+void RUNTIME_context_create( CHAM_context_t *chamctxt )
{
- morse->scheduler = RUNTIME_SCHED_QUARK;
+ chamctxt->scheduler = RUNTIME_SCHED_QUARK;
/* Will require the static initialization if we want to use it in this code */
return;
}
@@ -33,9 +33,9 @@ void RUNTIME_context_create( CHAM_context_t *morse )
/**
* Clean the context
*/
-void RUNTIME_context_destroy( CHAM_context_t *morse )
+void RUNTIME_context_destroy( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
diff --git a/runtime/quark/control/runtime_control.c b/runtime/quark/control/runtime_control.c
index fc39ca56a..d1cb77294 100644
--- a/runtime/quark/control/runtime_control.c
+++ b/runtime/quark/control/runtime_control.c
@@ -24,21 +24,21 @@
/**
*
*/
-int RUNTIME_init( CHAM_context_t *morse,
+int RUNTIME_init( CHAM_context_t *chamctxt,
int ncpus,
int ncudas,
int nthreads_per_worker )
{
int hres = 0;
if ( ncudas > 0 ) {
- morse_warning( "RUNTIME_init_scheduler(quark)", "GPUs are not supported for now");
+ chameleon_warning( "RUNTIME_init_scheduler(quark)", "GPUs are not supported for now");
}
if ( nthreads_per_worker > 0 ) {
- morse_warning( "RUNTIME_init_scheduler(quark)", "Multi-threaded kernels are not supported for now");
+ chameleon_warning( "RUNTIME_init_scheduler(quark)", "Multi-threaded kernels are not supported for now");
}
- morse->schedopt = (void*)QUARK_New( ncpus );
+ chamctxt->schedopt = (void*)QUARK_New( ncpus );
return hres;
}
@@ -46,18 +46,18 @@ int RUNTIME_init( CHAM_context_t *morse,
/**
*
*/
-void RUNTIME_finalize( CHAM_context_t *morse )
+void RUNTIME_finalize( CHAM_context_t *chamctxt )
{
- QUARK_Delete((Quark*)(morse->schedopt));
+ QUARK_Delete((Quark*)(chamctxt->schedopt));
return;
}
/**
* To suspend the processing of new tasks by workers
*/
-void RUNTIME_pause( CHAM_context_t *morse )
+void RUNTIME_pause( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
@@ -65,43 +65,43 @@ void RUNTIME_pause( CHAM_context_t *morse )
* This is the symmetrical call to RUNTIME_pause,
* used to resume the workers polling for new tasks.
*/
-void RUNTIME_resume( CHAM_context_t *morse )
+void RUNTIME_resume( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
/**
* Busy-waiting barrier
*/
-void RUNTIME_barrier( CHAM_context_t *morse )
+void RUNTIME_barrier( CHAM_context_t *chamctxt )
{
- QUARK_Barrier((Quark*)(morse->schedopt));
+ QUARK_Barrier((Quark*)(chamctxt->schedopt));
}
/**
* Display a progress information when executing the tasks
*/
-void RUNTIME_progress( CHAM_context_t *morse )
+void RUNTIME_progress( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
/**
* Thread rank.
*/
-int RUNTIME_thread_rank( CHAM_context_t *morse )
+int RUNTIME_thread_rank( CHAM_context_t *chamctxt )
{
- return QUARK_Thread_Rank((Quark*)(morse->schedopt));
+ return QUARK_Thread_Rank((Quark*)(chamctxt->schedopt));
}
/**
* Number of threads.
*/
-int RUNTIME_thread_size( CHAM_context_t *morse )
+int RUNTIME_thread_size( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
/*
* TODO: should add a function to Quark to get the number of thread from the
* data structure and not from the system function
@@ -112,17 +112,17 @@ int RUNTIME_thread_size( CHAM_context_t *morse )
/**
* The process rank
*/
-int RUNTIME_comm_rank( CHAM_context_t *morse )
+int RUNTIME_comm_rank( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return 0;
}
/**
* This returns the size of the distributed computation
*/
-int RUNTIME_comm_size( CHAM_context_t *morse )
+int RUNTIME_comm_size( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return 1;
}
diff --git a/runtime/quark/control/runtime_options.c b/runtime/quark/control/runtime_options.c
index 1f830d5c4..fcdae9343 100644
--- a/runtime/quark/control/runtime_options.c
+++ b/runtime/quark/control/runtime_options.c
@@ -21,7 +21,7 @@
#include <stdlib.h>
#include "chameleon_quark.h"
-void RUNTIME_options_init( RUNTIME_option_t *options, CHAM_context_t *morse,
+void RUNTIME_options_init( RUNTIME_option_t *options, CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
/* Create the task flag */
@@ -46,7 +46,7 @@ void RUNTIME_options_init( RUNTIME_option_t *options, CHAM_context_t *morse,
options->ws_host = NULL;
/* quark in options */
- qopt->quark = (Quark*)(morse->schedopt);
+ qopt->quark = (Quark*)(chamctxt->schedopt);
options->schedopt = qopt;
QUARK_Task_Flag_Set((Quark_Task_Flags*)qopt, TASK_SEQUENCE, (intptr_t)(sequence->schedopt));
@@ -54,11 +54,11 @@ void RUNTIME_options_init( RUNTIME_option_t *options, CHAM_context_t *morse,
return;
}
-void RUNTIME_options_finalize( RUNTIME_option_t *options, CHAM_context_t *morse )
+void RUNTIME_options_finalize( RUNTIME_option_t *options, CHAM_context_t *chamctxt )
{
/* we can free the task_flags without waiting for quark
because they should have been copied for every task */
- (void)morse;
+ (void)chamctxt;
free( options->schedopt );
return;
}
diff --git a/runtime/quark/control/runtime_profiling.c b/runtime/quark/control/runtime_profiling.c
index 446e97e5e..55400cd19 100644
--- a/runtime/quark/control/runtime_profiling.c
+++ b/runtime/quark/control/runtime_profiling.c
@@ -26,44 +26,44 @@ double RUNTIME_get_time(){
void RUNTIME_start_profiling()
{
- morse_warning("RUNTIME_start_profiling()", "FxT profiling is not available with Quark\n");
+ chameleon_warning("RUNTIME_start_profiling()", "FxT profiling is not available with Quark\n");
}
void RUNTIME_stop_profiling()
{
- morse_warning("RUNTIME_stop_profiling()", "FxT profiling is not available with Quark\n");
+ chameleon_warning("RUNTIME_stop_profiling()", "FxT profiling is not available with Quark\n");
}
void RUNTIME_start_stats()
{
- morse_warning("RUNTIME_start_stats()", "pruning stats are not available with Quark\n");
+ chameleon_warning("RUNTIME_start_stats()", "pruning stats are not available with Quark\n");
}
void RUNTIME_stop_stats()
{
- morse_warning("RUNTIME_stop_stats()", "pruning stats are not available with Quark\n");
+ chameleon_warning("RUNTIME_stop_stats()", "pruning stats are not available with Quark\n");
}
void RUNTIME_schedprofile_display(void)
{
- morse_warning("RUNTIME_schedprofile_display(quark)", "Scheduler profiling is not available with Quark\n");
+ chameleon_warning("RUNTIME_schedprofile_display(quark)", "Scheduler profiling is not available with Quark\n");
}
void RUNTIME_kernelprofile_display(void)
{
- morse_warning("RUNTIME_kernelprofile_display(quark)", "Kernel profiling is not available with Quark\n");
+ chameleon_warning("RUNTIME_kernelprofile_display(quark)", "Kernel profiling is not available with Quark\n");
}
/**
* Set iteration numbers for traces
*/
-void RUNTIME_iteration_push( CHAM_context_t *morse, unsigned long iteration )
+void RUNTIME_iteration_push( CHAM_context_t *chamctxt, unsigned long iteration )
{
- (void)morse; (void)iteration;
+ (void)chamctxt; (void)iteration;
return;
}
-void RUNTIME_iteration_pop( CHAM_context_t *morse )
+void RUNTIME_iteration_pop( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return;
}
diff --git a/runtime/quark/control/runtime_zlocality.c b/runtime/quark/control/runtime_zlocality.c
index f081a462e..dc93451d0 100644
--- a/runtime/quark/control/runtime_zlocality.c
+++ b/runtime/quark/control/runtime_zlocality.c
@@ -22,23 +22,23 @@
void RUNTIME_zlocality_allrestrict( uint32_t where )
{
(void)where;
- morse_warning("RUNTIME_zlocality_allrestrict(quark)", "Kernel locality cannot be specified with Quark");
+ chameleon_warning("RUNTIME_zlocality_allrestrict(quark)", "Kernel locality cannot be specified with Quark");
}
void RUNTIME_zlocality_onerestrict( cham_tasktype_t kernel, uint32_t where )
{
(void)kernel;
(void)where;
- morse_warning("RUNTIME_zlocality_onerestrict(quark)", "Kernel locality cannot be specified with Quark");
+ chameleon_warning("RUNTIME_zlocality_onerestrict(quark)", "Kernel locality cannot be specified with Quark");
}
void RUNTIME_zlocality_allrestore( )
{
- morse_warning("RUNTIME_zlocality_allrestore(quark)", "Kernel locality cannot be specified with Quark");
+ chameleon_warning("RUNTIME_zlocality_allrestore(quark)", "Kernel locality cannot be specified with Quark");
}
void RUNTIME_zlocality_onerestore( cham_tasktype_t kernel )
{
(void)kernel;
- morse_warning("RUNTIME_zlocality_onerestore(quark)", "Kernel locality cannot be specified with Quark");
+ chameleon_warning("RUNTIME_zlocality_onerestore(quark)", "Kernel locality cannot be specified with Quark");
}
diff --git a/runtime/quark/control/runtime_zprofiling.c b/runtime/quark/control/runtime_zprofiling.c
index a14c7a4ab..d3d5e2e0e 100644
--- a/runtime/quark/control/runtime_zprofiling.c
+++ b/runtime/quark/control/runtime_zprofiling.c
@@ -23,12 +23,12 @@
void RUNTIME_zdisplay_allprofile()
{
- morse_warning("RUNTIME_zdisplay_allprofile(quark)", "Profiling is not available with Quark");
+ chameleon_warning("RUNTIME_zdisplay_allprofile(quark)", "Profiling is not available with Quark");
}
void RUNTIME_zdisplay_oneprofile( cham_tasktype_t kernel )
{
(void)kernel;
- morse_warning("RUNTIME_zdisplay_oneprofile(quark)", "Profiling is not available with Quark\n");
+ chameleon_warning("RUNTIME_zdisplay_oneprofile(quark)", "Profiling is not available with Quark\n");
}
diff --git a/runtime/starpu/codelets/codelet_zlag2c.c b/runtime/starpu/codelets/codelet_zlag2c.c
index 79c9206da..16b25e4ef 100644
--- a/runtime/starpu/codelets/codelet_zlag2c.c
+++ b/runtime/starpu/codelets/codelet_zlag2c.c
@@ -85,8 +85,8 @@ void INSERT_TASK_clag2z(const RUNTIME_option_t *options,
struct starpu_codelet *codelet = &cl_clag2z;
void (*callback)(void*) = options->profiling ? cl_clag2z_callback : NULL;
- if ( morse_desc_islocal( A, Am, An ) ||
- morse_desc_islocal( B, Bm, Bn ) )
+ if ( chameleon_desc_islocal( A, Am, An ) ||
+ chameleon_desc_islocal( B, Bm, Bn ) )
{
starpu_insert_task(
starpu_mpi_codelet(codelet),
diff --git a/runtime/starpu/codelets/codelet_zlange.c b/runtime/starpu/codelets/codelet_zlange.c
index dfda4dbd2..db2b10af6 100644
--- a/runtime/starpu/codelets/codelet_zlange.c
+++ b/runtime/starpu/codelets/codelet_zlange.c
@@ -86,8 +86,8 @@ void INSERT_TASK_zlange_max(const RUNTIME_option_t *options,
struct starpu_codelet *codelet = &cl_zlange_max;
void (*callback)(void*) = options->profiling ? cl_zlange_callback : NULL;
- if ( morse_desc_islocal( A, Am, An ) ||
- morse_desc_islocal( B, Bm, Bn ) )
+ if ( chameleon_desc_islocal( A, Am, An ) ||
+ chameleon_desc_islocal( B, Bm, Bn ) )
{
starpu_insert_task(
starpu_mpi_codelet(codelet),
diff --git a/runtime/starpu/codelets/codelet_zplssq.c b/runtime/starpu/codelets/codelet_zplssq.c
index f3183b77d..847004cc9 100644
--- a/runtime/starpu/codelets/codelet_zplssq.c
+++ b/runtime/starpu/codelets/codelet_zplssq.c
@@ -110,7 +110,7 @@ void INSERT_TASK_zplssq2( const RUNTIME_option_t *options,
struct starpu_codelet *codelet = &cl_zplssq2;
void (*callback)(void*) = options->profiling ? cl_zplssq2_callback : NULL;
- if ( morse_desc_islocal( RESULT, RESULTm, RESULTn ) ) {
+ if ( chameleon_desc_islocal( RESULT, RESULTm, RESULTn ) ) {
starpu_insert_task(
starpu_mpi_codelet(codelet),
STARPU_RW, RTBLKADDR(RESULT, double, RESULTm, RESULTn),
diff --git a/runtime/starpu/control/runtime_async.c b/runtime/starpu/control/runtime_async.c
index 8b423836d..c1b776c63 100644
--- a/runtime/starpu/control/runtime_async.c
+++ b/runtime/starpu/control/runtime_async.c
@@ -23,10 +23,10 @@
/**
* Create a sequence
*/
-int RUNTIME_sequence_create( CHAM_context_t *morse,
+int RUNTIME_sequence_create( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence )
{
- (void)morse;
+ (void)chamctxt;
(void)sequence;
return CHAMELEON_SUCCESS;
}
@@ -34,10 +34,10 @@ int RUNTIME_sequence_create( CHAM_context_t *morse,
/**
* Destroy a sequence
*/
-int RUNTIME_sequence_destroy( CHAM_context_t *morse,
+int RUNTIME_sequence_destroy( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence )
{
- (void)morse;
+ (void)chamctxt;
(void)sequence;
return CHAMELEON_SUCCESS;
}
@@ -45,14 +45,14 @@ int RUNTIME_sequence_destroy( CHAM_context_t *morse,
/**
* Wait for the completion of a sequence
*/
-int RUNTIME_sequence_wait( CHAM_context_t *morse,
+int RUNTIME_sequence_wait( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence )
{
- (void)morse;
+ (void)chamctxt;
(void)sequence;
- if (morse->progress_enabled) {
- RUNTIME_progress(morse);
+ if (chamctxt->progress_enabled) {
+ RUNTIME_progress(chamctxt);
}
starpu_task_wait_for_all();
@@ -65,12 +65,12 @@ int RUNTIME_sequence_wait( CHAM_context_t *morse,
/**
* Terminate a sequence
*/
-void RUNTIME_sequence_flush( CHAM_context_t *morse,
+void RUNTIME_sequence_flush( CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence,
RUNTIME_request_t *request,
int status )
{
- (void)morse;
+ (void)chamctxt;
sequence->request = request;
sequence->status = status;
request->status = status;
diff --git a/runtime/starpu/control/runtime_context.c b/runtime/starpu/control/runtime_context.c
index c82ed18ff..128841d2d 100644
--- a/runtime/starpu/control/runtime_context.c
+++ b/runtime/starpu/control/runtime_context.c
@@ -35,20 +35,20 @@ int _starpu_is_initialized(void);
/**
* Create new context
*/
-void RUNTIME_context_create( CHAM_context_t *morse )
+void RUNTIME_context_create( CHAM_context_t *chamctxt )
{
starpu_conf_t *conf;
- morse->scheduler = RUNTIME_SCHED_STARPU;
+ chamctxt->scheduler = RUNTIME_SCHED_STARPU;
if (! starpu_is_initialized() ) {
- morse->schedopt = (void*) malloc (sizeof(struct starpu_conf));
- conf = morse->schedopt;
+ chamctxt->schedopt = (void*) malloc (sizeof(struct starpu_conf));
+ conf = chamctxt->schedopt;
starpu_conf_init( conf );
}
else {
- morse->schedopt = NULL;
+ chamctxt->schedopt = NULL;
}
return;
@@ -57,11 +57,11 @@ void RUNTIME_context_create( CHAM_context_t *morse )
/**
* Clean the context
*/
-void RUNTIME_context_destroy( CHAM_context_t *morse )
+void RUNTIME_context_destroy( CHAM_context_t *chamctxt )
{
/* StarPU was already initialized by an external library */
- if (morse->schedopt) {
- free(morse->schedopt);
+ if (chamctxt->schedopt) {
+ free(chamctxt->schedopt);
}
return;
}
diff --git a/runtime/starpu/control/runtime_control.c b/runtime/starpu/control/runtime_control.c
index 83d77de80..fac25fc0a 100644
--- a/runtime/starpu/control/runtime_control.c
+++ b/runtime/starpu/control/runtime_control.c
@@ -25,12 +25,12 @@
/**
*
*/
-int RUNTIME_init( CHAM_context_t *morse,
+int RUNTIME_init( CHAM_context_t *chamctxt,
int ncpus,
int ncudas,
int nthreads_per_worker )
{
- starpu_conf_t *conf = (starpu_conf_t*)(morse->schedopt);
+ starpu_conf_t *conf = (starpu_conf_t*)(chamctxt->schedopt);
int hres = -1;
/* StarPU was already initialized by an external library */
@@ -64,14 +64,14 @@ int RUNTIME_init( CHAM_context_t *morse,
if ((ncpus == -1)||(nthreads_per_worker == -1))
{
- morse->parallel_enabled = CHAMELEON_FALSE;
+ chamctxt->parallel_enabled = CHAMELEON_FALSE;
hres = starpu_init( conf );
}
else {
int worker;
- morse->parallel_enabled = CHAMELEON_TRUE;
+ chamctxt->parallel_enabled = CHAMELEON_TRUE;
for (worker = 0; worker < ncpus; worker++)
conf->workers_bindid[worker] = (worker+1)*nthreads_per_worker - 1;
@@ -83,8 +83,8 @@ int RUNTIME_init( CHAM_context_t *morse,
hres = starpu_init( conf );
- morse->nworkers = ncpus;
- morse->nthreads_per_worker = nthreads_per_worker;
+ chamctxt->nworkers = ncpus;
+ chamctxt->nthreads_per_worker = nthreads_per_worker;
}
#ifdef HAVE_STARPU_MALLOC_ON_NODE_SET_DEFAULT_FLAGS
@@ -115,12 +115,12 @@ int RUNTIME_init( CHAM_context_t *morse,
/**
*
*/
-void RUNTIME_finalize( CHAM_context_t *morse )
+void RUNTIME_finalize( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
/* StarPU was already initialized by an external library */
- if ( morse->schedopt == NULL ) {
+ if ( chamctxt->schedopt == NULL ) {
return;
}
@@ -139,9 +139,9 @@ void RUNTIME_finalize( CHAM_context_t *morse )
/**
* To suspend the processing of new tasks by workers
*/
-void RUNTIME_pause( CHAM_context_t *morse )
+void RUNTIME_pause( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
starpu_pause();
return;
}
@@ -150,9 +150,9 @@ void RUNTIME_pause( CHAM_context_t *morse )
* This is the symmetrical call to RUNTIME_pause,
* used to resume the workers polling for new tasks.
*/
-void RUNTIME_resume( CHAM_context_t *morse )
+void RUNTIME_resume( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
starpu_resume();
return;
}
@@ -160,9 +160,9 @@ void RUNTIME_resume( CHAM_context_t *morse )
/**
* Busy-waiting barrier
*/
-void RUNTIME_barrier( CHAM_context_t *morse )
+void RUNTIME_barrier( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
starpu_task_wait_for_all();
#if defined(CHAMELEON_USE_MPI)
starpu_mpi_barrier(MPI_COMM_WORLD);
@@ -178,13 +178,13 @@ extern void (*update_progress_callback)(int, int);
/**
* Display a progress information when executing the tasks
*/
-void RUNTIME_progress( CHAM_context_t *morse )
+void RUNTIME_progress( CHAM_context_t *chamctxt )
{
int tasksLeft, current, timer = 0;
int max;
#if defined(CHAMELEON_USE_MPI)
- if ( morse->my_mpi_rank != 0 ) {
+ if ( chamctxt->my_mpi_rank != 0 ) {
return;
}
#endif
@@ -207,32 +207,32 @@ void RUNTIME_progress( CHAM_context_t *morse )
update_progress_callback(max, max);
}
- (void)morse;
+ (void)chamctxt;
return;
}
/**
* Thread rank.
*/
-int RUNTIME_thread_rank( CHAM_context_t *morse )
+int RUNTIME_thread_rank( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return starpu_worker_get_id();
}
/**
* Number of threads.
*/
-int RUNTIME_thread_size( CHAM_context_t *morse )
+int RUNTIME_thread_size( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
return starpu_worker_get_count_by_type( STARPU_CPU_WORKER );
}
/**
* The process rank
*/
-int RUNTIME_comm_rank( CHAM_context_t *morse )
+int RUNTIME_comm_rank( CHAM_context_t *chamctxt )
{
int rank = 0;
@@ -244,14 +244,14 @@ int RUNTIME_comm_rank( CHAM_context_t *morse )
# endif
#endif
- (void)morse;
+ (void)chamctxt;
return rank;
}
/**
* This returns the size of the distributed computation
*/
-int RUNTIME_comm_size( CHAM_context_t *morse )
+int RUNTIME_comm_size( CHAM_context_t *chamctxt )
{
int size;
#if defined(CHAMELEON_USE_MPI)
@@ -264,6 +264,6 @@ int RUNTIME_comm_size( CHAM_context_t *morse )
size = 1;
#endif
- (void)morse;
+ (void)chamctxt;
return size;
}
diff --git a/runtime/starpu/control/runtime_descriptor.c b/runtime/starpu/control/runtime_descriptor.c
index e0fbf7469..60c368432 100644
--- a/runtime/starpu/control/runtime_descriptor.c
+++ b/runtime/starpu/control/runtime_descriptor.c
@@ -56,7 +56,7 @@ chameleon_starpu_tag_init( int user_tag_width,
#endif
if ( !ok ) {
- morse_error("RUNTIME_desc_create", "MPI_TAG_UB not known by StarPU");
+ chameleon_error("RUNTIME_desc_create", "MPI_TAG_UB not known by StarPU");
}
while ( ((uintptr_t)((1UL<<tag_width) - 1) > tag_ub ) &&
@@ -67,7 +67,7 @@ chameleon_starpu_tag_init( int user_tag_width,
}
if ( tag_width < TAG_WIDTH_MIN ) {
- morse_error("RUNTIME_desc_create", "MPI_TAG_UB too small to identify all the data");
+ chameleon_error("RUNTIME_desc_create", "MPI_TAG_UB too small to identify all the data");
return CHAMELEON_ERR_OUT_OF_RESOURCES;
}
@@ -97,7 +97,7 @@ void RUNTIME_comm_set_tag_sizes( int user_tag_width,
int rc;
rc = chameleon_starpu_tag_init( user_tag_width, user_tag_sep );
if ( rc != CHAMELEON_SUCCESS ) {
- morse_error("RUNTIME_user_tag_size",
+ chameleon_error("RUNTIME_user_tag_size",
"must be called before creating any Cham descriptor with CHAMELEON_Desc_create(). The tag sizes will not be modified.");
}
#endif
@@ -171,7 +171,7 @@ void RUNTIME_desc_create( CHAM_desc_t *desc )
{
/* Disable the unregister as register failed */
desc->register_mat = 0;
- morse_warning("RUNTIME_desc_create(StarPU): cudaHostRegister - ", cudaGetErrorString( rc ));
+ chameleon_warning("RUNTIME_desc_create(StarPU): cudaHostRegister - ", cudaGetErrorString( rc ));
}
}
#endif
@@ -187,7 +187,7 @@ void RUNTIME_desc_create( CHAM_desc_t *desc )
((desc->mb * lastnn * eltsze) % pagesize != 0) ||
((lastmm * lastnn * eltsze) % pagesize != 0) )
{
- morse_error("RUNTIME_desc_create", "Matrix and tile size not suitable for out-of-core: all tiles have to be multiples of 4096. Tip : choose 'n' and 'nb' as both multiples of 32.");
+ chameleon_error("RUNTIME_desc_create", "Matrix and tile size not suitable for out-of-core: all tiles have to be multiples of 4096. Tip : choose 'n' and 'nb' as both multiples of 32.");
return;
}
}
@@ -201,13 +201,13 @@ void RUNTIME_desc_create( CHAM_desc_t *desc )
/* Check that we won't create overflow in tags used */
if ( ((uintptr_t)(lnt*lmt)) > ((uintptr_t)(1UL<<tag_sep)) ) {
- morse_fatal_error("RUNTIME_desc_create", "Too many tiles in the descriptor for MPI tags");
+ chameleon_fatal_error("RUNTIME_desc_create", "Too many tiles in the descriptor for MPI tags");
return;
}
assert(lmt*lmt<=(1<<tag_sep));
if ( ((uintptr_t)desc->id) >= (uintptr_t)(1UL<<(tag_width-tag_sep)) ) {
- morse_fatal_error("RUNTIME_desc_create", "Number of descriptor available in MPI mode out of stock");
+ chameleon_fatal_error("RUNTIME_desc_create", "Number of descriptor available in MPI mode out of stock");
return;
}
assert( ((uintptr_t)desc->id) < (uintptr_t)(1UL<<(tag_width-tag_sep)) );
@@ -251,7 +251,7 @@ void RUNTIME_desc_destroy( CHAM_desc_t *desc )
/* Unmap the pinned memory associated to the matrix */
if (cudaHostUnregister(desc->mat) != cudaSuccess)
{
- morse_warning("RUNTIME_desc_destroy(StarPU)",
+ chameleon_warning("RUNTIME_desc_destroy(StarPU)",
"cudaHostUnregister failed to unregister the "
"pinned memory associated to the matrix");
}
@@ -276,7 +276,7 @@ int RUNTIME_desc_acquire( const CHAM_desc_t *desc )
for (m = 0; m < lmt; m++)
{
if ( (*handle == NULL) ||
- !morse_desc_islocal( desc, m, n ) )
+ !chameleon_desc_islocal( desc, m, n ) )
{
handle++;
continue;
@@ -302,7 +302,7 @@ int RUNTIME_desc_release( const CHAM_desc_t *desc )
for (m = 0; m < lmt; m++)
{
if ( (*handle == NULL) ||
- !morse_desc_islocal( desc, m, n ) )
+ !chameleon_desc_islocal( desc, m, n ) )
{
handle++;
continue;
@@ -378,7 +378,7 @@ void RUNTIME_desc_flush( const CHAM_desc_t *desc,
#if defined(CHAMELEON_USE_MPI)
starpu_mpi_cache_flush( MPI_COMM_WORLD, *handle );
#endif
- if ( morse_desc_islocal( desc, m, n ) ) {
+ if ( chameleon_desc_islocal( desc, m, n ) ) {
chameleon_starpu_data_wont_use( *handle );
}
}
@@ -404,7 +404,7 @@ void RUNTIME_data_flush( const RUNTIME_sequence_t *sequence,
starpu_mpi_cache_flush( MPI_COMM_WORLD, *handle );
#endif
- if ( morse_desc_islocal( A, m, n ) ) {
+ if ( chameleon_desc_islocal( A, m, n ) ) {
chameleon_starpu_data_wont_use( *handle );
}
diff --git a/runtime/starpu/control/runtime_options.c b/runtime/starpu/control/runtime_options.c
index 9fbf36435..19d7689ba 100644
--- a/runtime/starpu/control/runtime_options.c
+++ b/runtime/starpu/control/runtime_options.c
@@ -22,7 +22,7 @@
#include <stdlib.h>
#include "chameleon_starpu.h"
-void RUNTIME_options_init( RUNTIME_option_t *option, CHAM_context_t *morse,
+void RUNTIME_options_init( RUNTIME_option_t *option, CHAM_context_t *chamctxt,
RUNTIME_sequence_t *sequence, RUNTIME_request_t *request )
{
option->sequence = sequence;
@@ -37,10 +37,10 @@ void RUNTIME_options_init( RUNTIME_option_t *option, CHAM_context_t *morse,
return;
}
-void RUNTIME_options_finalize( RUNTIME_option_t *option, CHAM_context_t *morse )
+void RUNTIME_options_finalize( RUNTIME_option_t *option, CHAM_context_t *chamctxt )
{
(void)option;
- (void)morse;
+ (void)chamctxt;
return;
}
diff --git a/runtime/starpu/control/runtime_profiling.c b/runtime/starpu/control/runtime_profiling.c
index 7e2993165..7c5f5b9c5 100644
--- a/runtime/starpu/control/runtime_profiling.c
+++ b/runtime/starpu/control/runtime_profiling.c
@@ -38,17 +38,17 @@ double RUNTIME_get_time(){
/**
* Set iteration numbers for traces
*/
-void RUNTIME_iteration_push( CHAM_context_t *morse, unsigned long iteration )
+void RUNTIME_iteration_push( CHAM_context_t *chamctxt, unsigned long iteration )
{
- (void)morse;
+ (void)chamctxt;
#if defined(HAVE_STARPU_ITERATION_PUSH)
starpu_iteration_push(iteration);
#endif
}
-void RUNTIME_iteration_pop( CHAM_context_t *morse )
+void RUNTIME_iteration_pop( CHAM_context_t *chamctxt )
{
- (void)morse;
+ (void)chamctxt;
#if defined(HAVE_STARPU_ITERATION_PUSH)
starpu_iteration_pop();
#endif
diff --git a/runtime/starpu/control/runtime_workspace.c b/runtime/starpu/control/runtime_workspace.c
index c463dcf12..35695a0e4 100644
--- a/runtime/starpu/control/runtime_workspace.c
+++ b/runtime/starpu/control/runtime_workspace.c
@@ -21,7 +21,7 @@
static void RUNTIME_allocate_workspace_on_workers(void *arg)
{
- struct morse_starpu_ws_s *workspace = arg;
+ struct chameleon_starpu_ws_s *workspace = arg;
enum starpu_worker_archtype type = 0;
(void)type;
@@ -59,7 +59,7 @@ static void RUNTIME_allocate_workspace_on_workers(void *arg)
static void RUNTIME_free_workspace_on_workers(void *arg)
{
- struct morse_starpu_ws_s *workspace = arg;
+ struct chameleon_starpu_ws_s *workspace = arg;
enum starpu_worker_archtype type = 0;
(void)type;
int id = starpu_worker_get_id();
@@ -100,7 +100,7 @@ int RUNTIME_starpu_ws_alloc(CHAMELEON_starpu_ws_t **workspace,
if (!workspace)
return -EINVAL;
- struct morse_starpu_ws_s *descr = calloc(1, sizeof(struct morse_starpu_ws_s));
+ struct chameleon_starpu_ws_s *descr = calloc(1, sizeof(struct chameleon_starpu_ws_s));
*workspace = descr;
@@ -130,7 +130,7 @@ int RUNTIME_starpu_ws_free(CHAMELEON_starpu_ws_t *workspace)
void *RUNTIME_starpu_ws_getlocal(CHAMELEON_starpu_ws_t *workspace)
{
- struct morse_starpu_ws_s *descr = workspace;
+ struct chameleon_starpu_ws_s *descr = workspace;
int id = starpu_worker_get_id();
return descr->workspaces[id];
}
diff --git a/runtime/starpu/include/chameleon_starpu.h.in b/runtime/starpu/include/chameleon_starpu.h.in
index e92aecf9d..27d220f4b 100644
--- a/runtime/starpu/include/chameleon_starpu.h.in
+++ b/runtime/starpu/include/chameleon_starpu.h.in
@@ -135,7 +135,7 @@ chameleon_starpu_data_iscached(const CHAM_desc_t *A, int m, int n)
}
#define RUNTIME_ACCESS_WRITE_CACHED(A, Am, An) do { \
- if (chameleon_starpu_data_iscached(A, Am, An)) __morse_need_submit = 1; } while(0)
+ if (chameleon_starpu_data_iscached(A, Am, An)) __chameleon_need_submit = 1; } while(0)
#else
@@ -147,27 +147,27 @@ chameleon_starpu_data_iscached(const CHAM_desc_t *A, int m, int n)
#ifdef CHAMELEON_ENABLE_PRUNING_STATS
#define RUNTIME_PRUNING_STATS_BEGIN_ACCESS_DECLARATION \
- int __morse_exec = 0; \
- int __morse_changed = 0;
+ int __chameleon_exec = 0; \
+ int __chameleon_changed = 0;
#define RUNTIME_PRUNING_STATS_ACCESS_W(A, Am, An) \
- if (morse_desc_islocal(A, Am, An)) \
- __morse_exec = 1;
+ if (chameleon_desc_islocal(A, Am, An)) \
+ __chameleon_exec = 1;
#define RUNTIME_PRUNING_STATS_END_ACCESS_DECLARATION \
RUNTIME_total_tasks++; \
- if (__morse_exec) \
+ if (__chameleon_exec) \
RUNTIME_exec_tasks++; \
- else if (__morse_need_submit) \
+ else if (__chameleon_need_submit) \
RUNTIME_comm_tasks++; \
- else if (__morse_changed) \
+ else if (__chameleon_changed) \
RUNTIME_changed_tasks++;
#define RUNTIME_PRUNING_STATS_RANK_CHANGED(rank) \
- int __morse_myrank; \
- RUNTIME_comm_rank(&__morse_myrank); \
- __morse_exec = (rank) == __morse_myrank; \
- __morse_changed = 1; \
+ int __chameleon_myrank; \
+ RUNTIME_comm_rank(&__chameleon_myrank); \
+ __chameleon_exec = (rank) == __chameleon_myrank; \
+ __chameleon_changed = 1; \
#else
#define RUNTIME_PRUNING_STATS_BEGIN_ACCESS_DECLARATION
diff --git a/runtime/starpu/include/runtime_workspace.h b/runtime/starpu/include/runtime_workspace.h
index 8778f63ef..418e7324e 100644
--- a/runtime/starpu/include/runtime_workspace.h
+++ b/runtime/starpu/include/runtime_workspace.h
@@ -27,14 +27,14 @@
#define CHAMELEON_HOST_MEM 0
#define CHAMELEON_WORKER_MEM 1
-struct morse_starpu_ws_s {
+struct chameleon_starpu_ws_s {
size_t size;
int memory_location;
int which_workers;
void *workspaces[STARPU_NMAXWORKERS];
};
-typedef struct morse_starpu_ws_s CHAMELEON_starpu_ws_t;
+typedef struct chameleon_starpu_ws_s CHAMELEON_starpu_ws_t;
/*
* This function creates a workspace on each type of worker in "which_workers"
diff --git a/testing/CMakeLists.txt b/testing/CMakeLists.txt
index 97d0a993f..df43187fe 100644
--- a/testing/CMakeLists.txt
+++ b/testing/CMakeLists.txt
@@ -32,7 +32,7 @@ endif()
# ------------------------
#add_subdirectory(lin)
-# Generate morse auxiliary testing sources for all possible precisions
+# Generate chameleon auxiliary testing sources for all possible precisions
# --------------------------------------------------------------------
set(TESTING_HDRS_GENERATED "")
set(ZHDR
@@ -45,7 +45,7 @@ precisions_rules_py(TESTING_HDRS_GENERATED "${ZHDR}"
add_custom_target(testing_include ALL SOURCES ${TESTING_HDRS_GENERATED})
set(CHAMELEON_SOURCES_TARGETS "${CHAMELEON_SOURCES_TARGETS};testing_include" CACHE INTERNAL "List of targets of sources")
-# Generate morse testing sources for all possible precisions
+# Generate chameleon testing sources for all possible precisions
# ----------------------------------------------------------
set(ZSRC
testing_zauxiliary.c
diff --git a/testing/chameleon_testing.py b/testing/chameleon_testing.py
index 94cd149b7..430c6cda9 100755
--- a/testing/chameleon_testing.py
+++ b/testing/chameleon_testing.py
@@ -3,12 +3,12 @@
###############################################################################
-# morse_testing.py [nbcores]
+# chameleon_testing.py [nbcores]
# nbcores is a optional argument to give the number of cores to run the testing
# Example:
-# ./morse_testing.py
+# ./chameleon_testing.py
# No argument, so will run on half of the core if the machine has more than 2 cores
-# ./morse_testing.py nbcores
+# ./chameleon_testing.py nbcores
# Will run on nbcores
###############################################################################
diff --git a/testing/lin/CMakeLists.txt b/testing/lin/CMakeLists.txt
index 704c0b462..e8f05f7c7 100644
--- a/testing/lin/CMakeLists.txt
+++ b/testing/lin/CMakeLists.txt
@@ -163,48 +163,48 @@ list(APPEND libs_for_tests ${CMAKE_Fortran_LDFLAGS})
# Define precisions to compile
# ----------------------------
if(CHAMELEON_PREC_S)
- add_executable(morse_xlintsts ${ALINTST} ${SLINTST} ${SCLNTST})
- set_property(TARGET morse_xlintsts PROPERTY LINKER_LANGUAGE Fortran)
- target_link_libraries(morse_xlintsts ${libs_for_tests})
- install(TARGETS morse_xlintsts
+ add_executable(chameleon_xlintsts ${ALINTST} ${SLINTST} ${SCLNTST})
+ set_property(TARGET chameleon_xlintsts PROPERTY LINKER_LANGUAGE Fortran)
+ target_link_libraries(chameleon_xlintsts ${libs_for_tests})
+ install(TARGETS chameleon_xlintsts
DESTINATION bin/testing/lin)
endif()
if(CHAMELEON_PREC_S)
- add_executable(morse_xlintstd ${ALINTST} ${DLINTST} ${DZLNTST})
- set_property(TARGET morse_xlintstd PROPERTY LINKER_LANGUAGE Fortran)
- target_link_libraries(morse_xlintstd ${libs_for_tests})
- install(TARGETS morse_xlintstd
+ add_executable(chameleon_xlintstd ${ALINTST} ${DLINTST} ${DZLNTST})
+ set_property(TARGET chameleon_xlintstd PROPERTY LINKER_LANGUAGE Fortran)
+ target_link_libraries(chameleon_xlintstd ${libs_for_tests})
+ install(TARGETS chameleon_xlintstd
DESTINATION bin/testing/lin)
endif()
if(CHAMELEON_PREC_C)
- add_executable(morse_xlintstc ${ALINTST} ${CLINTST} ${SCLNTST})
- set_property(TARGET morse_xlintstc PROPERTY LINKER_LANGUAGE Fortran)
- target_link_libraries(morse_xlintstc ${libs_for_tests})
- install(TARGETS morse_xlintstc
+ add_executable(chameleon_xlintstc ${ALINTST} ${CLINTST} ${SCLNTST})
+ set_property(TARGET chameleon_xlintstc PROPERTY LINKER_LANGUAGE Fortran)
+ target_link_libraries(chameleon_xlintstc ${libs_for_tests})
+ install(TARGETS chameleon_xlintstc
DESTINATION bin/testing/lin)
endif()
if(CHAMELEON_PREC_Z)
- add_executable(morse_xlintstz ${ALINTST} ${ZLINTST} ${DZLNTST})
- set_property(TARGET morse_xlintstz PROPERTY LINKER_LANGUAGE Fortran)
- target_link_libraries(morse_xlintstz ${libs_for_tests})
- install(TARGETS morse_xlintstz
+ add_executable(chameleon_xlintstz ${ALINTST} ${ZLINTST} ${DZLNTST})
+ set_property(TARGET chameleon_xlintstz PROPERTY LINKER_LANGUAGE Fortran)
+ target_link_libraries(chameleon_xlintstz ${libs_for_tests})
+ install(TARGETS chameleon_xlintstz
DESTINATION bin/testing/lin)
endif()
# Copy launcher
# -------------
add_custom_target(lin_launcher ALL
- COMMAND ${CMAKE_COMMAND} -E copy ${CMAKE_CURRENT_SOURCE_DIR}/morse_lintesting.py
- ${CMAKE_CURRENT_BINARY_DIR}/morse_lintesting.py)
+ COMMAND ${CMAKE_COMMAND} -E copy ${CMAKE_CURRENT_SOURCE_DIR}/chameleon_lintesting.py
+ ${CMAKE_CURRENT_BINARY_DIR}/chameleon_lintesting.py)
# Add tests (C/CPP)
# -----------------
add_test(NAME lapack_testing
COMMAND ${PYTHON_EXECUTABLE}
- ${CMAKE_CURRENT_BINARY_DIR}/morse_lintesting.py
+ ${CMAKE_CURRENT_BINARY_DIR}/chameleon_lintesting.py
)
###
diff --git a/testing/lin/cchkaa.f b/testing/lin/cchkaa.f
index 9df44cd55..70d0f96b8 100644
--- a/testing/lin/cchkaa.f
+++ b/testing/lin/cchkaa.f
@@ -37,7 +37,7 @@
PROGRAM CCHKAA
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- CHAMELEON test routine (From LAPACK version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cchkge.f b/testing/lin/cchkge.f
index a5dd1759f..2580b5c4a 100644
--- a/testing/lin/cchkge.f
+++ b/testing/lin/cchkge.f
@@ -39,7 +39,7 @@
$ IBVAL, NSVAL, THRESH, TSTERR, NMAX, A, AFAC,
$ AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cchklq.f b/testing/lin/cchklq.f
index cfcb5b969..05248a338 100644
--- a/testing/lin/cchklq.f
+++ b/testing/lin/cchklq.f
@@ -40,7 +40,7 @@
$ AL, AC, B, X, XACT, TAU, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cchkpo.f b/testing/lin/cchkpo.f
index 6b6b4da14..58eafcd92 100644
--- a/testing/lin/cchkpo.f
+++ b/testing/lin/cchkpo.f
@@ -39,7 +39,7 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cchkqr.f b/testing/lin/cchkqr.f
index 0f63d80ae..51a76d0ef 100644
--- a/testing/lin/cchkqr.f
+++ b/testing/lin/cchkqr.f
@@ -40,7 +40,7 @@
$ AR, AC, B, X, XACT, TAU, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cdrvge.f b/testing/lin/cdrvge.f
index 84b5d85f1..27e41df43 100644
--- a/testing/lin/cdrvge.f
+++ b/testing/lin/cdrvge.f
@@ -39,7 +39,7 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cdrvls.f b/testing/lin/cdrvls.f
index ec3ec92f7..546107210 100644
--- a/testing/lin/cdrvls.f
+++ b/testing/lin/cdrvls.f
@@ -40,7 +40,7 @@
$ B, COPYB, C, S, COPYS, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cdrvpo.f b/testing/lin/cdrvpo.f
index cef8ac332..86c95add5 100644
--- a/testing/lin/cdrvpo.f
+++ b/testing/lin/cdrvpo.f
@@ -39,7 +39,7 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cerrge.f b/testing/lin/cerrge.f
index 520f01e48..a2b2aa57e 100644
--- a/testing/lin/cerrge.f
+++ b/testing/lin/cerrge.f
@@ -37,7 +37,7 @@
SUBROUTINE CERRGE( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cerrlq.f b/testing/lin/cerrlq.f
index 09620572e..29feb5a26 100644
--- a/testing/lin/cerrlq.f
+++ b/testing/lin/cerrlq.f
@@ -37,7 +37,7 @@
SUBROUTINE CERRLQ( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cerrls.f b/testing/lin/cerrls.f
index 66274369f..f28de4349 100644
--- a/testing/lin/cerrls.f
+++ b/testing/lin/cerrls.f
@@ -37,7 +37,7 @@
SUBROUTINE CERRLS( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cerrpo.f b/testing/lin/cerrpo.f
index 01c057975..0dad17d36 100644
--- a/testing/lin/cerrpo.f
+++ b/testing/lin/cerrpo.f
@@ -37,7 +37,7 @@
SUBROUTINE CERRPO( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cerrqr.f b/testing/lin/cerrqr.f
index 9518b6ff7..cad6abd23 100644
--- a/testing/lin/cerrqr.f
+++ b/testing/lin/cerrqr.f
@@ -37,7 +37,7 @@
SUBROUTINE CERRQR( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cerrvx.f b/testing/lin/cerrvx.f
index 4f1e693bd..803096470 100644
--- a/testing/lin/cerrvx.f
+++ b/testing/lin/cerrvx.f
@@ -37,7 +37,7 @@
SUBROUTINE CERRVX( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/morse_lintesting.py b/testing/lin/chameleon_lintesting.py
similarity index 93%
rename from testing/lin/morse_lintesting.py
rename to testing/lin/chameleon_lintesting.py
index 47874cc1e..66e351d93 100755
--- a/testing/lin/morse_lintesting.py
+++ b/testing/lin/chameleon_lintesting.py
@@ -28,7 +28,7 @@ for dtype in range(4):
print " "
sys.stdout.flush() # make sure progress of testing is shown
f = open(filename, "a")
- test1 = os.popen("morse_xlintst%s < %stest.in" % (letter, letter))
+ test1 = os.popen("chameleon_xlintst%s < %stest.in" % (letter, letter))
for line in test1.readlines():
f.write(str(line))
if "passed" in line : print line,
diff --git a/testing/lin/clqt01.f b/testing/lin/clqt01.f
index ef2442b93..377a5ee2c 100644
--- a/testing/lin/clqt01.f
+++ b/testing/lin/clqt01.f
@@ -38,7 +38,7 @@
SUBROUTINE CLQT01( M, N, A, AF, Q, L, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/clqt02.f b/testing/lin/clqt02.f
index d2e062e00..2c4aaf002 100644
--- a/testing/lin/clqt02.f
+++ b/testing/lin/clqt02.f
@@ -38,7 +38,7 @@
SUBROUTINE CLQT02( M, N, K, A, AF, Q, L, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/clqt03.f b/testing/lin/clqt03.f
index cb4baadae..ebd94099f 100644
--- a/testing/lin/clqt03.f
+++ b/testing/lin/clqt03.f
@@ -38,7 +38,7 @@
SUBROUTINE CLQT03( M, N, K, AF, C, CC, Q, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cporfs.f b/testing/lin/cporfs.f
index c91db9c8a..8c86fffb0 100644
--- a/testing/lin/cporfs.f
+++ b/testing/lin/cporfs.f
@@ -38,7 +38,7 @@
SUBROUTINE CPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X,
$ LDX, FERR, BERR, WORK, RWORK, INFO )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK routine (version 3.2) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cposvx.f b/testing/lin/cposvx.f
index f55358cbe..e5b9032d9 100644
--- a/testing/lin/cposvx.f
+++ b/testing/lin/cposvx.f
@@ -39,7 +39,7 @@
$ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK,
$ RWORK, INFO )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK driver routine (version 3.2) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cqrt01.f b/testing/lin/cqrt01.f
index b2ab9a788..f113fece5 100644
--- a/testing/lin/cqrt01.f
+++ b/testing/lin/cqrt01.f
@@ -38,7 +38,7 @@
SUBROUTINE CQRT01( M, N, A, AF, Q, R, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cqrt02.f b/testing/lin/cqrt02.f
index b928edae0..b784c0957 100644
--- a/testing/lin/cqrt02.f
+++ b/testing/lin/cqrt02.f
@@ -38,7 +38,7 @@
SUBROUTINE CQRT02( M, N, K, A, AF, Q, R, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/cqrt03.f b/testing/lin/cqrt03.f
index 1fa96b521..bafc62fcb 100644
--- a/testing/lin/cqrt03.f
+++ b/testing/lin/cqrt03.f
@@ -38,7 +38,7 @@
SUBROUTINE CQRT03( M, N, K, AF, C, CC, Q, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dchkaa.f b/testing/lin/dchkaa.f
index 7e8d6e2f7..efdd0e458 100644
--- a/testing/lin/dchkaa.f
+++ b/testing/lin/dchkaa.f
@@ -37,7 +37,7 @@
PROGRAM DCHKAA
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- CHAMELEON test routine (from LAPACK version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dchkge.f b/testing/lin/dchkge.f
index ac6bddff3..265c45d0c 100644
--- a/testing/lin/dchkge.f
+++ b/testing/lin/dchkge.f
@@ -39,7 +39,7 @@
$ IBVAL, NSVAL, THRESH, TSTERR, NMAX, A, AFAC,
$ AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dchklq.f b/testing/lin/dchklq.f
index f947b3c4a..6b8abb9dc 100644
--- a/testing/lin/dchklq.f
+++ b/testing/lin/dchklq.f
@@ -40,7 +40,7 @@
$ AL, AC, B, X, XACT, TAU, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dchkpo.f b/testing/lin/dchkpo.f
index 62d55c1be..7a056e44d 100644
--- a/testing/lin/dchkpo.f
+++ b/testing/lin/dchkpo.f
@@ -39,7 +39,7 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
*
* -- LAPACK test routine (version 3.1) --
diff --git a/testing/lin/dchkqr.f b/testing/lin/dchkqr.f
index 8e7b95bc3..035bf1f88 100644
--- a/testing/lin/dchkqr.f
+++ b/testing/lin/dchkqr.f
@@ -40,7 +40,7 @@
$ AR, AC, B, X, XACT, TAU, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/ddrvge.f b/testing/lin/ddrvge.f
index a3e8967c2..c9aa9b061 100644
--- a/testing/lin/ddrvge.f
+++ b/testing/lin/ddrvge.f
@@ -39,7 +39,7 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/ddrvls.f b/testing/lin/ddrvls.f
index 16ec5e8cd..2081cacfc 100644
--- a/testing/lin/ddrvls.f
+++ b/testing/lin/ddrvls.f
@@ -39,7 +39,7 @@
$ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B,
$ COPYB, C, S, COPYS, IBVAL, WORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/ddrvpo.f b/testing/lin/ddrvpo.f
index 40de4d526..d1d5fcfc1 100644
--- a/testing/lin/ddrvpo.f
+++ b/testing/lin/ddrvpo.f
@@ -39,7 +39,7 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/derrge.f b/testing/lin/derrge.f
index 8c307b918..693545c64 100644
--- a/testing/lin/derrge.f
+++ b/testing/lin/derrge.f
@@ -37,7 +37,7 @@
SUBROUTINE DERRGE( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/derrlq.f b/testing/lin/derrlq.f
index e8797e12e..fe0ced782 100644
--- a/testing/lin/derrlq.f
+++ b/testing/lin/derrlq.f
@@ -37,7 +37,7 @@
SUBROUTINE DERRLQ( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/derrls.f b/testing/lin/derrls.f
index 49069b22a..9a8c2c015 100644
--- a/testing/lin/derrls.f
+++ b/testing/lin/derrls.f
@@ -37,7 +37,7 @@
SUBROUTINE DERRLS( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/derrpo.f b/testing/lin/derrpo.f
index 834f300f4..ace3dabfa 100644
--- a/testing/lin/derrpo.f
+++ b/testing/lin/derrpo.f
@@ -37,7 +37,7 @@
SUBROUTINE DERRPO( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
*
* -- LAPACK test routine (version 3.1) --
diff --git a/testing/lin/derrqr.f b/testing/lin/derrqr.f
index 082237f48..7f7d1c435 100644
--- a/testing/lin/derrqr.f
+++ b/testing/lin/derrqr.f
@@ -37,7 +37,7 @@
SUBROUTINE DERRQR( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/derrvx.f b/testing/lin/derrvx.f
index 56e920300..e246fe990 100644
--- a/testing/lin/derrvx.f
+++ b/testing/lin/derrvx.f
@@ -37,7 +37,7 @@
SUBROUTINE DERRVX( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dlqt01.f b/testing/lin/dlqt01.f
index 5f7333c6d..e316ae428 100644
--- a/testing/lin/dlqt01.f
+++ b/testing/lin/dlqt01.f
@@ -38,7 +38,7 @@
SUBROUTINE DLQT01( M, N, A, AF, Q, L, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dlqt02.f b/testing/lin/dlqt02.f
index 058dfbfe3..25f2fe47c 100644
--- a/testing/lin/dlqt02.f
+++ b/testing/lin/dlqt02.f
@@ -38,7 +38,7 @@
SUBROUTINE DLQT02( M, N, K, A, AF, Q, L, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dlqt03.f b/testing/lin/dlqt03.f
index a5a7f6425..8f01f9ea4 100644
--- a/testing/lin/dlqt03.f
+++ b/testing/lin/dlqt03.f
@@ -38,7 +38,7 @@
SUBROUTINE DLQT03( M, N, K, AF, C, CC, Q, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dporfs.f b/testing/lin/dporfs.f
index 517a73904..9e27bd115 100644
--- a/testing/lin/dporfs.f
+++ b/testing/lin/dporfs.f
@@ -38,7 +38,7 @@
SUBROUTINE DPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X,
$ LDX, FERR, BERR, WORK, IWORK, INFO )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK routine (version 3.2) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dposvx.f b/testing/lin/dposvx.f
index e60926659..451fe7aba 100644
--- a/testing/lin/dposvx.f
+++ b/testing/lin/dposvx.f
@@ -39,7 +39,7 @@
$ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK,
$ IWORK, INFO )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK driver routine (version 3.2) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dqrt01.f b/testing/lin/dqrt01.f
index 8de27c37e..6cb306643 100644
--- a/testing/lin/dqrt01.f
+++ b/testing/lin/dqrt01.f
@@ -38,7 +38,7 @@
SUBROUTINE DQRT01( M, N, A, AF, Q, R, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dqrt02.f b/testing/lin/dqrt02.f
index 99da04d3d..1d9742e02 100644
--- a/testing/lin/dqrt02.f
+++ b/testing/lin/dqrt02.f
@@ -38,7 +38,7 @@
SUBROUTINE DQRT02( M, N, K, A, AF, Q, R, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/dqrt03.f b/testing/lin/dqrt03.f
index 7197dea43..0c8cb5549 100644
--- a/testing/lin/dqrt03.f
+++ b/testing/lin/dqrt03.f
@@ -38,7 +38,7 @@
SUBROUTINE DQRT03( M, N, K, AF, C, CC, Q, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/schkaa.f b/testing/lin/schkaa.f
index 620e08e2e..855f6de32 100644
--- a/testing/lin/schkaa.f
+++ b/testing/lin/schkaa.f
@@ -37,7 +37,7 @@
PROGRAM SCHKAA
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- CHAMELEON test routine (From LAPACK version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/schkge.f b/testing/lin/schkge.f
index 6624c6aae..e79d3d05f 100644
--- a/testing/lin/schkge.f
+++ b/testing/lin/schkge.f
@@ -39,7 +39,7 @@
$ IBVAL, NSVAL, THRESH, TSTERR, NMAX, A, AFAC,
$ AINV, B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/schklq.f b/testing/lin/schklq.f
index 2273a7aae..fcc7aecb7 100644
--- a/testing/lin/schklq.f
+++ b/testing/lin/schklq.f
@@ -40,7 +40,7 @@
$ AL, AC, B, X, XACT, TAU, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/schkpo.f b/testing/lin/schkpo.f
index 5f4979a4f..766b13ca9 100644
--- a/testing/lin/schkpo.f
+++ b/testing/lin/schkpo.f
@@ -39,7 +39,7 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/schkqr.f b/testing/lin/schkqr.f
index aec33a9e5..6b54d3432 100644
--- a/testing/lin/schkqr.f
+++ b/testing/lin/schkqr.f
@@ -40,7 +40,7 @@
$ AR, AC, B, X, XACT, TAU, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/sdrvge.f b/testing/lin/sdrvge.f
index 150116f07..4069de44e 100644
--- a/testing/lin/sdrvge.f
+++ b/testing/lin/sdrvge.f
@@ -39,7 +39,7 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/sdrvls.f b/testing/lin/sdrvls.f
index e2e3f3bd7..805585ca3 100644
--- a/testing/lin/sdrvls.f
+++ b/testing/lin/sdrvls.f
@@ -39,7 +39,7 @@
$ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B,
$ COPYB, C, S, COPYS, IBVAL, WORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/sdrvpo.f b/testing/lin/sdrvpo.f
index 20343b350..3bc1e580a 100644
--- a/testing/lin/sdrvpo.f
+++ b/testing/lin/sdrvpo.f
@@ -39,7 +39,7 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/serrge.f b/testing/lin/serrge.f
index a8095146f..69c90f137 100644
--- a/testing/lin/serrge.f
+++ b/testing/lin/serrge.f
@@ -37,7 +37,7 @@
SUBROUTINE SERRGE( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/serrlq.f b/testing/lin/serrlq.f
index 38d3dab5f..6ad37a342 100644
--- a/testing/lin/serrlq.f
+++ b/testing/lin/serrlq.f
@@ -37,7 +37,7 @@
SUBROUTINE SERRLQ( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/serrls.f b/testing/lin/serrls.f
index b94c4e76e..6d6008fbc 100644
--- a/testing/lin/serrls.f
+++ b/testing/lin/serrls.f
@@ -37,7 +37,7 @@
SUBROUTINE SERRLS( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/serrpo.f b/testing/lin/serrpo.f
index c2c65ecc5..cfa8c8c3f 100644
--- a/testing/lin/serrpo.f
+++ b/testing/lin/serrpo.f
@@ -37,7 +37,7 @@
SUBROUTINE SERRPO( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/serrqr.f b/testing/lin/serrqr.f
index 98284d758..45aa219b0 100644
--- a/testing/lin/serrqr.f
+++ b/testing/lin/serrqr.f
@@ -37,7 +37,7 @@
SUBROUTINE SERRQR( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/serrvx.f b/testing/lin/serrvx.f
index e35daa633..c0b83743e 100644
--- a/testing/lin/serrvx.f
+++ b/testing/lin/serrvx.f
@@ -37,7 +37,7 @@
SUBROUTINE SERRVX( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/slqt01.f b/testing/lin/slqt01.f
index 9443bd2c6..ebe0a9436 100644
--- a/testing/lin/slqt01.f
+++ b/testing/lin/slqt01.f
@@ -38,7 +38,7 @@
SUBROUTINE SLQT01( M, N, A, AF, Q, L, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/slqt02.f b/testing/lin/slqt02.f
index 8691a4d5c..4da305691 100644
--- a/testing/lin/slqt02.f
+++ b/testing/lin/slqt02.f
@@ -38,7 +38,7 @@
SUBROUTINE SLQT02( M, N, K, A, AF, Q, L, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/slqt03.f b/testing/lin/slqt03.f
index 5d6bdfa21..eec964224 100644
--- a/testing/lin/slqt03.f
+++ b/testing/lin/slqt03.f
@@ -38,7 +38,7 @@
SUBROUTINE SLQT03( M, N, K, AF, C, CC, Q, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/sporfs.f b/testing/lin/sporfs.f
index 3d4ec91ae..f956674cf 100644
--- a/testing/lin/sporfs.f
+++ b/testing/lin/sporfs.f
@@ -38,7 +38,7 @@
SUBROUTINE SPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X,
$ LDX, FERR, BERR, WORK, IWORK, INFO )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK routine (version 3.2) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/sposvx.f b/testing/lin/sposvx.f
index 93ded4a42..84e4e6ff4 100644
--- a/testing/lin/sposvx.f
+++ b/testing/lin/sposvx.f
@@ -39,7 +39,7 @@
$ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK,
$ IWORK, INFO )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK driver routine (version 3.2) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/sqrt01.f b/testing/lin/sqrt01.f
index 030466409..55862d84e 100644
--- a/testing/lin/sqrt01.f
+++ b/testing/lin/sqrt01.f
@@ -38,7 +38,7 @@
SUBROUTINE SQRT01( M, N, A, AF, Q, R, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/sqrt02.f b/testing/lin/sqrt02.f
index 09252a0ac..2b80210bf 100644
--- a/testing/lin/sqrt02.f
+++ b/testing/lin/sqrt02.f
@@ -38,7 +38,7 @@
SUBROUTINE SQRT02( M, N, K, A, AF, Q, R, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/sqrt03.f b/testing/lin/sqrt03.f
index 9c4150a21..95658c513 100644
--- a/testing/lin/sqrt03.f
+++ b/testing/lin/sqrt03.f
@@ -38,7 +38,7 @@
SUBROUTINE SQRT03( M, N, K, AF, C, CC, Q, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zchkaa.f b/testing/lin/zchkaa.f
index df660680d..0cc2bf2aa 100644
--- a/testing/lin/zchkaa.f
+++ b/testing/lin/zchkaa.f
@@ -37,7 +37,7 @@
PROGRAM ZCHKAA
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- CHAMELEON test routine (From LAPACK version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zchkge.f b/testing/lin/zchkge.f
index 193ba854f..b2da1ff5d 100644
--- a/testing/lin/zchkge.f
+++ b/testing/lin/zchkge.f
@@ -40,7 +40,7 @@
$ AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zchklq.f b/testing/lin/zchklq.f
index 04656211e..d49efc72f 100644
--- a/testing/lin/zchklq.f
+++ b/testing/lin/zchklq.f
@@ -40,7 +40,7 @@
$ AL, AC, B, X, XACT, TAU, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zchkpo.f b/testing/lin/zchkpo.f
index 8c2617fc1..7310b8089 100644
--- a/testing/lin/zchkpo.f
+++ b/testing/lin/zchkpo.f
@@ -39,7 +39,7 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zchkqr.f b/testing/lin/zchkqr.f
index ed21c4c3e..00e18457a 100644
--- a/testing/lin/zchkqr.f
+++ b/testing/lin/zchkqr.f
@@ -40,7 +40,7 @@
$ AR, AC, B, X, XACT, TAU, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zdrvge.f b/testing/lin/zdrvge.f
index 5f56b9be0..f57f0a864 100644
--- a/testing/lin/zdrvge.f
+++ b/testing/lin/zdrvge.f
@@ -39,7 +39,7 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zdrvls.f b/testing/lin/zdrvls.f
index b92b1b218..20680cc9e 100644
--- a/testing/lin/zdrvls.f
+++ b/testing/lin/zdrvls.f
@@ -40,7 +40,7 @@
$ B, COPYB, C, S, COPYS, WORK, RWORK, IWORK,
$ NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zdrvpo.f b/testing/lin/zdrvpo.f
index fe359e1be..6705cc12e 100644
--- a/testing/lin/zdrvpo.f
+++ b/testing/lin/zdrvpo.f
@@ -39,7 +39,7 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zerrge.f b/testing/lin/zerrge.f
index f6d98aaaa..f19f6d3ca 100644
--- a/testing/lin/zerrge.f
+++ b/testing/lin/zerrge.f
@@ -37,7 +37,7 @@
SUBROUTINE ZERRGE( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zerrlq.f b/testing/lin/zerrlq.f
index c7418f6fe..af1392dbb 100644
--- a/testing/lin/zerrlq.f
+++ b/testing/lin/zerrlq.f
@@ -37,7 +37,7 @@
SUBROUTINE ZERRLQ( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zerrls.f b/testing/lin/zerrls.f
index dbb9c2eaf..777f63acc 100644
--- a/testing/lin/zerrls.f
+++ b/testing/lin/zerrls.f
@@ -37,7 +37,7 @@
SUBROUTINE ZERRLS( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zerrpo.f b/testing/lin/zerrpo.f
index 04bfa0c5c..6fd2a388f 100644
--- a/testing/lin/zerrpo.f
+++ b/testing/lin/zerrpo.f
@@ -37,7 +37,7 @@
SUBROUTINE ZERRPO( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zerrqr.f b/testing/lin/zerrqr.f
index 543ee67a3..183244d9b 100644
--- a/testing/lin/zerrqr.f
+++ b/testing/lin/zerrqr.f
@@ -37,7 +37,7 @@
SUBROUTINE ZERRQR( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zerrvx.f b/testing/lin/zerrvx.f
index 839f075cd..3e55f8fbb 100644
--- a/testing/lin/zerrvx.f
+++ b/testing/lin/zerrvx.f
@@ -37,7 +37,7 @@
SUBROUTINE ZERRVX( PATH, NUNIT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zlqt01.f b/testing/lin/zlqt01.f
index b562221e8..795333cbb 100644
--- a/testing/lin/zlqt01.f
+++ b/testing/lin/zlqt01.f
@@ -38,7 +38,7 @@
SUBROUTINE ZLQT01( M, N, A, AF, Q, L, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zlqt02.f b/testing/lin/zlqt02.f
index 2e7b54790..f641518c8 100644
--- a/testing/lin/zlqt02.f
+++ b/testing/lin/zlqt02.f
@@ -38,7 +38,7 @@
SUBROUTINE ZLQT02( M, N, K, A, AF, Q, L, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zlqt03.f b/testing/lin/zlqt03.f
index e2886e409..97bc9fd1f 100644
--- a/testing/lin/zlqt03.f
+++ b/testing/lin/zlqt03.f
@@ -38,7 +38,7 @@
SUBROUTINE ZLQT03( M, N, K, AF, C, CC, Q, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zporfs.f b/testing/lin/zporfs.f
index 6add08ee6..83f6ba08b 100644
--- a/testing/lin/zporfs.f
+++ b/testing/lin/zporfs.f
@@ -38,7 +38,7 @@
SUBROUTINE ZPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X,
$ LDX, FERR, BERR, WORK, RWORK, INFO )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK routine (version 3.2) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zposvx.f b/testing/lin/zposvx.f
index 758a3eccd..a34e95c76 100644
--- a/testing/lin/zposvx.f
+++ b/testing/lin/zposvx.f
@@ -39,7 +39,7 @@
$ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK,
$ RWORK, INFO )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK driver routine (version 3.2) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zqrt01.f b/testing/lin/zqrt01.f
index 544a4d2bd..b2aabb4ad 100644
--- a/testing/lin/zqrt01.f
+++ b/testing/lin/zqrt01.f
@@ -38,7 +38,7 @@
SUBROUTINE ZQRT01( M, N, A, AF, Q, R, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zqrt02.f b/testing/lin/zqrt02.f
index 020a5be8c..97ad70666 100644
--- a/testing/lin/zqrt02.f
+++ b/testing/lin/zqrt02.f
@@ -38,7 +38,7 @@
SUBROUTINE ZQRT02( M, N, K, A, AF, Q, R, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/lin/zqrt03.f b/testing/lin/zqrt03.f
index 3a18073ea..368f4128f 100644
--- a/testing/lin/zqrt03.f
+++ b/testing/lin/zqrt03.f
@@ -38,7 +38,7 @@
SUBROUTINE ZQRT03( M, N, K, AF, C, CC, Q, LDA, T, WORK, LWORK,
$ RWORK, RESULT )
*
- INCLUDE 'morse_fortran.h'
+ INCLUDE 'chameleon_fortran.h'
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
diff --git a/testing/testing_zgeadd.c b/testing/testing_zgeadd.c
index 6e8bd9171..a29e2dde2 100644
--- a/testing/testing_zgeadd.c
+++ b/testing/testing_zgeadd.c
@@ -37,10 +37,10 @@
static int check_tr_solution(cham_uplo_t uplo, cham_trans_t trans, int M, int N,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bmorse, int LDB);
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bcham, int LDB);
static int check_ge_solution(cham_trans_t trans, int M, int N,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bmorse, int LDB);
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bcham, int LDB);
int testing_zgeadd(int argc, char **argv)
{
@@ -185,10 +185,10 @@ int testing_zgeadd(int argc, char **argv)
static int check_tr_solution(cham_uplo_t uplo, cham_trans_t trans, int M, int N,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bmorse, int LDB)
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bcham, int LDB)
{
int info_solution;
- double Anorm, Binitnorm, Bmorsenorm, Rnorm, result;
+ double Anorm, Binitnorm, Bchamnorm, Rnorm, result;
double eps;
CHAMELEON_Complex64_t mzone;
@@ -215,29 +215,29 @@ static int check_tr_solution(cham_uplo_t uplo, cham_trans_t trans, int M, int N,
/* Am, An, A, LDA, work); */
/* } */
- /* Binitnorm = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, 'I', morse_lapack_const(uplo[u]), 'N', */
+ /* Binitnorm = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, 'I', chameleon_lapack_const(uplo[u]), 'N', */
/* M, N, Bref, LDB, work); */
- /* Bmorsenorm = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, 'I', morse_lapack_const(uplo[u]), 'N', */
- /* M, N, Bmorse, LDB, work); */
+ /* Bchamnorm = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, 'I', chameleon_lapack_const(uplo[u]), 'N', */
+ /* M, N, Bcham, LDB, work); */
Anorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I',
Am, An, A, LDA, work);
Binitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I',
M, N, Bref, LDB, work);
- Bmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I',
- M, N, Bmorse, LDB, work);
+ Bchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I',
+ M, N, Bcham, LDB, work);
CORE_ztradd(uplo, trans, M, N,
alpha, A, LDA,
beta, Bref, LDB);
- cblas_zaxpy( LDB*N, CBLAS_SADDR(mzone), Bmorse, 1, Bref, 1);
+ cblas_zaxpy( LDB*N, CBLAS_SADDR(mzone), Bcham, 1, Bref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'M', M, N, Bref, LDB, work);
eps = LAPACKE_dlamch_work('e');
printf("Rnorm %e, Anorm %e, Bnorm %e, (alpha A + beta B) norm %e\n",
- Rnorm, Anorm, Binitnorm, Bmorsenorm);
+ Rnorm, Anorm, Binitnorm, Bchamnorm);
result = Rnorm / (max(Anorm, Binitnorm) * eps);
printf("============\n");
@@ -265,10 +265,10 @@ static int check_tr_solution(cham_uplo_t uplo, cham_trans_t trans, int M, int N,
static int check_ge_solution(cham_trans_t trans, int M, int N,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bmorse, int LDB)
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bcham, int LDB)
{
int info_solution;
- double Anorm, Binitnorm, Bmorsenorm, Rnorm, result;
+ double Anorm, Binitnorm, Bchamnorm, Rnorm, result;
double eps;
CHAMELEON_Complex64_t mzone;
@@ -287,20 +287,20 @@ static int check_ge_solution(cham_trans_t trans, int M, int N,
Am, An, A, LDA, work);
Binitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I',
M, N, Bref, LDB, work);
- Bmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I',
- M, N, Bmorse, LDB, work);
+ Bchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I',
+ M, N, Bcham, LDB, work);
CORE_zgeadd(trans, M, N,
alpha, A, LDA,
beta, Bref, LDB);
- cblas_zaxpy( LDB*N, CBLAS_SADDR(mzone), Bmorse, 1, Bref, 1);
+ cblas_zaxpy( LDB*N, CBLAS_SADDR(mzone), Bcham, 1, Bref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'M', M, N, Bref, LDB, work);
eps = LAPACKE_dlamch_work('e');
printf("Rnorm %e, Anorm %e, Bnorm %e, (alpha A + beta B) norm %e\n",
- Rnorm, Anorm, Binitnorm, Bmorsenorm);
+ Rnorm, Anorm, Binitnorm, Bchamnorm);
result = Rnorm / (max(Anorm, Binitnorm) * eps);
printf("============\n");
diff --git a/testing/testing_zgemm.c b/testing/testing_zgemm.c
index 2f8fbbdae..a46877522 100644
--- a/testing/testing_zgemm.c
+++ b/testing/testing_zgemm.c
@@ -38,7 +38,7 @@
static int check_solution(cham_trans_t transA, cham_trans_t transB, int M, int N, int K,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC);
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC);
int testing_zgemm(int argc, char **argv)
{
@@ -160,10 +160,10 @@ int testing_zgemm(int argc, char **argv)
static int check_solution(cham_trans_t transA, cham_trans_t transB, int M, int N, int K,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC)
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC)
{
int info_solution;
- double Anorm, Bnorm, Cinitnorm, Cmorsenorm, Clapacknorm, Rnorm, result;
+ double Anorm, Bnorm, Cinitnorm, Cchamnorm, Clapacknorm, Rnorm, result;
double eps;
CHAMELEON_Complex64_t beta_const;
@@ -186,27 +186,27 @@ static int check_solution(cham_trans_t transA, cham_trans_t transB, int M, int N
Anorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', Am, An, A, LDA, work);
Bnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', Bm, Bn, B, LDB, work);
Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
- Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cmorse, LDC, work);
+ Cchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Ccham, LDC, work);
cblas_zgemm(CblasColMajor, (CBLAS_TRANSPOSE)transA, (CBLAS_TRANSPOSE)transB, M, N, K,
CBLAS_SADDR(alpha), A, LDA, B, LDB, CBLAS_SADDR(beta), Cref, LDC);
Clapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
- cblas_zaxpy(LDC * N, CBLAS_SADDR(beta_const), Cmorse, 1, Cref, 1);
+ cblas_zaxpy(LDC * N, CBLAS_SADDR(beta_const), Ccham, 1, Cref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
eps = LAPACKE_dlamch_work('e');
if (CHAMELEON_My_Mpi_Rank() == 0)
- printf("Rnorm %e, Anorm %e, Bnorm %e, Cinitnorm %e, Cmorsenorm %e, Clapacknorm %e\n",
- Rnorm, Anorm, Bnorm, Cinitnorm, Cmorsenorm, Clapacknorm);
+ printf("Rnorm %e, Anorm %e, Bnorm %e, Cinitnorm %e, Cchamnorm %e, Clapacknorm %e\n",
+ Rnorm, Anorm, Bnorm, Cinitnorm, Cchamnorm, Clapacknorm);
result = Rnorm / ((Anorm + Bnorm + Cinitnorm) * N * eps);
if (CHAMELEON_My_Mpi_Rank() == 0){
printf("============\n");
printf("Checking the norm of the difference against reference ZGEMM \n");
- printf("-- ||Cmorse - Clapack||_oo/((||A||_oo+||B||_oo+||C||_oo).N.eps) = %e \n",
+ printf("-- ||Ccham - Clapack||_oo/((||A||_oo+||B||_oo+||C||_oo).N.eps) = %e \n",
result);
}
diff --git a/testing/testing_zgesvd.c b/testing/testing_zgesvd.c
index 32ad49195..d587488db 100644
--- a/testing/testing_zgesvd.c
+++ b/testing/testing_zgesvd.c
@@ -109,10 +109,10 @@ int testing_zgesvd(int argc, char **argv)
*/
/* Initialize A1 */
LAPACKE_zlatms_work( LAPACK_COL_MAJOR, M, N,
- morse_lapack_const(ChamDistUniform), ISEED,
- morse_lapack_const(ChamNonsymPosv), S1, mode, rcond,
+ chameleon_lapack_const(ChamDistUniform), ISEED,
+ chameleon_lapack_const(ChamNonsymPosv), S1, mode, rcond,
dmax, M, N,
- morse_lapack_const(ChamNoPacking), A1, LDA, work );
+ chameleon_lapack_const(ChamNoPacking), A1, LDA, work );
free(work);
/* Copy A1 for check */
@@ -216,7 +216,7 @@ static int check_orthogonality(cham_side_t side, int M, int N, CHAMELEON_Complex
else
cblas_zherk(CblasColMajor, CblasUpper, CblasNoTrans, M, N, done, Q, LDQ, mdone, Id, M);
- normQ = LAPACKE_zlansy_work(LAPACK_COL_MAJOR, morse_lapack_const(ChamInfNorm), 'U', minMN, Id, minMN, work);
+ normQ = LAPACKE_zlansy_work(LAPACK_COL_MAJOR, chameleon_lapack_const(ChamInfNorm), 'U', minMN, Id, minMN, work);
if (getenv("CHAMELEON_TESTING_VERBOSE"))
printf( "||Q||_oo=%e\n", normQ );
@@ -267,7 +267,7 @@ static int check_reduction(int M, int N, double *S, CHAMELEON_Complex64_t *A, in
CHAMELEON_Complex64_t *Residual = (CHAMELEON_Complex64_t *)malloc(M *N *sizeof(CHAMELEON_Complex64_t));
double *work = (double *)malloc(maxMN*sizeof(double));
- LAPACKE_zlacpy_work(LAPACK_COL_MAJOR, morse_lapack_const(ChamUpperLower), M, N, A, LDA, Residual, M);
+ LAPACKE_zlacpy_work(LAPACK_COL_MAJOR, chameleon_lapack_const(ChamUpperLower), M, N, A, LDA, Residual, M);
if ( M >= N ) {
/* Compute TEMP = SIGMA * Vt */
@@ -297,8 +297,8 @@ static int check_reduction(int M, int N, double *S, CHAMELEON_Complex64_t *A, in
}
/* Compute the norms */
- Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(ChamOneNorm), M, N, Residual, M, work);
- Anorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(ChamOneNorm), M, N, A, LDA, work);
+ Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, chameleon_lapack_const(ChamOneNorm), M, N, Residual, M, work);
+ Anorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, chameleon_lapack_const(ChamOneNorm), M, N, A, LDA, work);
if (getenv("CHAMELEON_TESTING_VERBOSE"))
printf( "||A||_oo=%e\n||A - U*SIGMA*VT||_oo=%e\n", Anorm, Rnorm );
diff --git a/testing/testing_zheevd.c b/testing/testing_zheevd.c
index 8a4b55801..f8512cf69 100644
--- a/testing/testing_zheevd.c
+++ b/testing/testing_zheevd.c
@@ -89,10 +89,10 @@ int testing_zheevd(int argc, char **argv)
}
}
LAPACKE_zlatms_work( LAPACK_COL_MAJOR, N, N,
- morse_lapack_const(ChamDistSymmetric), ISEED,
- morse_lapack_const(ChamHermGeev), W1, mode, rcond,
+ chameleon_lapack_const(ChamDistSymmetric), ISEED,
+ chameleon_lapack_const(ChamHermGeev), W1, mode, rcond,
dmax, N, N,
- morse_lapack_const(ChamNoPacking), A2, LDA, work );
+ chameleon_lapack_const(ChamNoPacking), A2, LDA, work );
/*
* Sort the eigenvalue because when computing the tridiag
@@ -178,7 +178,7 @@ static int check_orthogonality(int M, int N, CHAMELEON_Complex64_t *Q, int LDQ,
else
cblas_zherk(CblasColMajor, CblasUpper, CblasNoTrans, M, N, done, Q, LDQ, mdone, Id, minMN);
- normQ = LAPACKE_zlanhe_work(LAPACK_COL_MAJOR, morse_lapack_const(ChamInfNorm), 'U', minMN, Id, minMN, work);
+ normQ = LAPACKE_zlanhe_work(LAPACK_COL_MAJOR, chameleon_lapack_const(ChamInfNorm), 'U', minMN, Id, minMN, work);
result = normQ / (minMN * eps);
printf(" ======================================================\n");
@@ -213,7 +213,7 @@ static int check_reduction(cham_uplo_t uplo, int N, int bw, CHAMELEON_Complex64_
int i;
/* Compute TEMP = Q * LAMBDA */
- LAPACKE_zlacpy_work(LAPACK_COL_MAJOR, morse_lapack_const(ChamUpperLower), N, N, Q, LDA, TEMP, N);
+ LAPACKE_zlacpy_work(LAPACK_COL_MAJOR, chameleon_lapack_const(ChamUpperLower), N, N, Q, LDA, TEMP, N);
for (i = 0; i < N; i++){
cblas_zdscal(N, D[i], &(TEMP[i*N]), 1);
@@ -224,11 +224,11 @@ static int check_reduction(cham_uplo_t uplo, int N, int bw, CHAMELEON_Complex64_
* otherwise it need to be symetrized before
* checking.
*/
- LAPACKE_zlacpy_work(LAPACK_COL_MAJOR, morse_lapack_const(ChamUpperLower), N, N, A, LDA, Residual, N);
+ LAPACKE_zlacpy_work(LAPACK_COL_MAJOR, chameleon_lapack_const(ChamUpperLower), N, N, A, LDA, Residual, N);
cblas_zgemm(CblasColMajor, CblasNoTrans, CblasConjTrans, N, N, N, CBLAS_SADDR(mzone), TEMP, N, Q, LDA, CBLAS_SADDR(zone), Residual, N);
- Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(ChamOneNorm), N, N, Residual, N, work);
- Anorm = LAPACKE_zlanhe_work(LAPACK_COL_MAJOR, morse_lapack_const(ChamOneNorm), morse_lapack_const(uplo), N, A, LDA, work);
+ Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, chameleon_lapack_const(ChamOneNorm), N, N, Residual, N, work);
+ Anorm = LAPACKE_zlanhe_work(LAPACK_COL_MAJOR, chameleon_lapack_const(ChamOneNorm), chameleon_lapack_const(uplo), N, A, LDA, work);
result = Rnorm / ( Anorm * N * eps);
if ( uplo == ChamLower ){
diff --git a/testing/testing_zhemm.c b/testing/testing_zhemm.c
index 61d07d918..a24428e34 100644
--- a/testing/testing_zhemm.c
+++ b/testing/testing_zhemm.c
@@ -35,7 +35,7 @@
static int check_solution(cham_side_t side, cham_uplo_t uplo, int M, int N,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC);
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC);
int testing_zhemm(int argc, char **argv)
{
@@ -151,10 +151,10 @@ int testing_zhemm(int argc, char **argv)
static int check_solution(cham_side_t side, cham_uplo_t uplo, int M, int N,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC)
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC)
{
int info_solution, NrowA;
- double Anorm, Bnorm, Cinitnorm, Cmorsenorm, Clapacknorm, Rnorm;
+ double Anorm, Bnorm, Cinitnorm, Cchamnorm, Clapacknorm, Rnorm;
double eps;
CHAMELEON_Complex64_t beta_const;
double result;
@@ -166,27 +166,27 @@ static int check_solution(cham_side_t side, cham_uplo_t uplo, int M, int N,
Anorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', NrowA, NrowA, A, LDA, work);
Bnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, B, LDB, work);
Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
- Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cmorse, LDC, work);
+ Cchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Ccham, LDC, work);
cblas_zhemm(CblasColMajor, (CBLAS_SIDE)side, (CBLAS_UPLO)uplo, M, N, CBLAS_SADDR(alpha), A, LDA, B, LDB, CBLAS_SADDR(beta), Cref, LDC);
Clapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
- cblas_zaxpy(LDC * N, CBLAS_SADDR(beta_const), Cmorse, 1, Cref, 1);
+ cblas_zaxpy(LDC * N, CBLAS_SADDR(beta_const), Ccham, 1, Cref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
eps = LAPACKE_dlamch_work('e');
- printf("Rnorm %e, Anorm %e, Bnorm %e, Cinitnorm %e, Cmorsenorm %e, Clapacknorm %e\n",Rnorm,Anorm,Bnorm,Cinitnorm,Cmorsenorm,Clapacknorm);
+ printf("Rnorm %e, Anorm %e, Bnorm %e, Cinitnorm %e, Cchamnorm %e, Clapacknorm %e\n",Rnorm,Anorm,Bnorm,Cinitnorm,Cchamnorm,Clapacknorm);
result = Rnorm / ((Anorm + Bnorm + Cinitnorm) * N * eps);
printf("============\n");
printf("Checking the norm of the difference against reference ZHEMM \n");
- printf("-- ||Cmorse - Clapack||_oo/((||A||_oo+||B||_oo+||C||_oo).N.eps) = %e \n", result );
+ printf("-- ||Ccham - Clapack||_oo/((||A||_oo+||B||_oo+||C||_oo).N.eps) = %e \n", result );
- if ( isinf(Clapacknorm) || isinf(Cmorsenorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
+ if ( isinf(Clapacknorm) || isinf(Cchamnorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
printf("-- The solution is suspicious ! \n");
info_solution = 1;
}
diff --git a/testing/testing_zher2k.c b/testing/testing_zher2k.c
index 46f6cc913..97d03b846 100644
--- a/testing/testing_zher2k.c
+++ b/testing/testing_zher2k.c
@@ -35,7 +35,7 @@
static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- double beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC);
+ double beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC);
int testing_zher2k(int argc, char **argv)
@@ -146,10 +146,10 @@ int testing_zher2k(int argc, char **argv)
static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- double beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC)
+ double beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC)
{
int info_solution;
- double Anorm, Bnorm, Cinitnorm, Cmorsenorm, Clapacknorm, Rnorm, result;
+ double Anorm, Bnorm, Cinitnorm, Cchamnorm, Clapacknorm, Rnorm, result;
double eps;
CHAMELEON_Complex64_t beta_const;
@@ -163,26 +163,26 @@ static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
(trans == ChamNoTrans) ? N : K,
(trans == ChamNoTrans) ? K : N, B, LDB, work);
Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
- Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cmorse, LDC, work);
+ Cchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Ccham, LDC, work);
cblas_zher2k(CblasColMajor, (CBLAS_UPLO)uplo, (CBLAS_TRANSPOSE)trans,
N, K, CBLAS_SADDR(alpha), A, LDA, B, LDB, (beta), Cref, LDC);
Clapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
- cblas_zaxpy(LDC*N, CBLAS_SADDR(beta_const), Cmorse, 1, Cref, 1);
+ cblas_zaxpy(LDC*N, CBLAS_SADDR(beta_const), Ccham, 1, Cref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
eps = LAPACKE_dlamch_work('e');
- printf("Rnorm %e, Anorm %e, Cinitnorm %e, Cmorsenorm %e, Clapacknorm %e\n",
- Rnorm, Anorm, Cinitnorm, Cmorsenorm, Clapacknorm);
+ printf("Rnorm %e, Anorm %e, Cinitnorm %e, Cchamnorm %e, Clapacknorm %e\n",
+ Rnorm, Anorm, Cinitnorm, Cchamnorm, Clapacknorm);
result = Rnorm / ((Anorm + Bnorm + Cinitnorm) * N * eps);
printf("============\n");
printf("Checking the norm of the difference against reference ZHER2K \n");
- printf("-- ||Cmorse - Clapack||_oo/((||A||_oo+||C||_oo).N.eps) = %e \n", result);
+ printf("-- ||Ccham - Clapack||_oo/((||A||_oo+||C||_oo).N.eps) = %e \n", result);
if ( isnan(Rnorm) || isinf(Rnorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
printf("-- The solution is suspicious ! \n");
diff --git a/testing/testing_zherk.c b/testing/testing_zherk.c
index 3bb31792f..ca0928a73 100644
--- a/testing/testing_zherk.c
+++ b/testing/testing_zherk.c
@@ -34,7 +34,7 @@
static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
double alpha, CHAMELEON_Complex64_t *A, int LDA,
- double beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC);
+ double beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC);
int testing_zherk(int argc, char **argv)
@@ -139,10 +139,10 @@ int testing_zherk(int argc, char **argv)
static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
double alpha, CHAMELEON_Complex64_t *A, int LDA,
- double beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC)
+ double beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC)
{
int info_solution;
- double Anorm, Cinitnorm, Cmorsenorm, Clapacknorm, Rnorm;
+ double Anorm, Cinitnorm, Cchamnorm, Clapacknorm, Rnorm;
double eps;
CHAMELEON_Complex64_t beta_const;
double result;
@@ -153,29 +153,29 @@ static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
(trans == ChamNoTrans) ? N : K,
(trans == ChamNoTrans) ? K : N, A, LDA, work);
Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
- Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cmorse, LDC, work);
+ Cchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Ccham, LDC, work);
cblas_zherk(CblasColMajor, (CBLAS_UPLO)uplo, (CBLAS_TRANSPOSE)trans,
N, K, (alpha), A, LDA, (beta), Cref, LDC);
Clapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
- cblas_zaxpy(LDC*N, CBLAS_SADDR(beta_const), Cmorse, 1, Cref, 1);
+ cblas_zaxpy(LDC*N, CBLAS_SADDR(beta_const), Ccham, 1, Cref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
eps = LAPACKE_dlamch_work('e');
- printf("Rnorm %e, Anorm %e, Cinitnorm %e, Cmorsenorm %e, Clapacknorm %e\n",
- Rnorm, Anorm, Cinitnorm, Cmorsenorm, Clapacknorm);
+ printf("Rnorm %e, Anorm %e, Cinitnorm %e, Cchamnorm %e, Clapacknorm %e\n",
+ Rnorm, Anorm, Cinitnorm, Cchamnorm, Clapacknorm);
result = Rnorm / ((Anorm + Cinitnorm) * N * eps);
printf("============\n");
printf("Checking the norm of the difference against reference ZHERK \n");
- printf("-- ||Cmorse - Clapack||_oo/((||A||_oo+||C||_oo).N.eps) = %e \n", result);
+ printf("-- ||Ccham - Clapack||_oo/((||A||_oo+||C||_oo).N.eps) = %e \n", result);
- if ( isinf(Clapacknorm) || isinf(Cmorsenorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
+ if ( isinf(Clapacknorm) || isinf(Cchamnorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
printf("-- The solution is suspicious ! \n");
info_solution = 1;
}
diff --git a/testing/testing_zlange.c b/testing/testing_zlange.c
index f04774b66..b0aaf5cd5 100644
--- a/testing/testing_zlange.c
+++ b/testing/testing_zlange.c
@@ -52,7 +52,7 @@ int testing_zlange(int argc, char **argv)
/* Allocate Data */
CHAMELEON_Complex64_t *A = (CHAMELEON_Complex64_t *)malloc(LDAxN*sizeof(CHAMELEON_Complex64_t));
double *work = (double*) malloc(max(M,N)*sizeof(double));
- double normmorse, normlapack, result;
+ double normcham, normlapack, result;
eps = LAPACKE_dlamch_work('e');
@@ -74,10 +74,10 @@ int testing_zlange(int argc, char **argv)
/* CHAMELEON ZLANGE */
for(n=0; n<4; n++) {
- normmorse = CHAMELEON_zlange(norm[n], M, N, A, LDA);
- normlapack = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(norm[n]), M, N, A, LDA, work);
- printf("LAPACK %e, CHAMELEON %e\n", normlapack, normmorse);
- result = fabs(normmorse - normlapack) / (normlapack * eps);
+ normcham = CHAMELEON_zlange(norm[n], M, N, A, LDA);
+ normlapack = LAPACKE_zlange_work(LAPACK_COL_MAJOR, chameleon_lapack_const(norm[n]), M, N, A, LDA, work);
+ printf("LAPACK %e, CHAMELEON %e\n", normlapack, normcham);
+ result = fabs(normcham - normlapack) / (normlapack * eps);
switch(norm[n]) {
case ChamMaxNorm:
@@ -114,12 +114,12 @@ int testing_zlange(int argc, char **argv)
for(u=0; u<2; u++) {
int d;
for(d=0; d<2; d++) {
- normmorse = CHAMELEON_zlantr(norm[n], uplo[u], diag[d], M, N, A, LDA);
- normlapack = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, morse_lapack_const(norm[n]), morse_lapack_const(uplo[u]),
- morse_lapack_const(diag[d]), M, N, A, LDA, work);
- printf("LAPACK %e, CHAMELEON %e\n", normlapack, normmorse);
+ normcham = CHAMELEON_zlantr(norm[n], uplo[u], diag[d], M, N, A, LDA);
+ normlapack = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, chameleon_lapack_const(norm[n]), chameleon_lapack_const(uplo[u]),
+ chameleon_lapack_const(diag[d]), M, N, A, LDA, work);
+ printf("LAPACK %e, CHAMELEON %e\n", normlapack, normcham);
- result = fabs(normmorse - normlapack) / (normlapack * eps);
+ result = fabs(normcham - normlapack) / (normlapack * eps);
switch(norm[n]) {
case ChamMaxNorm:
/* result should be perfectly equal */
@@ -156,11 +156,11 @@ int testing_zlange(int argc, char **argv)
/* CHAMELEON ZLANSY */
for(n=0; n<4; n++) {
for(u=0; u<2; u++) {
- normmorse = CHAMELEON_zlansy(norm[n], uplo[u], min(M,N), A, LDA);
- normlapack = LAPACKE_zlansy_work(LAPACK_COL_MAJOR, morse_lapack_const(norm[n]), morse_lapack_const(uplo[u]), min(M,N), A, LDA, work);
- printf("LAPACK %e, CHAMELEON %e\n", normlapack, normmorse);
+ normcham = CHAMELEON_zlansy(norm[n], uplo[u], min(M,N), A, LDA);
+ normlapack = LAPACKE_zlansy_work(LAPACK_COL_MAJOR, chameleon_lapack_const(norm[n]), chameleon_lapack_const(uplo[u]), min(M,N), A, LDA, work);
+ printf("LAPACK %e, CHAMELEON %e\n", normlapack, normcham);
- result = fabs(normmorse - normlapack) / (normlapack * eps);
+ result = fabs(normcham - normlapack) / (normlapack * eps);
switch(norm[n]) {
case ChamMaxNorm:
/* result should be perfectly equal */
@@ -201,11 +201,11 @@ int testing_zlange(int argc, char **argv)
for(n=0; n<4; n++) {
for(u=0; u<2; u++) {
- normmorse = CHAMELEON_zlanhe(norm[n], uplo[u], min(M,N), A, LDA);
- normlapack = LAPACKE_zlanhe_work(LAPACK_COL_MAJOR, morse_lapack_const(norm[n]), morse_lapack_const(uplo[u]), min(M,N), A, LDA, work);
- printf("LAPACK %e, CHAMELEON %e\n", normlapack, normmorse);
+ normcham = CHAMELEON_zlanhe(norm[n], uplo[u], min(M,N), A, LDA);
+ normlapack = LAPACKE_zlanhe_work(LAPACK_COL_MAJOR, chameleon_lapack_const(norm[n]), chameleon_lapack_const(uplo[u]), min(M,N), A, LDA, work);
+ printf("LAPACK %e, CHAMELEON %e\n", normlapack, normcham);
- result = fabs(normmorse - normlapack) / (normlapack * eps);
+ result = fabs(normcham - normlapack) / (normlapack * eps);
switch(norm[n]) {
case ChamMaxNorm:
/* result should be perfectly equal */
diff --git a/testing/testing_zsymm.c b/testing/testing_zsymm.c
index 8d934a8e4..3d5cb74e0 100644
--- a/testing/testing_zsymm.c
+++ b/testing/testing_zsymm.c
@@ -36,7 +36,7 @@ static int
check_solution( cham_side_t side, cham_uplo_t uplo, int M, int N,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC );
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC );
int testing_zsymm(int argc, char **argv)
{
@@ -153,10 +153,10 @@ static int
check_solution( cham_side_t side, cham_uplo_t uplo, int M, int N,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC )
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC )
{
int info_solution, NrowA;
- double Anorm, Bnorm, Cinitnorm, Cmorsenorm, Clapacknorm, Rnorm;
+ double Anorm, Bnorm, Cinitnorm, Cchamnorm, Clapacknorm, Rnorm;
double eps;
CHAMELEON_Complex64_t beta_const;
double result;
@@ -168,27 +168,27 @@ check_solution( cham_side_t side, cham_uplo_t uplo, int M, int N,
Anorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', NrowA, NrowA, A, LDA, work);
Bnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, B, LDB, work);
Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
- Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cmorse, LDC, work);
+ Cchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Ccham, LDC, work);
cblas_zsymm(CblasColMajor, (CBLAS_SIDE)side, (CBLAS_UPLO)uplo, M, N, CBLAS_SADDR(alpha), A, LDA, B, LDB, CBLAS_SADDR(beta), Cref, LDC);
Clapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
- cblas_zaxpy(LDC * N, CBLAS_SADDR(beta_const), Cmorse, 1, Cref, 1);
+ cblas_zaxpy(LDC * N, CBLAS_SADDR(beta_const), Ccham, 1, Cref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
eps = LAPACKE_dlamch_work('e');
- printf("Rnorm %e, Anorm %e, Bnorm %e, Cinitnorm %e, Cmorsenorm %e, Clapacknorm %e\n",Rnorm,Anorm,Bnorm,Cinitnorm,Cmorsenorm,Clapacknorm);
+ printf("Rnorm %e, Anorm %e, Bnorm %e, Cinitnorm %e, Cchamnorm %e, Clapacknorm %e\n",Rnorm,Anorm,Bnorm,Cinitnorm,Cchamnorm,Clapacknorm);
result = Rnorm / ((Anorm + Bnorm + Cinitnorm) * N * eps);
printf("============\n");
printf("Checking the norm of the difference against reference ZSYMM \n");
- printf("-- ||Cmorse - Clapack||_oo/((||A||_oo+||B||_oo+||C||_oo).N.eps) = %e \n", result );
+ printf("-- ||Ccham - Clapack||_oo/((||A||_oo+||B||_oo+||C||_oo).N.eps) = %e \n", result );
- if ( isinf(Clapacknorm) || isinf(Cmorsenorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
+ if ( isinf(Clapacknorm) || isinf(Cchamnorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
printf("-- The solution is suspicious ! \n");
info_solution = 1;
}
diff --git a/testing/testing_zsyr2k.c b/testing/testing_zsyr2k.c
index edccfc5c9..52f93685a 100644
--- a/testing/testing_zsyr2k.c
+++ b/testing/testing_zsyr2k.c
@@ -35,7 +35,7 @@
static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC);
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC);
int testing_zsyr2k(int argc, char **argv)
@@ -146,10 +146,10 @@ int testing_zsyr2k(int argc, char **argv)
static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC)
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC)
{
int info_solution;
- double Anorm, Bnorm, Cinitnorm, Cmorsenorm, Clapacknorm, Rnorm, result;
+ double Anorm, Bnorm, Cinitnorm, Cchamnorm, Clapacknorm, Rnorm, result;
double eps;
CHAMELEON_Complex64_t beta_const;
@@ -163,26 +163,26 @@ static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
(trans == ChamNoTrans) ? N : K,
(trans == ChamNoTrans) ? K : N, B, LDB, work);
Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
- Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cmorse, LDC, work);
+ Cchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Ccham, LDC, work);
cblas_zsyr2k(CblasColMajor, (CBLAS_UPLO)uplo, (CBLAS_TRANSPOSE)trans,
N, K, CBLAS_SADDR(alpha), A, LDA, B, LDB, CBLAS_SADDR(beta), Cref, LDC);
Clapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
- cblas_zaxpy(LDC*N, CBLAS_SADDR(beta_const), Cmorse, 1, Cref, 1);
+ cblas_zaxpy(LDC*N, CBLAS_SADDR(beta_const), Ccham, 1, Cref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
eps = LAPACKE_dlamch_work('e');
- printf("Rnorm %e, Anorm %e, Cinitnorm %e, Cmorsenorm %e, Clapacknorm %e\n",
- Rnorm, Anorm, Cinitnorm, Cmorsenorm, Clapacknorm);
+ printf("Rnorm %e, Anorm %e, Cinitnorm %e, Cchamnorm %e, Clapacknorm %e\n",
+ Rnorm, Anorm, Cinitnorm, Cchamnorm, Clapacknorm);
result = Rnorm / ((Anorm + Bnorm + Cinitnorm) * N * eps);
printf("============\n");
printf("Checking the norm of the difference against reference ZSYR2K \n");
- printf("-- ||Cmorse - Clapack||_oo/((||A||_oo+||C||_oo).N.eps) = %e \n", result);
+ printf("-- ||Ccham - Clapack||_oo/((||A||_oo+||C||_oo).N.eps) = %e \n", result);
if ( isnan(Rnorm) || isinf(Rnorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
printf("-- The solution is suspicious ! \n");
diff --git a/testing/testing_zsyrk.c b/testing/testing_zsyrk.c
index 20d70ca2f..64347e639 100644
--- a/testing/testing_zsyrk.c
+++ b/testing/testing_zsyrk.c
@@ -34,7 +34,7 @@
static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC);
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC);
int testing_zsyrk(int argc, char **argv)
@@ -137,10 +137,10 @@ int testing_zsyrk(int argc, char **argv)
static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Cmorse, int LDC)
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cref, CHAMELEON_Complex64_t *Ccham, int LDC)
{
int info_solution;
- double Anorm, Cinitnorm, Cmorsenorm, Clapacknorm, Rnorm;
+ double Anorm, Cinitnorm, Cchamnorm, Clapacknorm, Rnorm;
double eps;
CHAMELEON_Complex64_t beta_const;
double result;
@@ -151,29 +151,29 @@ static int check_solution(cham_uplo_t uplo, cham_trans_t trans, int N, int K,
(trans == ChamNoTrans) ? N : K,
(trans == ChamNoTrans) ? K : N, A, LDA, work);
Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
- Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cmorse, LDC, work);
+ Cchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Ccham, LDC, work);
cblas_zsyrk(CblasColMajor, (CBLAS_UPLO)uplo, (CBLAS_TRANSPOSE)trans,
N, K, CBLAS_SADDR(alpha), A, LDA, CBLAS_SADDR(beta), Cref, LDC);
Clapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
- cblas_zaxpy(LDC*N, CBLAS_SADDR(beta_const), Cmorse, 1, Cref, 1);
+ cblas_zaxpy(LDC*N, CBLAS_SADDR(beta_const), Ccham, 1, Cref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', N, N, Cref, LDC, work);
eps = LAPACKE_dlamch_work('e');
- printf("Rnorm %e, Anorm %e, Cinitnorm %e, Cmorsenorm %e, Clapacknorm %e\n",
- Rnorm, Anorm, Cinitnorm, Cmorsenorm, Clapacknorm);
+ printf("Rnorm %e, Anorm %e, Cinitnorm %e, Cchamnorm %e, Clapacknorm %e\n",
+ Rnorm, Anorm, Cinitnorm, Cchamnorm, Clapacknorm);
result = Rnorm / ((Anorm + Cinitnorm) * N * eps);
printf("============\n");
printf("Checking the norm of the difference against reference ZSYRK \n");
- printf("-- ||Cmorse - Clapack||_oo/((||A||_oo+||C||_oo).N.eps) = %e \n", result);
+ printf("-- ||Ccham - Clapack||_oo/((||A||_oo+||C||_oo).N.eps) = %e \n", result);
- if ( isinf(Clapacknorm) || isinf(Cmorsenorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
+ if ( isinf(Clapacknorm) || isinf(Cchamnorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
printf("-- The solution is suspicious ! \n");
info_solution = 1;
}
diff --git a/testing/testing_ztrmm.c b/testing/testing_ztrmm.c
index 16b592204..a548d3e84 100644
--- a/testing/testing_ztrmm.c
+++ b/testing/testing_ztrmm.c
@@ -35,7 +35,7 @@
static int check_solution(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_diag_t diag,
int M, int N, CHAMELEON_Complex64_t alpha,
CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bmorse, int LDB);
+ CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bcham, int LDB);
int testing_ztrmm(int argc, char **argv)
{
@@ -145,10 +145,10 @@ int testing_ztrmm(int argc, char **argv)
static int check_solution(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_diag_t diag,
int M, int N, CHAMELEON_Complex64_t alpha,
CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bmorse, int LDB)
+ CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bcham, int LDB)
{
int info_solution;
- double Anorm, Binitnorm, Bmorsenorm, Blapacknorm, Rnorm, result;
+ double Anorm, Binitnorm, Bchamnorm, Blapacknorm, Rnorm, result;
double eps;
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
@@ -161,32 +161,32 @@ static int check_solution(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans
Am = N; An = N;
}
- Anorm = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, 'I', morse_lapack_const(uplo), morse_lapack_const(diag),
+ Anorm = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, 'I', chameleon_lapack_const(uplo), chameleon_lapack_const(diag),
Am, An, A, LDA, work);
Binitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bref, LDB, work);
- Bmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bmorse, LDB, work);
+ Bchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bcham, LDB, work);
cblas_ztrmm(CblasColMajor, (CBLAS_SIDE)side, (CBLAS_UPLO)uplo, (CBLAS_TRANSPOSE)trans,
(CBLAS_DIAG)diag, M, N, CBLAS_SADDR(alpha), A, LDA, Bref, LDB);
Blapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bref, LDB, work);
- cblas_zaxpy(LDB * N, CBLAS_SADDR(mzone), Bmorse, 1, Bref, 1);
+ cblas_zaxpy(LDB * N, CBLAS_SADDR(mzone), Bcham, 1, Bref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bref, LDB, work);
eps = LAPACKE_dlamch_work('e');
- printf("Rnorm %e, Anorm %e, Binitnorm %e, Bmorsenorm %e, Blapacknorm %e\n",
- Rnorm, Anorm, Binitnorm, Bmorsenorm, Blapacknorm);
+ printf("Rnorm %e, Anorm %e, Binitnorm %e, Bchamnorm %e, Blapacknorm %e\n",
+ Rnorm, Anorm, Binitnorm, Bchamnorm, Blapacknorm);
result = Rnorm / ((Anorm + Blapacknorm) * max(M,N) * eps);
printf("============\n");
printf("Checking the norm of the difference against reference ZTRMM \n");
- printf("-- ||Cmorse - Clapack||_oo/((||A||_oo+||B||_oo).N.eps) = %e \n", result);
+ printf("-- ||Ccham - Clapack||_oo/((||A||_oo+||B||_oo).N.eps) = %e \n", result);
- if ( isinf(Blapacknorm) || isinf(Bmorsenorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
+ if ( isinf(Blapacknorm) || isinf(Bchamnorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
printf("-- The solution is suspicious ! \n");
info_solution = 1;
}
diff --git a/testing/testing_ztrsm.c b/testing/testing_ztrsm.c
index 561c0a57b..f23429aec 100644
--- a/testing/testing_ztrsm.c
+++ b/testing/testing_ztrsm.c
@@ -35,7 +35,7 @@
static int check_solution(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_diag_t diag,
int M, int N, CHAMELEON_Complex64_t alpha,
CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bmorse, int LDB);
+ CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bcham, int LDB);
int testing_ztrsm(int argc, char **argv)
{
@@ -145,10 +145,10 @@ int testing_ztrsm(int argc, char **argv)
static int check_solution(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_diag_t diag,
int M, int N, CHAMELEON_Complex64_t alpha,
CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bmorse, int LDB)
+ CHAMELEON_Complex64_t *Bref, CHAMELEON_Complex64_t *Bcham, int LDB)
{
int info_solution;
- double Anorm, Binitnorm, Bmorsenorm, Blapacknorm, Rnorm, result;
+ double Anorm, Binitnorm, Bchamnorm, Blapacknorm, Rnorm, result;
double eps;
CHAMELEON_Complex64_t mzone = (CHAMELEON_Complex64_t)-1.0;
@@ -161,32 +161,32 @@ static int check_solution(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans
Am = N; An = N;
}
- Anorm = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, 'I', morse_lapack_const(uplo), morse_lapack_const(diag),
+ Anorm = LAPACKE_zlantr_work(LAPACK_COL_MAJOR, 'I', chameleon_lapack_const(uplo), chameleon_lapack_const(diag),
Am, An, A, LDA, work);
Binitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bref, LDB, work);
- Bmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bmorse, LDB, work);
+ Bchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bcham, LDB, work);
cblas_ztrsm(CblasColMajor, (CBLAS_SIDE)side, (CBLAS_UPLO)uplo, (CBLAS_TRANSPOSE)trans,
(CBLAS_DIAG)diag, M, N, CBLAS_SADDR(alpha), A, LDA, Bref, LDB);
Blapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bref, LDB, work);
- cblas_zaxpy(LDB * N, CBLAS_SADDR(mzone), Bmorse, 1, Bref, 1);
+ cblas_zaxpy(LDB * N, CBLAS_SADDR(mzone), Bcham, 1, Bref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Bref, LDB, work);
eps = LAPACKE_dlamch_work('e');
- printf("Rnorm %e, Anorm %e, Binitnorm %e, Bmorsenorm %e, Blapacknorm %e\n",
- Rnorm, Anorm, Binitnorm, Bmorsenorm, Blapacknorm);
+ printf("Rnorm %e, Anorm %e, Binitnorm %e, Bchamnorm %e, Blapacknorm %e\n",
+ Rnorm, Anorm, Binitnorm, Bchamnorm, Blapacknorm);
result = Rnorm / ((Anorm + Blapacknorm) * max(M,N) * eps);
printf("============\n");
printf("Checking the norm of the difference against reference ZTRSM \n");
- printf("-- ||Cmorse - Clapack||_oo/((||A||_oo+||B||_oo).N.eps) = %e \n", result);
+ printf("-- ||Ccham - Clapack||_oo/((||A||_oo+||B||_oo).N.eps) = %e \n", result);
- if ( isinf(Blapacknorm) || isinf(Bmorsenorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
+ if ( isinf(Blapacknorm) || isinf(Bchamnorm) || isnan(result) || isinf(result) || (result > 10.0) ) {
printf("-- The solution is suspicious ! \n");
info_solution = 1;
}
diff --git a/timing/CMakeLists.txt b/timing/CMakeLists.txt
index f72257b38..0ed0d3bdf 100644
--- a/timing/CMakeLists.txt
+++ b/timing/CMakeLists.txt
@@ -25,7 +25,7 @@
#
###
-# Generate the morse auxiliary headers for all possible precisions
+# Generate the chameleon auxiliary headers for all possible precisions
# ----------------------------------------------------------------
set(TIMING_AUX_HDRS_GENERATED "")
set(ZHDR
@@ -47,7 +47,7 @@ add_custom_target(timing_include ALL SOURCES ${TIMING_AUX_HDRS})
set(CHAMELEON_SOURCES_TARGETS "${CHAMELEON_SOURCES_TARGETS};timing_include" CACHE INTERNAL "List of targets of sources")
if (NOT CHAMELEON_SIMULATION)
- # Generate the morse auxiliary sources for all possible precisions
+ # Generate the chameleon auxiliary sources for all possible precisions
# ----------------------------------------------------------------
set(TIMING_AUX_SRCS_GENERATED "")
set(ZSRC
@@ -70,7 +70,7 @@ if (NOT CHAMELEON_SIMULATION)
add_dependencies(chameleon_timing timing_include timing_aux_sources)
endif()
-# Generate the morse testing sources for all possible precisions
+# Generate the chameleon testing sources for all possible precisions
# --------------------------------------------------------------
set(TIMINGS "")
set(ZSRC_LAP_INT
diff --git a/timing/time_zgelqf.c b/timing/time_zgelqf.c
index b6264b866..bdda31be5 100644
--- a/timing/time_zgelqf.c
+++ b/timing/time_zgelqf.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *T;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgelqf_tile.c b/timing/time_zgelqf_tile.c
index f33b5cd96..9fed6d255 100644
--- a/timing/time_zgelqf_tile.c
+++ b/timing/time_zgelqf_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *descT;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgels.c b/timing/time_zgels.c
index 52a014e94..73668bfa2 100644
--- a/timing/time_zgels.c
+++ b/timing/time_zgels.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *T;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgels_tile.c b/timing/time_zgels_tile.c
index 50603e621..90d6cd94a 100644
--- a/timing/time_zgels_tile.c
+++ b/timing/time_zgels_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *descT;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgemm.c b/timing/time_zgemm.c
index ed18a95ae..c98086f19 100644
--- a/timing/time_zgemm.c
+++ b/timing/time_zgemm.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAMELEON_Complex64_t alpha, beta;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgemm_tile.c b/timing/time_zgemm_tile.c
index 43166a7dc..20ac03db6 100644
--- a/timing/time_zgemm_tile.c
+++ b/timing/time_zgemm_tile.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAMELEON_Complex64_t alpha, beta;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgeqrf.c b/timing/time_zgeqrf.c
index 699310781..a4b73351c 100644
--- a/timing/time_zgeqrf.c
+++ b/timing/time_zgeqrf.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *T;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgeqrf_hqr.c b/timing/time_zgeqrf_hqr.c
index b274d6d17..b160912ba 100644
--- a/timing/time_zgeqrf_hqr.c
+++ b/timing/time_zgeqrf_hqr.c
@@ -29,7 +29,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *TS;
CHAM_desc_t *TT;
diff --git a/timing/time_zgeqrf_hqr_tile.c b/timing/time_zgeqrf_hqr_tile.c
index e2c0cf0c8..a28b15aa4 100644
--- a/timing/time_zgeqrf_hqr_tile.c
+++ b/timing/time_zgeqrf_hqr_tile.c
@@ -29,7 +29,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *TS;
CHAM_desc_t *TT;
diff --git a/timing/time_zgeqrf_tile.c b/timing/time_zgeqrf_tile.c
index 937af141a..50d55ac30 100644
--- a/timing/time_zgeqrf_tile.c
+++ b/timing/time_zgeqrf_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *descT;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgeqrs_tile.c b/timing/time_zgeqrs_tile.c
index ca644a73a..9b3d85d07 100644
--- a/timing/time_zgeqrs_tile.c
+++ b/timing/time_zgeqrs_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *descT;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgesv_incpiv.c b/timing/time_zgesv_incpiv.c
index d4ef59700..7be9c01c0 100644
--- a/timing/time_zgesv_incpiv.c
+++ b/timing/time_zgesv_incpiv.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *L;
int *piv;
diff --git a/timing/time_zgesv_incpiv_tile.c b/timing/time_zgesv_incpiv_tile.c
index be4f90498..8b9676d1d 100644
--- a/timing/time_zgesv_incpiv_tile.c
+++ b/timing/time_zgesv_incpiv_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *descL;
int *piv;
diff --git a/timing/time_zgesv_nopiv.c b/timing/time_zgesv_nopiv.c
index 122d2b553..1b03d1e98 100644
--- a/timing/time_zgesv_nopiv.c
+++ b/timing/time_zgesv_nopiv.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgesv_nopiv_tile.c b/timing/time_zgesv_nopiv_tile.c
index e1d60e5bf..7082f642f 100644
--- a/timing/time_zgesv_nopiv_tile.c
+++ b/timing/time_zgesv_nopiv_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgesvd_tile.c b/timing/time_zgesvd_tile.c
index 4aaeba24f..155d0507a 100644
--- a/timing/time_zgesvd_tile.c
+++ b/timing/time_zgesvd_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
CHAM_desc_t *descT;
diff --git a/timing/time_zgetrf_incpiv.c b/timing/time_zgetrf_incpiv.c
index 119c40740..cc86539a0 100644
--- a/timing/time_zgetrf_incpiv.c
+++ b/timing/time_zgetrf_incpiv.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *L;
int *piv;
diff --git a/timing/time_zgetrf_incpiv_tile.c b/timing/time_zgetrf_incpiv_tile.c
index c91befbea..041e685a0 100644
--- a/timing/time_zgetrf_incpiv_tile.c
+++ b/timing/time_zgetrf_incpiv_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *descL;
int *piv;
diff --git a/timing/time_zgetrf_nopiv.c b/timing/time_zgetrf_nopiv.c
index 1e88a8e59..bcc29441c 100644
--- a/timing/time_zgetrf_nopiv.c
+++ b/timing/time_zgetrf_nopiv.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgetrf_nopiv_tile.c b/timing/time_zgetrf_nopiv_tile.c
index d95ea17d7..928274291 100644
--- a/timing/time_zgetrf_nopiv_tile.c
+++ b/timing/time_zgetrf_nopiv_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/time_zgetri_tile.c b/timing/time_zgetri_tile.c
index 2f2d95e71..f5f46655a 100644
--- a/timing/time_zgetri_tile.c
+++ b/timing/time_zgetri_tile.c
@@ -129,7 +129,7 @@ static int check_getri_inverse(CHAM_desc_t *descA1, CHAM_desc_t *descA2, int *IP
}
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t descW;
int ret = 0;
diff --git a/timing/time_zgetrs_incpiv_tile.c b/timing/time_zgetrs_incpiv_tile.c
index 2e588a9d1..5a2c69394 100644
--- a/timing/time_zgetrs_incpiv_tile.c
+++ b/timing/time_zgetrs_incpiv_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAM_desc_t *descL;
int *piv;
diff --git a/timing/time_zgetrs_nopiv_tile.c b/timing/time_zgetrs_nopiv_tile.c
index 9d236967c..ceeebeac6 100644
--- a/timing/time_zgetrs_nopiv_tile.c
+++ b/timing/time_zgetrs_nopiv_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
check = 1;
diff --git a/timing/time_zheevd_tile.c b/timing/time_zheevd_tile.c
index 3fee21663..8a6a95cbc 100644
--- a/timing/time_zheevd_tile.c
+++ b/timing/time_zheevd_tile.c
@@ -26,7 +26,7 @@
/* #include <mkl_service.h> */
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
CHAM_desc_t *descT;
diff --git a/timing/time_zlange.c b/timing/time_zlange.c
index f1bd3dd4f..85ef806b2 100644
--- a/timing/time_zlange.c
+++ b/timing/time_zlange.c
@@ -24,10 +24,10 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
int hres = 0;
- double normmorse, normlapack, result;
+ double normcham, normlapack, result;
int norm = ChamInfNorm;
PASTE_CODE_IPARAM_LOCALS( iparam );
@@ -39,15 +39,15 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
/* CHAMELEON ZLANGE */
START_TIMING();
- normmorse = CHAMELEON_zlange(norm, M, N, A, LDA);
+ normcham = CHAMELEON_zlange(norm, M, N, A, LDA);
STOP_TIMING();
/* Check the solution */
if ( check )
{
double *work = (double*) malloc(chameleon_max(M,N)*sizeof(double));
- normlapack = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(norm), M, N, A, LDA, work);
- result = fabs(normmorse - normlapack);
+ normlapack = LAPACKE_zlange_work(LAPACK_COL_MAJOR, chameleon_lapack_const(norm), M, N, A, LDA, work);
+ result = fabs(normcham - normlapack);
switch(norm) {
case ChamMaxNorm:
/* result should be perfectly equal */
diff --git a/timing/time_zlange_tile.c b/timing/time_zlange_tile.c
index 5e815f4d5..8c445d2a5 100644
--- a/timing/time_zlange_tile.c
+++ b/timing/time_zlange_tile.c
@@ -25,9 +25,9 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
- double normmorse, normlapack, result;
+ double normcham, normlapack, result;
int norm = ChamInfNorm;
PASTE_CODE_IPARAM_LOCALS( iparam );
@@ -38,7 +38,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
/* CHAMELEON ZPOSV */
START_TIMING();
- normmorse = CHAMELEON_zlange_Tile(norm, descA);
+ normcham = CHAMELEON_zlange_Tile(norm, descA);
STOP_TIMING();
#if !defined(CHAMELEON_SIMULATION)
@@ -48,8 +48,8 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
/* Allocate Data */
PASTE_TILE_TO_LAPACK( descA, A, check, CHAMELEON_Complex64_t, M, N );
double *work = (double*) malloc(chameleon_max(M,N)*sizeof(double));
- normlapack = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(norm), M, N, A, LDA, work);
- result = fabs(normmorse - normlapack);
+ normlapack = LAPACKE_zlange_work(LAPACK_COL_MAJOR, chameleon_lapack_const(norm), M, N, A, LDA, work);
+ result = fabs(normcham - normlapack);
switch(norm) {
case ChamMaxNorm:
/* result should be perfectly equal */
@@ -79,6 +79,6 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
#endif
PASTE_CODE_FREE_MATRIX( descA );
- (void)normmorse;
+ (void)normcham;
return 0;
}
diff --git a/timing/time_zposv.c b/timing/time_zposv.c
index e23027afd..86d141ece 100644
--- a/timing/time_zposv.c
+++ b/timing/time_zposv.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
cham_uplo_t uplo = ChamUpper;
diff --git a/timing/time_zposv_tile.c b/timing/time_zposv_tile.c
index 7962538de..d2d04fdfa 100644
--- a/timing/time_zposv_tile.c
+++ b/timing/time_zposv_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
cham_uplo_t uplo = ChamUpper;
diff --git a/timing/time_zpotrf.c b/timing/time_zpotrf.c
index f1fb28c6e..95b404356 100644
--- a/timing/time_zpotrf.c
+++ b/timing/time_zpotrf.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
cham_uplo_t uplo = ChamLower;
diff --git a/timing/time_zpotrf_tile.c b/timing/time_zpotrf_tile.c
index e13868534..8665f2238 100644
--- a/timing/time_zpotrf_tile.c
+++ b/timing/time_zpotrf_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
cham_uplo_t uplo = ChamUpper;
diff --git a/timing/time_zpotri_tile.c b/timing/time_zpotri_tile.c
index 40cc00f2a..f2d7b5012 100644
--- a/timing/time_zpotri_tile.c
+++ b/timing/time_zpotri_tile.c
@@ -27,7 +27,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
cham_uplo_t uplo = ChamLower;
diff --git a/timing/time_zpotrs_tile.c b/timing/time_zpotrs_tile.c
index e3703d9e2..d61cd13c5 100644
--- a/timing/time_zpotrs_tile.c
+++ b/timing/time_zpotrs_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
cham_uplo_t uplo = ChamUpper;
diff --git a/timing/time_zsytrf_tile.c b/timing/time_zsytrf_tile.c
index 506b66e03..9c3a54b05 100644
--- a/timing/time_zsytrf_tile.c
+++ b/timing/time_zsytrf_tile.c
@@ -25,7 +25,7 @@
#include "./timing.c"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
PASTE_CODE_IPARAM_LOCALS( iparam );
cham_uplo_t uplo = ChamUpper;
diff --git a/timing/time_ztrsm.c b/timing/time_ztrsm.c
index 2b342a380..27547ee2e 100644
--- a/timing/time_ztrsm.c
+++ b/timing/time_ztrsm.c
@@ -26,7 +26,7 @@
#include "timing_zauxiliary.h"
static int
-RunTest(int *iparam, double *dparam, morse_time_t *t_)
+RunTest(int *iparam, double *dparam, chameleon_time_t *t_)
{
CHAMELEON_Complex64_t alpha;
PASTE_CODE_IPARAM_LOCALS( iparam );
diff --git a/timing/timing.c b/timing/timing.c
index dc9c336a9..1f2809c10 100644
--- a/timing/timing.c
+++ b/timing/timing.c
@@ -64,7 +64,7 @@
#endif /* defined(CHAMELEON_HAVE_GETOPT_H) */
static int RunTest(int *iparam, _PREC *dparam, double *t_);
-static inline void* morse_getaddr_null(const CHAM_desc_t *A, int m, int n)
+static inline void* chameleon_getaddr_null(const CHAM_desc_t *A, int m, int n)
{
(void)A;(void)m;(void)n;
return (void*)( NULL );
diff --git a/timing/timing.h b/timing/timing.h
index 4cdbcbd13..6677e13d1 100644
--- a/timing/timing.h
+++ b/timing/timing.h
@@ -13,7 +13,7 @@
#ifndef TIMING_H
#define TIMING_H
-typedef double morse_time_t;
+typedef double chameleon_time_t;
enum iparam_timing {
IPARAM_THRDNBR, /* Number of cores */
@@ -122,7 +122,7 @@ enum dparam_timing {
P, Q); \
else if (!bigmat) \
status ## _desc_ = CHAMELEON_Desc_Create_User(&(_desc_), NULL, _type2_, MB, NB, MB*NB, _lda_, _n_, 0, 0, _m_, _n_, \
- P, Q, morse_getaddr_null, NULL, NULL); \
+ P, Q, chameleon_getaddr_null, NULL, NULL); \
else \
status ## _desc_ = CHAMELEON_Desc_Create(&(_desc_), NULL, _type2_, MB, NB, MB*NB, _lda_, _n_, 0, 0, _m_, _n_, \
P, Q); \
diff --git a/timing/timing_zauxiliary.c b/timing/timing_zauxiliary.c
index c2c803e7f..5750731f7 100644
--- a/timing/timing_zauxiliary.c
+++ b/timing/timing_zauxiliary.c
@@ -220,23 +220,23 @@ int z_check_LLTfactorization(int N, CHAMELEON_Complex64_t *A1, CHAMELEON_Complex
double z_check_gemm(cham_trans_t transA, cham_trans_t transB, int M, int N, int K,
CHAMELEON_Complex64_t alpha, CHAMELEON_Complex64_t *A, int LDA,
CHAMELEON_Complex64_t *B, int LDB,
- CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Cmorse,
+ CHAMELEON_Complex64_t beta, CHAMELEON_Complex64_t *Ccham,
CHAMELEON_Complex64_t *Cref, int LDC,
- double *Cinitnorm, double *Cmorsenorm, double *Clapacknorm )
+ double *Cinitnorm, double *Cchamnorm, double *Clapacknorm )
{
CHAMELEON_Complex64_t beta_const = -1.0;
double Rnorm;
double *work = (double *)malloc(chameleon_max(K,chameleon_max(M, N))* sizeof(double));
*Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
- *Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cmorse, LDC, work);
+ *Cchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Ccham, LDC, work);
cblas_zgemm(CblasColMajor, (CBLAS_TRANSPOSE)transA, (CBLAS_TRANSPOSE)transB, M, N, K,
CBLAS_SADDR(alpha), A, LDA, B, LDB, CBLAS_SADDR(beta), Cref, LDC);
*Clapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
- cblas_zaxpy(LDC * N, CBLAS_SADDR(beta_const), Cmorse, 1, Cref, 1);
+ cblas_zaxpy(LDC * N, CBLAS_SADDR(beta_const), Ccham, 1, Cref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'I', M, N, Cref, LDC, work);
@@ -251,8 +251,8 @@ double z_check_gemm(cham_trans_t transA, cham_trans_t transB, int M, int N, int
double z_check_trsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham_diag_t diag,
int M, int NRHS, CHAMELEON_Complex64_t alpha,
CHAMELEON_Complex64_t *A, int LDA,
- CHAMELEON_Complex64_t *Bmorse, CHAMELEON_Complex64_t *Bref, int LDB,
- double *Binitnorm, double *Bmorsenorm, double *Blapacknorm )
+ CHAMELEON_Complex64_t *Bcham, CHAMELEON_Complex64_t *Bref, int LDB,
+ double *Binitnorm, double *Bchamnorm, double *Blapacknorm )
{
CHAMELEON_Complex64_t beta_const = -1.0;
double Rnorm;
@@ -260,7 +260,7 @@ double z_check_trsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham
/*double eps = LAPACKE_dlamch_work('e');*/
*Binitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'i', M, NRHS, Bref, LDB, work);
- *Bmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'i', M, NRHS, Bmorse, LDB, work);
+ *Bchamnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'i', M, NRHS, Bcham, LDB, work);
cblas_ztrsm(CblasColMajor, (CBLAS_SIDE)side, (CBLAS_UPLO)uplo,
(CBLAS_TRANSPOSE)trans, (CBLAS_DIAG)diag, M, NRHS,
@@ -268,7 +268,7 @@ double z_check_trsm(cham_side_t side, cham_uplo_t uplo, cham_trans_t trans, cham
*Blapacknorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'i', M, NRHS, Bref, LDB, work);
- cblas_zaxpy(LDB * NRHS, CBLAS_SADDR(beta_const), Bmorse, 1, Bref, 1);
+ cblas_zaxpy(LDB * NRHS, CBLAS_SADDR(beta_const), Bcham, 1, Bref, 1);
Rnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, 'i', M, NRHS, Bref, LDB, work);
Rnorm = Rnorm / *Blapacknorm;
--
GitLab