MINICERN/packlib/kernlib/kernnum/f011fort/rfinv.F

   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