This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / rgmlt.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1996/04/01 15:02:15  mclareni
6 * Mathlib gen
7 *
8 *
9 #include "gen/pilot.h"
10 #if defined(CERNLIB_DOUBLE)
11       FUNCTION RGMLT1(FSUB1,A,B,NI,NG,X)
12
13       ENTRY RGMLT2(FSUB2,A,B,NI,NG,X)
14       ENTRY RGMLT3(FSUB3,A,B,NI,NG,X)
15       ENTRY RGMLT4(FSUB4,A,B,NI,NG,X)
16       ENTRY RGMLT5(FSUB5,A,B,NI,NG,X)
17       ENTRY RGMLT6(FSUB6,A,B,NI,NG,X)
18
19 C
20       CHARACTER NAME*(*)
21       PARAMETER (NAME = 'RGMLT')
22       CALL MTLPRT(NAME,'D110.0','Not available on this machine')
23       RGMLT1=0
24       RETURN
25       END
26 #endif