Scilab [trunk]: scilab/modules/core/src/c/cs2st.c Source File

00001 /*------------------------------------------------------------------------
00002  *    Copyright (C) 1998-2000 Enpc/Jean-Philippe Chancelier
00003  *    jpc@cereve.enpc.fr 
00004  --------------------------------------------------------------------------*/
00005 
00006 #include "machine.h" 
00007 #include "cs2st.h"
00008 
00009 int C2F(cs2st)(integer *i,integer *ires)
00010 {
00011   unsigned int ui;
00012   ui = (unsigned int) *i;
00013   ui = (ui/4)+1;
00014   *ires = (ui/2)+1;
00015   return 0;
00016 }