
246 Supervised Classification Part 1
Listing 6.4: Excerpt from the program module KERNEL_RUN.PRO.
1 FUNC TION Output , sigma , Hs , symm = symm
2 COMP ILE_OP T STRICTARR
3 COMMON examples , Gs , Gs_gpu , ells , K , m , cuda
4 IF n_el ements ( symm ) EQ 0 THEN symm = 0
5 result = flt arr ( n_el ements ( Hs [0 ,*]) , K )
6 IF cuda THEN BEGIN
7 IF symm THEN Ka ppa_gp u = $
8 gp ukerne l_ma tr ix ( Gs_gpu , gma =0.5/ sigma ^2) $
9 ELSE BEGIN
10 Hs_g pu = gpu putarr ( Hs )
11 K appa_g pu = gpukernel_ma trix ( Gs_gpu , $
12 Hs_gpu , gma =0.5 / s igma ^2)
13 gpufree , Hs_ gpu
14 ENDELSE
15 Kappa = gpuget arr ( Kappa_gpu )
16 gpufree , Kap pa_gpu
17 END $
18 ELSE Kap