5 * Revision 1.1.1.1 1996/04/01 15:02:03 mclareni
10 #if !defined(CERNLIB_DOUBLE)
11 FUNCTION WWHITM(Z,KA,MU)
13 #if (!defined(CERNLIB_F90))&&(!defined(CERNLIB_DOUBLE))
14 COMPLEX*16 WWHITM,Z,KA,MU
16 #if (defined(CERNLIB_F90))&&(!defined(CERNLIB_DOUBLE))
17 COMPLEX(2) WWHITM,Z,KA,MU
19 #if !defined(CERNLIB_DOUBLE)
22 PARAMETER( NAME='WWHITM')
24 CALL MTLPRT(NAME,'C328.0','Not available on this machine')