~ubuntu-branches/ubuntu/trusty/libf2c2/trusty

« back to all changes in this revision

Viewing changes to libF77/ef1cmc_.c

  • Committer: Bazaar Package Importer
  • Author(s): Alan Bain
  • Date: 2008-05-19 22:50:54 UTC
  • mfrom: (2.1.4 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080519225054-jlymia0wdvvfq7dg
Tags: 20061008-4
Remove CVS directory left in source package

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
/* EFL support routine to compare two character strings */
2
 
 
3
 
#include "f2c.h"
4
 
#ifdef __cplusplus
5
 
extern "C" {
6
 
#endif
7
 
 
8
 
#ifdef KR_headers
9
 
extern integer s_cmp();
10
 
integer ef1cmc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
11
 
#else
12
 
extern integer s_cmp(char*,char*,ftnlen,ftnlen);
13
 
integer ef1cmc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
14
 
#endif
15
 
{
16
 
return( s_cmp( (char *)a, (char *)b, *la, *lb) );
17
 
}
18
 
#ifdef __cplusplus
19
 
}
20
 
#endif