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