home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / adaptor / examples / hpf_gen / pi / fx.fcm next >
Encoding:
Text File  |  1993-03-23  |  216 b   |  14 lines
  1. c
  2. c   fx.f  91/21/11 
  3. c
  4. c   Function to integrate in the integration example.
  5. c
  6.     subroutine fun(f,x,points)
  7.         integer points
  8.     double precision x(points),f(points)
  9.  
  10.     f = 4.D0 / (1.D0 + x*x)
  11.  
  12.         return
  13.     end
  14.