/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:30:11 */
/*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 "umess.h"
#include <stdlib.h>
		/* PARAMETER translations */
#define	MEVBAS	10
#define	MEVLAS	33
		/* end of PARAMETER translations */
 
void /*FUNCTION*/ umess(
char *text, int text_s,
long mact[],
long ivar[])
{
#define TEXT(I_,J_)	(text+(I_)*(text_s)+(J_))
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	long *const Mact = &mact[0] - 1;
		/* end of OFFSET VECTORS */
 
	/* Copyright (c) 1996 California Institute of Technology, Pasadena, CA.
	 * ALL RIGHTS RESERVED.
	 * Based on Government Sponsored Research NAS7-03001.
	 *>> 1996-03-25 UMESS  Krogh  Included full set of parameters.
	 *>> 1992-01-29 UMESS  Krogh  Initial code.
	 *
	 * Dummy routine called by the error message routine MESS.  This gives
	 * the default action when an error message is requested, which is to do
	 * nothing here and take the default actions in MESS.  One can change the
	 * actions taken by changing the values in MACT or IVAR.  Comments here
	 * refer to things defined in the listing for MESS.
	 * Variables in the calling sequence are defined as follows:
	 *
	 * TEXT  Same as TEXT passed into MESS.  The characters up to the first
	 *       "$" sign are the name of the subroutine that made the call to
	 *       MESS.
	 * MACT  Contents of MACT connected with the error message.  The first
	 *       location is the value of K52 = 10*s + p, where s is the stop
	 *       level specified for the error message, and p the print level.
	 *       The next is the value of L52, which is an error index associated
	 *       with an error message, and the next is the value of M52.  These
	 *       values or a subset of them together with TEXT should serve to
	 *       uniquely identify the error message.  The values of MACT(1)
	 *       (=K52), or  MACT(2) (=L52) can be changed and the new values
	 *       will be used if a return is made to MESS.  (For example MACT(1)
	 *       = MACT(1) - mod(MACT(1), 10), would turn off printing of a
	 *       message.)  Note that if MACT(1) > 90, and it is replaced with a
	 *       value which results in MESS returning rather than stopping,
	 *       unpredictable results are to be expected.
	 * IVAR  An array containing the parameters defining default values for
	 *       MESS.  The parameter values below can be used to access data in
	 *       this array.  For example, IVAR(MESTOP) gives the current stop
	 *       value, so one can tell (using s from MACT(1) above) if an error
	 *       is going to stop, and perhaps do some clean up before the stop
	 *       occurs.  Values in IVAR can be changed, but this should be done
	 *       with great care, since if MESS doesn't stop, the next error or
	 *       diagnostic message will use the new value, and diagnostic
	 *       messages do not call this routine.
	 * */
	/* Parameters for changing the environment. */
	/* Parameters for actions. */
	/* Parameter derived from those above. */
 
 
	/* Code for your actions goes here.
	 * */
	return;
#undef	TEXT
} /* end of function */