lang/fortran/lib/libF77/ef1cmc_.c

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