Index: trunk/psLib/src/math/psUnaryOp.c
===================================================================
--- trunk/psLib/src/math/psUnaryOp.c	(revision 12431)
+++ trunk/psLib/src/math/psUnaryOp.c	(revision 15693)
@@ -31,6 +31,6 @@
  *  @author Robert DeSonia, MHPCC
  *
- *  @version $Revision: 1.14 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2007-03-14 00:39:50 $
+ *  @version $Revision: 1.15 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2007-11-27 02:28:07 $
  *
  *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -166,39 +166,39 @@
 // FLT_EPSILON are done so to align results with a 64 bit computing architecture
 #define UNARY_OP(DIM,OUT,IN,OP) \
-if(!strncmp(OP, "abs", 3)) { \
+if(!strncasecmp(OP, "abs", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,fabs((double)*i1)); \
-} else if(!strncmp(OP, "sqrt", 4)) { \
+} else if(!strncasecmp(OP, "sqrt", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,sqrt((double)*i1)); \
-} else if(!strncmp(OP, "exp", 3)) { \
+} else if(!strncasecmp(OP, "exp", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,exp((double)*i1)); \
-} else if(!strncmp(OP, "ln", 2)) { \
+} else if(!strncasecmp(OP, "ln", 2)) { \
     UNARY_TYPE(DIM,OUT,IN,log((double)*i1)); \
-} else if(!strncmp(OP, "ten", 3)) { \
+} else if(!strncasecmp(OP, "ten", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,pow(10.0,(double)*i1)); \
-} else if(!strncmp(OP, "log", 3)) { \
+} else if(!strncasecmp(OP, "log", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,log10((double)*i1)); \
-} else if(!strncmp(OP, "sin", 3)) { \
+} else if(!strncasecmp(OP, "sin", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,sin((double)*i1)); \
-} else if(!strncmp(OP, "dsin", 4)) { \
+} else if(!strncasecmp(OP, "dsin", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,sin((double)*i1*D2R)); \
-} else if(!strncmp(OP, "cos", 3)) { \
+} else if(!strncasecmp(OP, "cos", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,cos((double)*i1)); \
-} else if(!strncmp(OP, "dcos", 4)) { \
+} else if(!strncasecmp(OP, "dcos", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,cos((double)*i1*D2R)); \
-} else if(!strncmp(OP, "tan", 3)) { \
+} else if(!strncasecmp(OP, "tan", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,tan((double)*i1)); \
-} else if(!strncmp(OP, "dtan", 4)) { \
+} else if(!strncasecmp(OP, "dtan", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,tan((double)*i1*D2R)); \
-} else if(!strncmp(OP, "asin", 4)) { \
+} else if(!strncasecmp(OP, "asin", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,asin((double)*i1)); \
-} else if(!strncmp(OP, "dasin", 5)) { \
+} else if(!strncasecmp(OP, "dasin", 5)) { \
     UNARY_TYPE(DIM,OUT,IN,(R2D*asin((double)*i1))); \
-} else if(!strncmp(OP, "acos", 4)) { \
+} else if(!strncasecmp(OP, "acos", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,acos((double)*i1)); \
-} else if(!strncmp(OP, "dacos", 5)) { \
+} else if(!strncasecmp(OP, "dacos", 5)) { \
     UNARY_TYPE(DIM,OUT,IN,R2D*acos((double)*i1)); \
-} else if(!strncmp(OP, "atan", 4)) { \
+} else if(!strncasecmp(OP, "atan", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,atan((double)*i1)); \
-} else if(!strncmp(OP, "datan", 5)) { \
+} else if(!strncasecmp(OP, "datan", 5)) { \
     UNARY_TYPE(DIM,OUT,IN,R2D*atan((double)*i1)); \
 } else { \
