* java/util/zip/ZipEntry.java (ZipEntry(String)): When name is bigger
[official-gcc.git] / libf2c / libF77 / i_sign.c
blobcf090086d008fe81990755112ddf366099734d63
1 #include "f2c.h"
3 integer
4 i_sign (integer * a, integer * b)
6 integer x;
7 x = (*a >= 0 ? *a : -*a);
8 return (*b >= 0 ? x : -x);