Changes needed by ICC/IFC compiler (Intel)
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / h / rsmplx.F
CommitLineData
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