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

new code

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: 2122
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent ef2d7413
/*! \file fortranaffio.cc
* \brief input/ouput to/from aff containers (implementation)
*
* ----------------------------------------------------------------------------
*
* $Id: fortranaffio.cc,v 1.1 2006-05-16 14:42:41 tforb Exp $
* \author Thomas Forbriger
* \date 16/05/2006
*
* input/ouput to/from aff containers (implementation)
*
* Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach)
*
* REVISIONS and CHANGES
* - 16/05/2006 V1.0 Thomas Forbriger
*
* ============================================================================
*/
#define TF_FORTRANAFFIO_CC_VERSION \
"TF_FORTRANAFFIO_CC V1.0 "
#define TF_FORTRANAFFIO_CC_CVSID \
"$Id: fortranaffio.cc,v 1.1 2006-05-16 14:42:41 tforb Exp $"
#include <fortranaffio.h>
namespace tf {
}
/* ----- END OF fortranaffio.cc ----- */
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: fortranaffio.h,v 1.1 2006-05-16 14:42:41 tforb Exp $
* $Id: fortranaffio.h,v 1.2 2006-05-16 14:56:02 tforb Exp $
* \author Thomas Forbriger
* \date 16/05/2006
*
......@@ -23,12 +23,27 @@
#define TF_FORTRANAFFIO_H_VERSION \
"TF_FORTRANAFFIO_H V1.0 "
#define TF_FORTRANAFFIO_H_CVSID \
"$Id: fortranaffio.h,v 1.1 2006-05-16 14:42:41 tforb Exp $"
"$Id: fortranaffio.h,v 1.2 2006-05-16 14:56:02 tforb Exp $"
namespace tf {
#include <aff/series.h>
#include <aff/iterator.h>
#include <aff/array.h>
#include <tfxx/fortranio.h>
namespace tfxx {
namespace fortranio {
//! read an aff series from the file
template<class C>
void readaff(tfxx::FortranBinInput& is, aff::Series<C>& s)
{
aff::Iterator<aff::Series<C>> i(s);
while (i.valid()) { is >> *i; }
}
} // namespace fortranio
} // namespace tfxx
#endif // TF_FORTRANAFFIO_H_VERSION (includeguard)
/* ----- END OF fortranaffio.h ----- */
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