41 lines
568 B
C
41 lines
568 B
C
|
#include "clapack.h"
|
||
|
|
|
||
|
|
/* compare two strings */
|
||
|
|
|
||
|
|
integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb)
|
||
|
|
{
|
||
|
|
register unsigned char *a, *aend, *b, *bend;
|
||
|
|
a = (unsigned char *)a0;
|
||
|
|
b = (unsigned char *)b0;
|
||
|
|
aend = a + la;
|
||
|
|
bend = b + lb;
|
||
|
|
|
||
|
|
if(la <= lb)
|
||
|
|
{
|
||
|
|
while(a < aend)
|
||
|
|
if(*a != *b)
|
||
|
|
return( *a - *b );
|
||
|
|
else
|
||
|
|
{ ++a; ++b; }
|
||
|
|
|
||
|
|
while(b < bend)
|
||
|
|
if(*b != ' ')
|
||
|
|
return( ' ' - *b );
|
||
|
|
else ++b;
|
||
|
|
}
|
||
|
|
|
||
|
|
else
|
||
|
|
{
|
||
|
|
while(b < bend)
|
||
|
|
if(*a == *b)
|
||
|
|
{ ++a; ++b; }
|
||
|
|
else
|
||
|
|
return( *a - *b );
|
||
|
|
while(a < aend)
|
||
|
|
if(*a != ' ')
|
||
|
|
return(*a - ' ');
|
||
|
|
else ++a;
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|