~ubuntu-branches/ubuntu/lucid/pdl/lucid

« back to all changes in this revision

Viewing changes to Lib/GSL/SF/dawson/gsl_sf_dawson.pd

  • Committer: Bazaar Package Importer
  • Author(s): Henning Glawe
  • Date: 2003-12-13 22:25:41 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20031213222541-m2sq55fevk74h93c
Tags: 1:2.4.0-1
* new maintainer (Closes: #215543)
* acknowlege NMU (Closes: #141117, #104630, #140104, #170182)
* new upstream release.
* enable plplot support (Closes: #196185)
* enable gsl support
* enable fftw support
* swap out m51.fits and COPYING, taken from PDL CVS HEAD (Closes: #223793)

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
pp_addpm({At=>Top},<<'EOD');
 
2
=head1 NAME
 
3
 
 
4
PDL::GSLSF::DAWSON - PDL interface to GSL Special Functions
 
5
 
 
6
=head1 DESCRIPTION
 
7
 
 
8
This is an interface to the Special Function package present in the GNU Scientific Library. 
 
9
 
 
10
=head1 SYNOPSIS
 
11
 
 
12
=head1 Functions
 
13
 
 
14
=cut
 
15
EOD
 
16
 
 
17
# PP interface to GSL
 
18
 
 
19
pp_addhdr('
 
20
#include <gsl/gsl_sf.h>
 
21
#include "../gslerr.h"
 
22
');
 
23
 
 
24
pp_def('gsl_sf_dawson',
 
25
       GenericTypes => [D],
 
26
       Pars=>'double x(); double [o]y(); double [o]e()',
 
27
       Code =>'
 
28
gsl_sf_result r;
 
29
GSLERR(gsl_sf_dawson_e,($x(),&r))
 
30
$y() = r.val;
 
31
$e() = r.err; 
 
32
',
 
33
       Doc =>'Dawsons integral: Exp[-x^2] Integral[ Exp[t^2], {t,0,x}]'
 
34
      );
 
35
 
 
36
pp_addpm({At=>Bot},<<'EOD');
 
37
=head1 AUTHOR
 
38
 
 
39
This file copyright (C) 1999 Christian Pellegrin <chri@infis.univ.trieste.it>
 
40
All rights reserved. There
 
41
is no warranty. You are allowed to redistribute this software /
 
42
documentation under certain conditions. For details, see the file
 
43
COPYING in the PDL distribution. If this file is separated from the
 
44
PDL distribution, the copyright notice should be included in the file.
 
45
 
 
46
The GSL SF modules were written by G. Jungman.
 
47
 
 
48
=cut
 
49
EOD
 
50
 
 
51
pp_done();