<s>[INST] evaluate complex polynomial . note coefficients are always c 1 to c n , c 0 is always 0,0 . concode_field_sep double DTR concode_elem_sep double P10 concode_elem_sep int N_ITER concode_elem_sep double C22 concode_elem_sep double C48 concode_elem_sep double TWOPI concode_elem_sep double P02 concode_elem_sep double FORTPI concode_elem_sep double MILLION concode_elem_sep double RTD concode_elem_sep double C88 concode_elem_sep double C04 concode_elem_sep double C66 concode_elem_sep double C02 concode_elem_sep double P01 concode_elem_sep double QUARTERPI concode_elem_sep double PI concode_elem_sep double EPS10 concode_elem_sep double C06 concode_elem_sep double C68 concode_elem_sep double P00 concode_elem_sep double C44 concode_elem_sep double C46 concode_elem_sep double C00 concode_elem_sep double SECONDS_TO_RAD concode_elem_sep double HALFPI concode_elem_sep double C08 concode_elem_sep double P11 concode_elem_sep int MAX_ITER concode_elem_sep double P20 concode_field_sep double authlat concode_elem_sep double niceNumber concode_elem_sep double atan2d concode_elem_sep double distance concode_elem_sep double greatCircleDistance concode_elem_sep double atand concode_elem_sep double radToDeg concode_elem_sep double[] authset concode_elem_sep double normalizeLatitude concode_elem_sep double cosd concode_elem_sep double mlfn concode_elem_sep double tand concode_elem_sep double sqrt concode_elem_sep double degToRad concode_elem_sep double phi2 concode_elem_sep double hypot concode_elem_sep double acosd concode_elem_sep double msfn concode_elem_sep double frac concode_elem_sep double[] enfn concode_elem_sep double atan2 concode_elem_sep double normalizeLongitude concode_elem_sep double qsfn concode_elem_sep double asind concode_elem_sep double sphericalAzimuth concode_elem_sep boolean sameSigns concode_elem_sep boolean sameSigns concode_elem_sep double geographicLatitude concode_elem_sep double inv_mlfn concode_elem_sep double cross concode_elem_sep boolean isIdentity concode_elem_sep double acos concode_elem_sep double dmsToDeg concode_elem_sep double longitudeDistance concode_elem_sep double geocentricLatitude concode_elem_sep double tsfn concode_elem_sep double trunc concode_elem_sep double takeSign concode_elem_sep int takeSign concode_elem_sep double sind concode_elem_sep double normalizeAngle concode_elem_sep double asin concode_elem_sep double dmsToRad concode_elem_sep Complex zpoly1d [/INST] Complex function ( Complex arg0 , Complex [ ] arg1 ) { Complex loc0 = new Complex ( arg1 [ arg1 . length - 1 ] ) ; double loc1 ; int loc2 = arg1 . length - 1 ; while ( loc2 -- > 0 ) { Complex loc3 = arg1 [ loc2 ] ; loc0 . r = loc3 . r + arg0 . r * ( loc1 = loc0 . r ) - arg0 . i * loc0 . i ; loc0 . i = loc3 . i + arg0 . r * loc0 . i + arg0 . i * loc1 ; } loc0 . r = arg0 . r * ( loc1 = loc0 . r ) - arg0 . i * loc0 . i ; loc0 . i = arg0 . r * loc0 . i + arg0 . i * loc1 ; return loc0 ; </s>