scilab/modules/output_stream/sci_gateway/c/sci_disp.c

   1 /*
   2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3  * Copyright (C) 2006 - INRIA - Allan CORNET
   4  *
   5  * This file must be used under the terms of the CeCILL.
   6  * This source file is licensed as described in the file COPYING, which
   7  * you should have received as part of this distribution.  The terms
   8  * are also available at
   9  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  10  *
  11  */
  12
  13 #include "machine.h"
  14 #include "gw_output_stream.h"
  15 /*--------------------------------------------------------------------------*/
  16 extern int C2F(intdisp)(); /* fortran subroutine */
  17 /*--------------------------------------------------------------------------*/
  18 int sci_disp(char *fname,unsigned long fname_len)
  19 {
  20         C2F(intdisp)();
  21         return 0;
  22 }
  23 /*--------------------------------------------------------------------------*/