MINICERN/packlib/kernlib/kernnum/f011fort/cfinv.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          CFINV(N,A,IDIM,IR)
  11           INTEGER             IR(*)
  12           COMPLEX             A(IDIM,*),     X, Y, TI
  13           CHARACTER*6         HNAME
  14 #if !defined(CERNLIB_NUMCDBLE)
  15           COMPLEX             ZERO, S31, S32, S33, S34, DOTF
  16           DOTF(X,Y,S31)  =  X*Y + S31
  17           DATA      ZERO      /  (0.,0.)  /
  18 #endif
  19 #if defined(CERNLIB_NUMCDBLE)
  20           COMPLEX*16          ZERO, S31, S32, S33, S34, DC, DOTF
  21           DC(X)          =  DCMPLX(DBLE(REAL(X)),DBLE(AIMAG(X)))
  22           DOTF(X,Y,S31)  =  DC(X)*DC(Y) + S31
  23           DATA      ZERO      /  (0.D0,0.D0)  /
  24 #endif
  25           DATA      HNAME               /  ' CFINV'  /
  26 #include "finv.inc"
  27           RETURN
  28           END