~ubuntu-branches/ubuntu/raring/texlive-bin/raring

« back to all changes in this revision

Viewing changes to utils/pmx/pmx-2.6.18/libf2c/z_sin.c

  • Committer: Package Import Robot
  • Author(s): Norbert Preining
  • Date: 2012-05-30 11:02:05 UTC
  • mfrom: (4.1.20 sid)
  • Revision ID: package-import@ubuntu.com-20120530110205-9gb0n01ahjs4g15y
Tags: 2012.20120530-1
* new upstream snapshot (svn 26726)
  exporting kpse_cnf_get (Closes: #675109)
* cnf.h is again installed, don't install it via libkpathsea-dev.install
* patch handling:
  . removed: 41_maketexmf, 12_fix_epstopdf_invocation
    both included upstream or not needed anymore
  . new: set-e-fmtutil part of set-e-in-various-scripts that still 
    applies
  . disabled: 57_texconfig_papersizes_for_upstream,
    58_texconfig_papersizes_use_ucf, superseeded by 55_texconfig_stuff
  . disabled: set-e-in-various-scripts: split into set-e-fmtutil
    and a disabled part for texconfig

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