5 * Revision 1.1.1.1 1996/04/01 15:02:27 mclareni
10 #if !defined(CERNLIB_DOUBLE)
11 SUBROUTINE DCSPLN(N,X,M,Y,NDIM,MODE,A,B,C,D)
12 #include "gen/imp128.inc"
14 PARAMETER (NAME = 'DCSPLN/DCSPNT')
16 ENTRY DCSPNT(N,X,M,Y,NDIM,MODE,A,B,C,D)
17 CALL MTLPRT(NAME,'E211.0','Not available on this machine')