Added method to get the vendor name of an OpenCL device.
diff --git a/MagickCore/opencl.c b/MagickCore/opencl.c
index cadb74e..aa86312 100644
--- a/MagickCore/opencl.c
+++ b/MagickCore/opencl.c
@@ -1791,6 +1791,35 @@
% %
% %
% %
+% G e t O p e n C L D e v i c e V e n d o r N a m e %
+% %
+% %
+% %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% GetOpenCLDeviceVendorName() returns the vendor name of the device.
+%
+% The format of the GetOpenCLDeviceVendorName method is:
+%
+% const char *GetOpenCLDeviceVendorName(const MagickCLDevice device)
+%
+% A description of each parameter follows:
+%
+% o device: the OpenCL device.
+*/
+
+MagickExport const char *GetOpenCLDeviceVendorName(const MagickCLDevice device)
+{
+ if (device == (MagickCLDevice) NULL)
+ return((const char *) NULL);
+ return(device->vendor_name);
+}
+
+/*
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %
+% %
+% %
% G e t O p e n C L D e v i c e s %
% %
% %
