Return to disnan.f CVS log | Up to [local] / rpl / lapack / lapack |
Mise à jour de Lapack vers la version 3.4.2 et des scripts de compilation pour rplcas. En particulier, le Makefile.am de giac a été modifié pour ne compiler que le répertoire src.
1: *> \brief \b DISNAN tests input for NaN. 2: * 3: * =========== DOCUMENTATION =========== 4: * 5: * Online html documentation available at 6: * http://www.netlib.org/lapack/explore-html/ 7: * 8: *> \htmlonly 9: *> Download DISNAN + dependencies 10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/disnan.f"> 11: *> [TGZ]</a> 12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/disnan.f"> 13: *> [ZIP]</a> 14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/disnan.f"> 15: *> [TXT]</a> 16: *> \endhtmlonly 17: * 18: * Definition: 19: * =========== 20: * 21: * LOGICAL FUNCTION DISNAN( DIN ) 22: * 23: * .. Scalar Arguments .. 24: * DOUBLE PRECISION DIN 25: * .. 26: * 27: * 28: *> \par Purpose: 29: * ============= 30: *> 31: *> \verbatim 32: *> 33: *> DISNAN returns .TRUE. if its argument is NaN, and .FALSE. 34: *> otherwise. To be replaced by the Fortran 2003 intrinsic in the 35: *> future. 36: *> \endverbatim 37: * 38: * Arguments: 39: * ========== 40: * 41: *> \param[in] DIN 42: *> \verbatim 43: *> DIN is DOUBLE PRECISION 44: *> Input to test for NaN. 45: *> \endverbatim 46: * 47: * Authors: 48: * ======== 49: * 50: *> \author Univ. of Tennessee 51: *> \author Univ. of California Berkeley 52: *> \author Univ. of Colorado Denver 53: *> \author NAG Ltd. 54: * 55: *> \date September 2012 56: * 57: *> \ingroup auxOTHERauxiliary 58: * 59: * ===================================================================== 60: LOGICAL FUNCTION DISNAN( DIN ) 61: * 62: * -- LAPACK auxiliary routine (version 3.4.2) -- 63: * -- LAPACK is a software package provided by Univ. of Tennessee, -- 64: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 65: * September 2012 66: * 67: * .. Scalar Arguments .. 68: DOUBLE PRECISION DIN 69: * .. 70: * 71: * ===================================================================== 72: * 73: * .. External Functions .. 74: LOGICAL DLAISNAN 75: EXTERNAL DLAISNAN 76: * .. 77: * .. Executable Statements .. 78: DISNAN = DLAISNAN(DIN,DIN) 79: RETURN 80: END