MINICERN/packlib/kernlib/kernnum/f011fort/cfeqn.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          CFEQN(N,A,IDIM,IR,K,B)
  11           INTEGER             IR(*)
  12           COMPLEX             A(IDIM,*),B(IDIM,*),X,Y,TE
  13           CHARACTER*6         HNAME
  14 #if !defined(CERNLIB_NUMCDBLE)
  15           COMPLEX             S21, S22, DOTF
  16           DOTF(X,Y,S21)  =  X*Y + S21
  17 #endif
  18 #if defined(CERNLIB_NUMCDBLE)
  19           COMPLEX*16          S21, S22, DC, DOTF
  20           DC(X)          =  DCMPLX(DBLE(REAL(X)),DBLE(AIMAG(X)))
  21           DOTF(X,Y,S21)  =  DC(X)*DC(Y) + S21
  22 #endif
  23           DATA      HNAME               /  ' CFEQN'  /
  24 #include "feqn.inc"
  25           RETURN
  26           END