1 /*
2 * Copyright (c) 2017, NVIDIA CORPORATION. All rights reserved.
3 *
4 * Licensed under the Apache License, Version 2.0 (the "License");
5 * you may not use this file except in compliance with the License.
6 * You may obtain a copy of the License at
7 *
8 * http://www.apache.org/licenses/LICENSE-2.0
9 *
10 * Unless required by applicable law or agreed to in writing, software
11 * distributed under the License is distributed on an "AS IS" BASIS,
12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13 * See the License for the specific language governing permissions and
14 * limitations under the License.
15 *
16 */
17
18 #include "mthdecls.h"
19
ZMPLXFUNC_Z_Z(__mth_i_cdpowcd)20 ZMPLXFUNC_Z_Z(__mth_i_cdpowcd)
21 {
22 ZMPLXARGS_Z_Z;
23 double logr, logi, x, y, z, w;
24
25 logr = log(hypot(real1, imag1));
26 logi = atan2(imag1, real1);
27
28 x = exp(logr * real2 - logi * imag2);
29 y = logr * imag2 + logi * real2;
30
31 z = x * cos(y);
32 w = x * sin(y);
33 ZRETURN_D_D(z, w);
34 }
35