home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / F2C_SRC.ZIP / F2C / LIBF77 / EF1CMC_.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-10  |  233 b   |  13 lines
  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. }
  13.