Lines Matching defs:Tanh
955 function Tanh (X : Float_Type'Base) return Float_Type'Base is subprogram
956 P0 : constant Float_Type'Base := -0.16134_11902_39962_28053E+4;
957 P1 : constant Float_Type'Base := -0.99225_92967_22360_83313E+2;
958 P2 : constant Float_Type'Base := -0.96437_49277_72254_69787E+0;
960 Q0 : constant Float_Type'Base := 0.48402_35707_19886_88686E+4;
961 Q1 : constant Float_Type'Base := 0.22337_72071_89623_12926E+4;
962 Q2 : constant Float_Type'Base := 0.11274_47438_05349_49335E+3;
963 Q3 : constant Float_Type'Base := 0.10000_00000_00000_00000E+1;
965 Half_Ln3 : constant Float_Type'Base := 0.54930_61443_34054_84570;
967 P, Q, R : Float_Type'Base;
968 Y : constant Float_Type'Base := abs X;
969 G : constant Float_Type'Base := Y * Y;
993 return Float_Type'Base (Aux.Tanh (Double (X))); argument