--- a/DoubleArray.st	Sat Mar 02 23:15:13 2019 +0100
+++ b/DoubleArray.st	Sat Mar 02 23:16:40 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -295,6 +297,17 @@
     "
 ! !
 
+!DoubleArray methodsFor:'testing'!
+
+isFloatArray
+    "return true if the receiver has float elements.
+     These are Float, Double- and HalfFloat arrays"
+
+    ^ true
+
+    "Created: / 02-03-2019 / 23:13:34 / Claus Gittinger"
+! !
+
 !DoubleArray methodsFor:'vector arithmetic'!
 
 dot: aFloatVector