r_abs.c « libF77 « libf2c « lib « gnu - src - OpenBSD base system

summary refs log tree commit diff

path: root/gnu/lib/libf2c/libF77/r_abs.c

blob: 6f62724ef17a1ed6773267bb3e6f04553bfe1805 (plain)

#include "f2c.h"

double
r_abs (real * x)
{
  if (*x >= 0)
    return (*x);
  return (-*x);
}