1 /***********************************************************************
2 *
3 * ***** *** ***
4 * * * * * *
5 * * *** ***
6 * * * * * *
7 * ***** *** ***
8 *
9 * A FREE Finite Elements Analysis Program in ANSI C for the UNIX and
10 * the Windows OS.
11 *
12 * Composed and edited 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 * wrim88h gibt Texte aus (1 FR_INT4)
37 * 25.11.2015 Rieg
38 ***********************************************************************/
39
40 /***********************************************************************
41 * Fuer UNIX
42 ***********************************************************************/
43 #ifdef FR_UNIX
44 #include <z88h.h>
45 #include <stdio.h> /* printf */
46 #endif
47
48 /***********************************************************************
49 * Formate
50 ***********************************************************************/
51 #ifdef FR_XINT
52 #define PD "%d"
53 #endif
54
55 #ifdef FR_XLONG
56 #define PD "%ld"
57 #endif
58
59 #ifdef FR_XLOLO
60 #define PD "%lld"
61 #endif
62
63 /***********************************************************************
64 * hier beginnt Function wrim88h
65 ***********************************************************************/
wrim88h(FR_INT4 i,int iatx)66 int wrim88h(FR_INT4 i,int iatx)
67 {
68 extern FR_INT4 LANG;
69
70 switch(iatx)
71 {
72 case TX_INOPEN:
73 if(LANG == 1) printf("Zwischendatei Z88H.IN geoeffnet\n");
74 if(LANG == 2) printf("buffer file Z88H.IN opened\n");
75 break;
76
77 case TX_I1OPEN:
78 if(LANG == 1) printf("Z88I1.TXT geoeffnet\n");
79 if(LANG == 2) printf("Z88I1.TXT opened\n");
80 break;
81
82 case TX_I2OPEN:
83 if(LANG == 1) printf("Z88I2.TXT geoeffnet\n");
84 if(LANG == 2) printf("Z88I2.TXT opened\n");
85 break;
86
87 case TX_I5OPEN:
88 if(LANG == 1) printf("Z88I5.TXT geoeffnet\n");
89 if(LANG == 2) printf("Z88I5.TXT opened\n");
90 break;
91
92 case TX_OUTOPEN:
93 if(LANG == 1) printf("Zwischendatei Z88H.OUT geoeffnet\n");
94 if(LANG == 2) printf("buffer file Z88H.OUT opened\n");
95 break;
96
97 case TX_MEMOK:
98 if(LANG == 1) printf("Memory angelegt\n");
99 if(LANG == 2) printf("memory allocated\n");
100 break;
101
102 case TX_1STOP:
103 if(LANG == 1) printf("Grad = " PD ", zu hoch\n",i);
104 if(LANG == 2) printf("grade = " PD ", to big\n",i);
105 break;
106
107 case TX_STARTNUM:
108 if(LANG == 1) (" Startnummer = " PD "\n",i);
109 if(LANG == 2) (" start number = " PD "\n",i);
110 break;
111
112 case TX_LEVEL:
113 if(LANG == 1) ("\rLevel=" PD,i);
114 if(LANG == 2) ("\rlevel=" PD,i);
115 break;
116
117 case TX_MAXGR:
118 if(LANG == 1) printf("Max. Grad = " PD,i);
119 if(LANG == 2) printf("max. grade = " PD,i);
120 break;
121
122 case TX_STOPERM:
123 if(i == 1)
124 {
125 if(LANG == 1) printf("\nAbspeichern Permutationsvektor, umkehrter CM\n");
126 if(LANG == 2) printf("\nstoring permutation vector, reverse CM\n");
127 }
128 if(i == 2)
129 {
130 if(LANG == 1) printf("\nAbspeichern Permutationsvektor, normaler CM\n");
131 if(LANG == 2) printf("\nstoring permutation vector, normal CM\n");
132 }
133 break;
134
135 case TX_UMSPEI:
136 if(LANG == 1) printf("Umspeichern der Files\n");
137 if(LANG == 2) printf("storing files\n");
138 break;
139
140 case TX_NPRCM:
141 if(LANG == 1) (" Profil = " PD "\n",i);
142 if(LANG == 2) (" profile = " PD "\n",i);
143 break;
144
145 case TX_NPRRCM:
146 if(LANG == 1) (" Umgekehrtes Profil = " PD "\n",i);
147 if(LANG == 2) (" reverse profile = " PD "\n",i);
148 break;
149
150 case TX_TXT2OLD:
151 if(LANG == 1) printf("Bisherige Z88I*.TXT in Z88I*.OLD sichern\n");
152 if(LANG == 2) printf("copying existing Z88I*.TXT into Z88I*.OLD\n");
153 break;
154
155 case TX_WRII1:
156 if(LANG == 1) printf("Nun Z88I1.TXT erzeugen\n");
157 if(LANG == 2) printf("now building Z88I1.TXT\n");
158 break;
159
160 case TX_WRII2:
161 if(LANG == 1) printf("Nun Z88I2.TXT erzeugen\n");
162 if(LANG == 2) printf("now building Z88I2.TXT\n");
163 break;
164
165 case TX_WRII5:
166 if(LANG == 1) printf("Nun Z88I5.TXT erzeugen\n");
167 if(LANG == 2) printf("now building Z88I5.TXT\n");
168 break;
169
170 case TX_Z88DONE:
171 if(LANG == 1) printf("Alle Dateien geschlossen. Z88H fertig.\n");
172 if(LANG == 2) printf("All files closed. Z88H done\n");
173 break;
174 }
175 return(0);
176 }
177
178