]> CyberLeo.Net >> Repos - FreeBSD/releng/7.2.git/blob - contrib/libf2c/libF77/i_dim.c
Create releng/7.2 from stable/7 in preparation for 7.2-RELEASE.
[FreeBSD/releng/7.2.git] / contrib / libf2c / libF77 / i_dim.c
1 #include "f2c.h"
2
3 integer
4 i_dim (integer * a, integer * b)
5 {
6   return (*a > *b ? *a - *b : 0);
7 }