Go to the documentation of this file.00001 #include "f2c.h"
00002
00003 #ifdef KR_headers
00004 integer i_sceiling(x) real *x;
00005 #else
00006 #ifdef __cplusplus
00007 extern "C" {
00008 #endif
00009 integer i_sceiling(real *x)
00010 #endif
00011 {
00012 #define CEIL(x) ((int)(x) + ((x) > 0 && (x) != (int)(x)))
00013
00014 return (integer) CEIL(*x);
00015 }
00016 #ifdef __cplusplus
00017 }
00018 #endif
00019
00020
00021 #ifdef KR_headers
00022 integer i_dceiling(x) doublereal *x;
00023 #else
00024 #ifdef __cplusplus
00025 extern "C" {
00026 #endif
00027 integer i_dceiling(doublereal *x)
00028 #endif
00029 {
00030 #define CEIL(x) ((int)(x) + ((x) > 0 && (x) != (int)(x)))
00031
00032 return (integer) CEIL(*x);
00033 }
00034 #ifdef __cplusplus
00035 }
00036 #endif