5 * Revision 1.1.1.1 1996/04/01 15:02:17 mclareni
10 #if defined(CERNLIB_DOUBLE)
11 SUBROUTINE RRKNYS(N,H,X,Y,YP,SUB,W)
14 PARAMETER (NAME = 'RRKNYS')
15 ENTRY RKNYS(N,H,X,Y,YP,SUB,W)
17 #if !defined(CERNLIB_DOUBLE)
18 SUBROUTINE DRKNYS(N,H,X,Y,YP,SUB,W)
21 PARAMETER (NAME = 'DRKNYS')
23 CALL MTLPRT(NAME,'D203.0','Not available on this machine')