Commit 87b61719 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

the rest

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 1137
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent dd89057c
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: blitzfortranio.h,v 1.4 2002-11-28 21:34:07 forbrig Exp $
* $Id: blitzfortranio.h,v 1.5 2002-11-29 08:56:12 forbrig Exp $
* \author Thomas Forbriger
* \date 28/11/2002
*
......@@ -23,7 +23,7 @@
#define TF_BLITZFORTRANIO_H_VERSION \
"TF_BLITZFORTRANIO_H V1.0 "
#define TF_BLITZFORTRANIO_H_CVSID \
"$Id: blitzfortranio.h,v 1.4 2002-11-28 21:34:07 forbrig Exp $"
"$Id: blitzfortranio.h,v 1.5 2002-11-29 08:56:12 forbrig Exp $"
#include<fstream>
#include<blitz/array.h>
......@@ -40,8 +40,8 @@ namespace fortranio {
* Please define TF_COMPLEX_ARRAY to activate I/O for arrays of complex types.
*
* \deprecated
* Thi struct is a quick hack and may be replaced by another algorithm in the
* future. Magic number character sequences will, however, remain.
* This struct is a quick hack and may be replaced by another algorithm in the
* future. Magic number character sequences will, however, remain the same.
* \todo
* use a more clever technique than spezialisation for all types and ranks
*/
......@@ -49,8 +49,9 @@ template<class T, int N>
struct blitz_magic {
}; // blitz_magic
//! partial specializations
//! partial specializations (others are hidden to doxygen)
template<> struct blitz_magic<float, 1> { static const char magic[]="ZZf1"; };
#ifndef DOXYGEN_MUST_SKIP_THIS
template<> struct blitz_magic<float, 2> { static const char magic[]="ZZf2"; };
template<> struct blitz_magic<float, 3> { static const char magic[]="ZZf3"; };
template<> struct blitz_magic<float, 4> { static const char magic[]="ZZf4"; };
......@@ -88,6 +89,7 @@ template<> struct blitz_magic<std::complex<double>, 4>
template<> struct blitz_magic<std::complex<double>, 5>
{ static const char magic[]="ZZz5"; };
#endif
#endif
/*----------------------------------------------------------------------*/
......@@ -143,7 +145,6 @@ template<class T, int N>
for (int i=0; i<N; i++) fi.get(lbound[i]);
for (int i=0; i<N; i++) fi.get(extent[i]);
blitz::Array<T, N> result(lbound, extent, blitz::fortranArray);
result.dumpStructureInformation();
for (blitz::Array<T, N>::iterator i=result.begin(); i!=result.end(); ++i)
{ fi.get(*i); }
a.reference(result);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment