|
@@ -1,65 +0,0 @@
|
|
|
-/*
|
|
|
- * StarPU
|
|
|
- * Copyright (C) INRIA 2008-2009 (see AUTHORS file)
|
|
|
- *
|
|
|
- * This program is free software; you can redistribute it and/or modify
|
|
|
- * it under the terms of the GNU Lesser General Public License as published by
|
|
|
- * the Free Software Foundation; either version 2.1 of the License, or (at
|
|
|
- * your option) any later version.
|
|
|
- *
|
|
|
- * This program is distributed in the hope that it will be useful, but
|
|
|
- * WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
- *
|
|
|
- * See the GNU Lesser General Public License in COPYING.LGPL for more details.
|
|
|
- */
|
|
|
-
|
|
|
-#include <task-models/task_model.h>
|
|
|
-#include <task-models/blas_model.h>
|
|
|
-#include <core/perfmodel/perfmodel.h>
|
|
|
-
|
|
|
-/*
|
|
|
- * As a convention, in that file, descr[0] is represented by A,
|
|
|
- * descr[1] is B ...
|
|
|
- */
|
|
|
-
|
|
|
-/*
|
|
|
- * Number of flops of Gemm
|
|
|
- */
|
|
|
-
|
|
|
-static double gemm_cost(starpu_buffer_descr *descr)
|
|
|
-{
|
|
|
- /* C = A * B */
|
|
|
- uint32_t nxC, nyC, nxA;
|
|
|
-
|
|
|
-
|
|
|
- nxC = descr[2].state->interface->blas.nx;
|
|
|
- nyC = descr[2].state->interface->blas.ny;
|
|
|
- nxA = descr[0].state->interface->blas.nx;
|
|
|
-
|
|
|
-// printf("nxC %d nxC %d nxA %d\n", nxC, nyC, nxA);
|
|
|
-
|
|
|
- double cost = ((double)nxC)*((double)nyC)*((double)nxA/1000.0f/4.11f);
|
|
|
-
|
|
|
-// printf("cost %e \n", cost);
|
|
|
-
|
|
|
- return cost;
|
|
|
-}
|
|
|
-
|
|
|
-struct starpu_perfmodel_t sgemm_model = {
|
|
|
- .cost_model = gemm_cost,
|
|
|
- .type = STARPU_HISTORY_BASED,
|
|
|
-#ifdef STARPU_ATLAS
|
|
|
- .symbol = "sgemm_atlas"
|
|
|
-#elif defined(STARPU_GOTO)
|
|
|
- .symbol = "sgemm_goto"
|
|
|
-#else
|
|
|
- .symbol = "sgemm"
|
|
|
-#endif
|
|
|
-};
|
|
|
-
|
|
|
-
|
|
|
-struct starpu_perfmodel_t sgemm_model_common = {
|
|
|
- .cost_model = gemm_cost,
|
|
|
- .type = STARPU_COMMON,
|
|
|
-};
|