gsmod(names.i1a.r, length.i2.r [,node.i2.r] [,status.i2.r])

	This routine retrieves the names of the GAS module types for a given
	front end computer.  In the event of an error, the "names" array
	is filled with asterisks.
	names		array of returned module names (4 characters each)
			(The first array element receives the name of module
			 code 1 and so on.)
	length		maximum number of module names to return
			(This usually has a value of 7.  The maximum
			 allowable value is 14.)
	[node]		front end logical node number (default is TEV)
	[status]	returned standard ACNET status value

	This function requires the following include files:

	clib_h, nodedefs_h, acnet_errors_h

	Related functions:

	gslist, gslend, gsget, gsgetw, gschk, gsset, gsread, gstanc, gsboot,

	C/C++ usage:

	char		names[7][4];		! array for 7 module names
	short		node = MI;
	short		status;
	short		length = 7;

	gsmod((char *) names,&length,&node,
	      &status);				! retrieve MI's module names

	FORTRAN usage:


	CHARACTER*4	names(7)		! array for 7 module names
	INTEGER*2	status

	CALL gsmod(names,7,MI,status)		! retrieve MI's module names