dint$p (2) --- get integer part of a longreal (PMA only)  04/27/83


          | _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

          |      DFLD  VALUE
          |      EXT   DINT$P
          |      JSXB  DINT$P
          |      DFST  IVALUE

          |      Library: vswtmath (Subsystem mathematical library)


          | _F_u_n_c_t_i_o_n

          |      The  'dint$p'  function  implements the Fortran 'dint' func-
          |      tion.  It is part of the SWT Math Library  'dint$m'  routine
          |      and is a special shortcall entrance that can only be used by
          |      PMA  code.   It  takes one double precision value and resets
          |      bits in the mantissa to remove any fractional  part  of  the
          |      value.  The return value is a double precision real.


          | _I_m_p_l_e_m_e_n_t_a_t_i_o_n

          |      The  algorithm  involved  was  developed from known register
          |      structure; see the source code for specifics.


          | _S_e_e _A_l_s_o

          |      dint$m (2),
          |      _S_W_T _M_a_t_h _L_i_b_r_a_r_y _U_s_e_r_'_s _G_u_i_d_e




























            dint$p (2)                    - 1 -                    dint$p (2)