summaryrefslogtreecommitdiffstats
path: root/contrib/libf2c/libF77/i_len.c
blob: 4020fee4618387451463f3b63ab4c9f752e52200 (plain)
1
2
3
4
5
6
7
8
9
10
#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);
}
OpenPOWER on IntegriCloud