/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:17 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_smess s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdlib.h>
#include "p_smess.h"
/*     program DRSMESS
 *>> 1998-11-02 DRSMESS Krogh  Typed all variables.
 *>> 1994-09-09 DRSMESS Krogh  Added CHGTYP code.
 *>> 1993-06-25 DRSMESS Krogh  Additions for Conversion to C.
 *>> 1992-03-24 DRSMESS Krogh -- Initial Code.
 *
 *--S replaces "?": DR?MESS, ?MESS
 * */
#include <string.h>
		/* PARAMETER translations */
#define	LTXTAB	10
#define	LTXTAC	64
#define	LTXTAD	107
#define	LTXTAE	168
#define	MEELIN	14
#define	MEEMES	52
#define	MERET	51
		/* end of PARAMETER translations */
 
 
int main( )
{
	LOGICAL32 lin40;
	long int i;
	static char mtxtaa[2][136]={"DRSMESS$BDescription of error.  (With one real)  FDATA1 = $F.$EDescription of 2nd error.  (With no data)$EDescription of 3rd error.  (W",
	 "ith one integer)  IDATA1 = $I.$EDescription of$ 4th error.  (With two integers and one real)$NIDATA1 = $I, IDATA2 = $I, FDATA2 = $F.$E "};
	static long mloc[4]={LTXTAB,LTXTAC,LTXTAD,LTXTAE};
	static long mact[5]={MEEMES,25,0,0,MERET};
	static long mact1[3]={MEELIN,40,MERET};
	static float fdat[2]={1.7e-12,-12.3456789e0};
	static long idat[3]={17,-178,4};
	static long iloc[4]={1,1,2,2};
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	float *const Fdat = &fdat[0] - 1;
	long *const Idat = &idat[0] - 1;
	long *const Iloc = &iloc[0] - 1;
	long *const Mact = &mact[0] - 1;
	long *const Mact1 = &mact1[0] - 1;
	long *const Mloc = &mloc[0] - 1;
		/* end of OFFSET VECTORS */
 
 
	/* ********* Error message text ***************
	 *[Last 2 letters of Param. name]  [Text generating message.]
	 *AA DRSMESS$B
	 *AB Description of error.  (With one real)  FDATA1 = $F.$E
	 *AC Description of 2nd error.  (With no data)$E
	 *AD Description of 3rd error.  (With one integer)  IDATA1 = $I.$E
	 *AE Description of 4th error.  (With two integers and one real)$N
	 *   IDATA1 = $I, IDATA2 = $I, FDATA2 = $F.$E */
	/*  --------- End of code generated by PMESS from DRSMESS.ERR ----------- */
 
	/*                 1       2 3 4      5 */
 
	lin40 = FALSE;
	/*                        Loop to print error messages. */
L_10:
	for (i = 1; i <= 4; i++)
	{
		Mact[3] = i;
		Mact[4] = Mloc[i];
		smess( mact, (char*)mtxtaa,136, &Idat[Iloc[i]], &Fdat[Iloc[i]] );
	}
	if (lin40)
		{
		exit(0);
		}
	/*                        Change the line length to 40 and do it again. */
	mess( mact1, (char*)mtxtaa,136, idat );
	lin40 = TRUE;
	goto L_10;
} /* end of function */