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

hacks are working

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: 1147
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 639d7e11
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: hack_blitztogrepg.cc,v 1.1 2002-11-29 18:41:16 forbrig Exp $
* $Id: hack_blitztogrepg.cc,v 1.2 2002-11-29 19:12:08 forbrig Exp $
* \author Thomas Forbriger
* \date 29/11/2002
*
......@@ -19,7 +19,7 @@
#define TF_HACK_BLITZTOGREPG_CC_VERSION \
"TF_HACK_BLITZTOGREPG_CC V1.0 "
#define TF_HACK_BLITZTOGREPG_CC_CVSID \
"$Id: hack_blitztogrepg.cc,v 1.1 2002-11-29 18:41:16 forbrig Exp $"
"$Id: hack_blitztogrepg.cc,v 1.2 2002-11-29 19:12:08 forbrig Exp $"
#include <fstream>
#include <tfxx/misc.h>
......@@ -45,14 +45,15 @@ void write_grepg_c(const blitz::Array<std::complex<float>, 2>& array,
int fslo=array.lbound(blitz::secondDim);
fos << nom << nslo;
fos.end_block();
for (int i=0; i<nom; i++) { fos << float((i+fom)*dx); }
for (int i=0; i<nslo; i++) { fos << float((i+fslo)*dy); }
for (int i=0; i<nom; i++)
{ fos << float(3.14159265358979311*2.*(i+fom-1)*dx); }
for (int i=0; i<nslo; i++) { fos << float(1.e-3*(i+fslo-1)*dy); }
fos.end_block();
for (int i=0; i<nslo; i++)
{
for (int j=0; j<nom; j++)
{
fos << array(j,i);
fos << array(j+fom,i+fslo);
}
}
fos.end_block();
......
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