overby.me
this repo has no description
1
2/*
3 * scalbln.c
4 *
5 * by Ian Ollmann
6 *
7 * Copyright (c) 2007, Apple Inc. All Rights Reserved.
8 *
9 * C99 impelemtnation of scalbln().
10 */
11
12#include <math.h>
13#include <stdint.h>
14
15double scalbln( double x, long i )
16{
17 if( i > 3000L )
18 i = 3000L;
19 if( i < -3000L )
20 i = -3000L;
21
22 return scalbn( x, (int) i );
23}