UNIX 7th Ed. - /usr/src/libF77/i_dim.c

   1: long int i_dim(a,b)
   2: long int *a, *b;
   3: {
   4: return( *a > *b ? *a - *b : 0);
   5: }

Defined functions