/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:14 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_ermsg s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdlib.h>
#include "p_ermsg.h"
/*     program DRERMSG
 *>> 1988-11-16 DRERMSG CLL
 * */
 
int main( )
{
	long int idelta;
	static float sx = 1.0e0;
	static double dx = 2.0e0;
 
 
 
	ermsg( "AAAA", 1, 0, "Description of error.", ',' );
	serv1( "SX", sx, '.' );
	ermsg( "BBBB", 2, 0, "Description of 2nd error.", '.' );
	serm1( "CCCC", 3, 0, "Description of 3rd error.", "SX", sx, '.' );
	derm1( "DDDD", 4, 0, "Description of 4th error.", "DX", dx, '.' );
	for (idelta = -2; idelta <= 3; idelta++)
	{
		ermset( idelta );
		ierm1( "EEEE", 5, 0, "Testing ERMSET", "IDELTA", idelta, '.' );
	}
	exit(0);
} /* end of function */