[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / h / rsmplx.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:49  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
#if defined(CERNLIB_DOUBLE)
      SUBROUTINE RSMPLX(A,B,C,Z0,IDA,M,M1,N,N1,LW,IDW,W,X,Z,ITYPE)
#endif
#if !defined(CERNLIB_DOUBLE)
      SUBROUTINE DSMPLX(A,B,C,Z0,IDA,M,M1,N,N1,LW,IDW,W,X,Z,ITYPE)
#endif

      CHARACTER NAME*(*)
#if defined(CERNLIB_DOUBLE)
      PARAMETER (NAME = 'RSMPLX')
#endif
#if !defined(CERNLIB_DOUBLE)
      PARAMETER (NAME = 'DSMPLX')
#endif
      CALL MTLPRT(NAME,'H101.0','NOT AVAILABLE IN THIS MACHINE')
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:49 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	#if defined(CERNLIB_DOUBLE)
	11	SUBROUTINE RSMPLX(A,B,C,Z0,IDA,M,M1,N,N1,LW,IDW,W,X,Z,ITYPE)
	12	#endif
	13	#if !defined(CERNLIB_DOUBLE)
	14	SUBROUTINE DSMPLX(A,B,C,Z0,IDA,M,M1,N,N1,LW,IDW,W,X,Z,ITYPE)
	15	#endif
	16
	17	CHARACTER NAME()
	18	#if defined(CERNLIB_DOUBLE)
	19	PARAMETER (NAME = 'RSMPLX')
	20	#endif
	21	#if !defined(CERNLIB_DOUBLE)
	22	PARAMETER (NAME = 'DSMPLX')
	23	#endif
	24	CALL MTLPRT(NAME,'H101.0','NOT AVAILABLE IN THIS MACHINE')
	25	RETURN
	26	END