xref: /csrg-svn/usr.bin/f77/libF77/r_abs.c (revision 23854)
110518Sdlw /*
222943Skre  * Copyright (c) 1980 Regents of the University of California.
322943Skre  * All rights reserved.  The Berkeley software License Agreement
422943Skre  * specifies the terms and conditions for redistribution.
522943Skre  *
6*23854Sjerry  *	@(#)r_abs.c	5.2	07/08/85
710518Sdlw  */
810518Sdlw 
9*23854Sjerry float r_abs(x)
1010518Sdlw float *x;
1110518Sdlw {
1210518Sdlw if(*x >= 0)
1310518Sdlw 	return(*x);
1410518Sdlw return(- *x);
1510518Sdlw }
16