nam2di(device_names.i1a.r, device_indices.i4a.r [,work_area.i1a.r]

	This routine will translate one or more device names to one or
	more device indices.  If more than one device name is to be passed
	to this procedure, 'work_area' AND 'num_devices' must be specified.

	device_names	device name
			(dio_get_terse_name_length characters per entry)
			If name is shorter than dio_get_terse_name_length
			bytes, it must be left-justified and blank padded.
	device_indices	returned device index or array of device indices
	[work_area]	database work area array (only used if more than
			one device is requested)
			(size should be
			 num_devices * DEVICE_TERSE_NAME_LEN + 6 bytes)
	[num_devices]	number of devices (default is 1)

	This function requires the following include files:


	Related functions:

	di2nam, dbrdi, dio_get_terse_name_length