Last change
on this file since 396 was
396,
checked in by opalod, 15 years ago
|
Initial revision
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
File size:
2.0 KB
|
Line | |
---|
1 | /******************************************************************************/ |
---|
2 | /* */ |
---|
3 | /* CONV (converter) for Agrif (Adaptive Grid Refinement In Fortran) */ |
---|
4 | /* */ |
---|
5 | /* Copyright (C) 2005 Laurent Debreu (Laurent.Debreu@imag.fr) */ |
---|
6 | /* Cyril Mazauric (Cyril.Mazauric@imag.fr) */ |
---|
7 | /* */ |
---|
8 | /* This program is free software; you can redistribute it and/or modify */ |
---|
9 | /* it */ |
---|
10 | /* */ |
---|
11 | /* This program is distributed in the hope that it will be useful, */ |
---|
12 | /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ |
---|
13 | /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ |
---|
14 | /* GNU General Public License for more details. */ |
---|
15 | /* */ |
---|
16 | /******************************************************************************/ |
---|
17 | #include <stdlib.h> |
---|
18 | #include <stdio.h> |
---|
19 | #include <string.h> |
---|
20 | #include "decl.h" |
---|
21 | |
---|
22 | /*Tests de correction*/ |
---|
23 | |
---|
24 | int tests_entrees() |
---|
25 | { |
---|
26 | int erreur=0; |
---|
27 | |
---|
28 | if (onlyfixedgrids == 0) |
---|
29 | { |
---|
30 | if(regridding==0) |
---|
31 | { |
---|
32 | printf("ERROR: Regridding interval is missing or equals 0\n"); |
---|
33 | erreur=1; |
---|
34 | } |
---|
35 | |
---|
36 | if (userefficiency==1) |
---|
37 | { |
---|
38 | if ((efficiency>100) || (efficiency < 0)) |
---|
39 | { |
---|
40 | printf("ERROR : invalid efficiency (must be between 0 and 100) \n"); |
---|
41 | erreur=1; |
---|
42 | } |
---|
43 | } |
---|
44 | else |
---|
45 | { |
---|
46 | printf("WARNING : clustering efficiency not given: set to 70%% \n"); |
---|
47 | efficiency=70; |
---|
48 | } |
---|
49 | } |
---|
50 | |
---|
51 | |
---|
52 | if(erreur) return 1; |
---|
53 | |
---|
54 | return erreur; |
---|
55 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.