1 #include "FLA_f2c.h"
2 
3 
4 #ifdef FLA_ENABLE_YET_LAPACK2FLAME
5 
s_kat(char * lp,char * rpp[],integer rnp[],integer * np)6 int 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