MINICERN/packlib/kernlib/kernnum/f011fort/dfinv.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          DFINV(N,A,IDIM,IR)
  11           INTEGER             IR(*)
  12           DOUBLE PRECISION    A(IDIM,*),ZERO,     X, Y, TI
  13           DOUBLE PRECISION    S31, S32, S33, S34, DOTF
  14           CHARACTER*6         HNAME
  15           DATA      HNAME               /  ' DFINV'  /
  16           DOTF(X,Y,S31)  =  X*Y + S31
  17           DATA      ZERO      /  0.D0  /
  18 #include "finv.inc"
  19           RETURN
  20           END