Index: /issm/trunk/src/c/shared/Numerics/isnan.cpp
===================================================================
--- /issm/trunk/src/c/shared/Numerics/isnan.cpp	(revision 1428)
+++ /issm/trunk/src/c/shared/Numerics/isnan.cpp	(revision 1428)
@@ -0,0 +1,9 @@
+/*This routine only used by Intel compler: */
+
+#ifdef _INTEL_
+int isnan(double x){
+	if (x==0.0/0.0)return 1;
+	else return 0;
+}
+#endif
+
Index: /issm/trunk/src/c/shared/Numerics/isnan.h
===================================================================
--- /issm/trunk/src/c/shared/Numerics/isnan.h	(revision 1428)
+++ /issm/trunk/src/c/shared/Numerics/isnan.h	(revision 1428)
@@ -0,0 +1,13 @@
+/*!\file:  isnan.h
+ * \brief: only used for intel compiler.
+ */ 
+
+#ifndef _ISNAN_INTEL_H_
+#define _ISNAN_INTEL_H_
+
+#ifdef _INTEL_
+int isnan(double X);
+#endif
+
+#endif
+