/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:30:56 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include "xerbla.h"
#include <stdlib.h>
#include <string.h>
		/* PARAMETER translations */
#define	MEEMES	52
#define	MERET	52
		/* end of PARAMETER translations */
 
void /*FUNCTION*/ xerbla(
char *srname,
long info)
{
	long int idat[1];
	static char text[1][64]={" ** On entry to xxxxxx paramter number $I had an illegal value."};
	static long mact[5]={MEEMES,87,1,0,MERET};
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	long *const Idat = &idat[0] - 1;
	long *const Mact = &mact[0] - 1;
		/* end of OFFSET VECTORS */
 
	/*>> 2009-11-05 XERBLA Krogh Got INFO into the errro messages.
	 *
	 *  -- LAPACK auxiliary routine (preliminary version) --
	 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
	 *     November 2006
	 *
	 *     .. Scalar Arguments .. */
	/* Added by Krogh to use the MATH77 error processor */
	/*                       1234567890123456789012 */
	Idat[1] = info;
	f_subscpy( text[0], 16, 21, 63, srname );
	mess( mact, (char*)text,64, idat );
	exit(0);
 
	/* And rest of code has cc at start of executable statements */
 
	/*     ..
	 *
	 *  Purpose
	 *  =======
	 *
	 *  XERBLA  is an error handler for the LAPACK routines.
	 *  It is called by an LAPACK routine if an input parameter has an
	 *  invalid value.  A message is printed and execution stops.
	 *
	 *  Installers may consider modifying the STOP statement in order to
	 *  call system-specific exception-handling facilities.
	 *
	 *  Arguments
	 *  =========
	 *
	 *  SRNAME  (input) CHARACTER*6
	 *          The name of the routine which called XERBLA.
	 *
	 *  INFO    (input) INTEGER
	 *          The position of the invalid parameter in the parameter list
	 *          of the calling routine.
	 *
	 *
	 *c      WRITE (*,FMT=9999) SRNAME,INFO
	 *
	 *c      STOP
	 *
	 *c 9999 FORMAT (' ** On entry to ',A6,' parameter number ',I2,' had ',
	 *c     +       'an illegal value')
	 *
	 *     End of XERBLA
	 * */
} /* end of function */