Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
eis_cdiv.c
Go to the documentation of this file.00001
00002
00003
00004
00005
00006 #include "f2c.h"
00007
00008 int cdiv_(doublereal *ar, doublereal *ai, doublereal *br,
00009 doublereal *bi, doublereal *cr, doublereal *ci)
00010 {
00011
00012 doublereal d__1, d__2;
00013
00014
00015 static doublereal s, ais, bis, ars, brs;
00016
00017
00018
00019
00020 s = abs(*br) + abs(*bi);
00021 ars = *ar / s;
00022 ais = *ai / s;
00023 brs = *br / s;
00024 bis = *bi / s;
00025
00026 d__1 = brs;
00027
00028 d__2 = bis;
00029 s = d__1 * d__1 + d__2 * d__2;
00030 *cr = (ars * brs + ais * bis) / s;
00031 *ci = (ais * brs - ars * bis) / s;
00032 return 0;
00033 }
00034