[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kernnum / f011fort / rfinv.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:03  mclareni
* Kernlib
*
*
#include "kernnum/pilot.h"
          SUBROUTINE          RFINV(N,A,IDIM,IR)
          INTEGER             IR(*)
          REAL                A(IDIM,*), X, Y, TI
          CHARACTER*6         HNAME
#if !defined(CERNLIB_NUMRDBLE)
          REAL                ZERO, S31, S32, S33, S34, DOTF
          DOTF(X,Y,S31)  =  X*Y + S31
          DATA      ZERO      /  0.  /
#endif
#if defined(CERNLIB_NUMRDBLE)
          DOUBLE PRECISION    ZERO, S31, S32, S33, S34, DOTF
          DOTF(X,Y,S31)  =  DBLE(X)*DBLE(Y) + S31
          DATA      ZERO      /  0.D0  /
#endif
          DATA      HNAME               /  ' RFINV'  /
#include "finv.inc"
          RETURN
          END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:03 mclareni
	6	* Kernlib
	7	*
	8	*
	9	#include "kernnum/pilot.h"
	10	SUBROUTINE RFINV(N,A,IDIM,IR)
	11	INTEGER IR(*)
	12	REAL A(IDIM,*), X, Y, TI
	13	CHARACTER*6 HNAME
	14	#if !defined(CERNLIB_NUMRDBLE)
	15	REAL ZERO, S31, S32, S33, S34, DOTF
	16	DOTF(X,Y,S31) = X*Y + S31
	17	DATA ZERO / 0. /
	18	#endif
	19	#if defined(CERNLIB_NUMRDBLE)
	20	DOUBLE PRECISION ZERO, S31, S32, S33, S34, DOTF
	21	DOTF(X,Y,S31) = DBLE(X)*DBLE(Y) + S31
	22	DATA ZERO / 0.D0 /
	23	#endif
	24	DATA HNAME / ' RFINV' /
	25	#include "finv.inc"
	26	RETURN
	27	END