gcl_(prompt,buffer,sizebuffer,got,errorarray)
char	*prompt;	/* prompt string if we suck from terminal */
char	*buffer;	/* where to read in the actual command line
			   (after ; & @ processed) */
int	sizebuffer;	/* maximum buffer size */
int	*got;		/* returns number of buffer bytes actually used */
char	*errorarray;	/* 3 bytes:
				[0]	gcl error codes
				[1]	fcs error codes
				[2]	directive error codes
			   status return : all 0 means OK */
{extern int gclgcl();	/* fortran-callable GCL routine (pashunfingazdunit) */
 int	pl;		/* length of prompt string */
 int	pa;		/* address of prompt string */
 int	ea;		/* address of error array */
 int	ba;		/* address of buffer */
 int	bz;		/* size of buffer */
 int	ga;		/* address of reply (size got) */
 pl = strlen(prompt);
 pa = prompt;
 ea = errorarray;
 ba = buffer;
 bz = sizebuffer;
 ga = got;
 call(gclgcl,6,&pa,&pl,&ea,&ba,&bz,&ga);
}
