MINICERN/mathlib/gen/c/relfun.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:01  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10 #if defined(CERNLIB_DOUBLE)
  11       SUBROUTINE RELFUN(X,AK2,SN,CN,DN)
  12 #include "gen/def64.inc"
  13      +   DSN,DCN,DDN,D
  14
  15       ENTRY ELFUN(X,AK2,SN,CN,DN)
  16       SROUND(D)=D+(D-SNGL(D))
  17       CALL DELFUN(DBLE(X),DBLE(AK2),DSN,DCN,DDN)
  18       SN=SROUND(DSN)
  19       CN=SROUND(DCN)
  20       DN=SROUND(DDN)
  21       RETURN
  22       END
  23 #endif