Annotation of rpl/lapack/lapack/disnan.f, revision 1.1
1.1 ! bertrand 1: LOGICAL FUNCTION DISNAN(DIN)
! 2: *
! 3: * -- LAPACK auxiliary routine (version 3.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: * November 2006
! 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>