fe4da5cc |
1 | * |
2 | * $Id$ |
3 | * |
fe4da5cc |
4 | #include "gen/pilot.h" |
5 | C This will be GAUSS,IF=DOUBLE and GAUSS64,IF=-DOUBLE. |
6 | FUNCTION GAUSS(F,A,B,EPS) |
7 | |
8 | CHARACTER NAME*(*) |
9 | PARAMETER (NAME = 'GAUSS') |
10 | #include "gausscod.inc" |
11 | 99 GAUSS=H |
12 | RETURN |
13 | END |