Go to the documentation of this file.00001 #include "f2c.h"
00002 #ifdef __cplusplus
00003 extern "C" {
00004 #endif
00005
00006 #ifdef KR_headers
00007 integer i_len(s, n) char *s; ftnlen n;
00008 #else
00009 integer i_len(char *s, ftnlen n)
00010 #endif
00011 {
00012 return(n);
00013 }
00014 #ifdef __cplusplus
00015 }
00016 #endif