Objet : Developers list for StarPU
Archives de la liste
- From: Sylvain HENRY <sylvain.henry@inria.fr>
- To: starpu-devel@lists.gforge.inria.fr, Pei LI <pei.li@telecom-sudparis.eu>
- Subject: Re: [Starpu-devel] Problème sur SOCL
- Date: Tue, 11 Jun 2013 14:53:22 +0200
- List-archive: <http://lists.gforge.inria.fr/pipermail/starpu-devel>
- List-id: "Developers list. For discussion of new features, code changes, etc." <starpu-devel.lists.gforge.inria.fr>
No you don't have to include anything else than standard OpenCL headers.
Try to compile and to run the attached source with:
gcc -o clinfo -lOpenCL clinfo.c && ./clinfo
It will show you the detected OpenCL platforms. If SOCL is not among them, you have a problem in your configuration (ICD, etc.).
Regards
Sylvain
Le 11/06/2013 14:33, Pei LI a écrit :
Thanks for your reply. I still some questions.
i found that the examples in
svn://scm.gforge.inria.fr/svn/starpu/trunk/socl/examples
are standard OpenCL programs.
In order to use SOCL, should I add something such as " include "socl.h" " in .c program?
Regards,
Pei
On 06/10/2013 03:51 PM, Nathalie Furmento wrote:
SOCL is an OpenCL implementation, you can therefore use any OpenCL application to test it.
Examples are provided in the StarPU subversion repository. You can find at
svn://scm.gforge.inria.fr/svn/starpu/trunk/socl/examples
such applications along with a Makefile to compile them (you can use it directly if you compile StarPU from the svn repository, or you can adapt it to create a new Makefile).
Regards,
Nathalie
On Jun 10, 14:17, Pei LI wrote:
Bonjour,
Pourriez vous m'envoyer un exemple de SOCL avec Makefile?
Puis je peux faire des testes sur ma machine.
Merci en avance
Cordialement
Pei
On 06/07/2013 11:34 AM, Sylvain HENRY wrote:
Bonjour,
Désormais SOCL est intégré dans la distribution de StarPU [1]. Je
vais supprimer l'ancien dépôt SOCL [2] car il n'est plus utilisé.
SOCL est installé par défaut avec StarPU et supporte l'extension
Installable Client Driver (ICD) : pour l'utiliser il suffit de
créer un fichier "/etc/OpenCL/vendors/socl.icd" contenant le
chemin vers "libsocl-1.2.so".
Il existe pour l'instant très peu de documentation sur SOCL. Brièvement :
- il faut choisir la plate-forme "SOCL" retournée par
clGetPlatformIDs, elle contient tous les devices des autres
plate-formes ;
- il est possible de créer des command queues sans spécifier de
device en passant NULL comme deuxième paramètre de
clCreateCommandQueue. Dans ce cas les commandes sont
automatiquement ordonnancées sur les devices du contexte associé à
la command queue.
Je vais essayer de mettre à jour la documentation [3] dès que
possible. En attendant si vous avez des questions, n'hésitez pas à
les poser sur la mailing-list StarPU
starpu-devel@lists.gforge.inria.fr (en anglais).
Cordialement
Sylvain
[1] https://gforge.inria.fr/projects/starpu/
[2] https://gforge.inria.fr/projects/socl/
[3] http://runtime.bordeaux.inria.fr/StarPU/starpu.html#SOCL-OpenCL-Extensions
Le 07/06/2013 10:48, Pei LI a écrit :
Bonjour à tous,
J'ai eu des problèmes quand j'installais SOCL.
Après exécuter "./waf configure", il affiche:
Checking for header malloc.h : not found
Checking for header time.h : not found
Checking for library OpenCL : not found
Mais, en fait "malloc.h" et "time.h" sont installés
automatiquement dans /usr/include/
J'ai aussi installé OpenCL. Pourquoi il affiche cettes info?
Pourriez-vous m'envoyer des documents ou manuals sur SOCL?
Merci en avance
Cordialement
Pei
_______________________________________________
Starpu-devel mailing list
Starpu-devel@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/starpu-devel
_______________________________________________
Starpu-devel mailing list
Starpu-devel@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/starpu-devel
/* StarPU --- Runtime system for heterogeneous multicore architectures.
*
* Copyright (C) 2010,2011 University of Bordeaux
*
* 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 <stdlib.h>
#include <CL/cl.h>
static inline void
checkErr(cl_int err, const char * name) {
if (err != CL_SUCCESS) {
fprintf(stderr, "ERROR: %s (%d)\n", name, err);
exit(1);
}
}
int
main(void) {
cl_int err;
cl_uint num_platforms;
// Plaform info
err = clGetPlatformIDs(0, NULL, &num_platforms);
if (num_platforms == 0) {
printf("No OpenCL platform found.\n");
exit(77);
}
checkErr(err, "Unable to get platform count");
cl_platform_id platforms[num_platforms];
err = clGetPlatformIDs(num_platforms, platforms, NULL);
checkErr(err, "Unable to get platform list");
// Iteratate over platforms
printf("Number of platforms:\t\t\t\t %d\n", num_platforms);
{
unsigned int i;
for (i=0; i<num_platforms; i++) {
char str[4096];
err = clGetPlatformInfo(platforms[i], CL_PLATFORM_PROFILE, sizeof(str), str, NULL);
checkErr(err, "clGetPlatformInfo(CL_PLATFORM_PROFILE)");
printf(" Plaform Profile:\t\t\t\t %s\n", str);
err= clGetPlatformInfo(platforms[i], CL_PLATFORM_VERSION, sizeof(str), str, NULL);
checkErr(err, "clGetPlatformInfo(CL_PLATFORM_VERSION)");
printf(" Plaform Version:\t\t\t\t %s\n", str);
err = clGetPlatformInfo(platforms[i], CL_PLATFORM_NAME, sizeof(str), str, NULL);
checkErr(err, "clGetPlatformInfo(CL_PLATFORM_NAME)");
printf(" Plaform Name:\t\t\t\t\t %s\n", str);
err = clGetPlatformInfo(platforms[i], CL_PLATFORM_VENDOR, sizeof(str), str, NULL);
checkErr(err, "clGetPlatformInfo(CL_PLATFORM_VENDOR)");
printf(" Plaform Vendor:\t\t\t\t %s\n", str);
err = clGetPlatformInfo(platforms[i], CL_PLATFORM_EXTENSIONS, sizeof(str), str, NULL);
checkErr(err, "clGetPlatformInfo(CL_PLATFORM_EXTENSIONS)");
printf(" Plaform Extensions:\t\t\t %s\n", str);
}
}
printf("\n\n");
// Now Iteratate over each platform and its devices
{
unsigned int i;
for (i=0; i<num_platforms; i++) {
char str[4096];
cl_uint num_devices;
err = clGetPlatformInfo(platforms[i], CL_PLATFORM_NAME, sizeof(str), &str, NULL);
checkErr(err, "clGetPlatformInfo(CL_PLATFORM_NAME)");
printf(" Plaform Name:\t\t\t\t\t %s\n", str);
err = clGetDeviceIDs(platforms[i], CL_DEVICE_TYPE_ALL, 0, NULL, &num_devices);
checkErr(err, "clGetDeviceIds(CL_DEVICE_TYPE_ALL)");
if (num_devices == 0) {
printf(" No devices found\n");
continue;
}
cl_device_id devices[num_devices];
err = clGetDeviceIDs(platforms[i], CL_DEVICE_TYPE_ALL, num_devices, devices, NULL);
checkErr(err, "clGetDeviceIds(CL_DEVICE_TYPE_ALL)");
printf(" Number of devices:\t\t\t\t %d\n", num_devices);
{
unsigned int j;
for (j=0; j<num_devices; j++) {
cl_device_type dev_type;
printf("\n DEVICE %d\n", j);
err = clGetDeviceInfo(devices[j], CL_DEVICE_TYPE, sizeof(dev_type), &dev_type, NULL);
checkErr(err, "clGetDeviceInfo(CL_DEVICE_TYPE)");
printf(" Device Type:\t\t\t\t\t ");
if (dev_type & CL_DEVICE_TYPE_ACCELERATOR)
printf("CL_DEVICE_TYPE_ACCELERATOR ");
else if (dev_type & CL_DEVICE_TYPE_CPU)
printf("CL_DEVICE_TYPE_CPU ");
else if (dev_type & CL_DEVICE_TYPE_GPU)
printf("CL_DEVICE_TYPE_GPU ");
else if (dev_type & CL_DEVICE_TYPE_DEFAULT)
printf("CL_DEVICE_TYPE_DEFAULT ");
printf("\n");
{
cl_uint vendor_id;
err = clGetDeviceInfo(devices[j], CL_DEVICE_VENDOR_ID, sizeof(vendor_id), &vendor_id, NULL);
checkErr(err, "clGetDeviceInfo(CL_DEVICE_VENDOR_ID)");
printf(" Device ID:\t\t\t\t\t %d\n", vendor_id);
}
{
cl_uint units;
err = clGetDeviceInfo(devices[j], CL_DEVICE_MAX_COMPUTE_UNITS, sizeof(units), &units, NULL);
checkErr(err, "clGetDeviceInfo(CL_DEVICE_MAX_COMPUTE_UNITS)");
printf(" Max compute units:\t\t\t\t %d\n", units);
}
{
cl_uint dims;
err = clGetDeviceInfo(devices[j], CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS, sizeof(dims), &dims, NULL);
checkErr(err, "clGetDeviceInfo(CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS)");
printf(" Max work item dimensions:\t\t\t %d\n", dims);
size_t sizes[dims];
err = clGetDeviceInfo(devices[j], CL_DEVICE_MAX_WORK_ITEM_SIZES, sizeof(size_t)*dims, sizes, NULL);
checkErr(err, "clGetDeviceInfo(CL_DEVICE_MAX_WORK_ITEM_SIZES)");
printf(" Max work item dimensions:\t\t\t %d\n", dims);
{
unsigned int k;
printf(" Max work items:\t\t\t\t (");
for (k=0; k<dims; k++) {
printf("%u", (unsigned int)sizes[k]);
if (k != dims-1)
printf(",");
}
printf(")\n");
}
}
#define GET_SIZET(CL_D,str) { \
size_t val; \
err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
printf(str, (unsigned int)val); \
}
#define GET_STRING(CL_D,str,size) { \
char val[size]; \
err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), val, NULL); \
checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
printf(str, val); \
}
#define GET_UINT(CL_D,str) { \
cl_uint val; \
err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
printf(str, val); \
}
#define GET_ULONG(CL_D,str) { \
cl_ulong val; \
err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
printf(str, val); \
}
#define GET_BOOL(CL_D,str) { \
cl_bool val; \
err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
printf(str, (val == CL_TRUE ? "Yes" : "No")); \
}
#define GET_BOOL_CUSTOM(CL_D,str,t,f) { \
cl_bool val; \
err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
printf(str, (val == CL_TRUE ? t : f)); \
}
#define GET_BITSET_AND(TYPE,CL_D,test,str) { \
TYPE val; \
err = clGetDeviceInfo(devices[j], CL_D, sizeof(val), &val, NULL); \
checkErr(err, "clGetDeviceInfo(" #CL_D ")"); \
printf(str, ((val & test) == CL_TRUE ? "Yes" : "No")); \
}
GET_SIZET(CL_DEVICE_MAX_WORK_GROUP_SIZE, " Max work group size:\t\t\t\t %u\n")
GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_CHAR, " Preferred vector width char:\t\t\t %u\n")
GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_SHORT, " Preferred vector width short:\t\t\t %u\n")
GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_INT, " Preferred vector width int:\t\t\t %u\n")
GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_LONG, " Preferred vector width long:\t\t\t %u\n")
GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_FLOAT, " Preferred vector width float:\t\t\t %u\n")
GET_UINT(CL_DEVICE_PREFERRED_VECTOR_WIDTH_DOUBLE, " Preferred vector width double:\t\t %u\n")
GET_UINT(CL_DEVICE_MAX_CLOCK_FREQUENCY, " Max clock frequency:\t\t\t\t %uMHz\n")
GET_UINT(CL_DEVICE_ADDRESS_BITS, " Address bits:\t\t\t\t\t %ubits\n")
GET_ULONG(CL_DEVICE_MAX_MEM_ALLOC_SIZE, " Max memory allocation:\t\t\t %lu bytes\n")
GET_BOOL(CL_DEVICE_IMAGE_SUPPORT, " Image support:\t\t\t\t %s\n")
GET_SIZET(CL_DEVICE_MAX_PARAMETER_SIZE, " Max size of kernel argument:\t\t\t %u\n")
GET_UINT(CL_DEVICE_MEM_BASE_ADDR_ALIGN, " Alignment of base addres:\t\t\t %u bits\n")
GET_UINT(CL_DEVICE_MIN_DATA_TYPE_ALIGN_SIZE, " Minimum alignment for any datatype:\t\t %u bytes\n")
printf(" Single precision floating point capability\n");
GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_DENORM, " Denorms:\t\t\t\t\t %s\n")
GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_INF_NAN, " Quiet NaNs:\t\t\t\t\t %s\n")
GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_ROUND_TO_NEAREST, " Round to nearest even:\t\t\t %s\n")
GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_ROUND_TO_ZERO, " Round to zero:\t\t\t\t %s\n")
GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_ROUND_TO_INF, " Round to +ve and infinity:\t\t\t %s\n")
GET_BITSET_AND(cl_device_fp_config,CL_DEVICE_SINGLE_FP_CONFIG, CL_FP_FMA, " IEEE754-2008 fused multiply-add:\t\t %s\n")
{
cl_device_mem_cache_type cache;
err = clGetDeviceInfo(devices[j], CL_DEVICE_GLOBAL_MEM_CACHE_TYPE, sizeof(cache), &cache, NULL);
checkErr(err, "clGetDeviceInfo(CL_DEVICE_GLOBAL_MEM_CACHE_TYPE)");
printf(" Cache type:\t\t\t\t\t ");
switch (cache) {
case CL_NONE:
printf("None\n");
break;
case CL_READ_ONLY_CACHE:
printf("Read only\n");
break;
case CL_READ_WRITE_CACHE:
printf("Read/Write\n");
break;
}
}
GET_UINT(CL_DEVICE_GLOBAL_MEM_CACHELINE_SIZE, " Cache line size:\t\t\t\t %u bytes\n")
GET_ULONG(CL_DEVICE_GLOBAL_MEM_CACHE_SIZE, " Cache size:\t\t\t\t\t %lu bytes\n")
GET_ULONG(CL_DEVICE_GLOBAL_MEM_SIZE, " Global memory size:\t\t\t\t %lu bytes\n")
GET_ULONG(CL_DEVICE_MAX_CONSTANT_BUFFER_SIZE, " Constant buffer size:\t\t\t\t %lu bytes\n")
GET_UINT(CL_DEVICE_MAX_CONSTANT_ARGS, " Max number of constant args:\t\t\t %u\n")
{
cl_device_local_mem_type cache;
err = clGetDeviceInfo(devices[j], CL_DEVICE_LOCAL_MEM_TYPE, sizeof(cache), &cache, NULL);
checkErr(err, "clGetDeviceInfo(CL_DEVICE_LOCAL_MEM_TYPE)");
printf(" Local memory type:\t\t\t\t ");
switch (cache) {
case CL_LOCAL:
printf("Local\n");
break;
case CL_GLOBAL:
printf("Global\n");
break;
}
}
GET_ULONG(CL_DEVICE_LOCAL_MEM_SIZE, " Local memory size:\t\t\t\t %lu bytes\n")
GET_SIZET(CL_DEVICE_PROFILING_TIMER_RESOLUTION, " Profiling timer resolution:\t\t\t %u\n")
GET_BOOL_CUSTOM(CL_DEVICE_ENDIAN_LITTLE, " Device endianess:\t\t\t\t %s\n", "Little", "Big")
GET_BOOL(CL_DEVICE_AVAILABLE, " Available:\t\t\t\t\t %s\n")
GET_BOOL(CL_DEVICE_COMPILER_AVAILABLE, " Compiler available:\t\t\t\t %s\n")
printf(" Execution capabilities:\t\t\t\t \n");
GET_BITSET_AND(cl_device_exec_capabilities, CL_DEVICE_EXECUTION_CAPABILITIES, CL_EXEC_KERNEL, " Execute OpenCL kernels:\t\t\t %s\n")
GET_BITSET_AND(cl_device_exec_capabilities, CL_DEVICE_EXECUTION_CAPABILITIES, CL_EXEC_NATIVE_KERNEL, " Execute native kernels:\t\t\t %s\n")
printf(" Queue properties:\t\t\t\t\n ");
GET_BITSET_AND(cl_command_queue_properties, CL_DEVICE_QUEUE_PROPERTIES, CL_QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE, " Out-of-Order:\t\t\t\t %s\n")
GET_BITSET_AND(cl_command_queue_properties, CL_DEVICE_QUEUE_PROPERTIES, CL_QUEUE_PROFILING_ENABLE, " Profiling:\t\t\t\t\t %s\n")
GET_STRING(CL_DEVICE_NAME, " Name:\t\t\t\t\t\t %s\n", 256);
GET_STRING(CL_DEVICE_VENDOR, " Vendor:\t\t\t\t\t %s\n", 256);
GET_STRING(CL_DRIVER_VERSION, " Driver version:\t\t\t\t %s\n", 256);
GET_STRING(CL_DEVICE_PROFILE, " Profile:\t\t\t\t\t %s\n", 256);
GET_STRING(CL_DEVICE_VERSION, " Version:\t\t\t\t\t %s\n", 256);
GET_STRING(CL_DEVICE_EXTENSIONS, " Extensions:\t\t\t\t\t %s\n", 4096);
printf("\n");
}
}
}
}
return 0;
}
- Re: [Starpu-devel] Problème sur SOCL, Pei LI, 10/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Nathalie Furmento, 10/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Pei LI, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Sylvain HENRY, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Pei LI, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Nathalie Furmento, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Pei LI, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Sylvain HENRY, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Nathalie Furmento, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Pei LI, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Sylvain HENRY, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Pei LI, 11/06/2013
- Re: [Starpu-devel] Problème sur SOCL, Nathalie Furmento, 10/06/2013
Archives gérées par MHonArc 2.6.19+.