Ignore:
Timestamp:
Apr 27, 2004, 8:39:34 PM (22 years ago)
Author:
bird
Message:

GCC v3.3.3 sources.

Location:
branches/GNU/src/gcc
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/GNU/src/gcc

    • Property svn:ignore

      •  

        old new  
        2626configure.vr
        2727configure.vrs
         28
        2829Makefile
        29 dir.info
        3030lost+found
        3131update.out

  • branches/GNU/src/gcc/libf2c/libF77/c_log.c

    • Property cvs2svn:cvs-rev changed from 1.1 to 1.1.1.2
    r1390 r1391  
    11#include "f2c.h"
    22
    3 #ifdef KR_headers
    4 extern double log(), f__cabs(), atan2();
    5 VOID c_log(r, z) complex *r, *z;
    6 #else
    73#undef abs
    84#include "math.h"
    9 extern double f__cabs(double, double);
     5extern double f__cabs(double, double);
    106
    11 void c_log(complex *r, complex *z)
    12 #endif
     7void
     8c_log (complex * r, complex * z)
    139{
    14         double zi, zr;
    15         r->i = atan2(zi = z->i, zr = z->r);
    16         r->r = log( f__cabs(zr, zi) );
    17         }
     10double zi, zr;
     11(zi = z->i, zr = z->r);
     12);
     13}
Note: See TracChangeset for help on using the changeset viewer.