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); }