-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathFABS.c
28 lines (25 loc) · 2.07 KB
/
FABS.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
/*════════════════════════════════════════╦═════════════════════════════╗
║ C - FABS ║ Maximum Tension ║
╠═════════════════════════════════════════╬═════════════════════════════╣
║ │ ▄▄▄ ▄▄▄ ║
║ Teoman Deniz │ ░ ░▒▓▒▄▄ ▄▄▒▓▒░ ░ ║
║ maximum-tension.com │ ░░ ░░ ║
║ │ ░▒░ ░ ░░ ░ ░ ░ ░░░░▒░ ║
║ ╔───┬──────────────────╗ │ ░▒░░ ░▒░▒▓░▒░▒░░▓░░░▒▒▒░ ║
║ │ © │ Maximum Tension │ ┌──────────────┤ ░░▒░░▒▒▓██▓█▓█▒░▒▓▓▒▒░░ ║
║ ├───┴─────┬────────────┤ │ C 2023/02/09 │ ░▒▓▒▒▓▓██████████▓▓▒▒░ ║
║ │ License │ GNU │ │──────────────│ ░░░░▒▒▒▓▒▒▓▒▒▒▓▒▒▒░░ ║
║ ╚─────────┴────────────╝ │ U 2023/02/19 │ ░░░░▒░░▒░░░▒░░░░ ║
╚══════════════════════════╩══════════════╩════════════════════════════*/
#include "../#C_MT.h"
#ifdef __STDC__
DOUBLE
FABS(REGISTER DOUBLE X)
#else
DOUBLE
FABS(X)
REGISTER DOUBLE (X);
#endif
{
RETURN ((X < 0) ? (X * -1) : (X));
}