-
Notifications
You must be signed in to change notification settings - Fork 0
/
Mille.h
78 lines (71 loc) · 2.88 KB
/
Mille.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#ifndef MILLE_H
#define MILLE_H
/** \file
* Define class Mille.
*
* \author Gero Flucke, University Hamburg, 2006
*
* \copyright
* Copyright (c) 2009 - 2015 Deutsches Elektronen-Synchroton,
* Member of the Helmholtz Association, (DESY), HAMBURG, GERMANY \n\n
* This library is free software; you can redistribute it and/or modify
* it under the terms of the GNU Library General Public License as
* published by the Free Software Foundation; either version 2 of the
* License, or (at your option) any later version. \n\n
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Library General Public License for more details. \n\n
* You should have received a copy of the GNU Library General Public
* License along with this program (see the file COPYING.LIB for more
* details); if not, write to the Free Software Foundation, Inc.,
* 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include <fstream>
/**
* \class Mille
*
* Class to write a C binary (cf. below) file of a given name and to fill it
* with information used as input to **pede**.
* Use its member functions \c mille(), \c special(), \c kill() and \c end()
* as you would use the fortran \ref mille.f90 "MILLE"
* and its entry points \c MILLSP, \c KILLE and \c ENDLE.
*
* For debugging purposes constructor flags enable switching to text output and/or
* to write also derivatives and labels which are ==0.
* But note that **pede** will not be able to read text output and has not been tested with
* derivatives/labels ==0.
*
* author : Gero Flucke
* date : October 2006
* $Revision: 1.3 $
* $Date: 2007/04/16 17:47:38 $
* (last update by $Author: flucke $)
*/
/// Class to write C binary file.
class Mille
{
public:
Mille(const char *outFileName, bool asBinary = true, bool writeZero = false);
~Mille();
void mille(int NLC, const float *derLc, int NGL, const float *derGl,
const int *label, float rMeas, float sigma);
void special(int nSpecial, const float *floatings, const int *integers);
void kill();
void end();
private:
void newSet();
bool checkBufferSize(int nLocal, int nGlobal);
std::ofstream myOutFile; ///< C-binary for output
bool myAsBinary; ///< if false output as text
bool myWriteZero; ///< if true also write out derivatives/labels ==0
/// buffer size for ints and floats
enum {myBufferSize = 5000}; ///< buffer size for ints and floats
int myBufferInt[myBufferSize]; ///< to collect labels etc.
float myBufferFloat[myBufferSize]; ///< to collect derivatives etc.
int myBufferPos; ///< position in buffer
bool myHasSpecial; ///< if true, special(..) already called for this record
/// largest label allowed: 2^31 - 1
enum {myMaxLabel = (0xFFFFFFFF - (1 << 31))};
};
#endif