contrib/libf2c/libF77/ef1cmc_.c

   1 /* EFL support routine to compare two character strings */
   2
   3 #include "f2c.h"
   4
   5 extern integer s_cmp (char *, char *, ftnlen, ftnlen);
   6 integer
   7 G77_ef1cmc_0 (ftnint * a, ftnlen * la, ftnint * b, ftnlen * lb)
   8 {
   9   return (s_cmp ((char *) a, (char *) b, *la, *lb));
  10 }