Changeset 850 in Sophya for trunk/SophyaLib/TArray/tmatrix.cc

Timestamp:

Apr 10, 2000, 2:57:45 PM (25 years ago)

Author:

ansari

Message:

Corrections divers + RansomSequence - Reza 10/4/2000

File:

• trunk/SophyaLib/TArray/tmatrix.cc (modified) (2 diffs)

trunk/SophyaLib/TArray/tmatrix.cc

@@ -1 @@
-// $Id: tmatrix.cc,v 1.4 2000-04-05 15:44:15 ansari Exp $
+// $Id: tmatrix.cc,v 1.5 2000-04-10 12:57:44 ansari Exp $
 //                         C.Magneville          04/99
 #include "machdefs.h"
@@ -232 +232 @@
   int_4 npr = 0;
   Show(os, si);
+  if (ndim_ < 1)  return;
   uint_4 kc,kr;  
   for(kr=0; kr<size_[marowi_]; kr++) {