Fresh Fish 8/FreshFishVol8-CD2.bin/bbs/gnu/f2c-1993.04.28-src.lha/f2c-1993.04.28/libF77/i_len.c

C/C++ Source or Header | 1993-04-28 | 136b | 11 lines

#include "f2c.h"

#ifdef KR_headers
integer i_len(s, n) char *s; ftnlen n;
#else
integer i_len(char *s, ftnlen n)
#endif
{
return(n);
}