[BACK]Return to disnan.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack
File:  [local] / rpl / lapack / lapack / disnan.f
Revision 1.8: download - view: text, annotated - select for diffs - revision graph
Tue Dec 21 13:53:27 2010 UTC (13 years, 5 months ago) by bertrand
Branches: MAIN
CVS tags: rpl-4_1_3, rpl-4_1_2, rpl-4_1_1, rpl-4_1_0, rpl-4_0_24, rpl-4_0_22, rpl-4_0_21, rpl-4_0_20, rpl-4_0, HEAD
Mise à jour de lapack vers la version 3.3.0.

    1:       LOGICAL FUNCTION DISNAN( DIN )
    2: *
    3: *  -- LAPACK auxiliary routine (version 3.2.2) --
    4: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
    5: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
    6: *     June 2010
    7: *
    8: *     .. Scalar Arguments ..
    9:       DOUBLE PRECISION   DIN
   10: *     ..
   11: *
   12: *  Purpose
   13: *  =======
   14: *
   15: *  DISNAN returns .TRUE. if its argument is NaN, and .FALSE.
   16: *  otherwise.  To be replaced by the Fortran 2003 intrinsic in the
   17: *  future.
   18: *
   19: *  Arguments
   20: *  =========
   21: *
   22: *  DIN     (input) DOUBLE PRECISION
   23: *          Input to test for NaN.
   24: *
   25: *  =====================================================================
   26: *
   27: *  .. External Functions ..
   28:       LOGICAL DLAISNAN
   29:       EXTERNAL DLAISNAN
   30: *  ..
   31: *  .. Executable Statements ..
   32:       DISNAN = DLAISNAN(DIN,DIN)
   33:       RETURN
   34:       END
CVSweb interface <joel.bertrand@systella.fr>