i_len.c 203 B

12345678910111213141516
  1. #include "f2c.h"
  2. #ifdef __cplusplus
  3. extern "C" {
  4. #endif
  5. #ifdef KR_headers
  6. integer i_len(s, n) char *s; ftnlen n;
  7. #else
  8. integer i_len(char *s, ftnlen n)
  9. #endif
  10. {
  11. return(n);
  12. }
  13. #ifdef __cplusplus
  14. }
  15. #endif