12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273 |
- /* StarPU --- Runtime system for heterogeneous multicore architectures.
- *
- * Copyright (C) 2009-2011,2013,2014,2016 Université de Bordeaux
- * Copyright (C) 2010-2013,2015,2017 CNRS
- *
- * StarPU 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.
- *
- * StarPU 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 <stdio.h>
- #include <unistd.h>
- #include <errno.h>
- #include <starpu.h>
- #include <stdlib.h>
- #include "../helper.h"
- /*
- * Test initializing cublas, and how much time that takes
- */
- static double start;
- static double end;
- //static float *data = NULL;
- int main(int argc, char **argv)
- {
- int ret;
- ret = starpu_initialize(NULL, &argc, &argv);
- if (ret == -ENODEV) return STARPU_TEST_SKIPPED;
- STARPU_CHECK_RETURN_VALUE(ret, "starpu_init");
- unsigned ngpus = starpu_cuda_worker_get_count();
- double init_timing;
- double shutdown_timing;
- start = starpu_timing_now();
- starpu_cublas_init();
- end = starpu_timing_now();
- init_timing = end - start;
- start = starpu_timing_now();
- starpu_cublas_shutdown();
- end = starpu_timing_now();
- shutdown_timing = end - start;
- FPRINTF(stderr, "Total:\n");
- FPRINTF(stderr, "\tinit: %2.2f us\n", init_timing/(1000));
- FPRINTF(stderr, "\tshutdown: %2.2f us\n", shutdown_timing/(1000));
- if (ngpus != 0)
- {
- FPRINTF(stderr, "per-GPU (#gpu = %u):\n", ngpus);
- FPRINTF(stderr, "\tinit: %2.2f us\n", init_timing/(1000*ngpus));
- FPRINTF(stderr, "\tshutdown: %2.2f us\n", shutdown_timing/(1000*ngpus));
- }
- starpu_shutdown();
- return EXIT_SUCCESS;
- }
|