tools/Fun2D/mpfr.f90

17   TYPE, BIND(C)    :: mpfr_type  type
22   END TYPE mpfr_type
27       TYPE(mpfr_type)             :: value
33       TYPE(mpfr_type)             :: value
49       TYPE(mpfr_type)             :: variable
55       TYPE(mpfr_type)             :: variable
63       TYPE(mpfr_type)             :: variable
72       TYPE(mpfr_type)             :: variable
82       TYPE(mpfr_type), INTENT(IN) :: variable
89       TYPE(mpfr_type)             :: op1,op2
95       TYPE(mpfr_type)             :: result,op1,op2
102       TYPE(mpfr_type)             :: result,op1,op2
109       TYPE(mpfr_type)             :: result,op1
117       TYPE(mpfr_type)             :: result,op1,op2
124       TYPE(mpfr_type)             :: result,op1,op2
131       TYPE(mpfr_type)             :: result,op1,op2
138       TYPE(mpfr_type)             :: result,op1
146       TYPE(mpfr_type)             :: variable
151       TYPE(mpfr_type)             :: variable
161       TYPE(mpfr_type)            :: variable
168       TYPE(mpfr_type)            :: result, op
175       TYPE(mpfr_type)            :: result, op
182       TYPE(mpfr_type)            :: result, op
189       TYPE(mpfr_type)            :: result, op
196       TYPE(mpfr_type)            :: result, op
203       TYPE(mpfr_type)            :: result, op
210       TYPE(mpfr_type)            :: result, op
217       TYPE(mpfr_type)            :: result, op
224       TYPE(mpfr_type)            :: result, op
231       TYPE(mpfr_type)            :: result, op
238       TYPE(mpfr_type)            :: result, op
245       TYPE(mpfr_type)            :: result, op
252       TYPE(mpfr_type)            :: result, op
259       TYPE(mpfr_type)            :: result, op
266       TYPE(mpfr_type)            :: result, op
273       TYPE(mpfr_type)            :: result, x,y
280       TYPE(mpfr_type)            :: result, op
287       TYPE(mpfr_type)            :: result, op
294       TYPE(mpfr_type)            :: result, op
301       TYPE(mpfr_type)            :: result, op
308       TYPE(mpfr_type)            :: result, op
315       TYPE(mpfr_type)            :: result, op
322       TYPE(mpfr_type)            :: result, op
329       TYPE(mpfr_type)            :: result, op
336       TYPE(mpfr_type)            :: result, op
343       TYPE(mpfr_type)            :: x,y
350       TYPE(mpfr_type)            :: result, op
357       TYPE(mpfr_type)            :: result, op
364       TYPE(mpfr_type)            :: result, op
371       TYPE(mpfr_type)            :: result, op
378       TYPE(mpfr_type)            :: result, op
385       TYPE(mpfr_type)            :: result, op
392       TYPE(mpfr_type)            :: result, op
399       TYPE(mpfr_type)            :: result, op
406       TYPE(mpfr_type)            :: result
413       TYPE(mpfr_type)            :: result
420       TYPE(mpfr_type)            :: result
427       TYPE(mpfr_type)            :: result, op
683     TYPE(mpfr_type)            :: variable
694     TYPE(mpfr_type),&
704     TYPE(mpfr_type),&
717     TYPE(mpfr_type),&
727     TYPE(mpfr_type),&
729     TYPE(mpfr_type),&
741     TYPE(mpfr_type), INTENT(IN) :: variable
747     TYPE(mpfr_type)            :: variable
756     TYPE(mpfr_type)            :: variable
766     TYPE(mpfr_type)            :: variable
773     TYPE(mpfr_type)            :: mpfr_convert_str
791     TYPE(mpfr_type)            :: mpfr_addition_mp_mp
792     TYPE(mpfr_type),INTENT(IN) :: a1,a2
801     TYPE(mpfr_type)            :: mpfr_addition_mp_real
802     TYPE(mpfr_type),INTENT(IN) :: a1
806     TYPE(mpfr_type)            :: a2_mpfr
815     TYPE(mpfr_type)            :: mpfr_addition_real_mp
817     TYPE(mpfr_type),INTENT(IN) :: a2
823     TYPE(mpfr_type)            :: mpfr_addition_mp_int
824     TYPE(mpfr_type),INTENT(IN) :: a1
828     TYPE(mpfr_type)            :: a2_mpfr
839     TYPE(mpfr_type)            :: mpfr_addition_int_mp
841     TYPE(mpfr_type),INTENT(IN) :: a2
847     TYPE(mpfr_type)            :: mpfr_subtraction_mp_mp
848     TYPE(mpfr_type),INTENT(IN) :: a1,a2
857     TYPE(mpfr_type)            :: mpfr_minus
858     TYPE(mpfr_type),INTENT(IN) :: a1
867     TYPE(mpfr_type)            :: mpfr_subtraction_real_mp
869     TYPE(mpfr_type),INTENT(IN) :: a2
872     TYPE(mpfr_type)            :: a1_mp
881     TYPE(mpfr_type)            :: mpfr_subtraction_mp_real
882     TYPE(mpfr_type),INTENT(IN) :: a1
885     TYPE(mpfr_type)            :: a2_mp
894     TYPE(mpfr_type)            :: mpfr_subtraction_int_mp
896     TYPE(mpfr_type),INTENT(IN) :: a2
899     TYPE(mpfr_type)            :: a1_mp
909     TYPE(mpfr_type)            :: mpfr_subtraction_mp_int
910     TYPE(mpfr_type),INTENT(IN) :: a1
914     TYPE(mpfr_type)            :: a2_mp
924     TYPE(mpfr_type)            :: mpfr_multiplication_mp_mp
925     TYPE(mpfr_type),INTENT(IN) :: a1,a2
934     TYPE(mpfr_type)            :: mpfr_multiplication_real_mp
936     TYPE(mpfr_type),INTENT(IN) :: a2
939     TYPE(mpfr_type)            :: a1_mp
948     TYPE(mpfr_type)            :: mpfr_multiplication_mp_real
949     TYPE(mpfr_type),INTENT(IN) :: a1
956     TYPE(mpfr_type)            :: mpfr_multiplication_int_mp
958     TYPE(mpfr_type),INTENT(IN) :: a2
961     TYPE(mpfr_type)            :: a1_mp
972     TYPE(mpfr_type)            :: mpfr_multiplication_mp_int
973     TYPE(mpfr_type),INTENT(IN) :: a1
982     TYPE(mpfr_type)            :: mpfr_division_mp_mp
983     TYPE(mpfr_type),INTENT(IN) :: a1,a2
992     TYPE(mpfr_type)            :: mpfr_division_real_mp
994     TYPE(mpfr_type),INTENT(IN) :: a2
996     TYPE(mpfr_type)            :: a1_mp
1005     TYPE(mpfr_type)            :: mpfr_division_mp_real
1006     TYPE(mpfr_type),INTENT(IN) :: a1
1009     TYPE(mpfr_type)            :: a2_mp
1017     TYPE(mpfr_type)            :: mpfr_division_int_mp
1019     TYPE(mpfr_type),INTENT(IN) :: a2
1021     TYPE(mpfr_type)            :: a1_mp
1032     TYPE(mpfr_type)            :: mpfr_division_mp_int
1033     TYPE(mpfr_type),INTENT(IN) :: a1
1036     TYPE(mpfr_type)            :: a2_mp
1047     TYPE(mpfr_type)            :: mpfr_power_mp_mp
1048     TYPE(mpfr_type),INTENT(IN) :: a1,a2
1057     TYPE(mpfr_type)            :: mpfr_power_real_mp
1059     TYPE(mpfr_type),INTENT(IN) :: a2
1061     TYPE(mpfr_type)            :: a1_mp
1070     TYPE(mpfr_type)            :: mpfr_power_mp_real
1071     TYPE(mpfr_type),INTENT(IN) :: a1
1074     TYPE(mpfr_type)            :: a2_mp
1083     TYPE(mpfr_type)            :: mpfr_power_mp_int
1084     TYPE(mpfr_type),INTENT(IN) :: a1
1088     TYPE(mpfr_type)            :: a2_mp
1098     TYPE(mpfr_type)            :: mpfr_power_int_mp
1100     TYPE(mpfr_type),INTENT(IN) :: a2
1103     TYPE(mpfr_type)            :: a1_mp
1114     TYPE(mpfr_type),INTENT(IN) :: a1,a2
1128     TYPE(mpfr_type),INTENT(IN) :: a1
1132     TYPE(mpfr_type)            :: a2_mp
1148     TYPE(mpfr_type),INTENT(IN) :: a2
1151     TYPE(mpfr_type)            :: a1_mp
1166     TYPE(mpfr_type),INTENT(IN) :: a1
1170     TYPE(mpfr_type)            :: a2_mp
1188     TYPE(mpfr_type),INTENT(IN) :: a2
1191     TYPE(mpfr_type)            :: a1_mp
1208     TYPE(mpfr_type),INTENT(IN) :: a1,a2
1222     TYPE(mpfr_type),INTENT(IN) :: a1
1226     TYPE(mpfr_type)            :: a2_mp
1242     TYPE(mpfr_type),INTENT(IN) :: a2
1245     TYPE(mpfr_type)            :: a1_mp
1260     TYPE(mpfr_type),INTENT(IN) :: a1
1264     TYPE(mpfr_type)            :: a2_mp
1282     TYPE(mpfr_type),INTENT(IN) :: a2
1285     TYPE(mpfr_type)            :: a1_mp
1302     TYPE(mpfr_type),INTENT(IN) :: a1,a2
1316     TYPE(mpfr_type),INTENT(IN) :: a1
1320     TYPE(mpfr_type)            :: a2_mp
1336     TYPE(mpfr_type),INTENT(IN) :: a2
1339     TYPE(mpfr_type)            :: a1_mp
1354     TYPE(mpfr_type),INTENT(IN) :: a1
1358     TYPE(mpfr_type)            :: a2_mp
1376     TYPE(mpfr_type),INTENT(IN) :: a2
1379     TYPE(mpfr_type)            :: a1_mp
1396     TYPE(mpfr_type),INTENT(IN) :: a1,a2
1410     TYPE(mpfr_type),INTENT(IN) :: a1
1414     TYPE(mpfr_type)            :: a2_mp
1430     TYPE(mpfr_type),INTENT(IN) :: a2
1433     TYPE(mpfr_type)            :: a1_mp
1448     TYPE(mpfr_type),INTENT(IN) :: a1
1452     TYPE(mpfr_type)            :: a2_mp
1470     TYPE(mpfr_type),INTENT(IN) :: a2
1473     TYPE(mpfr_type)            :: a1_mp
1490     TYPE(mpfr_type),INTENT(IN) :: a1,a2
1504     TYPE(mpfr_type),INTENT(IN) :: a1
1508     TYPE(mpfr_type)            :: a2_mp
1524     TYPE(mpfr_type),INTENT(IN) :: a2
1527     TYPE(mpfr_type)            :: a1_mp
1542     TYPE(mpfr_type),INTENT(IN) :: a1
1546     TYPE(mpfr_type)            :: a2_mp
1564     TYPE(mpfr_type),INTENT(IN) :: a2
1567     TYPE(mpfr_type)            :: a1_mp
1584     TYPE(mpfr_type),INTENT(IN) :: a1,a2
1598     TYPE(mpfr_type),INTENT(IN) :: a1
1602     TYPE(mpfr_type)            :: a2_mp
1618     TYPE(mpfr_type),INTENT(IN) :: a2
1621     TYPE(mpfr_type)            :: a1_mp
1636     TYPE(mpfr_type),INTENT(IN) :: a1
1640     TYPE(mpfr_type)            :: a2_mp
1658     TYPE(mpfr_type),INTENT(IN) :: a2
1661     TYPE(mpfr_type)            :: a1_mp
1677     TYPE(mpfr_type)            :: log_mp
1678     TYPE(mpfr_type)            :: op
1687     TYPE(mpfr_type)            :: log2_mp
1688     TYPE(mpfr_type)            :: op
1697     TYPE(mpfr_type)            :: log10_mp
1698     TYPE(mpfr_type)            :: op
1707     TYPE(mpfr_type)            :: exp_mp
1708     TYPE(mpfr_type)            :: op
1717     TYPE(mpfr_type)            :: exp2_mp
1718     TYPE(mpfr_type)            :: op
1727     TYPE(mpfr_type)            :: exp10_mp
1728     TYPE(mpfr_type)            :: op
1737     TYPE(mpfr_type)            :: sin_mp
1738     TYPE(mpfr_type)            :: op
1747     TYPE(mpfr_type)            :: cos_mp
1748     TYPE(mpfr_type)            :: op
1757     TYPE(mpfr_type)            :: tan_mp
1758     TYPE(mpfr_type)            :: op
1767     TYPE(mpfr_type)            :: sec_mp
1768     TYPE(mpfr_type)            :: op
1777     TYPE(mpfr_type)            :: csc_mp
1778     TYPE(mpfr_type)            :: op
1787     TYPE(mpfr_type)            :: cot_mp
1788     TYPE(mpfr_type)            :: op
1797     TYPE(mpfr_type)            :: acos_mp
1798     TYPE(mpfr_type)            :: op
1807     TYPE(mpfr_type)            :: asin_mp
1808     TYPE(mpfr_type)            :: op
1817     TYPE(mpfr_type)            :: atan_mp
1818     TYPE(mpfr_type)            :: op
1827     TYPE(mpfr_type)            :: atan2_mp
1828     TYPE(mpfr_type)            :: x,y
1837     TYPE(mpfr_type)            :: cosh_mp
1838     TYPE(mpfr_type)            :: op
1847     TYPE(mpfr_type)            :: sinh_mp
1848     TYPE(mpfr_type)            :: op
1857     TYPE(mpfr_type)            :: tanh_mp
1858     TYPE(mpfr_type)            :: op
1867     TYPE(mpfr_type)            :: sech_mp
1868     TYPE(mpfr_type)            :: op
1877     TYPE(mpfr_type)            :: csch_mp
1878     TYPE(mpfr_type)            :: op
1887     TYPE(mpfr_type)            :: coth_mp
1888     TYPE(mpfr_type)            :: op
1897     TYPE(mpfr_type)            :: acosh_mp
1898     TYPE(mpfr_type)            :: op
1907     TYPE(mpfr_type)            :: asinh_mp
1908     TYPE(mpfr_type)            :: op
1917     TYPE(mpfr_type)            :: atanh_mp
1918     TYPE(mpfr_type)            :: op
1927     TYPE(mpfr_type)            :: ei_mp
1928     TYPE(mpfr_type)            :: op
1937     TYPE(mpfr_type)            :: gamma_mp
1938     TYPE(mpfr_type)            :: op
1947     TYPE(mpfr_type)            :: lngamma_mp
1948     TYPE(mpfr_type)            :: op
1957     TYPE(mpfr_type)            :: erf_mp
1958     TYPE(mpfr_type)            :: op
1967     TYPE(mpfr_type)            :: erfc_mp
1968     TYPE(mpfr_type)            :: op
1977     TYPE(mpfr_type)            :: bessel_j0_mp
1978     TYPE(mpfr_type)            :: op
1987     TYPE(mpfr_type)            :: bessel_j1_mp
1988     TYPE(mpfr_type)            :: op
1997     TYPE(mpfr_type)            :: bessel_y0_mp
1998     TYPE(mpfr_type)            :: op
2007     TYPE(mpfr_type)            :: bessel_y1_mp
2008     TYPE(mpfr_type)            :: op
2017     TYPE(mpfr_type)            :: get_pi
2026     TYPE(mpfr_type)            :: get_e
2035     TYPE(mpfr_type)            :: get_log2
2044     TYPE(mpfr_type)            :: sqrt_mp
2045     TYPE(mpfr_type)            :: op