Dummy subroutines to avoid files with no code in
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / erf128.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
9fbce831 5* Revision 1.1.1.1 1999/05/18 15:55:34 fca
6* AliRoot sources
7*
fe4da5cc 8* Revision 1.1.1.1 1996/04/01 15:01:53 mclareni
9* Mathlib gen
10*
11*
12#include "gen/pilot.h"
13#if !defined(CERNLIB_DOUBLE)
14 FUNCTION DERF(X)
15C
16#include "gen/imp128.inc"
17 CHARACTER*(*) NAME1,NAME2
18 PARAMETER(NAME1='DERF')
19 PARAMETER(NAME2='DERFC')
20 DERF=0
21 CALL MTLPRT(NAME,'C300.0','Not available on this machine')
22C
23 ENTRY DERFC(X)
24 DERFC=0
25C
26 CALL MTLPRT(NAME,'C300.0','Not available on this machine')
27 RETURN
28 END
9fbce831 29#else
30 SUBROUTINE ERF128_DUMMY
31 END
fe4da5cc 32#endif