[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / cgplg128.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:01  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
#if !defined(CERNLIB_DOUBLE)
      FUNCTION WGPLG(N,M,X)
C
#include "gen/imp128.inc"
#if (!defined(CERNLIB_F90))&&(!defined(CERNLIB_DOUBLE))
      COMPLEX*16 WGPLG
#endif
#if (defined(CERNLIB_F90))&&(!defined(CERNLIB_DOUBLE))
      COMPLEX(2) WGPLG
#endif
#if !defined(CERNLIB_DOUBLE)
#include "gen/def128.inc"
     +     X
C
      CHARACTER*(*) NAME
      PARAMETER( NAME='WGPLG')
      WGPLG=0
      CALL MTLPRT(NAME,'C321.0','Not available on this machine')
      RETURN
      END
#endif
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:01 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	#if !defined(CERNLIB_DOUBLE)
	11	FUNCTION WGPLG(N,M,X)
	12	C
	13	#include "gen/imp128.inc"
	14	#if (!defined(CERNLIB_F90))&&(!defined(CERNLIB_DOUBLE))
	15	COMPLEX*16 WGPLG
	16	#endif
	17	#if (defined(CERNLIB_F90))&&(!defined(CERNLIB_DOUBLE))
	18	COMPLEX(2) WGPLG
	19	#endif
	20	#if !defined(CERNLIB_DOUBLE)
	21	#include "gen/def128.inc"
	22	+ X
	23	C
	24	CHARACTER() NAME
	25	PARAMETER( NAME='WGPLG')
	26	WGPLG=0
	27	CALL MTLPRT(NAME,'C321.0','Not available on this machine')
	28	RETURN
	29	END
	30	#endif
	31	#endif