00001 LOGICAL FUNCTION SISNAN( SIN ) 00002 * 00003 * -- LAPACK auxiliary routine (version 3.2.2) -- 00004 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00005 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00006 * June 2010 00007 * 00008 * .. Scalar Arguments .. 00009 REAL SIN 00010 * .. 00011 * 00012 * Purpose 00013 * ======= 00014 * 00015 * SISNAN returns .TRUE. if its argument is NaN, and .FALSE. 00016 * otherwise. To be replaced by the Fortran 2003 intrinsic in the 00017 * future. 00018 * 00019 * Arguments 00020 * ========= 00021 * 00022 * SIN (input) REAL 00023 * Input to test for NaN. 00024 * 00025 * ===================================================================== 00026 * 00027 * .. External Functions .. 00028 LOGICAL SLAISNAN 00029 EXTERNAL SLAISNAN 00030 * .. 00031 * .. Executable Statements .. 00032 SISNAN = SLAISNAN(SIN,SIN) 00033 RETURN 00034 END
1.7.2