14 lines
262 B
C
14 lines
262 B
C
|
int ENTIER(statlink, a)
|
||
|
|
int *statlink ;
|
||
|
|
register double a ;
|
||
|
|
{
|
||
|
|
int n ;
|
||
|
|
n = ( int ) a ;
|
||
|
|
return( n < 0 && ( double ) n != a ? n - 1 : n ) ;
|
||
|
|
}
|
||
|
|
int ROUN(statlink,a)
|
||
|
|
int *statlink ;
|
||
|
|
register double a ;
|
||
|
|
{ return(ENTIER(statlink, a+0.5)) ;
|
||
|
|
}
|