MINICERN/mathlib/gen/g/g116f1.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:48  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       FUNCTION G116F1(X)
  11
  12       COMMON /G116C1/ H(7),T0,T1,T,OMEGA,A(155),B(155),X0
  13
  14       G116F1=H(1)+H(2)*LOG(H(3)*X)-H(4)*X
  15       RETURN
  16
  17       ENTRY G116F2(X)
  18
  19       G116F2=H(5)-X+H(6)*(LOG(ABS(X))+REXPIN(X))-H(7)*EXP(-X)
  20       RETURN
  21       END