Changeset 3751 in Sophya for trunk/SophyaLib/TArray/tarrinit.cc

Timestamp:

Mar 3, 2010, 9:46:07 PM (16 years ago)

Author:

ansari

Message:

Prise en charge de float 128 bits (r_16, complex<r_16>) par TArray<T>,TMatrix<T>,TVector<T>. activation par le flag de compilation SO_LDBLE128

File:

• trunk/SophyaLib/TArray/tarrinit.cc (modified) (3 diffs)

trunk/SophyaLib/TArray/tarrinit.cc

@@ -22 +22 @@
 //   V= 2.04 , Jan/Fev 2007: Ajout TArray::ZeroSize() , RenewObjId() et methodes de cast (arrctcast.h)
 //   V= 2.1 , Avr/Jul 2007: Constr.copie/extrac sous-tableaux thread-safe
-#define MOD_VERS   2.1
+//   V= 2.2 , Fev/Nars 2010: Tableaux en long double 
+#define MOD_VERS   2.2
 
 TArrayInitiator::TArrayInitiator()
@@ -83 +84 @@
   DObjRegister(FIO_TArray<r_8>, TVector<r_8>);
 
+#ifdef SO_LDBLE128
+  PPRegister(FIO_TArray<r_16>);
+  DObjRegister(FIO_TArray<r_16>, TArray<r_16>);
+  DObjRegister(FIO_TArray<r_16>, TMatrix<r_16>);
+  DObjRegister(FIO_TArray<r_16>, TVector<r_16>);
+#endif
+
   PPRegister(FIO_TArray< complex<r_4> >);
   DObjRegister(FIO_TArray< complex<r_4> >, TArray< complex<r_4> >);
@@ -92 +100 @@
   DObjRegister(FIO_TArray< complex<r_8> >, TMatrix< complex<r_8> >);
   DObjRegister(FIO_TArray< complex<r_8> >, TVector< complex<r_8> >);
+
+#ifdef SO_LDBLE128
+  PPRegister(FIO_TArray< complex<r_16> >);
+  DObjRegister(FIO_TArray< complex<r_16> >, TArray< complex<r_16> >);
+  DObjRegister(FIO_TArray< complex<r_16> >, TMatrix< complex<r_16> >);
+  DObjRegister(FIO_TArray< complex<r_16> >, TVector< complex<r_16> >);
+#endif
 
   SophyaInitiator::RegisterModule("TArray", MOD_VERS);  // Module name and version number registration