1 #include "FLA_f2c.h" 2 3 4 #ifdef FLA_ENABLE_YET_LAPACK2FLAME 5 s_kat(char * lp,char * rpp[],integer rnp[],integer * np)6int s_kat(char *lp, char *rpp[], integer rnp[], integer *np) 7 { 8 extern int s_cat(char *, char **, integer *, integer *, ftnlen); 9 10 ftnlen ll; 11 ll = strlen(lp); 12 s_cat(lp, rpp, rnp, np, ll); 13 return 0; 14 } 15 16 #endif 17