rexx/lstring/atan2.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:37  wang
   5  * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
   6  *
   7  * Revision 1.1  1998/07/02 17:16:35  bnv
   8  * Initial revision
   9  *
  10  */
  11
  12 #include <math.h>
  13 #include <lstring.h>
  14
  15 /* ----------------- Lpow --------------------- */
  16 void
  17 Latan2( const PLstr to, const PLstr x, const PLstr y )
  18 {
  19         Lrcpy(to, atan2(Lrdreal(x),Lrdreal(y)));
  20 } /* Latan2 */