10 lines
		
	
	
	
		
			134 B
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			10 lines
		
	
	
	
		
			134 B
		
	
	
	
		
			C
		
	
	
	
	
	
#include "f2c.h"
 | 
						|
 | 
						|
extern integer s_cmp();
 | 
						|
 | 
						|
shortint hl_ge(a,b,la,lb)
 | 
						|
char *a, *b;
 | 
						|
long int la, lb;
 | 
						|
{
 | 
						|
return(s_cmp(a,b,la,lb) >= 0);
 | 
						|
}
 |