Scilab [trunk]: scilab/modules/intersci/src/lib/cerro.c Source File

00001 /* Copyright INRIA */
00002 #include <string.h>
00003 #include "machine.h"
00004 #include "cerro.h"
00005 
00006 extern void C2F(erro)();
00007 
00008 
00009 void cerro(char *str)
00010 {
00011   int l;
00012   l = strlen(str) + 1;
00013   C2F(erro)(str,l);
00014 }