Ok:    xerror

 

# include <cstring>
# include <f2cad/xerror.hpp>

void xerror(void)
{
	const char* messg     = "Pass: xerror\n";
	integer     nmessg    = std::strlen(messg);
	integer     nerr      = 1;
	integer     level     = 0;
 	ftnlen      messg_len = (ftnlen) nmessg;   

	f2cad::xerror_(messg, &nmessg, &nerr, &level, messg_len);

}