5 * Revision 1.1.1.1 1996/04/01 15:02:28 mclareni
10 #if defined(CERNLIB_DOUBLE)
11 SUBROUTINE RCHEBN(M,N,A,MDIM,B,TOL,RELERR,X,RESMAX,IRK,ITER,IOCD)
13 #if !defined(CERNLIB_DOUBLE)
14 SUBROUTINE DCHEBN(M,N,A,MDIM,B,TOL,RELERR,X,RESMAX,IRK,ITER,IOCD)
17 #if defined(CERNLIB_DOUBLE)
20 #if !defined(CERNLIB_DOUBLE)
23 CALL MTLPRT(NAME,'E222',
24 +'not available on this machine - see documentation')