00001 #include "f2c.h" 00002 #ifdef __cplusplus 00003 extern "C" { 00004 #endif 00005 00006 #ifdef KR_headers 00007 integer i_len_trim(s, n) char *s; ftnlen n; 00008 #else 00009 integer i_len_trim(char *s, ftnlen n) 00010 #endif 00011 { 00012 int i; 00013 00014 for(i=n-1;i>=0;i--) 00015 if(s[i] != ' ') 00016 return i + 1; 00017 00018 return(0); 00019 } 00020 #ifdef __cplusplus 00021 } 00022 #endif