~ubuntu-branches/ubuntu/trusty/libf2c2/trusty

« back to all changes in this revision

Viewing changes to libF77/z_sin.c

  • Committer: Bazaar Package Importer
  • Author(s): Alan Bain
  • Date: 2008-05-19 22:50:54 UTC
  • mfrom: (2.1.4 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080519225054-jlymia0wdvvfq7dg
Tags: 20061008-4
Remove CVS directory left in source package

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
#include "f2c.h"
2
 
 
3
 
#ifdef KR_headers
4
 
double sin(), cos(), sinh(), cosh();
5
 
VOID z_sin(r, z) doublecomplex *r, *z;
6
 
#else
7
 
#undef abs
8
 
#include "math.h"
9
 
#ifdef __cplusplus
10
 
extern "C" {
11
 
#endif
12
 
void z_sin(doublecomplex *r, doublecomplex *z)
13
 
#endif
14
 
{
15
 
        double zi = z->i, zr = z->r;
16
 
        r->r = sin(zr) * cosh(zi);
17
 
        r->i = cos(zr) * sinh(zi);
18
 
        }
19
 
#ifdef __cplusplus
20
 
}
21
 
#endif