| 4 |
|
|
| 5 |
|
Roland Schregle (roland.schregle@{hslu.ch, gmail.com}) |
| 6 |
|
(c) Fraunhofer Institute for Solar Energy Systems, |
| 7 |
< |
Lucerne University of Applied Sciences & Arts |
| 7 |
> |
(c) Lucerne University of Applied Sciences and Arts, |
| 8 |
> |
supported by the Swiss National Science Foundation (SNSF, #147053) |
| 9 |
|
================================================================== |
| 10 |
|
|
| 11 |
|
$Id$ |
| 131 |
|
putflt(prim -> dir [j], file); |
| 132 |
|
|
| 133 |
|
for (j = 0; j < 3; j++) |
| 134 |
< |
putflt(prim -> org [j], file); |
| 134 |
> |
putflt(prim -> pos [j], file); |
| 135 |
|
|
| 136 |
|
if (ferror(file)) |
| 137 |
|
error(SYSTEM, "error writing primary photon rays"); |
| 253 |
|
prim -> dir [j] = getflt(file); |
| 254 |
|
|
| 255 |
|
for (j = 0; j < 3; j++) |
| 256 |
< |
prim -> org [j] = getflt(file); |
| 256 |
> |
prim -> pos [j] = getflt(file); |
| 257 |
|
|
| 258 |
|
if (feof(file)) |
| 259 |
|
error(SYSTEM, "error reading primary photon rays"); |
