Ero sivun ”OpenCL” versioiden välillä
Siirry navigaatioon
Siirry hakuun
source-tagit, jakelukohtaiset jutut "Jakelukohtaista"-otsikon alle ja ulkoasua kuntoon
p (''') |
(source-tagit, jakelukohtaiset jutut "Jakelukohtaista"-otsikon alle ja ulkoasua kuntoon) |
||
| Rivi 3: | Rivi 3: | ||
Myös tavallisiin suorittimiin saa OpenCL-tuen, jolloin ohjelmointia voi kokeilla ilman GPU:ta. Toisaalta halvin OpenCL:ää tukeva GPU maksoi vuoden 2014 alussa vain noin 30 euroa. | Myös tavallisiin suorittimiin saa OpenCL-tuen, jolloin ohjelmointia voi kokeilla ilman GPU:ta. Toisaalta halvin OpenCL:ää tukeva GPU maksoi vuoden 2014 alussa vain noin 30 euroa. | ||
= OpenCL-ympäristön toimivuuden tarkistava ohjelma = | ==OpenCL-ympäristön toimivuuden tarkistava ohjelma== | ||
Seuraava ohjelma tulostaa OpenCL:ää suorittamaan pystyvät alustat. Oletetaan jatkossa tämän koodin olevan nimellä <tt>hae-alustat.c</tt> | Seuraava ohjelma tulostaa OpenCL:ää suorittamaan pystyvät alustat. Oletetaan jatkossa tämän koodin olevan nimellä <tt>hae-alustat.c</tt> | ||
<source lang=c> | |||
#include <stdio.h> | |||
#include <stdlib.h> | |||
#include <CL/cl.h> | |||
= OpenCL-ympäristö Fedora 20 -jakeluun = | int main() | ||
{ | |||
int i; | |||
cl_int ret; | |||
// Haetaan alustat (enintään 10). | |||
cl_uint alusta_lkm; | |||
cl_platform_id alusta_id[10]; | |||
ret = clGetPlatformIDs(10, alusta_id, &alusta_lkm); | |||
if (ret != CL_SUCCESS) { | |||
printf("clGetPlatformIDs epäonnistui.\n"); | |||
exit(1); | |||
} | |||
// Haetaan alustojen valmistajien nimet (max. 1000 merkkiä) | |||
printf("clGetPlatformIDs löysi %i alustaa.\n", alusta_lkm); | |||
for (i=0; i<alusta_lkm; i++) { | |||
char tmp[1000]; | |||
clGetPlatformInfo(alusta_id[i], CL_PLATFORM_VENDOR, 1000, tmp, NULL); | |||
printf("Alustan %i toimittaja on %s.\n", i, tmp); | |||
} | |||
// Tarkistetaan alustojen todella toimivan | |||
cl_uint laite_lkm; | |||
for (i=0; i<alusta_lkm; i++) { | |||
cl_device_id laite_id[10]; | |||
ret = clGetDeviceIDs(alusta_id[i], CL_DEVICE_TYPE_ALL, 10, | |||
laite_id, &laite_lkm); | |||
if (ret == CL_SUCCESS) { | |||
printf("Alustalla %i on %i laitetta.\n", i, laite_lkm); | |||
for (j=0; j<laite_lkm; j++) { | |||
cl_context kehys = clCreateContext(NULL, | |||
1, laite_id+j, NULL, NULL, &ret); | |||
if (ret == CL_SUCCESS) { | |||
printf("Alustan %i laite %i toimii.\n", i, j); | |||
clReleaseContext(kehys); | |||
} | |||
else | |||
printf("clCreateContext epäonnistui laitteelle %i.\n", j); | |||
} | |||
} | |||
else | |||
printf("clGetDeviceIDs epäonnistui alustalle %i.\n", i); | |||
} | |||
} | |||
</source> | |||
==Jakelukohtaista== | |||
===OpenCL-ympäristö Fedora 20 -jakeluun=== | |||
OpenCL-ohjelman kääntämiseen (mutta ei linkittämiseen valmiiksi ohjelmaksi) riittävät OpenCL-otsakkeet. Ne asentuvat komennolla | OpenCL-ohjelman kääntämiseen (mutta ei linkittämiseen valmiiksi ohjelmaksi) riittävät OpenCL-otsakkeet. Ne asentuvat komennolla | ||
| Rivi 67: | Rivi 70: | ||
tuottaa tiedoston <tt>hae-alustat.o</tt> | tuottaa tiedoston <tt>hae-alustat.o</tt> | ||
== Intelin OpenCL-ympäristö == | ====Intelin OpenCL-ympäristö==== | ||
Seuraavaksi tarvitaan pari pakettia riippuvuuksien vuoksi | Seuraavaksi tarvitaan pari pakettia riippuvuuksien vuoksi | ||
| Rivi 95: | Rivi 98: | ||
Riittävän SSE-tuen puuttuessa edelläoleva testiohjelma löytää alustan ja laitteen, mutta epäonnistuu <tt>clCreateContext</tt>-funktiossa. | Riittävän SSE-tuen puuttuessa edelläoleva testiohjelma löytää alustan ja laitteen, mutta epäonnistuu <tt>clCreateContext</tt>-funktiossa. | ||
== NVidian OpenCL-ympäristö == | ====NVidian OpenCL-ympäristö==== | ||
NVidian OpenCL-tuen saat käyttöön [[RPM Fusion]] -pakettivarastosta komennolla | NVidian OpenCL-tuen saat käyttöön [[RPM Fusion]] -pakettivarastosta komennolla | ||