Index: /trunk/psLib/src/collections/psScalar.c
===================================================================
--- /trunk/psLib/src/collections/psScalar.c	(revision 1452)
+++ /trunk/psLib/src/collections/psScalar.c	(revision 1453)
@@ -9,6 +9,6 @@
  *  @author Ross Harman, MHPCC
  *
- *  @version $Revision: 1.7 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-08-09 23:34:57 $
+ *  @version $Revision: 1.8 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-08-10 19:27:47 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -128,4 +128,20 @@
 }
 
+psScalar* psScalarCopy(psScalar *scalar)
+{
+    psScalar *newScalar = NULL;
+
+    if (scalar == NULL) {
+        psError(__func__, "Null scalar not allowed");
+    }
+
+    newScalar =  psScalarAlloc(scalar->data.C64, scalar->type.type);
+    if (newScalar == NULL) {
+        psAbort(__func__, " : Line %d - Failed to allocate memory", __LINE__);
+    }
+
+    return newScalar;
+}
+
 void psScalarFree(psScalar* restrict scalar)
 {
Index: /trunk/psLib/src/collections/psScalar.h
===================================================================
--- /trunk/psLib/src/collections/psScalar.h	(revision 1452)
+++ /trunk/psLib/src/collections/psScalar.h	(revision 1453)
@@ -11,6 +11,6 @@
  *  @author Ross Harman, MHPCC
  *
- *  @version $Revision: 1.7 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-08-09 23:40:55 $
+ *  @version $Revision: 1.8 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-08-10 19:27:56 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -79,4 +79,14 @@
                  );
 
+/** Copy a scalar.
+ *
+ * Uses psLib memory allocation functions to copy a scalar.
+ *
+ * @return void.
+ *
+ */
+psScalar* psScalarCopy(psScalar *scalar    ///< Scalar to copy.
+                      );
+
 /// @}
 
Index: /trunk/psLib/src/mathtypes/psScalar.c
===================================================================
--- /trunk/psLib/src/mathtypes/psScalar.c	(revision 1452)
+++ /trunk/psLib/src/mathtypes/psScalar.c	(revision 1453)
@@ -9,6 +9,6 @@
  *  @author Ross Harman, MHPCC
  *
- *  @version $Revision: 1.7 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-08-09 23:34:57 $
+ *  @version $Revision: 1.8 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-08-10 19:27:47 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -128,4 +128,20 @@
 }
 
+psScalar* psScalarCopy(psScalar *scalar)
+{
+    psScalar *newScalar = NULL;
+
+    if (scalar == NULL) {
+        psError(__func__, "Null scalar not allowed");
+    }
+
+    newScalar =  psScalarAlloc(scalar->data.C64, scalar->type.type);
+    if (newScalar == NULL) {
+        psAbort(__func__, " : Line %d - Failed to allocate memory", __LINE__);
+    }
+
+    return newScalar;
+}
+
 void psScalarFree(psScalar* restrict scalar)
 {
Index: /trunk/psLib/src/mathtypes/psScalar.h
===================================================================
--- /trunk/psLib/src/mathtypes/psScalar.h	(revision 1452)
+++ /trunk/psLib/src/mathtypes/psScalar.h	(revision 1453)
@@ -11,6 +11,6 @@
  *  @author Ross Harman, MHPCC
  *
- *  @version $Revision: 1.7 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2004-08-09 23:40:55 $
+ *  @version $Revision: 1.8 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2004-08-10 19:27:56 $
  *
  *  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
@@ -79,4 +79,14 @@
                  );
 
+/** Copy a scalar.
+ *
+ * Uses psLib memory allocation functions to copy a scalar.
+ *
+ * @return void.
+ *
+ */
+psScalar* psScalarCopy(psScalar *scalar    ///< Scalar to copy.
+                      );
+
 /// @}