5 * Revision 1.1.1.1 1996/04/01 15:01:53 mclareni
10 #if !defined(CERNLIB_DOUBLE)
11 SUBROUTINE WPOLYZ(C,N,MAXIT,Z0,H)
14 PARAMETER (NAME = 'WPOLYZ')
16 #if defined(CERNLIB_DOUBLE)
17 SUBROUTINE CPOLYZ(C,N,MAXIT,Z0,H)
20 PARAMETER (NAME = 'CPOLYZ')
22 CALL MTLPRT(NAME,'C209.0','Not available on this machine')