9 lines
		
	
	
	
		
			90 B
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			9 lines
		
	
	
	
		
			90 B
		
	
	
	
		
			C
		
	
	
	
	
	
| #include "f2c.h"
 | |
| 
 | |
| double derfc_(x)
 | |
| doublereal *x;
 | |
| {
 | |
| double erfc();
 | |
| 
 | |
| return( erfc(*x) );
 | |
| }
 |