libgfortran/intrinsics/trigd.inc

101       mpfr_init_set_ui (one, 1, GFC_RND_MODE);
102       mpfr_copysign (s, one, x, GFC_RND_MODE);
109       mpfr_abs (ax, x, GFC_RND_MODE);
121       mpfr_abs (x, x, GFC_RND_MODE);
126       mpfr_init_set_ui (period, 360, GFC_RND_MODE);
127       mpfr_fmod (x, x, period, GFC_RND_MODE);
133       if (mpfr_get_z (n, x, GFC_RND_MODE) == 0 && mpz_divisible_ui_p (n, 30))
139 	      mpfr_set_ui (x, 0, GFC_RND_MODE);
141 		mpfr_neg (s, s, GFC_RND_MODE);
144 	    mpfr_set_si (x, (mpz_cmp_ui (n, 90) == 0 ? 1 : -1), GFC_RND_MODE);
149 		mpfr_neg (x, x, GFC_RND_MODE);
153 			 GFC_RND_MODE);
168 		      mpfr_ui_sub (x, 90, x, GFC_RND_MODE);
176 		      mpfr_sub_ui (x, x, 90, GFC_RND_MODE);
180 		    mpfr_ui_sub (x, 180, x, GFC_RND_MODE);
187 		mpfr_sub_ui (x, x, 180, GFC_RND_MODE);
190 		  mpfr_ui_sub (x, 270, x, GFC_RND_MODE);
193 	      mpfr_neg (s, s, GFC_RND_MODE);
200 		  mpfr_sub_ui (x, x, 270, GFC_RND_MODE);
204 		mpfr_ui_sub (x, 360, x, GFC_RND_MODE);
205 	      mpfr_neg (s, s, GFC_RND_MODE);
211 	    mpfr_cos (x, x, GFC_RND_MODE);
213 	    mpfr_sin (x, x, GFC_RND_MODE);
216       mpfr_mul (x, x, s, GFC_RND_MODE);
223     mpfr_sub (x, x, x, GFC_RND_MODE);
251       mpfr_abs (ax, x, GFC_RND_MODE);
255 	  mpfr_set_ui (x, 1, GFC_RND_MODE);
259 	    mpfr_sub_d (x, x, tiny, GFC_RND_MODE);
269       mpfr_abs (x, x, GFC_RND_MODE);
274       mpfr_init_set_ui (period, 360, GFC_RND_MODE);
275       mpfr_fmod (x, x, period, GFC_RND_MODE);
282       if (mpfr_get_z (n, x, GFC_RND_MODE) == 0 && mpz_divisible_ui_p (n, 30))
286 			 GFC_RND_MODE);
291 	      mpfr_set_ld (x, 0.5, GFC_RND_MODE);
293 		mpfr_neg (x, x, GFC_RND_MODE);
299 		mpfr_neg (x, x, GFC_RND_MODE);
315 		      mpfr_ui_sub (x, 90, x, GFC_RND_MODE);
323 		      mpfr_sub_ui (x, x, 90, GFC_RND_MODE);
327 		    mpfr_ui_sub (x, 180, x, GFC_RND_MODE);
335 		mpfr_sub_ui (x, x, 180, GFC_RND_MODE);
338 		  mpfr_ui_sub (x, 270, x, GFC_RND_MODE);
348 		  mpfr_sub_ui (x, x, 270, GFC_RND_MODE);
352 		mpfr_ui_sub (x, 360, x, GFC_RND_MODE);
358 	    mpfr_sin (x, x, GFC_RND_MODE);
360 	    mpfr_cos (x, x, GFC_RND_MODE);
363 	    mpfr_neg (x, x, GFC_RND_MODE);
371     mpfr_sub (x, x, x, GFC_RND_MODE);
395       mpfr_init_set_ui (one, 1, GFC_RND_MODE);
396       mpfr_copysign (s, one, x, GFC_RND_MODE);
403       mpfr_abs (ax, x, GFC_RND_MODE);
415       mpfr_abs (x, x, GFC_RND_MODE);
420       mpfr_init_set_ui (period, 360, GFC_RND_MODE);
421       mpfr_fmod (x, x, period, GFC_RND_MODE);
427       if (mpfr_get_z (n, x, GFC_RND_MODE) == 0 && mpz_divisible_ui_p (n, 45))
442 	      mpfr_set_ui (x, 1, GFC_RND_MODE);
444 		mpfr_neg (x, x, GFC_RND_MODE);
455 		  mpfr_ui_sub (x, 180, x, GFC_RND_MODE);
456 		  mpfr_neg (s, s, GFC_RND_MODE);
463 		  mpfr_sub_ui (x, x, 180, GFC_RND_MODE);
467 		  mpfr_ui_sub (x, 360, x, GFC_RND_MODE);
468 		  mpfr_neg (s, s, GFC_RND_MODE);
473 	  mpfr_tan (x, x, GFC_RND_MODE);
476       mpfr_mul (x, x, s, GFC_RND_MODE);
483     mpfr_sub (x, x, x, GFC_RND_MODE);