contrib/libf2c/libF77/ef1cmc_.c


1
2
3
4
5
6
7
8
9
10

/* EFL support routine to compare two character strings */

#include "f2c.h"

extern integer s_cmp (char *, char *, ftnlen, ftnlen);
integer
G77_ef1cmc_0 (ftnint * a, ftnlen * la, ftnint * b, ftnlen * lb)
{
  return (s_cmp ((char *) a, (char *) b, *la, *lb));
}