1 /***********************************************************************
2 *
3 * ***** *** ***
4 * * * * * *
5 * * *** ***
6 * * * * * *
7 * ***** *** ***
8 *
9 * A FREE Finite Elements Analysis Program in ANSI C for the Windows &
10 * the UNIX OS.
11 *
12 * Composed and edited and copyright by
13 * Professor Dr.-Ing. Frank Rieg, University of Bayreuth, Germany
14 *
15 * eMail:
16 * frank.rieg@uni-bayreuth.de
17 * dr.frank.rieg@t-online.de
18 *
19 * V15.0 November 18, 2015
20 *
21 * This program is free software; you can redistribute it and/or modify
22 * it under the terms of the GNU General Public License as published by
23 * the Free Software Foundation; either version 2, or (at your option)
24 * any later version.
25 *
26 * This program is distributed in the hope that it will be useful,
27 * but WITHOUT ANY WARRANTY; without even the implied warranty of
28 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
29 * GNU General Public License for more details.
30 *
31 * You should have received a copy of the GNU General Public License
32 * along with this program; see the file COPYING. If not, write to
33 * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
34 ***********************************************************************/
35 /***********************************************************************
36 * wlog88x gibt Log-Datei-Meldungen aus (1 FR_INT4, 1 int)
37 * 25.11.2015 Rieg
38 ***********************************************************************/
39
40 /***********************************************************************
41 * Fuer UNIX
42 ***********************************************************************/
43 #ifdef FR_UNIX
44 #include <z88x.h>
45 #include <stdio.h> /* FILE,fprintf,fflush */
46 #endif
47
48 /***********************************************************************
49 * Fuer Windows
50 ***********************************************************************/
51 #ifdef FR_WIN
52 #include <z88x.h>
53 #include <stdio.h> /* FILE,fprintf,fflush */
54 #endif
55
56 /***********************************************************************
57 * Formate
58 ***********************************************************************/
59 #ifdef FR_XINT
60 #define PD "%d"
61 #endif
62
63 #ifdef FR_XLONG
64 #define PD "%ld"
65 #endif
66
67 #ifdef FR_XLOLO
68 #define PD "%lld"
69 #endif
70
71 /***********************************************************************
72 * hier beginnt Function wlog88x
73 ***********************************************************************/
wlog88x(FR_INT4 i,int iatx)74 int wlog88x(FR_INT4 i,int iatx)
75 {
76 extern FILE *fwlo;
77 extern FR_INT4 LANG;
78
79 switch(iatx)
80 {
81 case LOG_BZ88X:
82 fprintf(fwlo,"Start Z88X Version 15OS");
83 fflush(fwlo);
84 break;
85
86 case LOG_CFLAGI1TX:
87 if(LANG == 1) fprintf(fwlo,"\nSteuerflag CFLAG fuer Z88X ist -I1TX, ICFLAG = " PD,i);
88 if(LANG == 2) fprintf(fwlo,"\nflag CFLAG for Z88X is -I1TX, ICFLAG = " PD,i);
89 fflush(fwlo);
90 break;
91
92 case LOG_CFLAGIATX:
93 if(LANG == 1) fprintf(fwlo,"\nSteuerflag CFLAG fuer Z88X ist -IATX, ICFLAG = " PD,i);
94 if(LANG == 2) fprintf(fwlo,"\nflag CFLAG for Z88X is -IATX, ICFLAG = " PD,i);
95 fflush(fwlo);
96 break;
97
98 case LOG_CFLAGNITX:
99 if(LANG == 1) fprintf(fwlo,"\nSteuerflag CFLAG fuer Z88X ist -NITX, ICFLAG = " PD,i);
100 if(LANG == 2) fprintf(fwlo,"\nflag CFLAG for Z88X is -NITX, ICFLAG = " PD,i);
101 fflush(fwlo);
102 break;
103
104 case LOG_CFLAGI1FX:
105 if(LANG == 1) fprintf(fwlo,"\nSteuerflag CFLAG fuer Z88X ist -I1FX, ICFLAG = " PD,i);
106 if(LANG == 2) fprintf(fwlo,"\nflag CFLAG for Z88X is -I1FX, ICFLAG = " PD,i);
107 fflush(fwlo);
108 break;
109
110 case LOG_CFLAGIAFX:
111 if(LANG == 1) fprintf(fwlo,"\nSteuerflag CFLAG fuer Z88X ist -IAFX, ICFLAG = " PD,i);
112 if(LANG == 2) fprintf(fwlo,"\nflag CFLAG for Z88X is -IAFX, ICFLAG = " PD,i);
113 fflush(fwlo);
114 break;
115
116 case LOG_CFLAGNIFX:
117 if(LANG == 1) fprintf(fwlo,"\nSteuerflag CFLAG fuer Z88X ist -NIFX, ICFLAG = " PD,i);
118 if(LANG == 2) fprintf(fwlo,"\nflag CFLAG for Z88X is -NIFX, ICFLAG = " PD,i);
119 fflush(fwlo);
120 break;
121
122 case LOG_OPENZ88DYN:
123 if(LANG == 1) fprintf(fwlo,"\nOeffnen der Datei Z88.DYN");
124 if(LANG == 2) fprintf(fwlo,"\nopening file Z88.DYN");
125 fflush(fwlo);
126 break;
127
128 case LOG_NODYN:
129 if(LANG == 1) fprintf(fwlo,"\n### kann Z88.DYN nicht oeffnen ..Stop ###");
130 if(LANG == 2) fprintf(fwlo,"\n### cannot open Z88.DYN ..stop ###");
131 fflush(fwlo);
132 break;
133
134 case LOG_WRONGDYN:
135 if(LANG == 1) fprintf(fwlo,"\n### File Z88.DYN ist nicht korrekt ..Stop ###");
136 if(LANG == 2) fprintf(fwlo,"\n### file Z88.DYN is not correct ..stop ###");
137 fflush(fwlo);
138 break;
139
140 case LOG_MAXKOI:
141 fprintf(fwlo,"\nMAXKOI = " PD,i);
142 fflush(fwlo);
143 break;
144
145 case LOG_MAXK:
146 fprintf(fwlo,"\nMAXK = " PD,i);
147 fflush(fwlo);
148 break;
149
150 case LOG_MAXE:
151 fprintf(fwlo,"\nMAXE = " PD,i);
152 fflush(fwlo);
153 break;
154
155 case LOG_MAXNFG:
156 fprintf(fwlo,"\nMAXNFG = " PD,i);
157 fflush(fwlo);
158 break;
159
160 case LOG_MAXPR:
161 fprintf(fwlo,"\nMAXPR = " PD,i);
162 fflush(fwlo);
163 break;
164
165 case LOG_OKDYN:
166 if(LANG == 1) fprintf(fwlo,"\nDatei Z88.DYN gelesen..scheint formal o.k. zu sein");
167 if(LANG == 2) fprintf(fwlo,"\nfile Z88.DYN read .. seems to be o.k.");
168 fflush(fwlo);
169 break;
170
171 case LOG_ALLOCMEMY:
172 if(LANG == 1) fprintf(fwlo,"\nDynamisches Memory anlegen:");
173 if(LANG == 2) fprintf(fwlo,"\nallocating dynamic memory:");
174 fflush(fwlo);
175 break;
176
177 case LOG_ARRAYNOTOK:
178 if(LANG == 1) fprintf(fwlo,"\n### Memory Kennung " PD " nicht o.k. ..Stop ###",i);
179 if(LANG == 2) fprintf(fwlo,"\n### memory id " PD " is not o.k. ..stop ###",i);
180 fflush(fwlo);
181 break;
182
183 case LOG_ARRAYOK:
184 if(LANG == 1) fprintf(fwlo,"\nMemory Kennung " PD " angelegt",i);
185 if(LANG == 2) fprintf(fwlo,"\nmemory id " PD " allocated",i);
186 fflush(fwlo);
187 break;
188
189 case LOG_SUMMEMY:
190 if(LANG == 1) fprintf(fwlo,"\nDynamisches Memory vollstaendig angefordert: " PD " Bytes",i);
191 if(LANG == 2) fprintf(fwlo,"\ndynamic memory totally allocated: " PD " Bytes",i);
192 fflush(fwlo);
193 break;
194
195 case LOG_EXITDYN88X:
196 if(LANG == 1) fprintf(fwlo,"\nVerlassen Speichereinheit DYN88X");
197 if(LANG == 2) fprintf(fwlo,"\nleaving memory function DYN88X");
198 fflush(fwlo);
199 break;
200
201 case LOG_Z88TX:
202 fprintf(fwlo,"\nStart Z88TX");
203 fflush(fwlo);
204 break;
205
206 case LOG_BREA88:
207 if(LANG == 1) fprintf(fwlo,"\nStart Leseeinheit REA88X");
208 if(LANG == 2) fprintf(fwlo,"\nstart reading function REA88X");
209 fflush(fwlo);
210 break;
211
212 case LOG_FI1:
213 if(LANG == 1) fprintf(fwlo,"\nEinlesen von Z88I1.TXT");
214 if(LANG == 2) fprintf(fwlo,"\nreading Z88I1.TXT");
215 fflush(fwlo);
216 break;
217
218 case LOG_NOI1:
219 if(LANG == 1) fprintf(fwlo,"\n### kann Z88I1.TXT nicht oeffnen ..Stop ###");
220 if(LANG == 2) fprintf(fwlo,"\n### cannot open Z88I1.TXT ..stop ###");
221 fflush(fwlo);
222 break;
223
224 case LOG_FI2:
225 if(LANG == 1) fprintf(fwlo,"\nEinlesen von Z88I2.TXT");
226 if(LANG == 2) fprintf(fwlo,"\nreading Z88I2.TXT");
227 fflush(fwlo);
228 break;
229
230 case LOG_NOI2:
231 if(LANG == 1) fprintf(fwlo,"\n### kann Z88I2.TXT nicht oeffnen ..Stop ###");
232 if(LANG == 2) fprintf(fwlo,"\n### cannot open Z88I2.TXT ..stop ###");
233 fflush(fwlo);
234 break;
235
236 case LOG_FI5:
237 if(LANG == 1) fprintf(fwlo,"\nEinlesen von Z88I5.TXT");
238 if(LANG == 2) fprintf(fwlo,"\nreading Z88I5.TXT");
239 fflush(fwlo);
240 break;
241
242 case LOG_NOI5:
243 if(LANG == 1) fprintf(fwlo,"\n### kann Z88I5.TXT nicht oeffnen ..Stop ###");
244 if(LANG == 2) fprintf(fwlo,"\n### cannot open Z88I5.TXT ..stop ###");
245 fflush(fwlo);
246 break;
247
248 case LOG_FNI:
249 if(LANG == 1) fprintf(fwlo,"\nEinlesen von Z88NI.TXT");
250 if(LANG == 2) fprintf(fwlo,"\nreading Z88NI.TXT");
251 fflush(fwlo);
252 break;
253
254 case LOG_NONI:
255 if(LANG == 1) fprintf(fwlo,"\n### kann Z88NI.TXT nicht oeffnen ..Stop ###");
256 if(LANG == 2) fprintf(fwlo,"\n### cannot open Z88NI.TXT ..stop ###");
257 fflush(fwlo);
258 break;
259
260 case LOG_WRONGDIM:
261 if(LANG == 1) fprintf(fwlo,"\n### Dimension " PD " falsch ..Stop ###",i);
262 if(LANG == 2) fprintf(fwlo,"\n### dimension " PD " wrong ..stop ###",i);
263 fflush(fwlo);
264 break;
265
266 case LOG_EXMAXK:
267 if(LANG == 1)
268 {
269 fprintf(fwlo,"\n### Nur " PD " Knoten im Speicher zulaessig ..Stop ###",i);
270 fprintf(fwlo,"\n### Abhilfe: MAXK in Z88.DYN erhoehen ###");
271 }
272 if(LANG == 2)
273 {
274 fprintf(fwlo,"\n### only " PD " nodes in memory allowed ..stop ###",i);
275 fprintf(fwlo,"\n### recover: increase MAXK in Z88.DYN ###");
276 }
277 fflush(fwlo);
278 break;
279
280 case LOG_EXMAXE:
281 if(LANG == 1)
282 {
283 fprintf(fwlo,"\n### Nur " PD " Elemente im Speicher zulaessig ..Stop ###",i);
284 fprintf(fwlo,"\n### Abhilfe: MAXE in Z88.DYN erhoehen ###");
285 }
286 if(LANG == 2)
287 {
288 fprintf(fwlo,"\n### only " PD " elements in memory allowed ..stop ###",i);
289 fprintf(fwlo,"\n### recover: increase MAXE in Z88.DYN ###");
290 }
291 fflush(fwlo);
292 break;
293
294 case LOG_EXMAXKOI:
295 if(LANG == 1) fprintf(fwlo,"\n### MAXKOI= " PD ", zu klein, in Z88.DYN hoeher setzen ..Stop ###",i);
296 if(LANG == 2) fprintf(fwlo,"\n### MAXKOI= " PD ", too small, increase value in Z88.DYN ..stop ###",i);
297 fflush(fwlo);
298 break;
299
300 case LOG_EXMAXNFG:
301 if(LANG == 1)
302 {
303 fprintf(fwlo,"\n### Nur " PD " FG im Speicher zulaessig ..Stop ###",i);
304 fprintf(fwlo,"\n### Abhilfe: MAXNFG in Z88.DYN erhoehen ###");
305 }
306 if(LANG == 2)
307 {
308 fprintf(fwlo,"\n### only " PD " DOF in memory allowed ..stop ###",i);
309 fprintf(fwlo,"\n### recover: increase MAXNFG in Z88.DYN ###");
310 }
311 fflush(fwlo);
312 break;
313
314 case LOG_EXMAXPR:
315 if(LANG == 1)
316 {
317 fprintf(fwlo,"\n### Nur " PD " Flaechenlasten im Speicher zulaessig ..Stop ###",i);
318 fprintf(fwlo,"\n### Abhilfe: MAXPR in Z88.DYN erhoehen ###");
319 }
320 if(LANG == 2)
321 {
322 fprintf(fwlo,"\n### only " PD " surface loads in memory allowed ..stop ###",i);
323 fprintf(fwlo,"\n### recover: increase MAXPR in Z88.DYN ###");
324 }
325 fflush(fwlo);
326 break;
327
328 case LOG_WROKFLAG:
329 if(LANG == 1) fprintf(fwlo,"\n### KFLAG " PD " falsch ..Stop ###",i);
330 if(LANG == 2) fprintf(fwlo,"\n### KFLAG " PD " wrong ..stop ###",i);
331 fflush(fwlo);
332 break;
333
334 case LOG_KOOR:
335 if(LANG == 1) fprintf(fwlo,"\nEinlesen der Koordinaten");
336 if(LANG == 2) fprintf(fwlo,"\nreading coordinates");
337 fflush(fwlo);
338 break;
339
340 case LOG_KOIN:
341 if(LANG == 1) fprintf(fwlo,"\nEinlesen der Koinzidenz");
342 if(LANG == 2) fprintf(fwlo,"\nreading element informations");
343 fflush(fwlo);
344 break;
345
346 case LOG_SINFO:
347 if(LANG == 1) fprintf(fwlo,"\nEinlesen der Superelement-Infos");
348 if(LANG == 2) fprintf(fwlo,"\nreading superelement informations");
349 fflush(fwlo);
350 break;
351
352 case LOG_EXITREA88:
353 if(LANG == 1) fprintf(fwlo,"\nZ88- Datei eingelesen, Verlassen Leseeinheit REA88X");
354 if(LANG == 2) fprintf(fwlo,"\nZ88- file read, leaving reading function REA88X");
355 fflush(fwlo);
356 break;
357
358 case LOG_WROETYP:
359 if(LANG == 1) fprintf(fwlo,"\n### Falschen Elementtyp " PD " entdeckt ..Stop ###",i);
360 if(LANG == 2) fprintf(fwlo,"\n### wrong elementtype " PD " detected ..stop ###",i);
361 fflush(fwlo);
362 break;
363
364 case LOG_FX:
365 if(LANG == 1) fprintf(fwlo,"\nOeffnen von Z88X.DXF");
366 if(LANG == 2) fprintf(fwlo,"\nopening Z88X.DXF");
367 fflush(fwlo);
368 break;
369
370 case LOG_NOX:
371 if(LANG == 1) fprintf(fwlo,"\n### kann Z88X.DXF nicht oeffnen ..Stop ###");
372 if(LANG == 2) fprintf(fwlo,"\n### cannot open Z88X.DXF ..stop ###");
373 fflush(fwlo);
374 break;
375
376 case LOG_REAIX:
377 if(LANG == 1) fprintf(fwlo,"\nZ88X.DXF einlesen");
378 if(LANG == 2) fprintf(fwlo,"\nZ88X.DXF read");
379 fflush(fwlo);
380 break;
381
382 case LOG_FAC:
383 if(LANG == 1) fprintf(fwlo,"\nFaktoren berechnen");
384 if(LANG == 2) fprintf(fwlo,"\ncomputing factors");
385 fflush(fwlo);
386 break;
387
388 case LOG_SDXF:
389 if(LANG == 1) fprintf(fwlo,"\nDXF-Steuerwerte schreiben");
390 if(LANG == 2) fprintf(fwlo,"\nwriting DXF main flags");
391 fflush(fwlo);
392 break;
393
394 case LOG_SELE:
395 if(LANG == 1) fprintf(fwlo,"\nDXF-Entities schreiben");
396 if(LANG == 2) fprintf(fwlo,"\nwriting DXF entities");
397 fflush(fwlo);
398 break;
399
400 case LOG_EXITZ88TX:
401 if(LANG == 1) fprintf(fwlo,"\nVerlassen Z88TX");
402 if(LANG == 2) fprintf(fwlo,"\nleaving Z88TX");
403 fflush(fwlo);
404 break;
405
406 case LOG_Z88FX:
407 fprintf(fwlo,"\nStart Z88FX");
408 fflush(fwlo);
409 break;
410
411 case LOG_DEC1ZI1:
412 if(LANG == 1) fprintf(fwlo,"\nDecodieren von Z88X.DXF, Z88I1.TXT 1.Zeile aufbauen");
413 if(LANG == 2) fprintf(fwlo,"\ndecoding Z88X.DXF, Z88I1.TXT building first line");
414 fflush(fwlo);
415 break;
416
417 case LOG_DEC1ZNI:
418 if(LANG == 1) fprintf(fwlo,"\nDecodieren von Z88X.DXF, Z88NI.TXT 1.Zeile aufbauen");
419 if(LANG == 2) fprintf(fwlo,"\ndecoding Z88X.DXF, Z88NI.TXT building first line");
420 fflush(fwlo);
421 break;
422
423 case LOG_DECKNO:
424 if(LANG == 1) fprintf(fwlo,"\nDecodieren von Z88X.DXF, Knoten aufbauen");
425 if(LANG == 2) fprintf(fwlo,"\ndecoding Z88X.DXF, building nodes");
426 fflush(fwlo);
427 break;
428
429 case LOG_FOUKNO:
430 if(LANG == 1) fprintf(fwlo,"\n" PD " Knoten gefunden",i);
431 if(LANG == 2) fprintf(fwlo,"\n" PD " nodes detected",i);
432 fflush(fwlo);
433 break;
434
435 case LOG_DECELE:
436 if(LANG == 1) fprintf(fwlo,"\nDecodieren von Z88X.DXF, Elemente aufbauen");
437 if(LANG == 2) fprintf(fwlo,"\ndecoding Z88X.DXF, building elements");
438 fflush(fwlo);
439 break;
440
441 case LOG_FOUFELE:
442 if(LANG == 1) fprintf(fwlo,"\n" PD " Finite Elemente gefunden",i);
443 if(LANG == 2) fprintf(fwlo,"\n" PD " finite elements detected",i);
444 fflush(fwlo);
445 break;
446
447 case LOG_FOUSELE:
448 if(LANG == 1) fprintf(fwlo,"\n" PD " Super-Elemente gefunden",i);
449 if(LANG == 2) fprintf(fwlo,"\n" PD " superelements detected",i);
450 fflush(fwlo);
451 break;
452
453 case LOG_DEC1ZI2:
454 if(LANG == 1) fprintf(fwlo,
455 "\nDecodieren von Z88X.DXF, Z88I2.TXT Anzahl Randbed. aufbauen");
456 if(LANG == 2) fprintf(fwlo,
457 "\ndecoding Z88X.DXF, building number of constraints");
458 fflush(fwlo);
459 break;
460
461 case LOG_DECI2R:
462 if(LANG == 1) fprintf(fwlo,
463 "\nDecodieren von Z88X.DXF, Z88I2.TXT Randbedingungen aufbauen");
464 if(LANG == 2) fprintf(fwlo,
465 "\ndecoding Z88X.DXF, building constraints");
466 fflush(fwlo);
467 break;
468
469 case LOG_DEC1ZI5:
470 if(LANG == 1) fprintf(fwlo,
471 "\nDecodieren von Z88X.DXF, Z88I5.TXT Anzahl Flaechenlasten aufbauen");
472 if(LANG == 2) fprintf(fwlo,
473 "\ndecoding Z88X.DXF, building number of surface loads");
474 fflush(fwlo);
475 break;
476
477 case LOG_DECI5R:
478 if(LANG == 1) fprintf(fwlo,
479 "\nDecodieren von Z88X.DXF, Z88I5.TXT Flaechenlasten aufbauen");
480 if(LANG == 2) fprintf(fwlo,
481 "\ndecoding Z88X.DXF, building surface loads");
482 fflush(fwlo);
483 break;
484
485 case LOG_WROIXI1:
486 if(LANG == 1)
487 {
488 fprintf(fwlo,"\n### Z88X.DXF fuer Z88I1.TXT falsch: ###");
489 fprintf(fwlo,"\n### erste Eingabegruppe fehlt oder falsch ..Stop ###");
490 }
491 if(LANG == 2)
492 {
493 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88I1.TXT: ###");
494 fprintf(fwlo,"\n### first input group missing or wrong ..stop ###");
495 }
496 fflush(fwlo);
497 break;
498
499 case LOG_WROIXNI:
500 if(LANG == 1)
501 {
502 fprintf(fwlo,"\n### Z88X.DXF fuer Z88NI.TXT falsch: ###");
503 fprintf(fwlo,"\n### erste Eingabegruppe fehlt oder falsch ..Stop ###");
504 }
505 if(LANG == 2)
506 {
507 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88NI.TXT: ###");
508 fprintf(fwlo,"\n### first input group missing or wrong ..stop ###");
509 }
510 fflush(fwlo);
511 break;
512
513 case LOG_WROIXKNO:
514 if(LANG == 1)
515 {
516 fprintf(fwlo,"\n### Z88X.DXF fuer Z88I1.TXT/Z88NI.TXT falsch: ###");
517 fprintf(fwlo,"\n### Gefundene Anzahl Knoten stimmt nicht ..Stop ###");
518 }
519 if(LANG == 2)
520 {
521 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88I1.TXT/Z88NI.TXT: ###");
522 fprintf(fwlo,"\n### impossible number of nodes found ..stop ###");
523 }
524 fflush(fwlo);
525 break;
526
527 case LOG_WROIXELE:
528 if(LANG == 1)
529 {
530 fprintf(fwlo,"\n### Z88X.DXF fuer Z88I1.TXT/Z88NI.TXT falsch: ###");
531 fprintf(fwlo,"\n### Gefundene Anzahl Elemente stimmt nicht ..Stop ###");
532 }
533 if(LANG == 2)
534 {
535 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88I1.TXT/Z88NI.TXT: ###");
536 fprintf(fwlo,"\n### impossible number of elements found ..stop ###");
537 }
538 fflush(fwlo);
539 break;
540
541 case LOG_WROIXKOI:
542 if(LANG == 1)
543 {
544 fprintf(fwlo,"\n### Z88X.DXF fuer Z88I1.TXT/Z88NI.TXT falsch:###");
545 fprintf(fwlo,"\n### identische Knoten in Element " PD " ..Stop ###",i);
546 }
547 if(LANG == 2)
548 {
549 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88I1.TXT/Z88NI.TXT: ###");
550 fprintf(fwlo,"\n### identical nodes in element " PD " found ..stop ###",i);
551 }
552 fflush(fwlo);
553 break;
554
555 case LOG_WROIXM:
556 if(LANG == 1)
557 {
558 fprintf(fwlo,"\n### Z88X.DXF fuer Z88I1.TXT/Z88NI.TXT falsch:###");
559 fprintf(fwlo,"\n### E-Gesetze fehlen oder falsch ..Stop ###");
560 }
561 if(LANG == 2)
562 {
563 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88I1.TXT/Z88NI.TXT: ###");
564 fprintf(fwlo,"\n### material informations missing or wrong ..stop ###");
565 }
566 fflush(fwlo);
567 break;
568
569 case LOG_WROIXI21Z:
570 if(LANG == 1)
571 {
572 fprintf(fwlo,"\n### Z88X.DXF fuer Z88I2.TXT.TXT falsch: ###");
573 fprintf(fwlo,"\n### Anzahl Randbedingungen fehlt oder falsch ..Stop ###");
574 }
575 if(LANG == 2)
576 {
577 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88I2.TXT: ###");
578 fprintf(fwlo,"\n### number of constraints missing or wrong ..stop ###");
579 }
580 fflush(fwlo);
581 break;
582
583 case LOG_WROIXI2R:
584 if(LANG == 1)
585 {
586 fprintf(fwlo,"\n### Z88X.DXF fuer Z88I2.TXT.TXT falsch: ###");
587 fprintf(fwlo,"\n### Falsche oder zuwenig Randbedingungen ..Stop ###");
588 }
589 if(LANG == 2)
590 {
591 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88I2.TXT: ###");
592 fprintf(fwlo,"\n### wrong or too few constraints ..stop ###");
593 }
594 fflush(fwlo);
595 break;
596
597 case LOG_WROIXI51Z:
598 if(LANG == 1)
599 {
600 fprintf(fwlo,"\n### Z88X.DXF fuer Z88I5.TXT.TXT falsch: ###");
601 fprintf(fwlo,"\n### Anzahl Flaechenlasten fehlt oder falsch ..Stop ###");
602 }
603 if(LANG == 2)
604 {
605 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88I5.TXT: ###");
606 fprintf(fwlo,"\n### number of surface loads missing or wrong ..stop ###");
607 }
608 fflush(fwlo);
609 break;
610
611 case LOG_WROIXI5R:
612 if(LANG == 1)
613 {
614 fprintf(fwlo,"\n### Z88X.DXF fuer Z88I5.TXT.TXT falsch: ###");
615 fprintf(fwlo,"\n### Falsche oder zuwenig Flaechenlasten ..Stop ###");
616 }
617 if(LANG == 2)
618 {
619 fprintf(fwlo,"\n### Z88X.DXF wrong for Z88I2.TXT: ###");
620 fprintf(fwlo,"\n### wrong or too few surface loads ..stop ###");
621 }
622 fflush(fwlo);
623 break;
624
625 case LOG_EXITZ88FX:
626 if(LANG == 1) fprintf(fwlo,"\nVerlassen Z88FX");
627 if(LANG == 2) fprintf(fwlo,"\nleaving Z88FX");
628 fflush(fwlo);
629 break;
630
631 case LOG_EXITZ88X:
632 if(LANG == 1) fprintf(fwlo,"\nEnde Z88X");
633 if(LANG == 2) fprintf(fwlo,"\nZ88X done");
634 fflush(fwlo);
635 break;
636
637 case LOG_WRII1:
638 if(LANG == 1) fprintf(fwlo,"\nBeschreiben von Z88I1.TXT");
639 if(LANG == 2) fprintf(fwlo,"\nwriting Z88I1.TXT");
640 fflush(fwlo);
641 break;
642
643 case LOG_WRINI:
644 if(LANG == 1) fprintf(fwlo,"\nBeschreiben von Z88NI.TXT");
645 if(LANG == 2) fprintf(fwlo,"\nwriting Z88NI.TXT");
646 fflush(fwlo);
647 break;
648
649 case LOG_WRII2:
650 if(LANG == 1) fprintf(fwlo,"\nBeschreiben von Z88I2.TXT");
651 if(LANG == 2) fprintf(fwlo,"\nwriting Z88I2.TXT");
652 fflush(fwlo);
653 break;
654
655 case LOG_WRII5:
656 if(LANG == 1) fprintf(fwlo,"\nBeschreiben von Z88I5.TXT");
657 if(LANG == 2) fprintf(fwlo,"\nwriting Z88I5.TXT");
658 fflush(fwlo);
659 break;
660
661 case LOG_TOOFEW:
662 if(LANG == 1)
663 {
664 fprintf(fwlo,"\n### Z88X.DXF von CAD falsch: ###");
665 fprintf(fwlo,"\n### Falsche oder zuwenig Linien auf Z88NET ..Stop ###");
666 }
667 if(LANG == 2)
668 {
669 fprintf(fwlo,"\n### Z88X.DXF from CAD wrong: ###");
670 fprintf(fwlo,"\n### wrong or too few lines on Z88NET ..stop ###");
671 }
672 fflush(fwlo);
673 break;
674
675 case LOG_NOPOINTS:
676 if(LANG == 1)
677 {
678 fprintf(fwlo,"\n### Z88X.DXF von CAD falsch: ###");
679 fprintf(fwlo,"\n### Knoten nicht richtig definiert (P Nummer) ..Stop ###");
680 }
681 if(LANG == 2)
682 {
683 fprintf(fwlo,"\n### Z88X.DXF from CAD wrong: ###");
684 fprintf(fwlo,"\n### nodes not properly defined (P number) ..stop ###");
685 }
686 fflush(fwlo);
687 break;
688
689 case LOG_NOLAYNET:
690 if(LANG == 1)
691 {
692 fprintf(fwlo,"\n### Z88X.DXF von CAD falsch: ###");
693 fprintf(fwlo,"\n### Keine o. zuwenig Objekte auf Layer Z88NET..Stop ###");
694 }
695 if(LANG == 2)
696 {
697 fprintf(fwlo,"\n### Z88X.DXF from CAD wrong: ###");
698 fprintf(fwlo,"\n### no or too few objects on layer Z88NET ..stop ###");
699 }
700 fflush(fwlo);
701 break;
702
703 case LOG_NOACROBAT:
704 if(LANG == 1) fprintf(fwlo,"\nPDF-Viewer konnte nicht gestartet werden");
705 if(LANG == 2) fprintf(fwlo,"\ncould not launch PDF Viewer");
706 fflush(fwlo);
707 break;
708
709 }
710 return(0);
711 }
712