*
* $Id: dfun.F,v 1.1.1.1 1996/03/08 17:40:14 mclareni Exp $
*
* $Log: dfun.F,v $
* Revision 1.1.1.1  1996/03/08 17:40:14  mclareni
* Lepto63
*
*
C **********************************************************************
 
      DOUBLE PRECISION FUNCTION DFUN(NDIM,X)
      INTEGER NDIM
      DOUBLE PRECISION X(NDIM)
 
      DFUN=RIWFUN(X)
      RETURN
      END
