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 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279
|
/***********************************************************************
*
* ***** *** ***
* * * * * *
* * *** ***
* * * * * *
* ***** *** ***
*
* A FREE Finite Elements Analysis Program in ANSI C for the UNIX OS.
*
* Composed and edited and copyright by
* Professor Dr.-Ing. Frank Rieg, University of Bayreuth, Germany
*
* eMail:
* frank.rieg@uni-bayreuth.de
* dr.frank.rieg@t-online.de
*
* V12.0 February 14, 2001
*
* Z88 should compile and run under any UNIX OS and Motif 2.0.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; see the file COPYING. If not, write to
* the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
***********************************************************************/
/***********************************************************************
* function ale88f gibt Fehlermeldungen aus
* 14.9.2005 Rieg
***********************************************************************/
/***********************************************************************
* Fuer UNIX
***********************************************************************/
#ifdef FR_UNIX
#include <z88f.h>
#include <stdio.h> /* printf */
#endif
/***********************************************************************
* hier beginnt Function ale88f
***********************************************************************/
int ale88f(int ialert)
{
extern FR_INT4 LANG;
switch(ialert)
{
case AL_NOCFLAG:
if(LANG == 1)
{
printf("### kein Steuerflag fuer Z88F angegeben ..Stop ###\n");
printf("### Richtiger Aufruf: z88f -c (Rechenmodus) ###\n");
printf("### z88f -t (Testmodus) ###\n");
}
if(LANG == 2)
{
printf("### no flag given for Z88F ..stop ###\n");
printf("### correct use: z88f -c (computemode) ###\n");
printf("### z88f -t (testmode) ###\n");
}
break;
case AL_WROCFLAG:
if(LANG == 1)
{
printf("### Steuerflag falsch fuer Z88F angegeben ..Stop ###\n");
printf("### Richtiger Aufruf: z88f -c (Rechenmodus) ###\n");
printf("### z88f -t (Testmodus) ###\n");
}
if(LANG == 2)
{
printf("### wrong flag given for Z88F ..stop ###\n");
printf("### correct use: z88f -c (computemode) ###\n");
printf("### z88f -t (testmode) ###\n");
}
break;
case AL_NOLOG:
if(LANG == 1) printf("### kann Z88F.LOG nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88F.LOG ..stop ###\n");
break;
case AL_NODYN:
if(LANG == 1) printf("### kann Z88.DYN nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88.DYN ..stop ###\n");
break;
case AL_WRONGDYN:
if(LANG == 1) printf("### File Z88.DYN ist nicht korrekt ..Stop ###\n");
if(LANG == 2) printf("### file Z88.DYN is not correct ..stop ###\n");
break;
case AL_NOMEMY:
if(LANG == 1)printf("### nicht genuegend dynamisches Memory ..Stop ###\n");
if(LANG == 2)printf("### insufficient dynamic memory ..Stop ###\n");
break;
case AL_NOI1:
if(LANG == 1) printf("### kann Z88I1.TXT nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88I1.TXT ..stop ###\n");
break;
case AL_NOI2:
if(LANG == 1) printf("### kann Z88I2.TXT nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88I2.TXT ..stop ###\n");
break;
case AL_NOI5:
if(LANG == 1) printf("### kann Z88I5.TXT nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88I5.TXT ..stop ###\n");
break;
case AL_NO1Y:
if(LANG == 1) printf("### kann Z88O1.BNY nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88O1.BNY ..stop ###\n");
break;
case AL_NO3Y:
if(LANG == 1) printf("### kann Z88O3.BNY nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88O3.BNY ..stop ###\n");
break;
case AL_NOO0:
if(LANG == 1) printf("### kann Z88O0.TXT nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88O0.TXT ..stop ###\n");
break;
case AL_NOO1:
if(LANG == 1) printf("### kann Z88O1.TXT nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88O1.TXT ..stop ###\n");
break;
case AL_NOO2:
if(LANG == 1) printf("### kann Z88O2.TXT nicht oeffnen ..Stop ###\n");
if(LANG == 2) printf("### cannot open Z88O2.TXT ..stop ###\n");
break;
case AL_WRONDIM:
if(LANG == 1) printf("### Dimension falsch ..Stop ###\n");
if(LANG == 2) printf("### wrong dimension ..stop ###\n");
break;
case AL_EXMAXK:
if(LANG == 1)
{
printf("### Zuviele Knoten ..zuwenig Speicher ..Stop ###\n");
printf("### Abhilfe: MAXK in Z88.DYN erhoehen ###\n");
}
if(LANG == 2)
{
printf("### too many nodes ..insufficient memory ..stop ###\n");
printf("### recover: increase MAXK in Z88.DYN ###\n");
}
break;
case AL_EXMAXE:
if(LANG == 1)
{
printf("### Zuviele Elemente ..zuwenig Speicher ..Stop ###\n");
printf("### Abhilfe: MAXE in Z88.DYN erhoehen ###\n");
}
if(LANG == 2)
{
printf("### too many elements ..insufficient memory ..stop ###\n");
printf("### recover: increase MAXE in Z88.DYN ###\n");
}
break;
case AL_EXMAXNFG:
if(LANG == 1)
{
printf("### Zuviele Freiheitsgrade ..zuwenig Speicher ..Stop ###\n");
printf("### Abhilfe: MAXNFG in Z88.DYN erhoehen ###\n");
}
if(LANG == 2)
{
printf("### too many DOF ..zuwenig Speicher ..stop ###\n");
printf("### recover: increase MAXNFG in Z88.DYN ###\n");
}
break;
case AL_EXMAXNEG:
if(LANG == 1)
{
printf("### Zuviele Elastizitaetsgesetze ..zuwenig Speicher ..Stop ###\n");
printf("### Abhilfe: MAXNEG in Z88.DYN erhoehen ###\n");
}
if(LANG == 2)
{
printf("### too many mat lines ..zuwenig Speicher ..stop ###\n");
printf("### recover: increase MAXNEG in Z88.DYN ###\n");
}
break;
case AL_EXMAXPR:
if(LANG == 1)
{
printf("### Zuviele Lastvektoren ..zuwenig Speicher ..Stop ###\n");
printf("### Abhilfe: MAXPR in Z88.DYN erhoehen ###\n");
}
if(LANG == 2)
{
printf("### too many load vectors ..insufficient memory ..stop ###\n");
printf("### recover: increase MAXPR in Z88.DYN ###\n");
}
break;
case AL_WROKFLAG:
if(LANG == 1) printf("### KFLAG falsch ..Stop ###\n");
if(LANG == 2) printf("### KFLAG wrong ..stop ###\n");
break;
case AL_WROETYP:
if(LANG == 1)
printf("### Unbekannter Elementtyp in Z88I1.TXT ..Stop ###\n");
if(LANG == 2)
printf("### unknown element type in Z88I1.TXT ..stop ###\n");
break;
case AL_EXGS:
if(LANG == 1)
{
printf("### Gleichungssystem zu gross ..zuwenig Speicher ..Stop ###\n");
printf("### Abhilfe: MAXGS hoeher setzen in Z88.DYN ###\n");
}
if(LANG == 2)
{
printf(
"### system of equations too large ..insufficient memory ..stop ###\n");
printf(
"### recover: increase MAXGS in Z88.DYN ###\n");
}
break;
case AL_EXKOI:
if(LANG == 1)
{
printf("### Gleichungssystem zu gross ..zuwenig Speicher ..Stop ###\n");
printf("### Abhilfe: MAXKOI hoeher setzen in Z88.DYN ###\n");
}
if(LANG == 2)
{
printf(
"### system of equations too large ..insufficient memory ..stop ###\n");
printf(
"### recover: increase MAXKOI in Z88.DYN ###\n");
}
break;
case AL_JACNEG:
if(LANG == 1)
{
printf("### Jacobi-Determinante Null oder negativ..Stop ###\n");
printf("### Elemente zu verzerrt oder falsch numeriert ###\n");
printf("### pruefen, Numerierung gegen Uhrzeigersinn? ###\n");
}
if(LANG == 2)
{
printf("### Jacobi-determinant zero or negative..stop ###\n");
printf("### elements to distorted or wrong numbered ###\n");
printf("### recover: check numbering (anti-clockwise) ###\n");
}
case AL_JACLOA:
if(LANG == 1)
{
printf("### Jacobi-Determinante Null oder negativ..Stop ###\n");
printf("### Lastvektoren falsch in Z88I5.TXT ###\n");
printf("### Stimmt die Numerierung der Flaeche? Handbuch ###\n");
}
if(LANG == 2)
{
printf("### Jacobi-determinant zero or negative..stop ###\n");
printf("### load vectors wrong in file Z88I5.TXT ###\n");
printf("### numering correct? See manual ###\n");
}
break;
case AL_DIAGNULL:
if(LANG == 1)
{
printf("### Diagonalelement im G-System Null oder negativ..Stop ###\n");
printf("### liegt oft an fehlenden oder falschen Randbedingungen ###\n");
printf("### Randbedingungen checken (statisch unterbestimmt ?) ###\n");
}
if(LANG == 2)
{
printf("### diagonal element in array zero or negative..stop ###\n");
printf("### often caused by missing or wrong constraints ###\n");
printf("### recover: check constraints (underdefined ?) ###\n");
}
break;
}
return(0);
}
|