/*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_err1 s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdlib.h>
#include "p_err1.h"
/*     DRERR1
 *>> 1996-05-28 DRERR1   Krogh   Removed IDVAL, X, and Y.
 *>> 1996-01-24 DRERR1   Krogh   Removed calls to SERMN and DERMN.
 *>> 1987-12-09 DRERR1   Lawson  Initial Code.
 * */
 
int main( )
{
 
	ermsg( "AAAA", 1, 0, "ERMSG", ',' );
	ermor( "TESTING ERMOR1", ',' );
	ermor( "TESTING ERMOR2", '.' );
	exit(0);
} /* end of function */