Searched refs:XerblaStrLen (Results 1 – 2 of 2) sorted by relevance
6 #define XerblaStrLen 6 macro33 srname = F2C_STR(F77_srname, XerblaStrLen); in F77_xerbla()38 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]); in F77_xerbla()39 rout[XerblaStrLen+6] = '\0'; in F77_xerbla()
109 srname = F2C_STR(F77_srname, XerblaStrLen); in F77_xerbla()